VB新手问题,高手进来解答

来源：百度知道 编辑：UC知道 时间：2024/05/04 15:55:21
2个文本框. 一个command按纽
用asc函数 求 这2个文本框中的ascii码是多少.

想实现的是 如果在text2中输入内容则自动求t2的 asc值
如果在text1中输入内容则 求 t1的asc值

如果t1和t2都内容都为空
则提示 "没有任何内容"

以下是小弟写的代码. 在t1输入内容可以弹出asc值
在t2中输入内容就会报错.. 不知道错在哪里..

Private Sub Command4_Click()
a = Text1.Text
b = Text2.Text
If a <> 0 Then
MsgBox "ASCII码为" & Asc(a)
ElseIf b <> 0 Then
MsgBox "ASCII码为" & Asc(b)
Else
MsgBox "您没有输入内容"
End If
End Sub

Dim a As String
Dim b As String

a = Text1.Text
b = Text2.Text
If Len(a) <> 0 Then

MsgBox "ASCII码为" & Asc(a), vbOKOnly
ElseIf Len(b) <> 0 Then
MsgBox "ASCII码为" & Asc(b), vbOKOnly
Else
MsgBox "您没有输入内容", vbOKOnly
End If

你的程序段没有考虑text1和text2中都有内容时的情况，根据你的题意：“如果在text2中输入内容则自动求t2的 asc值，如果在text1中输入内容则 求 t1的asc值”，应该是优先显示 text2中内容t2的 asc值，所以要做以下改动：
Private Sub Command4_Click()
a = Text1.Text
b = Text2.Text
If b <> 0 Then
MsgBox "ASCII码为" & Asc(b)
ElseIf a <> 0 Then
MsgBox "ASCII码为" & Asc(a)
Else
MsgBox "您没有输入内容"
End If
End Sub