更多"在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程: P"的相关试题:
[单项选择]在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程:
Private Sub Text1_KeyPress(Keyascii As Integer)
...
End Sub
若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_Load( )
Text1.Text=" "
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是( )。
A. 在文本框Text1中输出45
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
[单项选择]窗体上添加一个文本框Text1,编写如下代码:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+5) & KeyCode
End Sub
程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]窗体上添加一个文本框Text1,编写下列代码:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+51 &KeyCode)
End Sub
程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]在窗体上放一个文本框Text1,在文本框中输入456,并有如下事件过程:
Private Sub Form_Click( )
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
单击该窗体,在输入对话框中输入123,单击“确定”按钮后,窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
Private Sub Form_Load( )
Show
Text1.Text=" "
Text2.Text="’’
Text1.SetFocus
End Sub
Private Sub Text1_Change( )
Text2.Text=Mid(Text1.Text,8)
End Sub
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是
A. BeijingChina
B. China
C. Beijing
D. BeijingC
[单项选择]在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程:
Pfivate Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中,则能够触发此事件的操作是( )。
A. 单击文本框
B. 双击文本框
C. 单击文本框
D. 按键盘上的某个键
[单项选择]窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:
Private Sub Command1_Click( )
Dim n
If Text1.Text<>"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确定口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句:n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"
D. 把Dim n改为Static n
[单项选择]设在窗体上有个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
t2down%=(KeyCode:Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按Shift+F2键,则在文本框中显示的是( )。
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框内容无变化
[单项选择]窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Print Text1. Text;
End Sub
运行程序,并在文本框中输入“123”,则在窗体上的输出结果为( )。
A. 123
B. 112
C. 12123 D) 112123
[单项选择]文本框Text1的KeyDown事件过程如下:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
...
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。
A. 是否按下了Alt键或Ctrl键
B. 按下的是哪个数字键
C. 所按的键盘键的键码
D. 按下的是哪个鼠标键
[单项选择]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
Private Sub Command1_Click( )
n=Text1.Text
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is<10
x=30
Case 10
x=40
End Select
Text2. Text=x
End Sub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是______。
A. 10
B. 20
C. 30
D. 40