Visual Basic语言笔试试题及答案.docx

1、Visual Basic语言笔试试题及答案Visual Basic语言笔试试题(共100分)注意事项：1. 一、二、三题为客观题，请将答案做在机读答题卡上 2. 四、五、六题为主观题，请将答案做在答题纸上一、单项选择题 (每题1分，共20分)01在VB中，对于没有赋值的数值变量，系统默认的值为：(A)0 (B)“0” (C)1 (D)-102对于以下程序段（其中Text1是一个文本框控件）：Text1 = “你好”Text1 = “欢迎”Text1.Visible = False其运行结果为：(A) Text1中显示：你好 (B) Text1中显示：欢迎(C) Text1不可见 (D) Tex

2、t1中显示：你好欢迎03表达式4 + 5 6 * 7 / 8 Mod 9的值是：(A)4 (B)5 (C)6 (D)7 04在VB中，以下可以获得焦点的控件是： (A)图像框Image (B)标签Label (C)计时器Timer (D)命令按钮CommandButton05函数表达式String(2, Ok)的返回值是：(A)2 (B)Ok (C)OO (D)OkOk06下列属性中，为文本框的默认属性的是：(A)Caption (B)Enabled (C)Name (D)Text07对窗体Form1编程，有Form1.BackColor=RGB(0,255,0)语句，则：(A)窗体Form1

3、的背景色被设置为红色(B)窗体Form1的背景色被设置为黑色(C)窗体Form1的背景色被设置成绿色(D)窗体Form1的背景色被设置成蓝色08在VB中，未作任何申明，直接使用的变量的数据类型为： (A)Integer (B)Long (C)String (D)Variant09下列事件中，由系统触发的窗体事件是：(A) Click事件 (B) DblClick事件(C) Activate事件(D) Timer事件10循环语句 For i = -3.5 To 20 Step 4 决定循环体的执行次数为：(A)4次 (B)5次 (C)6次 (D)7次11在VB中，计时器Timer支持的事件为：(

4、A) Change (B) Scroll (C) Load (D) Timer12 Visual Basic工程文件的扩展名是：(A) .Frm (B) .Bas (C) .Vbp (D) .Vbw13下列语句中，可以完成打开二进制文件ABC.dat的操作语句是：(A) Open “ABC.dat” For Input As #1(B) Open “ABC.dat” For Output As #1(C) Open “ABC.dat” For Binary As #1(D) Open “ABC.dat” For Append As #1 14用VB绘制图形，能改变图形线条样式的属性是：(A)S

5、caleWidth (B) DrawStyle (C) BorderWidth (D) FillStyle 15计时器Timer控件触发Timer事件的时间间隔为：(A)每秒触发一次 (B)每隔InterVal属性中设定的时间触发一次(C)每毫秒触发一次 (D)每隔Windows系统设定的时间间隔触发一次16在控件数组中，所有控件必须相同的属性是：(A)Caption(B)Enabled (C)Index(D)Name17在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是：(A) Tag (B) Index (C) ListIndex (D) N

6、ame18按下键盘的Shift键的同时，按下鼠标左键不放，并移动鼠标，在事件过程MouseMove中返回的Button、Shift参数的值为： (A) Button = 1 ，Shift = 1 (B) Button = 0 ，Shift = 1 (C) Button = 1 ，Shift = 0 (D) Button = 0 ，Shift = 0 19执行如下语句：a = InputBox(Today, Tomorrow, Yesterday)将显示的输入对话框是： (A)(B) (C) (D) 20已在窗体上建立了一个文本框Text1，两个命令按钮Command1和Command2。两个命

7、令按钮的 Caption 属性分别为“12”和“34”。执行下列代码后，文本框中显示的内容是：Text1.Text=Command1.CaptionCommand1.Caption=Command2.CaptionCommand2.Caption=Text1.TextText1.Text=Command1.Caption & Command2.Caption(A)1234 (B)3412 (C)12 (D)34二、多项选择题 (每题1分，共10分) (下面各小题有两个或两个以上正确答案，请选出全部正确答案，错选或漏选不得分)01下列符号中，是VB的算术运算符的有：(A)% (B)& (C)Mo

8、d (D)And (E)02在文本框Text1中输入字符，将输入的字符转换成大写并显示在标签Label1中，下列语句正确的有：(A) Label1 = UCase(Text1) ( B) Text1 = Ucase(Label1)(C) S = Text1.Text Label1.Caption = UCase(S) (D) Text1.Text = S Label1.Caption = UCase(S)(E) Label1.Caption = UCase(S) S = Text1.Text03以下数据类型的变量所占存贮空间大于2个字节的有：(A)Integer (B)Single (C)Bo

9、olean (D)Currency (E)Date04设要定义具有10个元素的数组b，下列语句正确的有：(A) Dim b(1 TO 10) (B) Dim b(-5 TO 5) (C) Dim b() n = 10 Redim b(n) (D) Option Base 1Static b(10)(E) Dim b(10)05 Visual Basic绘图时可以使用的度量单位有：(A)Twip (B)Point (C)Pixel (D)Inch (E)Centimeter06产生一个16的随机整数的表达式为：(A)Int (5 * Rnd ) + 1 (B)Int ( 6 * Rnd + 1

10、) (C)Int ( 6 * Rnd ) + 1 (D)Int (5 * Rnd + 1 )(E)Int ( 6 * Rnd )07形状控件Shape 的控件图形可选为：(A)矩形Rectangle (B)正方形Square (C)椭圆Oval (D)圆Circle (E)三角形Triangle08确定一个窗体或控件位置的属性是：(A)Width (B)Height (C)Top (D)Left (E)Enabled09下列显示结果为0的语句有: (A) Print Rnd-Rnd (B) Print Rnd(0) - Rnd(0) (C) Print Sgn(10) - Sgn(200) (

11、D) Print Int(Rnd) (E) Print Rnd(1) - Rnd(1)10如果XY，则A=15，否则A= -15，并输出A的值。能够实现上述功能的程序段有：(A) If X Y Then A = 15 A = - 15 Print A (B) If X Y Then A = 15Else A = - 15Print A(C) If X Y Then A = 15 Else A = - 15 Print A (D) If X Y Then A = 15 Else A = - 15 Print A End If (E) If X c And bc。02在Visual Basic中有

12、算术表达式、关系表达式和逻辑表达式, 其中优先级别最高的是逻辑表达式。03在Do While Loop语句实现的循环中，无论表达式的值如何, 循环体至少被执行1次。04语句 Line(500,500) Step (100 , -100), BF 是错误的。05在运行程序时，滚动条的Value属性值一定界于Min属性值与Max属性值之间。06执行语句Dim a，b，c As Integer后，可将变量a、b、c的数据类型都设置成整型。07执行语句X=Y=5后，变量X与Y的值均为5。08在数据文件的操作中，所有文件的打开都用Open语句，而关闭都用Close语句。09设有数组说明语句：Dim a(

13、) As Integer，则a被定义为动态数组。10函数Len( “100/5” )返回的值是20。 四、填空题 (每题2分，共20分)1. 语句Print Not False And Not 3 + 2 6 的显示结果是 _。2单精度数据类型对应的VB关键字为_。3执行语句Line (100, 100)-Step(50, 100) 后，CurrentX的值为 _4下面是一个验证素数的程序。只能被1和本身整除的数称为素数。Private Sub Form_Click()Dim n%, p%, x%Dim f As Boolean n = Val ( InputBox ( 输入一个正整数（1）

14、) ) f = True For x = _ If _ f = _ Exit For End If Next x If _ Print n; 是素数 Else Print n; 不是素数 End IfEnd Sub5单击窗体，在窗体上显示下列图形： Private Sub Form_Click() For A = 3 To -3 Step -1 N = _ Print Tab(15 - N); For B = 1 To N Print _ Next _ Print Next AEnd Sub 五、读程序 (每题4分，共20分)1. 运行下列程序，窗体上输出的结果是：Private Sub Co

15、mmand1_Click() Dim f(7) As Integer, n As Integer f(0) = 1: f(1) = 1 For n = 2 To 7 f(n) = f(n - 2) + f(n - 1) Next n For n = 0 To 7 If n Mod 4 = 0 Then Print f(n); Next nEnd Sub(A)1 4 (B)1 5 (C)0 4 (D)0 52.下面程序执行结果为： Private Sub Form_Click()Dim i As Integer, iSum As Integer For i = 1 To 4 iSum = sum

16、(i) Print iSum; Next iEnd SubPrivate Function sum(n As Integer)Dim j As Integerj = j + nsum = jEnd Function (A) 1 2 3 4 (B) 1 3 6 10 (C) 1 3 5 7 (D) 2 4 8 103. Private Sub Form_Click() T = 0 For X = 1 To 10 If X = 10 Then Exit For Else T = T + X End If Next X Print TEnd Sub 运行上述程序的输出结果为: (A) 10 (B)

17、36 (C)45 (D) 554.执行以下程序段后，I的值为: For I = 0 To 10 Step -2I = I + 2Next(A)10 (B) -2 (C) 0 (D) 显示出错信息5.按字符串变换命令按钮Command1，在标签框Label1 中显示的结果是：Private Sub Command1_Click() X = 等级考试 L = Len(X) SS = For k = 1 To L - 1 S = Mid(X, k, 1) SS = * + S + SS Next k S = Mid(X, L, 1) SS = S + SS Label1.Caption = SSEn

18、d Sub(A) *等*级*考*试 (B) 等*级*考*试 (C) *试*考*级*等 (D)试*考*级*等 六、编程题：(每题10分，共20分)01. 编写程序计算由下列公式确定s的值。 要求：按计算命令按钮Command1，计算S的值，结果显示在标签框Label1中。按结束命令按钮Command2 结束程序的运行。02. 有5支球队进行单循环赛, 胜负场次如下: 球队编号胜平负积分10011211002112100321110043101005013胜一场得3分,平一场得1分, 负一场得0分。 要求：单击“计算”命令按钮Command1, 算出每个队的积分。求按上述格式显示在图片框Pictu

19、re1中。Picture1.Print Tab(10); 球队编号 胜 平 负 积分 1分 For i = 1 To 5 3分 For j = 1 To 5 Picture1.Print Tab(j * 10); s(i, j); Next j Picture1.Print Next iEnd SubVisual Basic语言笔试试题（答案）(共100分)一、单项选择题 (每题1分，共20分)01A 02C 03B 04D 05C 06D 07C 08D 09C 10C 11D 12C 13C 14B 15B 16D 17B 18 A 19B 20B 二、多项选择题 (每题1分，共10分)0

20、1CE 02AC 03BDE 04AD 05ABCDE06BC 07ABCD 08CD 09BCD 10CE三、判断分析题 (每题1分，共10分)01 02 03 04 05 06 07 08 09 10 四、填空题 (每题2分，共20分)1. True 2 Single 3 1504 2 To n 1 n Mod x = 0 Then False f Then5 4 Sgn(A) * A M; B五、读程序 (每题4分，共20分)1. B 2. A 3. C 4. C 5. D 六、编程题：(每题10分，共20分)01. 编写程序计算由下列公式确定s的值。 要求：按计算命令按钮Command

21、1，计算S的值，结果显示在标签框Label1中。按结束命令按钮Command2 结束程序的运行。答案：Private Sub Command1_Click() 1分 s1 = 0 1分 x = -1 1分 For k = 1 To 39 Step 2 4分 x = -x s1 = s1 + x * (1 / k) Next k s = 4 * s1 1分 Label1.Caption = s 1分End SubPrivate Sub Command2_Click() 1分 EndEnd Sub02. 有5支球队进行单循环赛, 胜负场次如下: 球队编号胜平负积分10011211002112100

22、321110043101005013胜一场得3分,平一场得1分, 负一场得0分。 要求：单击“计算”命令按钮Command1, 算出每个队的积分。求按上述格式显示在图片框Picture1中。答案：Private Sub Command1_Click() Dim s(5, 5) As Integer 1分 For i = 1 To 5 2分 For j = 1 To 4 s(i, j) = InputBox(Str(i) & , & Str(j) Next j Next i For i = 1 To 5 3分 s(i, 5) = s(i, 2) * 3 + s(i, 3) * 1 + s(i, 4) * 0 Next i Picture1.Print Tab(10); 球队编号 胜 平 负 积分 1分 For i = 1 To 5 3分 For j = 1 To 5 Picture1.Print Tab(j * 10); s(i, j); Next j Picture1.Print Next iEnd Sub