更多"在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过"的相关试题:
[单项选择]在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]
窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click( )
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus( )
Text1.Text=”等级考试”
End Sub
运行以上程序,单击命令按钮后
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程: Private Sub Form_Click( ) x=InputBox("请输入一个整数") Print x+Text1.Text End Sub 单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有下列事件过程:
Private Sub Form_Click( )
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示的是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上有文本框Text1和命令按钮Command1,并有如下事件过程: Private Sub Command1_Click( ) Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程, Private Sub Form Click( ) x=InputBox("请输入一个整数") Print x+Text1. Text End Sub 单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]窗体上添加一个文本框Text1,编写如下代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)&KeyCode End sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65 G66
B. F65 F66
C. G66 F65
D. G65 G66
[单项选择]窗体上添加一个文本框Text1,编写下列代码: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)& KeyCode End Sub 程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65 G66
B. F65 F66
C. G66 F65
D. G65 G66
[单项选择]在窗体上画一个称为Text1的文本框,然后编写如下的事件过程:
Private Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程: Private Sub Text1_KeyPress(Keyascii As Integer) End Sub 若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa