一、单选题（本大题共25题，每题2分，共50分）1、不属于VB三种工作模式的是（）。
A.设计模式B.运行模式C.调试模式D.中断模式2、窗体的前景颜色由（）属性设置。
A.BorderStyleB.BackColorC.ForeColorD.FillStyle3、当窗体被启动时，（）事件将会发生。
A.LoadB.UnloadC.QueryUnoadD.CLs4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。
A..basB.clsC.frmD.vbp5、可用来清除窗体内容的方法是（）。
A.PrintB.InputBoxC.ClsD.Clear6、下列语句有语法错误的是（）。
A.a＝5B.b＝aC.b=“a”D.5=a7、表达式1＋((2＋3)*2)*2的值是（）。
A.26B.22C.21D.248、产生大于等于10且小于20的随机整数的表达式为（）。
A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)9、求字符串长度的函数是（）。
A.LenB.longC.LengthD.Val10、若要使定时器暂停，应将其（）属性设置值设为False。
A.IntervalB.ValueC.TextD.Enabled11、下列可作为Visual Basic的变量名的是（）。
A.AbtB.TAC.IFD.A[B]T12、VB中可用（）语句产生一消息框。
A. InputBoxB.ShiftC. BothD.MsgBox13、以下程序段的输出结果是（）Print Format(12345.6,"0.00E+00")A.1.23E+04B.1.23E+4C.1.23456E+04D.1.23456E+414、执行下面的语句后，所产生的信息框的标题是（）。
a = MsgBox("AAAA", "BBBB", "", 5)A.BBBBB.空C.AAAAD.出错，不能产生信息框15、以下程序段的输出结果是（）。
Print 1;2;Print 3A.1 2 3B.1 23C.123D.12 316、下列关于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. 12B.60C.120D.34518、数学关系3≤x<10对应的Visual Basic表达式是（）。
A. 3<=x<10B.3<=x AND x<10C.x>=3 OR x<10D. 3<=x AND <1019、设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（）。
A.5B.6C.0D.-120、在运行时，若要获得文本框中所选的文本的起始位置，可通过访问（）属性来实现。
A.SelStartB.SelLengthC.TextD.SelText21、以下关于数组的说法，不正确的是（）。
A.数组是一种特殊的数据类型B.一个数组中可存放多种类型的数组C.数组是一组相同类型的变量的集合D.运行时可改变动态数组或静态数组的大小22、已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)-A(1))=( )。
A.0B.1C.2D.323、以下程序段的输出结果是（）。
N=13: a=2m=n mod 10Select Case mCase is<0: a= -1Case is=0: a=0Case is>0: a=1End selectPrint aA.-1B.0C.1D.224、假定有以下程序段AFor I=1 to 3For j=5 to 1 step –1Print I*jNext j,I则语句Print I*j的执行次数是（）。
A.15B.16C.17D.1825、关于条件语句，下列说法错误的是（）。
A.条件语句中的“条件”可以是逻辑表达式或关系表达式B.条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示falseC.在块结构条件语句中，“语句块”中的语句不能与then在同一行上D.块结构的条件语句和单行结构的条件语句都必须以End if结束二、填空题（本大题共8题，每题2分，共16分）1、具有特殊属性和行为方法的一个可视化实体称为（）。
2、设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）。
3、欲使某命令按钮失效，应修改命令按钮的( )属性。
4、声明单精度常量P1代表3.14159的语句为（）。
5、执行下列程序段，x的值为（）。
x=5For i=1 to 20 Step 2x=x+i\56、已知文本框的内容为“ABCDE”,若文本框Selstart=4,Sellength=2,则SelText为（）。
7、表示x是5的倍数或是9的倍数的逻辑表达式为( )。
8、End Sub设x的初值为-5，则由下列循环语句控制的循环次数是（）。
Do While x>=5x=x-1Loop三、程序填空题（本大题共2题，每题4分，共8分）1、输入某班45名同学的数学成绩,并计算该班数学成绩的总分,平均分。
Private Sub Command1_Click( )Dim score(1 To 45) As SingleDim i As Integer, sum As SingleDim aver As Single, str1 As Stringsum = 0For i = 1 To 45str1 = "请输入第" + Str(i) + "个同学的成绩："score(i) = ( )(InputBox(str1, "输入成绩"))sum = ( )Next iaver = sum / 45Label1.Caption = Label1.Caption + Str(sum)Label2.Caption = Label2.Caption + Str(aver)End Sub2、如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？Dim x As IntegerDim y As Singlex = 0: y = 1Doy = y * 1.12( )Loop Until ( )Print x; "年后产值翻一番"四、程序阅读（本大题共2题，每题3分，共6分）1、有3*3的矩阵，写出下列程序的功能。
s = 0For i = 1 To 3For j = 1 To 3If i = j Thens = s + a(i, j)End IfNext jNext iPrint s2、在窗体上有一个文本框控件，名称为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、C2、C3、A4、C5、C6、D7、C8、B9、A 10、D11、A 12、D 13、A 14、D 15、A16、D 17、C 18、D 19、C 20、A21、D 22、C 23、C 24、A 25、D二、填空题（本大题共8题，每题2分，共16分）1、对象2、FALSE3、Enabled4、Const PI=3.141595、216、DE7、x mod 5=0 OR x mod 9=0 8、0三、程序填空题（本大题共2题，每题4分，共8分）1、Val sum + score(i)2、x = x + 1 y >= 2四、程序阅读（本大题共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分n=text1.text 1分f=1 1分for I=1 to n 1分f=f*I 1分next Itext2.text=f 1分end sub2、输出九九乘法表。
（7分）Private Sub Command1_Click()For I = 1 To 9For j = 1 To IPrint I & "*" & j & "="; I * j;Next jPrintNext IEnd Sub3、（7分）Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer)Static I As Integer ' 保存输入错误口令的次数If KeyCode = 13 Then ' 如果按下的键为回车键If UCase(Text1.Text) = "HELLO" ThenLabel2.Caption = "恭喜!,您已成功进入本系统"ElseIf I = 0 Or I = 1 ThenI = I + 1Label2.Caption = "口令错!,请重新输入"Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseMsgBox "对不起,您不能使用本系统": EndEnd IfEnd IfEnd Sub。