VB：随机产生20个1-100的正整数放入数组中

如图两道题拜托了

第1个回答 2019-06-13

Dim n As Long, i As Long, j As Long, s As String
Dim a() As Long
Randomize
n = Int(Rnd * 80 + 20)
ReDim a(n - 1)
For i = 0 To n - 1
Randomize
a(i) = Int(Rnd * 100)
Next
m = 0
Me.Show
For i = 0 To n \ 10
s = ""
For j = 0 To 9
If i * 10 + j >= n Then Exit For
s = s & Right("00" & a(i * 10 + j), 2) & " "
Next
Print s & vbCrLf
Next本回答被网友采纳

相似回答

VB计算:随机产生20个1～100的正整数放入数组中,显示产生的数,并求出...答：i As Long Randomize Me.Cls: nMax = 0 Print "这20个数是：" For i = 0 To 19 '产生10个数据 V = 1 + 99 * Rnd() '1到100 aNum(i) = V Print V; If (V > nMax) Then nMax

求解一道VB题:随机产生20个0-100的正整数(包括0和100)存放在数组中,求...答：Private Sub Form_Click()Randomize Dim a(1 To 20)s = 0 Max = 0 Min = 100 bmax = 1 bmin = 1 For i = 1 To 20 a(i) = Int(Rnd * 101)Print a(i);s = s + a(i)If a(i) > Max Then Max = a(i): bmax = i If a(i) < Min Then Min = a(i): bmin =...

vb程序设计题求代码 随机产生20个0～100的正整数(包括0和100),存放...答：a, b As IntegerDim Ave As DoubleDim sum As IntegerDim Mx, Mn As IntegerPrint "随机数数组为："RandomizeFor i = 1 To 20 arr(i) = Int(Rnd * 101) sum = arr(i) + sum Print arr(i);

产生20个1-100之间的整数,存入一个数组中。实现以下功能。答：Dim a(20) As Integer '以下代码功能是产生20个随机数并输出 For i = 1 To 20 a(i) = Int(100 * Rnd) + 1 Print a(i),If i Mod 5 = 0 Then Print Next i '以下代码功能是求数组最大值和最小值的下标 Max = 1: Min = 1 For i = 1 To 20 If a(Max) < a(i) Then ...

VB产生不重复的20个1~100的随机数答：Private Sub Form_Load()Dim d(20) As Integer Show For i = 1 To 20 Randomize d(i) = Int(Rnd * 100) + 1 If i > 1 Then cz = False For j = 1 To i - 1 If d(i) = d(j) Then cz = True End If Next j If cz Then i = i - 1 Else Print d(i)End If En...

求vb编程题:随机产生20个0~100的整数放到一个数组中,求这20个数中小于...答：Private Sub Command1_Click()Dim a%(19), b b = 0 Randomize For i = 0 To 19 a(i) = Int(Rnd * 101)If a(i) < 50 Then b = b + a(i)Next Print b End Sub

vb 随机生成20个100以内的正整数答：简单明了，单击窗体输出 Private Sub Form_Click()Cls Dim a(19) As Integer For i = 0 To 19 a(i) = Int(Rnd * 100)If a(i) Mod 2 <> 0 Then s1 = s1 & a(i) & ","Else s2 = s2 & a(i) & ","End If Next Print "奇数：" & s1 Print "偶数：" & s2 End Sub...

VB编程:产生20个10至100间的随机整数存入一维数组A中,每行5个元素输出...答：Private Sub Command1_Click()Dim a(20) As Integer, b(4, 5) As Integer Randomize For i = 1 To 20 a(i) = Int(Rnd * 91) + 10 Print a(i);If i Mod 5 = 0 Then Print Next Print For i = 1 To 4 For j = 1 To 5 b(i, j) = a(j + (i - 1) * 5)Print...

vb编程随即的产生20个0到1000之间的整数答：Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub Private Sub Command2_Click()Dim i As Integer, a() As Integer, s As Integer Randomize For i = 1 To 20 ReDim Preserve a(i)a(i) = Int(1001 * Rnd)Text1.Text = Text1.Text & a(...

大家正在搜

随机产生10个随机数随机生成1到100随机数随机生成数字的函数如何产生随机数 1到100随机生成器数字随机生成如何随机生成数字如何生成随机数随机抽奖生成器