vb 比较大小的问题

来源：百度知道 编辑：UC知道 时间：2024/06/26 02:01:28
编写程序：在窗体上输入5个数，之间必须用逗号分隔，当按回车键时输出哪个数最大。
代码如下
Dim str1 As String
Dim a(1 To 5) As Integer
Dim n As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim max As Integer, i As Integer, flag As Integer
Print Chr(KeyAscii);
str1 = #####[1]#####+ Chr(KeyAscii) '第1空
'将输入的内容向a数组赋值
If #####[2]##### = Asc(",") Or n = 4 Then '第2空
n = n + 1
a(n) = Val(str1)
str1 = ""
End If
'求a数组中的最大数
If KeyAscii = #####[3]##### Then '第3空
max = #####[4]##### '第4空
flag = 1
For i = 2 To 5
If #####[5]##### Then '第5空
max = a(i)
flag = i
End If
Next i
Print "最大数是第" & flag & "个数:" & max
End If
End Sub

#####[2]##### 是填代码的地方

正确代码如下：
Dim str1 As String
Dim a(1 To 5) As Integer
Dim n As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim max As Integer, i As Integer, flag As Integer
Print Chr(KeyAscii);
str1 = str1 + Chr(KeyAscii) '第1空
'将输入的内容向a数组赋值
'注意按题目要求，只输入5个数并且第五个数后不能出现","
If KeyAscii = Asc(",") Or n = 4 Then '第2空
n = n + 1
a(n) = Val(str1)
str1 = ""
End If
'求a数组中的最大数
If KeyAscii = 13 Then '第3空 13是回车键的ASCII码
max = a(1) '第4空
flag = 1
For i = 2 To 5
If max < a(i) Then '第5空
max = a(i)
flag = i
End If
Next i
Print "最大数是第" & flag & "个数:" & max
End If
End Sub

可以比较最后一个数啊，经过检验完全可以啊！
关键是这一句，
If KeyAscii = Asc(",") Or n = 4 Then '第2空
当输入为","时，或者是第五个数给a（5）赋值。

下面这段程序是用来比较大小的，比较从a（1）到a（5）的值。
max =