更多"在窗体上画一个文本框,然后编写如下事件过程。当该程序运行后,如果在键盘"的相关试题:
[单项选择]在窗体上画一个文本框,然后编写如下事件过程。当该程序运行后,如果在键盘上输入字母e,则文本框中显示的内容为 ______。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char as String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(5,KeyAscii) End Sub
A. eeeee
B. EEEEE
C. eeeeee
D. EEEEEE
[单项选择]在窗体上画一个命令按钮,命名为CommandI。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程 F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。
能够正确实现上述功能的代码是
A. Privme Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是
A. Private Sub Command1_Click( ) x=Input Box("请输入整数") a=F1(Val() Print a End Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Return0 Else Return 1 End lf End Function
B. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) a=Fl(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function
C. Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val() Print a Enb Sub Function Fl(ByRef b As Intege If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function
D. Private Sub Command1_Click( ) x=Input Box(“请输入整数”) F1(Val() Print a End Sub Function Fl(ByRef b As Intege lf b Mod2=0 Then Return 0 Else Return1 End lf End Function
[单项选择]窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上 述操作的事件过程是:_______。
A. Private Sub Text1_Change() LabelCaption=Text1.Text End Sub
B. Private Sub Text1_Click() LabelCaption=Text1.Text End Sub
C. Private Sub Labell_Change() LabelCaption=Text1.Text End Sub
D. Private Sub Labell_Click() LabelCaption=Text1.Text End Sub
[单项选择]在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示“打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的 Filter属性的正确设置是______。
A. "(*.DOC)*.DOC"
B. "(*.DO
C. |(.DOC)"C) "(*.DOC)||*.DOC"
D. "(*.DOC)|*.DOC"