VB6.0 的输出问题!!!
来源:百度知道 编辑:UC知道 时间:2024/05/24 05:38:04
--------------------------------------------------------------------------
Private Sub Command1_Click()
Dim cfg1
cfg1 = Val(Text1(0).Text)
Select Case cfg1
Case L, 1, F
Text2(0).Text = "1"
Text3(0).Text = "男装"
Case N, 2, M
Text2(0).Text = "2"
Text3(0).Text = "女装"
Case T, 3, 8
Text2(0).Text = "3"
Text3(0).Text = "童装"
Case Else
MsgBox "您输入的第一个字符无效", , "提示"
End Select
End Sub
-------------------------------------------------------------------------
请求VB高手帮助“急”!!!
上面的选择语句,我在Text1(0)中输入1,2,3都会得到相应的结果。
输入“0”和26个字母中的任何一个字母都会得到下面的结果
Text2(0).Text = "1"
Text3(0).Text = "男装"
输入“0,4,5,6,7,8,9”都会得到:MsgBox "您输入的第一个字符无效", , "提示"
Private Sub Command1_Click()
Dim cfg1
cfg1 = Val(Text1(0).Text)
Select Case cfg1
Case L, 1, F
Text2(0).Text = "1"
Text3(0).Text = "男装"
Case N, 2, M
Text2(0).Text = "2"
Text3(0).Text = "女装"
Case T, 3, 8
Text2(0).Text = "3"
Text3(0).Text = "童装"
Case Else
MsgBox "您输入的第一个字符无效", , "提示"
End Select
End Sub
-------------------------------------------------------------------------
请求VB高手帮助“急”!!!
上面的选择语句,我在Text1(0)中输入1,2,3都会得到相应的结果。
输入“0”和26个字母中的任何一个字母都会得到下面的结果
Text2(0).Text = "1"
Text3(0).Text = "男装"
输入“0,4,5,6,7,8,9”都会得到:MsgBox "您输入的第一个字符无效", , "提示"
不知道你是不是这个意思,
Private Sub Command1_Click()
Dim cfg1 As String * 1
cfg1 = Text1(0).Text
Select Case cfg1
Case "L", "1", "F"
Text2(0).Text = "1"
Text3(0).Text = "男装"
Case "N", "2", "M"
Text2(0).Text = "2"
Text3(0).Text = "女装"
Case "T", "3", "8"
Text2(0).Text = "3"
Text3(0).Text = "童装"
Case Else
MsgBox "您输入的第一个字符无效", , "提示"
End Select
End Sub
val函数用于将字符串转为数字,那么后面的判断就无意义了
Private Sub Command1_Click()
Dim cfg1 As String
cfg1 = Text1(0).Text
Select Case cfg1
Case "L, 1, F"
Text2(0).Text = "1"
Text3(0).Text = "男装"
Case "N, 2, M