VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/22 19:20:34
VB随机产生10个10到100的整数,每行输出10个代码怎么写?必须是基数
VB随机产生10个10到100的整数,每行输出10个代码怎么写?
必须是基数
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中通过