操作题
1. 有一个工程文件2.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。
参考代码:
Prvate Sub Command1_Click()
'Combo1.?
Tlext1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'If KeyAscii>57 Or KeyAscii<?Then
MsgBox"请输入数字!"
'KeyAscii=?
End If
End Sub
【正确答案】【操作步骤】
步骤1:打开考生文件夹下的本题工程文件。在代码编辑窗口,去掉程序中的注释符“'”,将问号“?”改为正确的内容。
参考代码:
Combol.Add Item Text1.Text
If KeyAscii>57 Or KeyAscii<48 Then
KeyAscii=0
步骤2:按要求将文件保存至考生文件夹中。
【答案解析】 本题原程序要在文本框中防止非数字字符的输入,应在其:KeyPress事件过程中,将输入字符的KeyAscii值大于57或小于48的重新赋值为0。向组合框中输入项目,应使用其AddItem方法。