张宝文:VB产生随机数

综合问答 4年前 (2020) https://www.55wd.com

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

版权声明: 发表于 2020-10-04 23:03:54。

本文由第三方用户分享仅代表作者观点,不代表本网站立场,秉承互联网开放分享的精神,目的在于传递更多信息,加强各行业互通交流,但对内容不作任何保证或承诺,请读者自行参考斟酌。网站发布的信息(包含但不限于版式、图片、字体、文章等素材)由第三方用户分享,版权归原作者所有,本站不承担任何相关的版权纠纷等相关责任。如您认为本篇内容侵犯了您的权益,请与我们联系,我们会及时处理。

豌豆资源网专注分享全网综合资源网站大全,致力于超实用的内容资源搜索。

转载请注明:
本文标题:张宝文:VB产生随机数
本文地址:https://55wd.com/s148265/