赞 tep2006240 幼苗
共回答了13个问题采纳率：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
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
1年前
3
可能相似的问题
-
1年前1个回答
-
1年前9个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗