永发信息网

VB编程:产生30个两位随机整数。

答案:1  悬赏:70  手机版
解决时间 2021-02-05 02:59
VB编程:产生30个两位随机整数。
最佳答案
Option Explicit
Option Base 1
Private Sub Form_click()
Randomize
Dim i As Integer, j As Integer, temp As Integer
Dim a(30) As Integer
For i = 1 To 30
a(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To 29
For j = i + 1 To 30
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To 30
If a(i) Mod 2 <> 0 Then Print a(i):
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
外贸COA是什么,原料的COA报告专业办理
青海迈肯汽车服务公司地址有知道的么?有点事
想买一个就是卖黄金那里那样的戒指不圆了,可
中国联通(九店营业厅)地址好找么,我有些事要
辣椒的意思是什么啊?知道的请说下!
【夫人何处去】...2.昨日不可留3.夫人何处去4
中国电信(谷水营业厅)地址有知道的么?有点事
教育小区怎么去啊,有知道地址的么
如图 在三角形ABC中,若P点是角ABC和角ACB的
跪求动物纪录片<森林和原野>和<哭泣的森林>.
今天民政局正常上班吗
雍正时期西北叛军是谁
中国联通田湖联发合作厅怎么去啊,我要去那办
中短发怎么扎好看 求图
建设项目信息分类和编码体系的(  )有利于
推荐资讯
金百力酒的价
冠霞的意思是什么啊?知道的请说下!
谁这块寿山石印章成色如何?
什么木材做蒸子最好
怎么写招工广告才能吸引人
成语什么钟什么什么
领导干部可以参加非近亲属的婚宴吗
碳钢管道普通压力表配什么样的阀门?尺寸有没
你好,我要去仰光工作,但是我很想玩国内的游
诚信陶瓷批发城地址有知道的么?有点事想过去
下列关于叶绿体的色素叙述错误的是BA. 矿质元
别克经典gl82.4行驶中突然所有仪表归零,动力
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?