更多"在窗体上画一个文本框,然后编写如下事件过程:
Private Sub"的相关试题:
[单项选择]在窗体上画一个文本框,然后编写如下程序: Option Base 1 Private Sub Form_Click( ) Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text:Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后,单击窗体,在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10
[单项选择]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1.Text=Sting(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
[单项选择]在窗体上画一个文本框(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 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) 按下键盘上的某个键