计算机vb模拟试题.doc

一、单选题（本大题共25题，每题2分，共50分）1、不属于VB三种工作模式的是（ ）。A.设计模式 B.运行模式 C.调试模式 D.中断模式2、窗体的前景颜色由（ ）属性设置。A.BorderStyle B.BackColor C.ForeColor D.FillStyle3、当窗体被启动时，（ ）事件将会发生。A.Load B.Unload C.QueryUnoad D.CLs4、每个窗体对应一个窗体文件，窗体文件的扩展名是（ ）。 A.bas B.cls C.frm D.vbp 5、可用来清除窗体内容的方法是（ ）。A.Print B.InputBox C.Cls D.Clear6、下列语句有语法错误的是（ ）。A.a5 B.ba C.b=“a” D.5=a7、表达式1(23)*2)*2的值是（ ）。A.26 B.22 C.21 D.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.Len B.long C.Length D.Val10、若要使定时器暂停，应将其（ ）属性设置值设为False。A.Interval B.Value C.Text D.Enabled11、下列可作为Visual Basic的变量名的是（ ）。A.Abt B.TA C.IF D.ABT12、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+414、执行下面的语句后，所产生的信息框的标题是（ ）。a = MsgBox(AAAA, BBBB, , 5)A.BBBB B.空 C.AAAA D.出错，不能产生信息框15、以下程序段的输出结果是（ ）。Print 1;2;Print 3A.1 2 3 B.1 23 C.123 D.12 316、下列关于Do While Loop和DoLoop Until循环执行循环次数的描述正确的是（ ）。 A.Do While Loop循环和DoLoop Until循环至少都执行一次 B.Do While Loop循环和DoLoop Until循环可能都不执行 C.Do While Loop循环至少执行一次和DoLoop Until循环可能不执行循环 D.Do While Loop循环可能不执行和DoLoop Until循环至少执行一次17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（ ）。 A. 12 B.60 C.120 D.34518、数学关系3x10对应的Visual Basic表达式是（ ）。 A. 3=x10 B.3=x AND x=3 OR x10 D. 3=x AND 6,-1,0)后，x的值为（ ）。A.5 B.6 C.0 D.-120、在运行时，若要获得文本框中所选的文本的起始位置，可通过访问（ ）属性来实现。A.SelStart B.SelLength C.Text D.SelText21、以下关于数组的说法，不正确的是（ ）。 A.数组是一种特殊的数据类型 B.一个数组中可存放多种类型的数组 C.数组是一组相同类型的变量的集合 D.运行时可改变动态数组或静态数组的大小22、已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)-A(1)=( )。A.0 B.1 C.2 D.323、以下程序段的输出结果是（ ）。N=13: a=2 m=n mod 10 Select Case m Case is0: a=1 End select Print aA.-1 B.0 C.1 D.224、假定有以下程序段AFor I=1 to 3For j=5 to 1 step 1Print I*jNext j,I则语句Print I*j的执行次数是（ ）。A.15 B.16 C.17 D.1825、关于条件语句，下列说法错误的是（ ）。A.条件语句中的“条件”可以是逻辑表达式或关系表达式 B.条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示false C.在块结构条件语句中，“语句块”中的语句不能与then在同一行上 D.块结构的条件语句和单行结构的条件语句都必须以End if结束二、填空题（本大题共8题，每题2分，共16分）1、具有特殊属性和行为方法的一个可视化实体称为（ ）。2、设x=4,y=8,z=7，表达式 xz) Or z=5 x=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 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 Sub2、如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？Dim x As IntegerDim y As Singlex = 0: y = 1Do y = y * 1.12 ( )Loop Until ( )Print x; 年后产值翻一番四、程序阅读（本大题共2题，每题3分，共6分）1、有3*3的矩阵，写出下列程序的功能。s = 0 For i = 1 To 3For j = 1 To 3 If i = j Then s = s + a(i, j) End If Next 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、C 3、A 4、C 5、C 6、D 7、C 8、B 9、A 10、D 11、A 12、D 13、A14、D 15、A 16、D 17、C18、D19、C 20、A 21、D22、C23、C24、A25、D 二、填空题（本大题共8题，每题2分，共16分）1、对象2、FALSE3、Enabled4、Const PI=3.141595、21 6、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=11分 for I=1 to n 1分 f=f*I1分 next I text2.text=f 1分 end sub2、输出九九乘法表。（7分）Private Sub Command1_Click() For I = 1 To 9 For j = 1 To I Print I & * & j & =; I * j; Next j Print Next 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 The