查人人中国名人网满族和汉族能结婚吗:VB不接受非数字键操作
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 02:59:16
2．请参考Design.exe程序的运行结果，新建一个工程，完成“加法器”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“加法器”，固定边框。
（2）在窗体上从到下依次引入Text1、Text2、Text3三个文本框，三个文本框的对齐方式均为右对齐。
（3）上面两个文本框用于输入加数，要求不接受非数字键
（4）下面一个文本框用于显示和，它不能进行编辑操作。
（5）单击“=”按钮（Command1），将两个加数的和显示在下面一个文本框中。
（6）单击“清空”按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。
就是如何实现这一条啊??（3）上面两个文本框用于输入加数，要求不接受非数字键
（1）窗体的标题为“加法器”，固定边框。
（2）在窗体上从到下依次引入Text1、Text2、Text3三个文本框，三个文本框的对齐方式均为右对齐。
（3）上面两个文本框用于输入加数，要求不接受非数字键
（4）下面一个文本框用于显示和，它不能进行编辑操作。
（5）单击“=”按钮（Command1），将两个加数的和显示在下面一个文本框中。
（6）单击“清空”按钮（Command2），三个文本框内容都被清空，同时第一个文本框获得焦点。
就是如何实现这一条啊??（3）上面两个文本框用于输入加数，要求不接受非数字键
判断ASC码 Dim strsl As String
strsl = Text1.Text
Dim q As Integer
For q = 1 To Len(strsl)
If Asc(Mid(strsl, q, 1)) > 57 Or ((Asc(Mid(strsl, q, 1)) > 46 And Asc(Mid(strsl, q, 1)) < 48)) Or Asc(Mid(strsl, q, 1)) < 46 Then
MsgBox "请输入数字! "
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
Next