苏州科技学院VB期末考试语句结构测试真题.doc

1.单选题： 运行下列程序,窗体上第一行显示的结果是_____________. ??Private sub form_click() ???????J=0 :n=0 ???Do??while n3 ????????j=(j+1)*(j+2):n=n+1 ???Loop ???Print n ???Print j ?End sub A.?3 B.?4 C.?5 D.?6 参考答案： A 2.单选题： 当VB执行下面语句后，A的值为___________.? A=1 If A0 Then A=A+1 If A1 Then A=0 A.? 0 B.?1 C.?2 D.?3 参考答案： A 3.单选题： 执行下面的程序段后，s的值为?______________??。 s = 0 i = 1 N=1 Do While i N ???s = s + i ???i = i + 1 Loop A.?0 B.?1 C.?2 D.?3 参考答案： A 4.单选题： 下面没有语法错误的是?_____________?。 A.?Case 10 To 1 B.?Case a To z C.?Case 1 3 5 D.?Case a,1 参考答案： B 5.单选题： ?执行下面的程序段后,i的值为_________. ??????S=2 For i=3.2??to??4.9??step??0.8 ???s=s+1 ?????? next i A.?5.5 B.?5.6 C.?5.7 D.?5.8 参考答案： B 6.单选题： 执行下面的程序段后，s的值为??____________???。 s = 0 i = 1 N=1 Do ???s = s + i ???i = i + 1 Loop?While i N A.?0 B.?1 C.?2 D.?3 参考答案： B 7.单选题： 下列程序段的执行结果为??????????????????a=＂abcde＂ : b=＂cdefg＂ c=right(a,3):d=mid(b,2,3) if cd??? then y=c+d??? else? ?y=d+c print y A.?abcdef B.?cdebcd C.?cdeefg D.?cdedef 参考答案： D 8.单选题： 当在文本框输入＂ABC＂时，窗体上显示_________________。 ??Private sub txtinput_change() ??????Print??txtinput.text ??End sub A.?AABABC B.??ABC C.? A AB ABC D.? A B C ? 参考答案： C 9.单选题： 编写如下代码： If x0 Then ????y=3*x-1 ?Else ????y=2*x-1 ??End If 当x=-2时，y的值为??______.?? A.?-7 B.?-5 C.?0 D.?7 参考答案： A 10.单选题： 执行下面的程序段后，x?的值为______?。 x=5 For i=1 To 20 Step 2 x=x+i\5 Next i A.?21 B.?22 C.?23 D.? 24 参考答案： A 11.单选题： 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是_________. A.?7 B.?15 C.?157 D.?538 参考答案： B 12.单选题： 阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的三重循环后，a?的值为_______. A.?3 B.?9 C.?14 D.?21 参考答案： C 13.单选题： 执行下面的程序段后,x的值是_____________。 X=5 For i =1 to 20 step 2 x=x+i\5 Next i A.?21 B.?22 C.?23 D.?24 参考答案： A 14.单选题： 在文本框Text1?中输入数字12，Text2?中输入数字34，执行一下语句，只有___________使文本框Text3中显示46。 A.?Text3.text=Text1.textText2.text B.?Text3.text=Val(Text1.text)+Val(Text2.text) C.?Text3.text=Text1.text+Tex