高中信息技术-VB循环语句-浏览题阅览题-会考复习题

高中信息技术 VB循环语句 浏览题阅览题 会考复习题学校:_姓名：_班级：_考号：_评卷人得分一、选择题1下列程序运行后的运行结果为。X=8：Y=X：Z=10IF X=X THEN PRINT Z END IFEND IF A10 8B8 8C10 10D8 10【答案】B【解析】2数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear 清除列表框数据For i 1 To 10 Randomize 随机数初始化a(i) Int(Rnd() * 1000) List1.AddItem Str(i) ” Str(a(i)Next iCommand2.Enabled True激活排序按钮End SubPrivate Sub Command2_Click()For i 1 To 9 k iFor j _To 10 If a(j) a(k) Then k jNext j If i k Then_End IfNext iList2.ClearFor i 1 To 10List2.AddItem Str(i) ” ” Str(a(i)Next iEnd Sub请在、划线处填入合适的语句或表达式，把程序补充完整：程序中划线处应填入_；程序中划线处应填入_。【答案】I+1；t=a（k）:a(k)=a(i):a(i)=t【解析】3由“For k=35 To 0 Step 3 : Next k ”循环语句控制的循环次数是_。A、12B、0C、-10D、-11【答案】B【解析】4Sub test7()For i = 1 To 6S = S + (-1) i *2 iNext iMsgBox (S)End sub该程序的运行结果是（ ）A、126 B、-126 C、-42 D、42【答案】D【解析】5Sub test2()a = 12：b = 12：c = 5Label1.Caption = Label2.Caption = If a b Or Not bc ThenLabel1.Caption = mondayElseLabel2.Caption = tigerEnd IfLabel3.Caption = Label1.Caption+ Label2.CaptionEnd sub该程序段运行后，在标签Label3的Caption属性值是( )A monday B tiger C mondaytiger D 【答案】A【解析】6根据下列程序段运行后a的值 ，划线处应该填入的合理数据类型为 （ ）Dim a As _a = 1For i = 1 To 8a = a * iNext iA、Integer B、Long C、Single D、Double【答案】B【解析】7 小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：Private Sub Command1_Click()Dim x As String, i As IntegerFor i = 1 To 10If i Mod x = 1 Thenx = 奇数Elsex = 偶数Next iEnd Sub产生此错误的语句是( )。AFor BEnd IfCNext DIf【答案】B【解析】8下图是当循环、直到循环两种循环结构，请结合下图选择下列说法中正确的是 ( )A当循环是当条件成立退出循环B当循环不可能出现不执行循环步骤的情况C直到循环是条件成立时执行循环步骤D直到循环至少执行一次循环步骤【答案】D【解析】9对以下程序段的说法正确的是（ ）s=0i=0Do While sb?abac?ac输出a开始YYNN结束当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（ ）A. 8 B. 2 C. 5 D. 7【答案】B【解析】11若输入两数1，-4，输出结果_A-5B-3C5 D3【答案】C【解析】12某算法要实现0到100的偶数之和，流程图如图所示。则ii+2被执行的次数是2A50 B51 C100 D101【答案】B【解析】13在某银行取款机上，用户银行卡密码验证的过程如下图所示：当用户输入密码时，若第1次输入错误，第2次输入才正确，则整个操作过程的执行流程是（ ）A、B、C、D、 【答案】C【解析】14求两数之和的算法是：输入两数a和b的值，计算c=a+b，输出c的值。该算法的基本结构属于( )。A顺序结构 B选择结构 C循环结构 D框架结构【答案】A【解析】15 下列VB程序段的运行结果是：Dim a(1 To 3) As Integera(1)=1For i=2 To 3a(i)=2*a(i-1)+1NextPrint a(i-1)A、0 B、3 C、7 D、15【答案】C【解析】16有如下程序段：For i = 1 To 2For j = 2 To 7 - iIf a(j) a(j - 1) Thenk = a(j): a(j) = a(j - 1): a(j - 1) = kEnd IfNext jNext i数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）A数组元素a(1)到a(6)的值依次为54，29，31，58，71，78B.此过程中数据共需比较次数为8次C此过程中数据共需交换次数为5次D此过程中数据“54”共被比较5次【答案】C【解析】17某算法的部分流程图如第5题图所示。执行这部分流 程后，“xx2”被执行的次数为A0 B1 C2 D3【答案】C【解析】18有如下 VB 程序，它的输出结果是 S=0 For i=1 To 10 If i mod 2=0 Then S=S+i Next i Print “S=”;SAS=0 BS=25 CS=30 DS=55【答案】C【解析】19下列VB程序段运行完毕后，变量x的值为x=2 : y=64Do while x= Sqr(y)x=x+3LoopA 2 B 5 C 8 D 11【答案】D【解析】20某算法流程图如图所示，执行该算法后，“ss+i”共被执行的次数是（ ）YN开始i20?ii+3s+isS1:i1输出s的值结束A0 B6 C7 D8【答案】C【解析】21小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示： uname = Text1.Text 输入用户名 psd = Text2.Text 输入密码 vcode = Val(Text3.Text) 输入验证码 If vcode Val(Label3.Caption) Then MsgBox “” Label3显示的是随机验证码 ElseIf uname admin Or psd Then MsgBox “ ” Else MsgBox “ ” 方框中正确的语句是（ ）。A 中“验证成功”B 中“输出用户名或密码有误”C 中“验证成功D 中“输出验证码错误”【答案】B【解析】Sub test3()双重循环运行 输出图形 与3重复,但3已改题For i = 1 To22step 1s = For j = 1 To 2 * i - 1s = Str(j) + sNext jList1.AddItem sNext iEnd Sub该程序的运行后列表框输出的第三行是 （ ）A33333B55555C12345D54321【答案】D【解析】23若输入28，以上代码输出结果是 。Dim x as longx=inputbox(“输入x的值”)y=x mod 7if y=4 or y=5 or y= 6 thenxq=y-3elsexq=y+4end ifprint xq【答案】4【解析】24下列为部分VB程序语句代码：( )s=32For i=1 To 10 Steps=s/2Next i上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填( )A1 B2 C3 D4【答案】C【解析】25如图所示的部分流程图中，“ssi”被执行次数为( )A 0 B 1C 32 D 33【答案】C【解析】26以下语句中错误的是（ ）AConst var1=123BDim var2 As StringCx+y=9DDim d(1 to 500) As Double【答案】C【解析】27以下关于循环结构的描述中，正确的是（ ）。A与分支结构不同，循环结构一定会对循环条件进行多次判断。B循环结构中，重复执行的内容有时候一次都不被执行。C在循环结构的流程图中，除了有向下的流程线外还应有向上返回的流程线。D根据实际需要，在流程图中可出现多个循环结构。【答案】BCD【解析】评卷人得分二、操作题28求两个整数的最大公约数分析：求最大公约数的算法思想：（1）对于已知两数m，n，使得mn；（2）m除以n得余数r；（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；（4）mn，nr，再重复执行(2)。例如: 求 m=14 ,n=6 的最大公约数. M n r14 6 26 2 0请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = InputBox(m=)n = InputBox(n=)If m n Then t = m: m = n: n = tr = _Do While (r 0)m = nn = rr = m Mod nLoopPrint 最大公约数=, nEnd Sub【答案】m mod n【解析】评卷人得分三、填空题29有如下Visual Basic程序段：s=0n=1for i=4 to 1 step -1n=n*is=s+anext i问：该程序段运行后，（1）共循环_次。 （2）变量s的值是_。【答案】(1）4 （2） 64【解析】30小贝对街机中的”打手掌”游戏很感谢兴趣，于是也用VB做了个打手游戏，界面如图。点击开始按钮command1，标签label1开始从3秒倒计时，倒计时结束开打，如果打中手掌，label1显示”打中了”,如果超过去3.1秒，则显示”没打中”,游戏结束。点开始按钮可以重来。请根据题意将下列程序补充完整。Dim t As Integer t用来计时Private Sub Command1_click( )Image1.left=64Label1.caption=”t=0Terval=100（1）_Image1.Enabled=FalseEnd subPrivate Sub Image1_click( )Timer1.Enabled=FalseImage1. Enadled=FalseLabel1.caption=”打中了”End SubPrivate Sub Timer1.Timer( )t = t +1if t32 thenlabel1.caption=”没打中”For i=1 to 10 手迅速移开的动画Image1.left=Image1.left-20For j=1 to 10000DoeventsNextjNext iTimer1.Enabled=FalseImage1.Enabled=FalseEnd ifIf t=30 then当t=30时，即倒计时3秒结束，允许开打，对象image1开始允许响应事件（2）_End ifEnd sub【答案】（1）timer1.enabled=true （2）image1.enabled=true 【解析】31用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：a()bubble_sort(False，a()，10)该函数VB代码如下：Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer() Dim i，j，t As Integer For i1 To n1For j_ Step1 If _ ThenIf a(j)a(j1) Then ta(j)：a(j)a(j1)：a(j1)t ElseIf a(j)a(j1) Then ta(j)：a(j)a(j1)：a(j1)t End IfNext j Next i bubble_sorta()End Function请将代码补充完整：_。_。【答案】(1)n to i1 (2)sx 或者sxTrue【解析】32已知出租车计费方法如下：路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：图一在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？_为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：Dim d As SingleDim f As Singled = Val(Text1.Text)If d 3 And d 10 Then 10公里以上计费 End IfText2.Text = Str(f) 请完善以上程序代码，在，处填入正确的语句_完善程序代码后，若输入路程数为10，则应付金额为_元实现该程序所用的算法结构属于_（选择结构/循环结构）【答案】（1）添加一个按钮设置caption属性值为“计算”，将窗体的caption属性值设置为“出租车计费系统”；（2）f=10+(d-3)*2 f=10+14+(d-10)*3；（3）24；（4）选择结构【解析】33某同学编写了VB程序其功能和界面如下所示。在文本框(text1)中输入一段英文，点击“统计删除”按钮，在标签(Label3)中显示该语句中最长的单词(如有多个长度相同的单词则显示靠后的单词)，在标签(Label5)中显示该单词的字符长度，在标签(Label7)中显示删除该单词后的句子。Private Sub Command1_Click()Dim s As Integer，imax As Integer，pimax As Integer，t As IntegerDim source As StringsourceText1.TextsLen(source)imax1pimax1t0For i1 To s d_ If (d“a” And d“z”) Or (d“A” And d“Z”) Then _ ElseIf timax Then imaxt _End Ift0 End IfNext iLabel3.CaptionMid(source，pimax，imax)Label5.CaptionimaxLabel7.Caption_Mid(source，pimaximax，simax)End Sub处程序代码为_。处程序代码为_。处程序代码为_。处程序代码为_。【答案】Mid(source，i，1) tt1 pimaxit Mid(source，1，pimax1)【解析】34求结果（1）输入356，输出结果：Dim x as Integerx=inputbox(“输入x的值”)a=x mod 10b=int(x/10) mod 10c=x100s=a+b+cprint s（2）输入a=1，b=2，输出结果：（3）输出结果：（4）输入8，输出结果：【答案】(1)14 (2)2.5 (3)87856 (4)10 5【解析】35小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示： 实现上述功能的VB程序如下：Private Sub Command1_Click() Dim a(1 To 1000) As String 数组a存储文中出现该指定单词(或字符串)的各个位置Dim s As String, c As String ,ch As String Dim n As Integer, max As Integer, i As Integers = Text1.Text c = Text2.Textn = 0: Max = 0For i = 1 To Len(s) - Len(c) + 1 ch = If ch = c Then n = n + 1 a(n) = i If n = 2 Then 来源:学|科|网Z|X|X|KIf a(n) - a(n - 1) - Len(c) Max Then Max = a(n) - a(n - 1) - Len(c) End If End IfNext iText3.Text = End Sub以上程序段运行时，为了实现上述功能，划线处和应填入的代码分别为： （1）_; （2）_【答案】 (2 分) Mid(s, i, Len(c) (2 分) Str(Max)【解析】36某Visual Basic程序如下：Private Sub Command1_Click()Dim x As Integer, y As Integer ,a As Integer ,b As IntegerX=0 y=0For a=1 To 3 x=x+1 For b=2 to 4 y=y+1 Next bNext aText1.text=str(a)Text2.text=str(b)End Sub单击Command1按钮后，Text1显示 ，Text2显示 。【答案】3（2分）；9（2分）【解析】37【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。程序界面如图所示：实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。定义全局数组变量Dim a(1 To 10) As LongDim b(1 To 10) As String自动加载条形码信息以及对应的商品信息Private Sub Form_Load()Dim i As Integera(1) = For i = 2 To 10a(i) = a(i - 1) + 1Next ib(1) = 可乐 5.00b(2) = 薯片 7.50b(3) = 牛奶 5.60b(4) = 橙汁 7.50b(5) = 面包 4.00b(6) = 蜂蜜 28.00b(7) = 蛋糕 12.00b(8) = 绿箭 3.50b(9) = 饼干 6.00b(10) = 雪碧 5.00End Sub输入条形码，查找条形码，并显示条形码及其对应的商品信息Private Sub Text1_KeyPress(KeyAscii As Integer)Dim txm As Long:Dim i As Integer:Dim j As Integertxm = Val(Text1.Text)If KeyAscii = 13 ThenIf txm = And txm = ThenList1.AddItem txmText1.Text