VB复习参考题2010年1.doc

VB复习参考题1、在VB中，使用声明语句说明一个变量后，对于没有赋值的数值型变量，系统将默认的值是_。A. 空 B. 0 C. 1 D. Empty 答案：B2、在VB中，使用声明语句说明一个变量后，对于没有赋值的布尔型变量，系统将默认的值是_。A. 空 B. 0 C. False D. Empty 答案：C3、表达式Sqr(2*32+2*8/4+32)-6)的值是_。A. 4 B. 5 C. 7 D. 8答案：B4、数学公式的VB表达式是_。 答案：C5、在程序中，如果遇到“A是小于100的非负数”，那么必须将其描述为_。A. 0A100 B. 0=A100 C. 0A and A100 D. 0=A and A=y Then z=x : z=y B. If xy Then z=x Else z=y C. z=y : If x=y Then z=x D. If xy Then z=y Else z=x 答案：D25如果程序中定义了一个整型数组S(1 TO 10,5)，那么在内存中这个数组需占用_字节空间。 A. 50 B. 60 C. 120 D. 500 答案：B26、用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是_。A、7 B、8 C、9 D、10答案：C27、下列B表达式与_表达式的值是相等的。A、Fix(-5.85) B、Int (-4.85) C、Abs (int (-3.9) D、Abs (int (-4.85)答案：A28、对象的三个要素是_ 。A、属性、方法、事件B、色彩、高度、宽度C、事件、属性、色彩D、属性、高度、宽度答案：A29、程序运行时能被对象响应和识别的操作是_ 。A. 属性 B. 方法 C. 过程 D. 事件答案：D30、下列语句书写规则中，_是错误的。A. 每条语句可以单独占一行，也可以一条语句分多行写。B. 语句分行写时，要在上一行的结尾处加入空格和下划线。C. 可以多条语句写在一行，每条语句之间以逗号隔开。D. 语句和语句之间可以有空行。答案：C31、下述语句定义的数组元素有_个。 Option Base 1 Dim A(12,8) A、117 B、128 C、96 D、20 答案C32.假设已通过下列Sub语句定义了SubA过程。若要调用该过程，可以采用_语句。 Sub SubA(x As Integer） A. Print SubA(20) B. Call SubA 50000 C. y = SubA(700) D. SubA 32000答案D33、在窗体上画3个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是： A、Tag B、Index C、ListIndex D、Name 答案B34、语句Dim a&(1 To 20)，b#(2,-1 To 1)定义两个数组，其类型分别为： A、一维单精度实型数组和二双精度型数组B、一维整型数组和二维单精度实型数组C、一维单精度实型数组和二维整型数组D、一维长整型数组和二维双精度型数组 答案D35、语句Dim arr(-3 To 5 ,2 To 6)As Integer定义的数组元素有: A、45 个 B、40个 C、11个 D、54个 答案：A36、设用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组的说法错误的是: A、命令按钮的所有Caption属性都是Command1B、在代码中访问任意一个命令按钮只需要使用名称Command1C、命令按钮的大小都相同D、命令按钮共享相同的事件过程 答案B37、在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为M1。设窗体Form标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写下如下代码： Private Sub M1_Click(Index As Integer)Form1.Caption = No3End Sub运行时，单击按钮数组中的第一个按钮，窗体标题为： A、Form B、M1 C、myform1 D、No3 答案D38. 如果在窗体中执行以下操作：a=7:b=10Print(a60Theni=1Ifa70Theni=2Ifa80Theni=3Ifa90Theni=4Printi=;iA. I = 1 B. I = 2 C. I = 3 D. I = 4 答案： D 43. 在窗体上画一个名称为Text1的文本框，并编写如下程序：PrivateSubForm_Load()ShowText1.Text=Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print程序设计EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintVisualBasic;EndSub程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是_。A. Visual Basic B. 程序设计 C. A程序设计 D. Visual Basic程序设计 答案： D 44. 运行下面程序后，循环体执行了_次。PrivateSubForm_Load() i=0:n=0 DoWhilei32 i=(i+1)*(i+1)n=n+1LoopShowPrint循环次数是：,nEndSubA. 32 B. 3 C. 4 D. 5 答案： C 45. 下列VisualBasic程序段运行后，变量a、b、c的值为_。a=1:b=1:c=1DoWhilea+b+c9 (2) t + s B. (1) n = 9 (2) n + s C. (1) n 9 (2) t + s D. (1) n = 9 (2) t + n 答案： D 53. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c1 =1234 For I = 1 To 4 Print _ Next I End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1121231234则在下划线处应填入的内容为A. Right(c1,i) B. Left(c1,i) C. Mid(c1,I,1) D. Mid(c1,I,i) 答案： B 54. 下列程序段的执行结果为a=5Fork=1To0a=a+kNextkPrintk;aA. -1 6 B. -1 16 C. 1 5 D. 11 21 答案： C 55. 窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为_。PrivateSubCommandl_Click() DimAAsInteger,BAsInteger Textl.SelStart=2 Textl.SelLength=2 A=Val(Textl.SelText) B=Len(Textl.Text) PrintA*B EndSubA. 68 B. 115 C. 170 D. 1170 答案： C. 56. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：PublicxAsIntegerPrivateSubCommand1_Click()DimyAsIntegerx=10:y=5Callf(x,y)Printx;yEndSubPrivateSubf(x1AsInteger,y1AsInteger)x1=x+2y1=y+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是_。A. 10 5 B. 12 7 C. 12 2 D. 以上都不对 答案： C57. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command的命令按钮，然后编写如下事件过程：Private Sub Command_Click()Dim x As Integer,n As Integerx=1n=0Do While x20x=x*3n=n+1LoopText1.Text=xText2.Text=nEnd Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是A. 9和1 B. 9和2 C. 27和3 D. 27和4 答案： C 58. 在下列事件过程执行3次后，count1和count2分别为_。OptionExplicitPrivateSubCommand1_Click()Staticcount1AsIntegerDimcount2AsIntegercount1=count1+1count2=count2+1Printcount1=;count1,count2=;count2EndSubA. 1和1 B. 3和3 C. 1和3 D. 3和1 答案： D 59. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=”Text1SetFocusFori=1To9Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是_A. 出错 B. 在文本框Text1中输出45 C. 在文本框Text1中输出0 D. 在文本框Text1中输出不定值 答案： A. 60. 有一个计算程序：PrivateSubForm_Click()N=Val(InputBox(“inputn:”)S=1:k=1DoWhilek 3 Then Exit For i = i + 1 Next k Print k;a(i);s A、88 6 36 B、88 1 2 C、90 2 4 D、94 4 16 答案D 72、有如下程序： Dim a(3,3) As Integer For m = 1 To 3 For n = 1 To 3 a(m,n)=(m-1)*3+n Next m For m = 2 To 3 For n = 1 To 2 Print a(n,m) Next n Next m 运行后输出结果是： A、2 5 3 6 B、2 3 5 6 C、4 7 5 8 D、4 5 7 8 答案A 73、下列程序段的执行结果为: Dim M(10) For i = 0 To 10 M(i) = 2*i Next i Print M(M(3) A、12 B、6 C、0 D、4 答案A74、执行以下Command的Click事件过程，在窗体上显示: Oprion Base() Private Sub Command1_Click() Dim a a = Array(a,b,c,d,e,f,g) Print a(1);a(3);a(5) End Sub A、abc B、bdf C、ace D、出错 答案B 75、有如下程序: Const n = -5 : Const M = 6 Dim a(n To M) For i = LBound(a,1) To UBound(a,1) a(i) = i Next i Print a(LBound(a,1);a(UBound(a,1) 运行后输出结果为： A、0 0 B、-5 0 C、-5 6 D、0 6 答案C76、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Privat Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i = 1 To 3 For i = 2 To 4 array1(i,j) = i + j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值_。 A、12 B、13 C、14 D、15 答案A77. 执行下列程序段后，输出的结果是_。 Dim a(1 To 4, 1 To 4) For j = 1 To 4 For k = 1 To 4 a(j, k) = Abs(j - k) Print a(j, k); Next k Print Next jA. 3 2 1 0 B. 0 1 2 3 C. 0 1 1 1 D. 3 3 3 3 2 1 0 3 1 0 1 2 1 0 1 1 2 2 2 2 1 0 3 2 2 1 0 1 1 1 0 1 1 1 1 1 0 1 2 3 3 2 1 0 1 1 1 0 0 0 0 0 答案B78.下面程序运行的结果是 Private Sub Form_click() Dim x As Integer, x1 As Integer x = 5: x1 = 4 Call Ktest(x, x1) Print x; x1; Call Ktest(x, x1) Print x; x1 End Sub Sub Ktest(ByVal t As Integer, t1 As Integer) t = t + 5 t1 = t1 + t * 2 End Sub A. 10 14 25 39 B. 5 24 44 5 C. 5 24 5 44 D. 10 24 15 44答案C79、执行下列代码， Text1(5).Text输出结果是Dim a(0 To 9) As Longa(i) = i + 1For i = 0 To 9Text1(