VB随机产生10个10到100的整数,每行输出10个代码怎么写?

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/30 23:43:34

VB随机产生10个10到100的整数,每行输出10个代码怎么写?
必须是基数

是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?
奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49
新建工程,窗体上放个文本框,name是t,ScrollBars是2,MultiLine是True,Text属性清空.放个按钮,name是start,在Click事件里写
Dim num, a(9)
num = InputBox("输入数字个数：")
If IsNumeric(num) = False Then
MsgBox "不是数字,请重新输入!"
Exit Sub
ElseIf num < 0 Or num Mod 1 0 Then
MsgBox "请输入正整数!"
Exit Sub
End If
For i = 0 To (num - (num Mod 10) - 10) Step 10
For j = 0 To 9
a(j) = (Int(Rnd() * 44 + 5) * 2 + 1)
Randomize
Next
t.Text = t.Text & a(0) & " " & a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & " " & a(6) & " " & a(7) & " " & a(8) & " " & a(9) & vbCrLf
Next
If num Mod 10 0 Then
t.Text = t.Text & (Int(Rnd() * 44 + 5) * 2 + 1)
Randomize
If num Mod 10 = 1 Then Exit Sub
For i = 2 To (num Mod 10)
t.Text = t.Text & " " & (Int(Rnd() * 44 + 5) * 2 + 1)
Randomize
Next
End If
经测试在VB6.0中通过

VB随机产生10个10到100的整数,每行输出10个代码怎么写? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码 Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出求大神帮看VB代码哪边出错了——随机生成10个20到90之间的整数,将其中的素数输出. vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出 VB 100到200能被3或被5整除的数,每行输出10个数代码要怎么写啊? 问一个VB基础题啊怎么随机产生10个30到100的数,求最大值、最小值和平均值.输出结果 VB随机产生10个100到200之间的整数,将其按从大到小顺序排列 VB:随机产生 10 个整数,求其中最小的数.若随机产生n个整数又如何实现写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 vb问题利用随机函数产生80个10～99之间的随机整数, VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出