更多"在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程"的相关试题:
[单项选择]在窗体上绘制一个文本框，然后编写如下事件过程：
Private Sub Form_Click（ ）
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上画一个文本框，然后编写如下事件过程。当该程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
Private Sub Text1_KeyPress＜KeyAscii As Integer)
Dim char as String
char=Chr(KeyAscii)
Text1.Text=String(5，KeyAscii)
End Sub
A. aaaaa
B. AAAAA
C. aaaaaa
D. AAAAAA
[单项选择]在窗体上添加一个文本框，名为Textl，然后编写如下的Load事件过程，则程序的运行结果是
Private Sub Form_Load（ ）
Text1.Text=" "
Text1.Setfocus
t=1
For k=10 To 6 Step -2
t=t(k
Next k
Text1.Text =t
End Sub
A. 在文本框中显示120
B. 文本框仍为空
C. 在文本框中显示480
D. 出错
[单项选择]在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyaseii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文稿本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。
A. 在文本框TEXT1中输出55
B. 在文本框TEXT1中输出0
C. 出错
D. 在文本框TEXT1中输出不定值
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写
如下事件过程：
Private Sub Command1_Click（ ）
Text1.Text ="Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A. Visual
B. Basic
C. Program
D. 出错
[单项选择]在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load（ ）
Text1. Text= " "
Text1. SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1. Text=Sum
End Sub
上述程序的运行结果是 ______。
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
[单项选择]在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程，
Private Sub Form Click（ ）
x=InputBox("请输入一个整数")
Print x+Text1. Text
End Sub
单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码：
Private Sub Commandl_click（ ）
m＝2.17
n＝Len(Str$(m) +Space(5) )
Me!Text1＝n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[单项选择]假定窗体上有一个文本框，名为txtl，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为
A. Txtl.MultiLine=True
B. Txtl.MultiLine=True
C. Txtl.MulfiLine=False
D. Txtl.MultiLine=False
[单项选择]在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的事件过程模板是
A. Click
B. DblClick
C. Change
D. GotFocus
（26）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数
（26）在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1,程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句。 Private Sub Option1_Click(Index As Integer) Select Case________ Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体_GB2312" End Select Text1._______=a End SubA.Option Text B.Index Text C.Index Fonr D.Option Fonr
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句()。 Private Sub Option1_Click(Index AS Integer) Select Case______ Case 0 a="宋体" Case 1 a="黑体"
A．Option Text
B．Index Text
C．Index Font
D．Option Font
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句()。 Private Sub Option1_Click(Index As Integer) Select Case Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=“楷体_GB2312” End Select Text1. =a End Sub
A．Option Text
B．Index Text
C．Index Font
D．Option Font
[单项选择]在窗体上添加一个命令按钮，编写事件过程如下：
For i=1 To 3
x=4
For j=1 To 4
x=3
For k=1 To 2
x=x+5
Next k
Next j
Next i
MsgBox x
则单击命令按钮后消息框的输出结果是( )。
A. 7
B. 8
C. 9
D. 13
[单项选择]在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(Keyascii as integer)
...
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是 ______。
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 ______。
A. Private Sub Text1_KeyPress(KeyAscii As Integer)
B. Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
C. Private Sub Text1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)，
D. Private Sub Text1_Change()
