15、要使窗体上的所有控件具有相同的字体格式，可以首先在属性窗口对[ ]的[ ]
属性进行设置，然后再添加各控件。
（A）所有文件 （B）窗体 （C）Font (D)FontName
16、将窗体的[ ]属性设置为False后，运行时窗体上的按钮、文本框等控件就不会对用
户的操作做出响应。
（A）Enabled (B)Visible (C)ControlBox (D)WindowState 17、不能在运行期间设置窗体的[ ]属性。 （多选）
（A）BorderStyle (B)Caption (C)Icon (D)MaxButton
18、要使窗体在运行时不能改变窗体的大小且没有最大化和最小化按钮，需设置[ ]属性。 （A）Borderstyle (B)MaxButton (C)MinButton (D)ControlBox
19、运行时，单击窗体将窗体的前景色设置为红色的事件过程是[ ]。（多选） （A）Private Sub Form_Click() (B) Private Sub Form_Click() BackColor = vbRed Form1.ForeColor = vbRed
End Sub End Sub
（C）Private Sub Form_Click() (D) Private Sub Form_Click() Form1.BackColor = vbRed ForeColor = vbRed End Sub End Sub
20、假设某一事件过程如下，则响应该过程的对象名是[ ]，事件名是[ ]。 Private Sub My1b1_Db1Click() Form1.Caption=”hello” End Sub
(A) My1b1_Cb1Click (B) My1b1 (C) Db1Click (D) My1b1_Click
21. 在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示[ ]事件过程模板。 (A) Form_Click (B)Form_Load (C)Form1_Click (D)Form1_Load 22. 在运行时，系统自动执行启动窗体的[ ]事件过程。
(A) Click (B) KeyUp (C) Load (D) MouseDown 23. 在运行时，以下[ ]方法可以执行命令按钮的Click事件过程。（多选） (A)单击命令按钮 （B）设置按钮的访问顺序
(C)按Tab键选中后按Enter键 （D）使用命令按钮的访问键
24．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的
名称不能是[ ]。
(A) cmdc (B) cmdb (C) cmdA (D) Command1 25. 如果要在命令按钮上显示图形文件，应设置命令按钮的[ ]
（A）Style属性和Graphics属性 （B）Style属性和Picture属性 （C）Picture属性 （D）Graphics属性
练习3 Visual Basic 程序设计基础
一．选择题
1．以下不合法的常量是[ ]。
(A) 10^2 (B)100 (C) 100.0 (D) 10E+01 2．Visual Basic允许的常量有[ ]。
(A) E7 (B) 4.8E2 (C) 2.5*10 (D) E-5
3．常量 -0.00013579的科学计数法是[ ]。（多选）
(A) -1,3579E+0.4 (B) 1.3579E-4 (C) -13.579E-5 (D) -1.3579E-04
5
4．\\ , / , Mod , *四个算术运算符中，优先级最低的是[ ]。 C (A) \\ (B) / (C)Mod (D) * 5．下列字符串常量中，最大的是[ ]。
(A)”Abc” （B）”ABC” （C）”Therec” （D）”Therea” 6．下列[ ]是日期型常量。
(A) “2/1/02” (B) 2/1/02 (C) #2/1/02# (D) {2/1/02} 7．下面[ ]不是字符型常量。
(A) “你好” (B) “ “ (C) “True” (D) #False#
8．表达式Int (8 * Sqr (36) * 10 ^ ( - 2) * 10 + 0.5) / 10的值是[ ]。 (A) .48 (B) .048 (C) .5 (D) .05 9．表达式Val(“.123E2CD”)的值是[ ]。 B
(A) .123 (B) 12.3 (C) 0 (D) .05 10．下列符号常量的声明中，[ ]是不合法的。
（A）Const a As Single=1.1 （B）Const a As Single= “12” （C）Const a As Double=Sin(1) （D）Const a = “OK” 11．Visual Basic认为下面[ ]组变量是同一个变量。 （A）A1和a1 （B）Sum和Summary （C）Aver和Average （D）A1和A_1 12．下列叙述中不正确的是[ ]。 （A）变量名的第一个字符必须是字母 （B）变量名的长度不超过255个字符
（C）变量名可以包含小数点或者内嵌的类型声明字符 （D）变量名不能使用关键字
13．以下不能作为Visual Basic变量名的是[ ]。（多选） （A）EI （B）E12 （C）12-E （D）E-12 （E）12.5 14．以下可作为Visual Basic变量名的是[ ]。 （多选） （A）F1.1 （B）pi （C）F2A （D）2FA
15．以下可作为Visual Basic变量名的是[ ]。（多选） （A）SIN （B）CO1 （C）COS(X) （D）LOG(X) 16．设有以下定义语句：
Dim max , min As Single , d1 , d2 As Double , abc As String * 5
则变量max的类型是[ ]，变量min的类型是[ ] ，变量d1的类型是[ ] ，变量d2的类型是[ ] ，变量abc的类型是[ ]。
(A)可变类型 （B）单精度型 （C）双精度型 （D）字符串型
17．要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句[ ]。
（A）Option Base 0 （B）Option Explicit （C）Option Base 1 （D）OptionCompare 18．表达式( 7 \\ 3 + 1) * (18 \\ 5 - 1)的值是[ ]。 （A）8.67 （B）7.8 （C）6 （D）6.67 19．表达式5 ^ 2 Mod 25 \\ 2 ^ 2的值是[ ]. A （A）1 （B）0 （C）6 （D）4
20．表达式25.28 Mod 6.99的值是[ ]。 （A）1 （B）5 （C）4 （D）出错
21．表达式 “12”+ “34”的值是[ ]。表达式 “12”& “34”的值是[ ]。表达式12&34的值是[ ]。表达式12+34的值是[ ]。
6
（A） “1234” （B） “12” “34” （C） “46” （D） 46 二 填空题
1．已知A=7.5,B=2,C= - 3.6，写出下列布尔表达式的值。
（1）A>B And C>A Or AB________________ （2）A>B And C>A Or Not C>B And A （1）C>= “0” And C <= “9” Or C >= “A” And C <= “Z”__________ （2）C<= “0” And C >= “9” Or C>= “A” And C <= “Z”__________ （3）C>= “0” And C <= “9” And C>= “A” And C <= “Z”__________ （4）C>= “0” Or C <= “9” And C>= “A” Or C <= “Z”__________ 3．设A=2,B=3,C=4,D=5，写出下列布尔表达式的值。 （1）A>B And C<= D Or 2*A>C___________ False （2）3>2*B Or A=C And B<>C Or C>D____________ （3）Not A<=C Or 4*C=B ^ 2 And B<>A+C________ 4．若A=20,B=80,C=70,D=30，则表达式A+B>160 Or (B*C>200 And Not D>60)的值是 ________ 5．设A=2,B= - 2，则表达式A/2+1>B+5 Or B*( - 2)=6的值是_____________ 6．设A=2,B= - 4，则表达式3*A>5 Or B+8<0的值是____________________ 7．关系式X<= - 5或X>= 5所对应的布尔表达式是：_____________ 8．关系式-5<=X<=5所对应的布尔表达式是：________ 9．A的绝对值大于等于B同时A不等于C的布尔表达式是：_______ 10．X是小于100的非负数，对应的布尔表达式是：_______ 11．闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的布尔表达式是：___________ 12．一元二次方程ax^2+bx+c=0有实根的条件有a≠0，并且b*b-4ac>=0，表示该条件的布尔表达式是：________ 13．表示条件“变量X为能被5整除的偶数”的布尔表达式是：____________ 练习4 顺序结构程序设计 一、选择题 1.语句X=X+1的正确含义是【 】。 （A）变量X的值与X+1的值相等 （B）将变量X的值存到X+1中去 （C）将变量X的值加1后赋给变量X (D)变量X的值为1 2.假设变量intVar是一个整型变量，则执行赋值语句intVar=\之后，变量intVar的值是【 】; 执行赋值语句intVar=\之后，变量intVar的值是【 】。 (A)2 (B)3 (C)5 (D)23 (E)出错 3.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为【 】。 (A)0 (B)-1 (C)True (D)False 4.变量未赋值时，数值型变量的值为【 】，字符串变量的值为【 】。 (A)0 (B)空串\没任何值 5．下列语句正确的是【 】。 （A）txt1.Text+txt2.Text=txt3.Text（B）Command1.Name=cmdOK （C）12Label.Caption=1234 （D）A=InputBox(Hello) 6.假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是【 】。 (A)boolVar=’True’ (B) boolVar=.True. 7 (C) boolVar=#True# (D) boolVar=3<4 7．将文本框的【 】属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。 （A）Multiline （B）ScrollBars （C）Text （D）Enabled 8．如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的【 】属性。 (A)Caption （B）PasswordChar （C）Text （D）Char 9．如果将PasswordChar属性设置为一个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不是显示星号，原因可能是【 】。 （A）文本框的MultiLine属性值为True （B）文本框的Locked属性值为True （C）文本框的MultiLine属性值为False （D）文本框的Locked属性值为False 10．将文本框的ScrollBars属性设置为非零值，却没有效果，原因是【 】。 （A）文本框中没有内容 （B）文本框的MultiLine属性值为False （C）文本框的MultiLine属性值为True （D）文本框的Locked属性值为True 11.通过文本框的【 】属性可以获得当前插入点所在的位置。 （A）Position （B）SelStart （C）SelLength （D）Left 12．如果将文本框的【 】属性设置为True，则运行时不能对文本框中的内容进行编辑。 (A)Locked （B）MultiLine （C）TabStop（D）Visible 13．如果文本框的Endbled属性被设置为False，则运行时【 】。 （A）文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上 （B）文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 （C）文本框中的文本将变成灰色，用户仍然能改变文本框中的内容 （D）文本框中的文本正常显示，用户能将光标置于文本框上，但不能改变文本框中的内容 14．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的【 】事件。 (A)Click （B）DblClick （C）GotFocus（D）Change 15．在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是【 】。 (A)Private Sub Text1_GotFocus() (B)Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Text1.Text) End Sub End Sub (C)Private Sub Text1_Change() (D)Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Text1.SelLength=Len(Text1.Text) End Sub End Sub 16．通过文本框的【 】事件过程可以获取文本框中键入字符的ASCII码值。 (A)Change （B）GotFocus（C）LostFocus（D）KeyPress 17．要判断在文本框内是否按下了回车键，可以在文本框的【 】事件过程中进行判断。 (A)Change （B）Click （C）KeyPress (D)GotFocus 18．下面【 】对象无Caption属性。 (A)Form（B）CommandButton（C）TextBox（D）Label 19.为了防止用户随意将光标置于控件上，应【 】。 （A）将控件的TabIndex属性设置为0 （B）将控件的TabStop属性设置为True 8 （C）将控件的TabStop属性设置为False（D）将控件的Enabled属性设置为False 20.窗体上已建立了多个控件，如Text1、Label1、Command1,若要使程序一运行焦点就定位在Command1控件上，应将Command1的【 】属性设置为【 】。 (A)Index (B)TabIndex (C)TabStop (D)Enabled (E)0 (F)1 (G)2 (H)3 21．下列程序段的执行结果为【 】。 A=0: B=1 A=A+B: B=A+B: Print A;B A=A+B: B=A+B: Print A;B A=A+B: B=A+B: Print A;B (A)1 2 (B)1 1 (C)1 3 (D)1 2 3 5 3 5 3 4 3 4 8 13 8 13 8 13 5 6 二、程序填空 1 .下面的事件过程实现从键盘输入两个变量的值，交换这两个变量的值，并将交换后的结果显示在立即窗口中。 Private Sub Form_Load( ) Dim a As Double ,b As Double, c As Double a=Val(InputBox(“请输入a”)) b= (1) (2) Debug.Print a (3) End Sub 供选择的答案： （1）（A）Val(InputBox(“请输入b”)) （B）(InputBox(“请输入b”)) (C)Val(InputBox(“请输入a”)) （D）(InputBox(“请输入a”)) （2） (A) c=a :a=b :b=c (B)a=b : b=a (C)c=a : b=c: a=b (D)b=a: a=b End Sub （3） (A)Debug.Print b (B)Form1.Print b (C)Picture1.Print b (D)Print b 2．在窗体上单击某按钮Command1时输出以下图形。 * * * * * * * * * 程序代码： Private Sub Command1_Click() Print Tab(10); “*” Print Tab( (1) ); “*”; Spc( (2) ); “*” Print Tab( (3) ); “*”; Spc( (4) ); “*” Print Tab( (5) ); “*”; Tab( (6) ); “*” Print Tab( (7) ); “*”; Tab( (8) ); “*” End Sub 9