VB考前辅导模拟试卷四（中等）

《VB考前辅导模拟试卷四（中等）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB考前辅导模拟试卷四（中等）试题1（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时先在文本框Text1中输入n的值后回车，如果值在[1,10]之间，则清空文本框Text2，并使它获得焦点。然后在在文本框Text2中输入正确的a值后按回车，将以下和式的计算结果S显示在结果文本框Text3中。【程序】DimnAsBytePrivateSubText1_KeyPress(KeyAsciiAsInteger)n=Val(Text1.Text)IfKeyAscii=13

2、And　　　（1）　　ThenText2.Text=""Text2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)DimaAsByte,iAsByteDimsAsLong,txAsLongIf　　　（2）　　　ThenExitSubEndIfa=Val(Text2.Text)Ifa<0Ora>9ThenExitSubEndIftx=a　　（3）　　　Fori=2Ton　　　（4）　　s=s+txNextiText3.Text=Str(s)EndSu

3、b【供选择的答案】（1）A．n>0Andn<=10B．n>=0Andn<=1026C．n>=1Orn<=10D．n>0Andn<=11（2）A．KeyAscii=13B．KeyAscii<>13C．KeyAscii=""D．KeyAscii<>""（3）A．s=txB．tx=sC．s=0D．s=a*10+a（4）A．tx=a*10+aB．tx=tx+aC．tx=tx*a+aD．tx=tx*10+a试题2（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】抽奖程序界

4、面如图，先模拟生成1000个身份证号放在数组A中，运行时标签框（Label1）中显示第一个身份证号，单击“开始”命令按钮（Command1）后，命令按钮改标题改为“停止”，标签框以每隔0.1秒顺序变化显示数组中的身份证号，单击“停止”按钮身份证号变动停止，同时按钮标题改为“开始”。【程序】（5）DimA(0To999)AsStringPrivateSubCommand1_Click()IfCommand1.Caption="开始"Thenn=0（6）Command1.Caption="停止"ElseTimer1.Enable

5、d=FalseCommand1.Caption="开始"EndIfEndSubPrivateSubForm_Load()Timer1.Interval=（7）Timer1.Enabled=FalseFori=0To999A(i)=""Forj=1To18A(i)=A(i)+Trim(Str(Int(Rnd*10)))'模拟身份证号NextjNextiLabel1.Caption=A(0)EndSubPrivateSubTimer1_Timer()26n=(n+1)Mod1000（8）EndSub【供选择的答案】（5）A．Op

6、tionBase1B．OptionBase0C．DimnAsIntegerD．OptionExplicit（6）A．Timer1.Enabled=FalseB．Timer1.Enabled=TrueC．Timer1.Interval=100D．Timer1.Interval=10（7）A．10B．100C．1000D．10000（8）A．Label1.Caption=Str(A(n))B．PrintA(n)C．PrintStr(A(n))D．Label1.Caption=A(n)试题3（每小题2分，共6分）阅读下列程序说明和

7、程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时在文本框(Text1)中输入一个字符串后单击“循环左移”按钮（Command1），在列表框中显示字符串循环左移一周的结果，注意第一个与最后一个都是原字符串。【程序】PrivateSubCommand1_Click()DimssAsString,ttAsStringDimllAsIntegerss=Text1.Textll=Len(ss)　　　（9）　　　DoList1.AddItemssss=　　　（10）　　　LoopWhiless<>tt　　　　（1

8、1）　　　EndSub【供选择的答案】（9）A．tt=""B．ss=ttC．tt=ssD．tt=Right(ss,ll-1)26（10）A．Right(ss,1)+Left(ss,ll-1)B．Left(ss,1)+Right(ss,ll-1)C．Mid(ss,2,ll-1)D．Right