用随机函数产生10个〔10,99〕之间的随机整数，找出其中最大值vb程序

Question

如题所述

Answer 1

vb 产生随机数的公式（上界-下界+1）*rnd+下界你的题目就应该是（99-10+1)*rnd +10一般用rnd的时候还要在前面加一条 randomize 初始化随机种 子追问

有程序试嘛？

Answer 2

你好，软糖帮你写了个

代码如下

Private Sub Form_Load()
Randomize
Dim k(10) As Integer
Dim max As Integer
max = 0
Dim tip As String
For i = 1 To 10
k(i) = (99 - 10 + 1) * Rnd + 10
If max < k(i) Then max = k(i)
tip = tip & Str(k(i))
If i < 10 Then tip = tip & ", "
Next
MsgBox ("随机数：" & tip & vbCrLf & "最大值：" & Str(max))
End Sub

Answer 3

运行结果：生成的数组为 73 58 62 36 37 79 11 78 83 73 排序后的数组为 83 79 78 73 73 62 58 37 36 11 该数组元素各个元素的和是 590 最大元素是 83 最小元素是 11追问

有没有程序试