用VB语言随机输入10个数,输出最大值和最小值,和其位置

Answer 1

Private Sub Form_Load()
Dim a(10) As Integer
Dim i, j As Integer
Dim max, min As Integer
Dim maxi, minj As Integer
Dim temp As String
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 100)
Next
max = a(1)
min = a(1)
For i = 2 To 10
If min > a(i) Then
minj = i
min = a(i)
End If
If max < a(i) Then
maxi = i
max = a(i)
End If
Next
For i = 1 To 10
temp = temp & a(i) & " "
Next
temp = "这十个数是：" & temp & "最大数" & max & "的位置在" & maxi & " " & "最小数" & min & "的位置在" & minj
MsgBox temp
End Sub

追问

随机函数那点错了

Answer 2

我的思路是：
1. 先定义一个数组，用于保存这10数；
2. 循环调用inputbox，依次输入输入这10数，并保存到数组中
3. 循环判断这10个数的最大值、最小值及位置

接下来，你应该会写了吧

Answer 3

'先0-1000内随机10个数 再排序
Private Sub Command5_Click()
Dim i As Integer, k As Integer
Dim s1(0 To 9) As Single, tmp As Single
Randomize Time()
For i = 0 To 9
s1(i) = Int(Rnd * 1000)
Next

For i = 0 To 9
For k = i + 1 To 9
If s1(k) > s1(i) Then
tmp = s1(i)
s1(i) = s1(k)
s1(k) = tmp
End If
Next
Next
For i = 0 To 9
Print s1(i)
Next
Print "最大数：" & s1(0) & " 最小数：" & s1(9)
MsgBox "最大数：" & s1(0) & " 最小数：" & s1(9)
End Sub