张宝文:VB产生随机数
sunshine的回答:
代码如下: Private Sub Form_Click() Dim temp As Integer '申明变量 Cls '清理窗体 Dim a(1 To 10) '申明数组变量 Print "颠倒前:" For i = 1 To 10 Randomize a(i) = Int(Rnd * 61 + 20) Print a(i); Next i Print Print "颠倒后:" For i = 1 To 5 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 To 10 Print a(i); Next i End Sub
sunshine的回答:
代码如下: Private Sub Form_Click() Dim temp As Integer '申明变量 Cls '清理窗体 Dim a(1 To 10) '申明数组变量 Print "颠倒前:" For i = 1 To 10 Randomize a(i) = Int(Rnd * 61 + 20) Print a(i); Next i Print Print "颠倒后:" For i = 1 To 5 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 To 10 Print a(i); Next i End Sub
本文由第三方用户分享仅代表作者观点,不代表本网站立场,秉承互联网开放分享的精神,目的在于传递更多信息,加强各行业互通交流,但对内容不作任何保证或承诺,请读者自行参考斟酌。网站发布的信息(包含但不限于版式、图片、字体、文章等素材)由第三方用户分享,版权归原作者所有,本站不承担任何相关的版权纠纷等相关责任。如您认为本篇内容侵犯了您的权益,请与我们联系,我们会及时处理。
豌豆资源网专注分享全网综合资源网站大全,致力于超实用的内容资源搜索。
转载请注明: 本文标题:张宝文:VB产生随机数 本文地址:https://55wd.com/s148265/