《高中信息技术VB循环语句浏览题阅览题会考复习题》由会员分享，可在线阅读，更多相关《高中信息技术VB循环语句浏览题阅览题会考复习题（25页珍藏版）》请在金锄头文库上搜索。
1、试卷第 1 页，总 25 页 高中信息技术VB循环语句浏览题阅览题会考复习题 学校 :_姓名： _班级： _考号： _ 评卷人得分 一、选择题 1下列程序运行后的运行结果为。 X=8：Y=X：Z=10 IF X=X THEN PRINT Z END IF END IF A10 8 B8 8 C10 10 D8 10 【答案】 B 【解析】 2数组排序。点击“ 产生随机数 ” 按钮，让计算机随机产生10 个整数，并对这10 个整 数进行标号，再点击“ 排序 ” 按钮，对这10 个整数进行从大到小排序。如图所示。 程序代码如下： Dim a(1 To 10) As Integer Dim i, j
2、, k, kt As Integer 试卷第 2 页，总 25 页 Private Sub Command1_Click() List1.Clear清除列表框数据 For i 1 To 10 Randomize随机数初始化 a(i) Int(Rnd() * 1000) List1.AddItem Str(i) ” ” Str(a(i) Next i Command2.Enabled True激活排序按钮 End Sub Private Sub Command2_Click() For i 1 To 9 k i For j _ _To 10 If a(j) a(k) Then k j Next
3、j If i k Then _ _ End If Next i List2.Clear For i 1 To 10 List2.AddItem Str(i) ” ” Str(a(i) Next i End Sub 请在 、 划线处填入合适的语句或表达式，把程序补充完整： 程序中 划线处应填入_； 程序中 划线处应填入_。 【答案】 I+1 ；t=a （k）:a(k)=a(i):a(i)=t 【解析】 3由 “ For k=35 To 0 Step 3 : Next k ”循环语句控制的循环次数是_。 A、12 B、0 C、-10 D、-11 【答案】 B 试卷第 3 页，总 25 页 【解析】
4、 4Sub test7() For i = 1 To 6 S = S + (-1) i *2 i Next i MsgBox (S) End sub 该程序的运行结果是（） A、126 B、 -126 C、-42 D、42 【答案】 D 【解析】 5Sub test2() a = 12：b = 12：c = 5 Label1.Caption = Label2.Caption = If a b Or Not bc Then Label1.Caption = monday Else Label2.Caption = tiger End If Label3.Caption = Label1.Capt
5、ion+ Label2.Caption End sub 该程序段运行后，在标签Label3 的 Caption属性值是 ( ) A monday B tiger C mondaytiger D 【答案】 A 【解析】 6根据下列程序段运行后a 的值，划线处应该填入的合理数据类型为（） Dim a As _ a = 1 For i = 1 To 8 a = a * i Next i 试卷第 4 页，总 25 页 A、Integer B、Long C、 Single D、Double 【答案】 B 【解析】 7 小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误 信息： Pr
6、ivate Sub Command1_Click() Dim x As String, i As Integer For i = 1 To 10 If i Mod x = 1 Then x = 奇数 Else x = 偶数 Next i End Sub 产生此错误的语句是( )。 AFor BEnd If CNext DIf 【答案】 B 【解析】 8下图是当循环、直到循环两种循环结构，请结合下图选择下列说法中正确的是 ( ) 试卷第 5 页，总 25 页 A当循环是当条件成立退出循环 B当循环不可能出现不执行循环步骤的情况 C直到循环是条件成立时执行循环步骤 D直到循环至少执行一次循环步骤
7、【答案】 D 【解析】 9对以下程序段的说法正确的是（） s=0 i=0 Do While sy m=x-ym=y-x 输出 m 结束 Y N A-5 B-3 C5 D3 【答案】 C 【解析】 12某算法要实现0 到 100 的偶数之和，流程图如图所示。则i?i+2 被执行的次数是 输入 a,b,c ab? ab ac? ac 输出 a 开始 Y Y N N 结束 试卷第 7 页，总 25 页 2 A50 B51 C100 D101 【答案】 B 【解析】 13在某银行取款机上，用户银行卡密码验证的过程如下图所示：当用户输入密码时， 若第 1 次输入错误，第2 次输入才正确，则整个操作过程的
8、执行流程是（） A、 B、 C、 D、 【答案】 C 【解析】 14求两数之和的算法是：输入两数a 和 b 的值，计算c=a+b，输出 c的值。该算法的 基本结构属于( )。 试卷第 8 页，总 25 页 A顺序结构B选择结构C循环结构D框架结构 【答案】 A 【解析】 15 下列 VB程序段的运行结果是： Dim a(1 To 3) As Integer a(1)=1 For i=2 To 3 a(i)=2*a(i-1)+1 Next Print a(i-1) A、0 B、3 C、7 D、15 【答案】 C 【解析】 16有如下程序段： For i = 1 To 2 For j = 2 To
9、 7 - i If a(j) a(j - 1) Then k = a(j): a(j) = a(j - 1): a(j - 1) = k End If Next j Next i 数组元素a(1)到 a(6)的值依次为 “71 ，54，58， 29，31，78” ，经过该程序段“ 加工 ” 后， 下列说法正确的是（） A数组元素a(1)到 a(6)的值依次为54， 29，31，58， 71，78 B.此过程中数据共需比较次数为8 次 C此过程中数据共需交换次数为5 次 D此过程中数据“ 54”共被比较5 次 【答案】 C 【解析】 17某算法的部分流程图如第5 题图所示。执行这部分流程后， “
10、 x x 2”被执行的次 数为 试卷第 9 页，总 25 页 A0 B1 C 2 D3 【答案】 C 【解析】 18有如下VB 程序，它的输出结果是 S=0 For i=1 To 10 If i mod 2=0 Then S=S+i Next i Print “ S=” ;S AS=0 BS=25 CS=30 DS=55 【答案】 C 【解析】 19下列 VB 程序段运行完毕后，变量x 的值为 x=2 : y=64 Do while x= Sqr(y) x=x+3 Loop A 2 B 5 C 8 D 11 【答案】 D 【解析】 20某算法流程图如图所示，执行该算法后，“ s s+i ”共被
11、执行的次数是（） 试卷第 10 页，总 25 页 A0 B6 C7 D 8 【答案】 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 123456 Then Y
12、 N 开始 in； （ 2）m 除以 n 得余数 r； （ 3）若 r=0，则 n 为求得的最大公约数，算法结束；否则执行(4)； （ 4）m n，nr ，再重复执行(2)。 例如 : 求 m=14 ,n=6 的最大公约数. M n r 14 6 2 6 2 0 请根据以上思路补充下面的程序代码： Private Sub Command1_Click() m = InputBox(m=) n = InputBox(n=) If m n Then t = m: m = n: n = t r = _ Do While (r 0) m = n n = r r = m Mod n Loop Print
13、 最大公约数 =, n End Sub 试卷第 14 页，总 25 页 【答案】 m mod n 【解析】 评卷人得分 三、填空题 29有如下Visual Basic程序段： s=0 n=1 for i=4 to 1 step -1 n=n*i s=s+a next i 问：该程序段运行后， （ 1）共循环 _次。 （ 2）变量 s的值是 _。 【答案】 (1 ）4 （2） 64 【解析】 30小贝对街机中的” 打手掌 ” 游戏很感谢兴趣，于是也用VB 做了个打手游戏，界面如 图。点击开始按钮command1，标签 label1 开始从 3 秒倒计时，倒计时结束开打，如果 打中手掌， labe
14、l1 显示 ” 打中了 ”,如果超过去3.1 秒，则显示 ” 没打中 ”,游戏结束。点开始 按钮可以重来。请根据题意将下列程序补充完整。 Dim t As Integer t用来计时 Private Sub Command1_click( ) Image1.left=64 试卷第 15 页，总 25 页 Label1.caption=” t=0 Timer1.interval=100 （ 1）_ Image1.Enabled=False End sub Private Sub Image1_click( ) Timer1.Enabled=False Image1. Enadled=False
15、Label1.caption=”打中了 ” End Sub Private Sub Timer1.Timer( ) t = t +1 if t32 then label1.caption=”没打中 ” For i=1 to 10 手迅速移开的动画 Image1.left=Image1.left-20 For j=1 to 10000 Doevents Nextj Next i Timer1.Enabled=False Image1.Enabled=False End if If t=30 then 当 t=30 时，即倒计时3 秒结束，允许开打，对象image1 开始允许响应事件 （ 2）_ End if End sub 【答案】 （ 1）timer1.enabled=true 试卷第 16 页，总 25 页 （ 2）image1.enabled=true 【解析】 31用 VB 编写的函数bubble_sort 是一个用冒泡方法实现排序的函数，其调用时需要 三个参数： 布尔类型参数sx来确定是升序还是降序，sx为 True 时为升序， 否则为降序； 整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n 表示传入的数组 长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便： 比如有一个整数型数组a(1 to 10
