程序设计基础VB.doc

试题纸一、单项选择 （每题2分，共40分）1、Visual Basic是一种面向（）的程度设计语言。（A）用户 （B）事件 （C）程序 （D）对象2、在Visual Basic6.0中规定工程文件的扩展名是（）。（A）vbp （B）for （C）frm（D）bas3、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。（A）Label 控件 （B)TextBox 控件 （C）Timer 控件（D）CommandButton 控件4、双击窗体中的对象后,Visual Basic将显示的窗口是（）。(A)项目(工程)窗口 （B)工具箱 (C)代码窗口 （D）属性窗口5、语句PRINT 25*4的输出结果是（）。（A）25*4 （B）100 （C）100 （D）出现错误信息6、Int(Rnd * 100) 表示的是( )范围内的一个整数。（A） 0,100 （B） 1,99 (C) 0,99 (D) 1,1007、如何使一个标签或按钮控件在运行时不可用（）。(A)把它的Visible属性设置成False (B)把它的Visible属性设置成True(C)把它的Enabled属性设置成False (D)把它的Enabled属性设置成True8、InputBox函数返回值的类型为（）。(A) 数值 （B)数值或字符串（视输人的数据而定）(C) 变体 (D)字符串9 执行以下语句时,会出现错误提示的是_.(A) Print2b3 +12.5(B). Print12.5+ 12(C).Print12.5 & 12.5(D).Print2e3+1210、在窗体上画三个单选按钮，组成一个名为command1的控件数组。用于标识各个控件数组元素的参数是（）。（A）command1 （B）Index （C）ListIndex （D）Name11、以下合法的Visual Basic变量是（）。（A）ForLoop （B） Const（C） 9abc （D） a#x12、有如下事件过程Private Sub Command1_Click()x = 1For i = 1 To 3If i = 1 Then a = x * xIf i = 3 Then a = x * x + 2Print a; Next iEnd Sub运行时，单击命令按钮，则结果是（ ）：（A）2 5 11 （B）1 5 1 （C） 2 2 3 （D）1 1 113、以下Case语句含有错误的是_.（A） Case 0 To 10 （B）Case Is10（C） Case Is10 And Is1014、表达式 5 Mod 3+35*2的值是 （）（A） 0 （B） 6 （C）4 （D） 215、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i n（A）2 （B）6 （C）10 （D） 1416、执行以下程序段，输出结果为 （）Private Sub Command1_Click()a$=abbacddcbaFor i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z= UCase(x & y & z)Next iPrint zEnd Sub（A） ABA （B）ABBABA （C） BBABBA （D）AABAAB17、表达式4+5 6 * 7 / 8 Mod 9 的值是（）。（A）4（B）5（C）6（D）718、设x=4,y=8,z=7，表达式xz) Or z n - 1 Then k = k + 1: Print n;L2：If k = 5 Then k = 0: PrintNext n本程序的功能为（）。（A）打印3100之间的所有数 （B）打印3100之间的所有2的倍数（C）打印3100之间的所有5的倍数 （D）打印3100之间的所有素数二 填空题 （每空3分，共36分）21、阅读下列程序Option Base 1Private Sub Form_Click()Dim a As Variant, b As VariantDim c(7) As Integera = Array(2, 8, 7, 6, 4, 26, 24)b = Array(79, 27, 32, 40, 57, 66, 82)Print 两组相加结果数值：;For i = 1 To 7c(i) = a(i) + b(i)Print c(i);Next iEnd Sub语句“Option Base 1”的说法中正确的是【1】，该程序的功能是【2】。22 执行下面程序，单击Command1，则窗体上的第一行是【1】，第三行是【2】，最后一行是【3】。Private Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do While x 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub23 运行下面的程序，单击Command1,在窗体上显示的变量a的值为_【1】_，变量b的值为_【2】_,变量c的值为_【3】_。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function24 运行下面程序，单击Command1，在窗体上显示的变量a的值为_【1】_,变量b的值为_【2】_Dim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(a, b + 2) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function25、下面程序执行后a的值是_。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1 Do While b 5 a = b - a b = b + 1 Loop Print aEnd Sub26、程序运行时，单击Command1按钮，显示结果是_。Private Sub Command1_Click() Dim a As Variant, s As Integer Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub三 编写程序题 (每题12分，共12*2 = 24分)27 窗体上有一个命令按纽，名称为command1，有一个文本框，名称为text1,单击command1,将1到100的偶数和显示在文本框text1中，完成Command1_Click中的代码：Private Sub Command1_Click() End Sub28窗