vb题 输出任意10个数字中最大的数

来源：百度知道 编辑：UC知道 时间：2024/05/17 05:38:38
大大们．．我连这都搞不太懂啊．．．
有没有大大们帮忙解下啊．．
那么多回答啊？哪个对的我都不知道

Private Sub Command1_Click()
'先生成10个数字
Dim i%, s(1 To 10), max%

Randomize

For i = 1 To 10
s(i) = Int(Rnd * 100 + 1) '得到每一个数
If s(i) > max Then max = s(i) '如果比max中的大,就改写max为当前数
Next

Print Join(s)
Print max
End Sub

基本思路是这样的．选设一个数组S（9）．再设一个变量M里面放最大的那个数．初始把第一个数放进去．然后把这个数跟其它几个一个一个比．每比一次把最大的数放到M里．这样比完之后．M里就是最大的数了．

Private Sub Form_Click()
Dim Min, Max, D As Double
Dim Str As String
Dim N As Integer
For N = 1 To 10
Str = InputBox("请输入第" & N & "个数", "输入") '循环输入10个数字
D = Val(Str)
Print D
'初始化最大值和最小值均为输入的第一个数
If N = 1 Then Max = D: Min = D
'如果输入的数字比Max还大的话那么把输入的这个数重新当作Max,一直循环下去,可以保证Max就是所有数里最大的数
If Val(D) > Max Then Max = Val(D)
'如果输入的这个数比Min还小的话就把这个数当作Min,一直循环下去,可以保证Min就是所有数里边最小的数
If Val(D) < Min Then Min = Val(D)
Next

Print "最大值:" & Max
Print "最