( 29 )在窗体上画 1 个文本框,其名称为 Text1 ,然后编写下列过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后,把焦点移到文本框中,此时如果敲击 <A> 键,则输出结果为( )。
A ) A
A
B ) A
B
C ) A
C
D ) A
D
第1题:
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Labe11,文本框的Text1属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后,在文本框中输入653,单击命令按钮,标签中显示的内容是______。
A.27
B.28
C.29
D.30
第2题:
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
第3题:
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase (str))
Textl.Text=String(2, KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是
A.bbb
B.BBB
C.BB
D.bb
第4题:
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容是
A.bbb
B.BBB
C.BB
D.bb
第5题:
在窗体上画1个文本框,其名称为Text1,然后编写如下过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后,把焦点移到文本框中,此时如果敲击“A”
A.
B.
C.
D.