VB测试题(必做部分).doc

VB必做测验及答案目录实验4 选择结构程序设计2实验6 循环结构程序设计6实验7 数组8实验9 常用控件10实验4 选择结构程序设计1.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为_。 If a5 then If b4 then c=a-b Else c=b-a End if ElseIf b3 then c=a*b Else c=a mod b End if a) 2 b) -1 c) 1 d) 6 答案：A2.下列程序的执行结果为_。 A=100:b=50 If ab Then a=a-b Else b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A 3.以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If _ Then x=x+I End If Next I Print x End Sub a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 0 d) x Mod 2 0 答案：A4.下列程序段的执行结果为 。x=Int(Rnd+4)Select Case xCase 3Print 优秀Case 4Print 良好Case 5Print 合格Case ElsePrint 不合格End SelectA）优秀B）良好C）合格D）不合格答案：B5.以下程序段的执行结果是_。 X=2:y=1 If x*y1 Then y=y-1Else y=-1 Print y-x0 End If a) Ture b) False c) -1 d) 1 答案：B 6.设计两个CheckBox，一个显示粗体，一个显示斜体，通过对CheckBox的选择，在一个文本框中显示相应效果的文本，完成下列程序。Private Sub Form_Load()Check1.Caption=显示粗体Check2.Caption=显示斜体Text1.Text=Visual Basic 6.0End SubPrivate Sub Check1_Click()If Check1.Value =1 ThenText1.FontBold=TrueElseText1.FontBold=FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value=1 ThenText1. FontItalic =TrueElseText1. FontItalic =FalseEnd IfEnd Sub7.下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If ab Then d=a:a=b:b=d EndIf If ac Then d=a:a=c:c=d EndIf If_Then d=b:b=c:c=d EndIf Print a,b,c 答案：bc8.在下列关于 Select Case 的叙述中，错误的是（ ）选择一个答案 a. Case 10 To 100 表示判断Is 是否介于10 与100之间 b. Case abc,ABC表示判断Is 是否和abc、ABC两个字符串中的一个相同 c. Case -7,0,100 表示判断Is 是否等于字符串-7，0，100 d. Case X 表示判断Is 是否为大写字母X 9.下列程序的执行结果是（ ）X=5Y=-20If Not X0 Then X=Y-3 Else Y=X+3Print X-Y;Y-X选择一个答案 a. 3 -3 b. -3 3 c. 5 -8 d. 25 -25 10.下列说法正确与否：If语句中的条件表达式中只能使用关系或逻辑表达式选择一个答案 a. 正确 b. 错误 11.以下说法正确与否：在情况语句中，各分支（即Case表达式）的先后顺序无关。选择一个答案 a. 错误 b. 正确 12.以下说法正确与否：有If 则必有与之对应的Endif。选择一个答案 a. 错误 b. 正确 实验6 循环结构程序设计1. 下列程序的执行结果为_。Dim S As Integer,n As Integer S=0:n=1 Do While n=100 S=S+n n=n+1 Loop Print S a) 5050 b) 2500 c) 3000 d) 4000 答案：A 2. 以下程序计算2到50间所有偶数的和，请补充完该程序Sub mult()Dim Sum As IntegerSum=0Dim I as integerFor_to 50 If I MOD 2=_Then_ Next IPrint sumEnd Sub 答案：I=2#0#SUM=SUM+I3.下列程序段的执行时，共循环_次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next bnext a 答案：12 4. 下列程序的执行结果是_。 K=0 For I=1 To 3 a=IIK print a; Next I a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9 答案：A 5. 下列程序运行后，输出的结果为_。 B=1 Do while (b40) b=b*(b+1) Loop Print b a) 42 b) 39 c) 6 d) 1 答案：A 6. 下列程序执行后，变量s的值为_。 Dim s As long ,x As Integer s=0:x=1 Do While (x10) s=s+x x=x+2 Loop Print s a) 10 b) 25 c) 50 d) 100 答案：B 7. 当变量x=2,y=5时，以下程序的输出结果为_。Do until y5 x=x*y y=y+1loopprint x a) 2 b) 5 c) 10 d) 20 答案：C 8. 执行下面的程序，在窗体上显示的输出结果的第一行是（15） ，第二行是（16） 。Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer c = -2 For a=6 To 1 Step c a = a +1 c = c-a b = b+1 Next a Print b Print cEnd Sub答案：6 -299.要实现同样的循环控制，在Do While Loop和Do Loop While循环结构中给定的循环条件一样的。该结论是否正确：选择一个答案 a. 正确 b. 错误 10.Do Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。该结论是否正确：选择一个答案 a. 错误 b. 正确 11.Do Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。该结论是否正确：选择一个答案 a. 错误 b. 正确 12.For循环语句正常结束（即不是通过Exit For语句退出循环或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。该结论是否正确：选择一个答案 a. 正确 b. 错误 13.如果有多重Do循环嵌套，位于最里层循环体语句中的Exit Do语句可以退出所有的循环。该结论是否正确：选择一个答案 a. 正确 b. 错误 实验7 数组1. 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(5)For i=0 To 4A(i)=i+1t=i+1If t=3 ThenPrint a(i)A(t-1)=a(i-2)ElseA(t)=a(i)End if If i=3 Then a(i+1)=a(t-4)A(4)=1Print a(i)Next iEnd Sub程序运行后，单击命令按钮，输出结果是 1 2 3 1 4 1 。2. 设执行以下程序段时依次输入1、3、5，执行结果为_。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：) b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5 d) 0 答案：A3. 如果有数组声明 Dim a(10) As Integer，则该数组共有_个元素。 a) 10 b) 11 c) 9 d) 不确定 答案：B 4. 数组的下标可取的变量类型是_。 a) 日期型 b) 字符型 c) 数值型 d) 可变型 答案：C 5. 用以下语句 Dim b(-2 to 4)as string 所定义的数组的元素个数是_个。 a) 2 b) 4 c) 6 d) 7 答案：D6. 下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素完成下列程序。Private Sub Backward(a()Dim i As Integer, Tmp As IntegerFor i=1 To 5Tmp=a(i) Next iEnd Sub7. 如下数组声明语句，正确的是_。 a) dim a3,4 as intiger b) dim a(3,4) as string c) dim a(n,n) as single d) dim a(3 4) as integer 答案：B 8.下列关于数组的说法正确的是（ ）选择一个答案 a. 在VB中，数组只能在模块中定义，不能在过程中定义 b. 在VB中，一个数组中所包含的元素只能是相同类型的数据 c. 在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式 d. 同普通变量一样，数组也可以不定义，先使用 9.使用 Dim 定义数组时，其数组的上界或下界，可使用已赋值的变量。该结论是否正确：选择一个答案 a. 正确 b. 错误 10.数组的下界一定是大于 0 的整数。该结论是否正确：选择一个答案 a. 错误 b. 正确 11.可以在程序中多次使用 ReDim 语句来改变动态数组的大小、维数和类型。 该结论是否正确：选择一个答案 a. 错误 b. 正确 12.可以使用 Option Base 2 语句把数组下标下界的默认值设置为 2 。 该结论是否正确：选择一个答案 a. 正确 b. 错误 实验9 常用控件1. 所有控件都有的属性是_，在程序中作为对象的标识引用。 a) Caption b) Value c) Text d) name 答案：D 2. 下列_属性用于设置或返回文本框中的文本。 a) Caption b) Text c) Name d) DragIcon 答案：B 3. 可以用作其它控件容器的控件有（? ） a) 窗体控件，列表控件，图像控件 b) 窗体控件，文本框控件，框架控件 c) 窗体控件，框架控件，图片框控件 d) 窗体控件，标签控件，图片控件 答案：C 4. 以下不属控件的一项是_。 a) 文本框 b) 标签框 c) 列表框 d) 消息框 答案：D 5. 改变控件在窗体中的上下位置应修改控件的_属性。 a) Top b) Left c) Width d) Height 答案：A 6. 复选框控件其Value属性的可取值是_。 a) Trut和False b) 0和1 c) 1、2、3 d) 0、1、2 答案：D 7. 如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中_个选项按钮（提示：该题答案不能出现汉字）。 答案：28. 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub则在Text1文本框输入“visual basic”，Text2将显示_。 a) Text2中无内容显示。 b) Text2显示VISUAL BASIC。 c) Text2显示visual basic d) Text1显示visual basic 答案：B 9.选中复选框控件时，Value属性的值为（ ）选择一个答案 a. 1 b. True c. 0 d. False 10.让复选框控件的事件过程