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 SubElseIf num < 0 Or num Mod 1 0 Then MsgBox "请输入正整数!" Exit SubEnd IfFor 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) & vbCrLfNextIf 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 NextEnd If经测试在VB6。0中通过