用vb代码表示随机产生10个整数，并求出最大值

Question

如题所述

Answer 1

这是我之前写的代码，是随机产生8个1000内的整数，然后从大到小排列，你要随机产生10个整数，然后求出最大值应该是差不多的，可以参考
Dim a(10) '‘定义a数组为窗体变量,且最大下标为10

Private Sub Command1_Click()
Randomize '‘随机播种语句
For i = 1 To 8 '‘随机产生8个1000之内的正整数,赋予数组a的各个变量
a(i) = Fix(Rnd * 1000) + 1
Next i
For i = 0 To 7
Label2(i) = a(i + 1)
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
For i = 1 To 7
m = i
For j = i + 1 To 8
If a(m) < a(j) Then m = j
Next j
x = a(i): a(i) = a(m): a(m) = x
Next i
For i = 0 To 7
Label11(i) = a(i + 1)
Next i
Command1.Enabled = True
Command2.Enabled = True
End Sub
希望对你有帮助

Answer 2

程序如下：
Dim maxNum As Integer '存放最大的整数
Dim i As Integer
Dim a(1 To 10) As Integer '存放生成的整数
maxNum = 0

‘假设生成100以内的10个整数
For i = 1 To 10
a(i) = Int(Rnd() * 100) ’生成100以内的整数
If a(i) > maxNum Then maxNum = a(i) '判断并保存最大的整数
Next i

1、生成的10个整数保存在a() 数组中
2、maxNum 保存为最大的整数
3、如果要生成1000以内的整数，只需要更换 Int(Rnd()*1000) 即可本回答被网友采纳

Answer 3

程序如下：
Dim maxNum As Integer '存放最大的整数
Dim i As Integer
Dim a(1 To 10) As Integer '存放生成的整数
maxNum = 0

‘假设生成100以内的10个整数
For i = 1 To 10
a(i) = Int(Rnd() * 100) ’生成100以内的整数
If a(i) > maxNum Then maxNum = a(i) '判断并保存最大的整数
Next i

1、生成的10个整数保存在a() 数组中
2、maxNum 保存为最大的整数
3、如果要生成1000以内的整数，只需要更换 Int(Rnd()*1000) 即可