更多"在窗体上画一个文本框,然后编写如下事件过程: Private Sub"的相关试题:
[单项选择]在窗体上画一个文本框(Textl),然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4,KeyAscii) End Sub 程序运行后,在文本框Text1中输入A,则程序在窗体上的输出结果为
A. a
B. A
C. aaaa
D. AAAA
[单项选择]在窗体上画一个文本框,然后编写如下事件过程:Private Sub Text1_ KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1. Text= String(6,KeyAscii)End Sub程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
[单项选择]在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click( )
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确 定”按钮后,在窗体上显示的内容为______。
A. 123
B. 456
C. 479
D. 123456
[单项选择]
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Form_Click( ) x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为()。
A. 123
B. 456
C. 479
D. 123456
[单项选择]在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(Keyascii as integer)
End Sub
若焦点位于文本框中,则能够触发KeyPress事件的操作是
A) 单击鼠标 B) 双击文本框
C) 鼠标滑过文本框 D) 按下键盘上的某个键
[单项选择]在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(KeyAscii As Integer)
End Sub
假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是【 】
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键