大学计算机二级vb试卷(DOC 9页).doc

1、一、选择题(每题1分，共30分)1、能被对象所识别的动作与对象可执行的活动分别称为对象的b。A)方法、事件B)事件、方法C)事件、属性D)过程、方法2、执行语句Print Val(12A12) 的值为b。A)12AB)12C)1212D)12A13、下列是合法的VB变量名。A)_abB)W_cdeC)5studentD)Name&City4、表达式6.5 * 5 Mod 28 8的值是C。； 32.5 3 2.5A)0 B)1C)2D)35、如果在立即窗口中依次执行下列命令：a=8： b=9Print ab则输出的结果是C。A)1B)0C)FalseD)True6、下列表达式的值为真的是D。A

2、)AaB)9aC)1212.1D)ThatThank7、表示“XYZ”，正确的VB逻辑表达式是A。A)XY And YZB)XYZC)XY OR YZD)XY And Z8、函数CInt、Int、Fix都返回整数值，以下能正确地描述它们返回值的大小关系的是A。A)CInt(-4.51) Int(-4.51) Fix(-4.51)B)Int(-4.51) CInt(-4.51) Fix(-4.51)C)CInt(-4.51) Fix (-4.51) CInt(-4.51)D)Int(-4.51) 10 Then Exit For Next i Text1.Text = Str(n)End Sub

3、答：2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么？Private Sub Form_Click() Dim x As Integer x = Int(Rnd + 4) Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 合格 Case Else Print 不合格 End SelectEnd Sub答：3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么？Private Sub Form_Click() Dim s As String, i As Integer, n(9) As Integer

4、 Dim s1 As String * 1, j As Integer s = Trim(12345a307291b233) For i = 1 To Len(s) s1 = Mid(s, i, 1) If s1 = 0 And s1 = 9 Then j = Val(s1) n(j) = n(j) + 1 End If Next i For j = 0 To 9 Print j; :; n(j) Next jEnd Sub答：4、当发生Command1_Click事件后，以下程序输出结果是什么？Private Sub Command1_Click() Dim y As Integer, i

5、As Integer Dim a(8) As Integer y = 18: i = 0 Do a(i) = y Mod 2 i = i + 1 y = y 2 Loop Until y 1 For j = i - 1 To 0 Step -1 Print a(j); Next jEnd Sub答：5、写出程序运行时单击Command1后，窗体上显示内容的第二行是结果什么。Private Sub Command1_Click() Dim ch As String, i As Integer ch = DEF For i = 1 To Len(ch) ch = Mid(ch, 2 * i - 1

6、, 1) & Left(ch, Len(ch) Print ch Next iEnd Sub答：6、写出程序运行时单击Command1后，在窗体上的输出结果。Private Sub Command1_Click() Dim i As Integer, a As Integer a = 1 For i = a To 5 Step a + 1 a = a + 1 Next i Print a, iEnd Sub答：7、写出程序运行时单击Command1后，在窗体上的输出结果。Option ExplicitPrivate Sub Command1_Click() Dim I As Integer,

7、a(5) As Integer For I = 1 To UBound(a) a(I) = I * 2 + 1 I = I + 1 Next I Print a(3), LBound(a)End Sub答：8、写出程序运行时单击Command1后，在窗体上的输出结果。Private Sub Command1_Click() Dim n As Integer, j As Integer j = 0: n = 0 Do While n 3 j = (j + 1) * (j + 2) n = n + 1 Loop Print j; nEnd Sub答：9、建立一窗体Form，然后编写如下程序。程序运

8、行后，单击窗体的输出第三行结果是什么？Private Sub Form_Click() Dim i As Integer, j As Integer Dim t(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 t(i, j) = (i - 1) * 3 + j Print t(i, j); Next j Print Next iEnd Sub答：10、建立一窗体Form，在窗体上画一文本框Text1和一命令按钮Command1,然后编写如下程序，运行程序后，单击命令按钮，在Text1中输出结果是什么？Private Sub Command1_C

9、lick）Dim Fb(10) As Integer，I As IntegerFb(l)2：Fb(2)3For I = 3 To 5Fb(I)Fb(I - 2)+ Fb(I - 1)Next IFor I = 1 To 5Text1 = Text1 Str(Fb(I) “”Next IEnd Sub 答：三、程序填空(每空2分，共20分)1、下列程序的功能是从键盘上按行输入一个34二维数组，求二维数组各列的和，输出到窗体。请在下划线处填写适当的内容。Option Base 1Private Sub Form_Click() Dim a(3, 4) As Integer, s(4) As Int

10、eger For j = 1 To 4 For i = 1 To 3 a(i, j) = InputBox(请输入一个元素的值) Next i Next j For j = 1 To 4 s(j) = 0 For i = 1 To 3 Next i Next j For i = 1 To 4 Next iEnd Sub2、下列程序的功能是求一维数组的最大值和最小值及其下标，请在下划线处填写正确的内容。Option Base 1Private Sub Command1_Click() Dim t(10) As Integer, min_i As Integer Dim max_i As Inte

11、ger For i = 1 To 10 t(i) = InputBox(请输入一个元素值) Next i min_i = ：max_i= For i = 2 To 10 If Then min_i = i If Then max_i= i Next i Print t(min_i), min_i,t(max_i),max_iEnd Sub3、下面程序的功能是用直接选择排序法将数组a中的10个整数按降序排列，请在下划线处将程序补充完整。Option Base 1Private Sub Command1_Click() Dim a, i As Integer, temp As Integer Di

12、m j As Integer, k As Integer a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For i = k = i For j = If a(k) a(j) Then k = j Next j If k i Then temp = a(i) a(i) = a(k) a(k) = temp End If Next i For i = 1 To 10 Print a(i) Next iEnd Sub4、本程序的功能是产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如395应存到

13、a(5)中。Option ExplicitPrivate Sub Form_Click() Dim a(9) As Integer, x As Integer, k As Integer Dim I As Integer Randomize Do While I = 9 x = Int(Rnd * 900 + 100) If a(k) = 0 Then a(k) = x I = I + 1 End If Loop For I = 0 To 9 Print a(I); Next IEnd Sub四、编程题(每题15分，共30分)(界面自行设计)1、编写程序，输出100以内能被3整除的数之和。要求：将结果在窗体上输出。2、编写程序，从文本框1中输入的一个由字母和数字组成的字符串中，找出所有的大写字母，并依次连接，再输出到文本框2中。3、编写程序，求两个正整数的最大公约数。要求：将a、b两个变量在分别Text1和Text2中输入，最大公约数在Text3中显示。