Question

VB 组合框 问题？急，求解？

Private Sub Command1_Click()
If Not check(Combo1.Text) Then
MsgBox ("输入错误")
Exit Sub
End If
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
MsgBox ("添加项目失败")
Exit Sub
End If
Next k
Combo1.AddItem Combo1.Text
MsgBox ("添加项目成功")
End Sub
Private Function check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1))
If c < "A" Or c > "Z" Then
check = False
Exit Function
End If
Next k
check = True
End Function
程序运行时，如果在组合框编辑区中输入“Java”，则单击命令按钮产生的结果是？
我在VB中模拟结果为 如果把显示 If c < "A" Or c > "Z" 改为小写提示“输入错误”
大写的话是“添加项目失败”，请问大虾是什么原理，程序没看懂它的运行步骤
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
MsgBox ("添加项目失败")
Exit Sub
End If
这里的Combo1.ListCount - 1是什么意思？还有为什么要加exit sub?
Private Function check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1))
If c < "A" Or c > "Z" Then
check = False
Exit Function
End If
Next k
check = True
End Function
这段话里ch应该带入“Java”？
这样的话n=4 c$=a
而条件语句是从大写的ASC A-C所以这里的c$带到过程函数中提示添加失败？
如果改为 If c < "a" Or c > "z" Then
那输入Java应该提示添加成功呀？
不是小写的a吗？又不是大写的A到Z

Answer 1

Private Sub Command1_Click()
If Not check(Combo1.Text) Then '不允许有字母以外的字符
MsgBox ("输入错误")
Exit Sub
End If
For k = 0 To Combo1.ListCount - 1 '第一条到最后一条的索引值，第一条为0,最后一条为Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then '不允许添加重复项目
MsgBox ("添加项目失败")
Exit Sub
End If
Next k
Combo1.AddItem Combo1.Text
MsgBox ("添加项目成功")
End Sub
Private Function check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1)) '取一个字母并转换成大写
If c < "A" Or c > "Z" Then '所以这里只判断是否在大写字母范围内即可。
check = False
Exit Function
End If
Next k
check = True
End Function

Answer 2

输入Java应该提示添加成功。
输入Java,
UCase(Mid(ch, k, 1))函数将小写字母转换成了大写。
check函数功能是检查字符是不是英文字母。