练习题3

一、单选题（本大题共25题，每题2分，共50分） 1、不属于VB三种工作模式的是（ ）。

A.设计模式 A.BorderStyle A.Load A..bas

B.运行模式 B.BackColor B.Unload B.cls

C.调试模式 C.ForeColor

D.中断模式 D.FillStyle

2、窗体的前景颜色由（ ）属性设置。 3、当窗体被启动时，（ ）事件将会发生。

C.QueryUnoad D.CLs C.frm C.Cls

D.vbp D.Clear D.5=a D.24

4、每个窗体对应一个窗体文件，窗体文件的扩展名是（ ）。 5、可用来清除窗体内容的方法是（ ）。

A.Print A.a＝5 A.26

B.InputBox B.b＝a B.22

6、下列语句有语法错误的是（ ）。

C.b=“a” C.21

7、表达式1＋((2＋3)*2)*2的值是（ ）。

8、产生大于等于10且小于20的随机整数的表达式为（ ）。

A.Int(Rnd(10)＋10) C.Int(Rnd*10+11) A.Len A.Interval A.Abt

B.Int(Rnd*10+10) D.Int(Rnd*20-10)

C.Length C.Text C.IF

D.Val D.Enabled D.A[B]T

9、求字符串长度的函数是（ ）。

B.long B.Value B.TA

10、若要使定时器暂停，应将其（ ）属性设置值设为False。 11、下列可作为Visual Basic的变量名的是（ ）。 12、VB中可用（ ）语句产生一消息框。

A. InputBox B.Shift

C. Both D.MsgBox

13、以下程序段的输出结果是（ ）

Print Format(12345.6,\"0.00E+00\") A.1.23E+04

B.1.23E+4

C.1.23456E+04 D.1.23456E+4

14、执行下面的语句后，所产生的信息框的标题是（ ）。

a = MsgBox(\"AAAA\A.BBBB B.空

C.AAAA D.出错，不能产生信息框

15、以下程序段的输出结果是（ ）。

Print 1;2; Print 3 A.1 2 3

B.1 23

C.123

D.12 3

16、下列关于Do While „Loop和Do„Loop Until循环执行循环次数的描述正确的是（ ）。

A.Do While „Loop循环和Do„Loop Until循环至少都执行一次 B.Do While „Loop循环和Do„Loop Until循环可能都不执行

C.Do While „Loop循环至少执行一次和Do„Loop Until循环可能不执行循环 D.Do While „Loop循环可能不执行和Do„Loop Until循环至少执行一次

17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（ ）。

A. 12 A. 3<=x<10

B.60

C.120

D.345

18、数学关系3≤x<10对应的Visual Basic表达式是（ ）。

B.3<=x AND x<10 D. 3<=x AND <10

C.0

D.-1 D.SelText

C.x>=3 OR x<10 A.5

19、设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（ ）。

B.6

20、在运行时，若要获得文本框中所选的文本的起始位置，可通过访问（ ）属性来实现。

A.SelStart

B.SelLength

C.Text

21、以下关于数组的说法，不正确的是（ ）。

A.数组是一种特殊的数据类型 B.一个数组中可存放多种类型的数组 C.数组是一组相同类型的变量的集合 D.运行时可改变动态数组或静态数组的大小

22、已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)-A(1))=( )。

A.0 N=13: a=2 m=n mod 10 Select Case m Case is<0: a= -1

Case is=0: a=0 Case is>0: a=1

B.1

C.2

D.3

23、以下程序段的输出结果是（ ）。

End select Print a

A.-1 B.0 C.1 D.2

24、假定有以下程序段A

For I=1 to 3

For j=5 to 1 step –1 Print I*j Next j,I

则语句Print I*j的执行次数是（ ）。

A.15

B.16

C.17

D.18

25、关于条件语句，下列说法错误的是（ ）。

A.条件语句中的“条件”可以是逻辑表达式或关系表达式

B.条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示false C.在块结构条件语句中，“语句块”中的语句不能与then在同一行上 D.块结构的条件语句和单行结构的条件语句都必须以End if结束

二、填空题（本大题共8题，每题2分，共16分）

1、具有特殊属性和行为方法的一个可视化实体称为（ ）。 2、设x=4,y=8,z=7，表达式 xz) Or z4、声明单精度常量P1代表3.14159的语句为（ ）。 5、执行下列程序段，x的值为（ ）。 x=5

For i=1 to 20 Step 2

x=x+i\\5

Next i

6、已知文本框的内容为“ABCDE”,若文本框Selstart=4,Sellength=2,则SelText为（7、表示x是5的倍数或是9的倍数的逻辑表达式为( 8、End Sub设x的初值为-5，则由下列循环语句控制的循环次数是（ ）。

Do While x>=5 x=x-1 Loop

三、程序填空题（本大题共2题，每题4分，共8分）

1、输入某班45名同学的数学成绩,并计算该班数学成绩的总分,平均分。

。)。 ）

Private Sub Command1_Click( )

Dim score(1 To 45) As Single Dim i As Integer, sum As Single Dim aver As Single, str1 As String sum = 0 For i = 1 To 45

str1 = \"请输入第\" + Str(i) + \"个同学的成绩：\" score(i) = ( )(InputBox(str1, \"输入成绩\")) sum = ( )

Next i aver = sum / 45

Label1.Caption = Label1.Caption + Str(sum) Label2.Caption = Label2.Caption + Str(aver)

End Sub

2、如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？ Dim x As Integer Dim y As Single x = 0: y = 1 Do

y = y * 1.12 ( )

Loop Until ( ) Print x; \"年后产值翻一番\"

四、程序阅读（本大题共2题，每题3分，共6分）

1、有3*3的矩阵，写出下列程序的功能。

s = 0 For i = 1 To 3

For j = 1 To 3

If i = j Then

s = s + a(i, j) End If

Next j

Next i Print s

2、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1。程序如下，写出程序的功能。

Private Sub Timer1_Timer () TxtTime.text=Now() End Sub

五、编程题（本大题共3题，共20分）

1、求n!,n由键盘输入。n值由text1文本框输入，结果由text2文本框输出。（6分）

2、输出九九乘法表。（7分）

3、设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示“恭喜！，您已成功进入本系统”，否则，显示，“口令错！，请重新输入”。如果连续两次输入了错误口令，在第三次输入完口令后则显示一个消息框，提示“对不起,您不能使用本系统”，然后退出整个应用程序。（7分）

一、单选题（本大题共25题，每题2分，共50分）

1、C

2、C 7、C 12、D 17、C 22、C

3、A 8、B 13、A 18、D 23、C

4、C 9、A 14、D 19、C 24、A

5、C 10、D 15、A 20、A 25、D

6、D 11、A 16、D 21、D 1、对象 5、21

二、填空题（本大题共8题，每题2分，共16分）

2、FALSE

4、Const PI=3.14159 6、DE

3、Enabled

7、x mod 5=0 OR x mod 9=0 1、Val

8、0

三、程序填空题（本大题共2题，每题4分，共8分）

sum + score(i) y >= 2

2、x = x + 1

四、程序阅读（本大题共2题，每题3分，共6分） 1、输出对角线上的元素之和。

2、每一秒钟在文本框中显示一次当前的时间。 五、编程题（本大题共3题，共20分）

1、求n!,n由键盘输入。n值由text1文本框输入，结果由text2文本框输出。（6分）

Private Sub command1_click()

Dim n as integer,f as long

1分 1分 1分 1分 1分

n=text1.text f=1

for I=1 to n next I

text2.text=f

f=f*I

end sub

1分

2、输出九九乘法表。（7分）

Private Sub Command1_Click() For I = 1 To 9 For j = 1 To I

Print I & \"*\" & j & \"=\"; I * j; Next j Print Next I End Sub

3、（7分）

Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Static I As Integer ' 保存输入错误口令的次数 If KeyCode = 13 Then ' 如果按下的键为回车键 If UCase(Text1.Text) = \"HELLO\" Then

Label2.Caption = \"恭喜!,您已成功进入本系统\"

ElseIf I = 0 Or I = 1 Then I = I + 1

Label2.Caption = \"口令错!,请重新输入\" Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) Else

MsgBox \"对不起,您不能使用本系统\": End End If End If End Sub