神马品牌网血竭香港进口报关代理:vb初级编程 关于inputbox的使用
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 00:49:52
题目：当程序运行时，弹出对话框要求用户输入一个英文字母，在窗体上打印该字母的ASCII码
编程如下：
Dim str1 As String
Dim b As String
Private Sub Command1_Click()
str1 = InputBox("请输入一个字母" + Chr(13) + Chr(10) + "然后单击确定查看该字母的ASCII码", "ASCII码转换输入框", , 100, 100)
b = Asc(str1)
Print str1; "对应的ASCII码为"; b
End Sub
问题在于 当启动窗口后 会出现一个含有“确定”键和“取消”键inputbox 此时若输入字母后点击确定则程序运行正常 但若点击取消 则会报出错 请问如何改正 谢谢！
另外 还想问一下 如何能够在用户输入非字母时 辨别出来 具体的语言是什么 在线等 若两问都得以解答 愿意给20分 一个问题解答出来 十分 谢谢啦
编程如下：
Dim str1 As String
Dim b As String
Private Sub Command1_Click()
str1 = InputBox("请输入一个字母" + Chr(13) + Chr(10) + "然后单击确定查看该字母的ASCII码", "ASCII码转换输入框", , 100, 100)
b = Asc(str1)
Print str1; "对应的ASCII码为"; b
End Sub
问题在于 当启动窗口后 会出现一个含有“确定”键和“取消”键inputbox 此时若输入字母后点击确定则程序运行正常 但若点击取消 则会报出错 请问如何改正 谢谢！
另外 还想问一下 如何能够在用户输入非字母时 辨别出来 具体的语言是什么 在线等 若两问都得以解答 愿意给20分 一个问题解答出来 十分 谢谢啦
在b = Asc(str1)这一句前加上一句:"if len(str1) = 0 then exit sub"
因为当你按取消时str1为空~而Asc()函数里的字符串是不能为空的!
如果你想知道更多可以加入QQ群:4903197(我也在里面)
inputbox函数允许使用默认，设一个默认值就不回出现错误的情况可， 然后用一个判断语句判断一下是否为默认值，当为默认值输出个空格就行了