作业帮 > 综合 > 作业

Vb小编程用随机函数生成10个100以内的的整数 找出最大值 并指出是第几个数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 15:01:25
Vb小编程
用随机函数生成10个100以内的的整数 找出最大值 并指出是第几个数
Dim k%
Dim a%(1 To 10)
Private Sub Command1_Click()
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 100 + 1)
Next
Print "a数组:"
k = 1
For i = 1 To 10
Print a(i)
If a(i) > a(k) Then
k = i
End If
Next i
MsgBox "最大数: " & a(k) & "为数组中第: " & k & " 个数"
End Su