UC知道vb 编译错误 else没有if
来源：百度知道 编辑：UC知道 时间：2024/05/25 07:03:06
Dim tempStr As String
If Combo2 = 31 Then
tempStr = InputBox("输入26位1，0码", "31位编码输入源", "")
If tempStr = 0 Then Call Command1_Click
Else
text1Str = tempStr
Text1.Text = text1Str
End If
Else
If Combo2 = 15 Then
End If
End If
不知道这段代码错在哪里
If Combo2 = 31 Then
tempStr = InputBox("输入26位1，0码", "31位编码输入源", "")
If tempStr = 0 Then Call Command1_Click
Else
text1Str = tempStr
Text1.Text = text1Str
End If
Else
If Combo2 = 15 Then
End If
End If
不知道这段代码错在哪里
按照你程序的逻辑：
If tempStr = 0 Then Call Command1_Click
这个地方应该写成：
If tempStr = 0 Then
Call Command1_Click
不然If语句不好配套啦
Dim tempStr As String
ifCombo2 = 31 Then
tempStr = InputBox("输入26位1，0码", "31位编码输入源", "")
If tempStr = 0 Then Call Command1_Click
Else if
text1Str = tempStr
Text1.Text = text1Str
End If
Else
If Combo2 = 15 Then
End If
End If
这样应该可以。
多了最后那个END IF
If Combo2 = 15 Then
End If
then 后面没东西。。。