Print Text1.SelText End Sub
则程序执行后，在文本框中输入“abcd”并选中其中的“bc”，再单击窗体则在窗体上输出 。 4、在窗体上有一文本框， Private Sub Text1_Change() Print Text1.Text End Sub
则程序执行后，在文本框中输入“ab”则在窗体上输出_____________。 5、执行语句X=8-2后，则X的值是____________。 6、执行下面的程序段后，b的值为__________。 a=300 b=20 a=a+b b=a-b a=a-b
7、在窗体上添加一个名称为text1的文本框，然后编写以上代码： Private sub command1_click( ) Text1.left=text1.left+100 End sub
8、运行下列程序段，显示的结果是_______。 x=-5
Select Case x Case 5 Print \优秀\ Case 4 Print \良好\
6
Case 3 Print \通过\ Case Else Print \不通过\End Select
9、Private Sub Form_Click() X=5 :y=6
If x>y then print x else print y End Sub
则程序执行后，单击窗体则在窗体上输出 。
10、当在文本框输入“AB” 三个字符时，窗体上显示的是 。 Private Sub Text1_Change() Print Text1 End Sub
五、程序语句填空(每空3分，10空，共30分)
1、要使标签能够自动调整大小以显示所有内容,应将其 属性设置为True。 2、一个控件在窗体上的位置由_______属性和Top属性决定。
3、为清除窗体的背景应使用的语句为 。 4、将标签Label1的字号设置成20，使用的语句是__ __。 5、假定一个文本框的Name属性为Text1，为了让文本框中显示“Welcome”，所使用的语句是__ 。
6、新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click() Form1.visible=false Form2. End Sub
7
7、窗体中有3个文本框：text1、text2、text3，3个命令按钮：command1（caption为“显示”）、command2（caption为“清除”）、command3（caption为“退出”）。程序的设计屏幕
如下左图所示，程序的执行屏幕如下右图所示。 编写程序代码如下，并请填空。 Private Sub Command1_Click() Text1.Text = \End Sub
Private Sub Command2_Click() ‘清空程序 Text1.Text = Text2.Text = Text3.Text =text2.text End Sub
Private Sub Command3_Click() ‘退出程序 End Sub
Private Sub Text1_Change()
Text2.Text = (Text1) Text3.Text = UCase(Text1.Text) End sub
8