第9节 循环结构算法实现—For语句
知识点
目标
考试要求
算法的程序实现
①循环语句
②解析算法、枚举算法等常见算法的实现
c
必考＋加试
1.循环结构又称为重复结构。当条件成立的时候，执行循环体的代码，当条件不成立的时候，跳出循环，执行循环结构后面的代码。
For语句 For 循环变量＝初值 To 终值 Step 步长
语句块
Next 循环变量
2.如果在循环过程中要退出循环，For循环用Exit__For__语句来实现，也可以用循环变量＝终值来实现。
3.在循环结构中包含一个分支结构，根据题目的条件逐个进行判断，该算法的基本思想是枚举算法。要点有三个，一是确定枚举的范围，二是筛选解(条件判断)，三是统计解的个数或者具体内容。
一、用于循环次数确定的类型
用于固定次数的重复操作时，往往用For循环，此时变量起到计数或表示在某个位置的作用。
【例1】 模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和，如果是偶数表示甲赢了，奇数表示乙赢了。在文本框Text1中输入总次数n，单击“计算”按钮Command1，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框List1中输出游戏过程。程序运行界面如下图所示：
程序代码如下所示，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer，b As Integer，n As Integer
Dim j As Integer，k As Integer，i As Integer
Randomize
k＝0：j＝0
n＝Val(Text1.Text)
For i＝____①____
a＝Int(Rnd()*6＋1)
b＝Int(Rnd()*6＋1)
If ____②____ Then
List1.AddItem Str(i)＋”甲赢了！”
____③____
Else
List1.AddItem Str(i)＋”乙赢了！”
____④____
End If
Text2.Text＝Str(k)
Text3.Text＝Str(j)
Next i
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
④________________________________________________________________
解析 本题考核的知识点是对于For结构循环及选择结构的理解。程序设计填空题在解题时，先要理解各个变量的含义，变量的含义往往从输入输出语句并结合题中所给图示来理解。从输入输出看变量含义，n表示掷骰子次数，k表示甲赢的次数，j表示乙赢的次数。因此①表示循环的范围，②表示条件成立的条件，两人的点数和为偶数，③和④所填内容和下面没有赋值过的变量有关。
答案 ①1 To n ②(a＋b)mod 2＝0 ③ k＝k＋1 ④j＝j＋1
[方法总结] 记住解程序题的三条步骤，一是理解变量的含义，先从输入输出语句来看变量的含义；二是理解各个基本结构的作用，特别是某个选择结构和循环结构；三是程序所填内容往往下面没有赋值过的变量有关。
【变式训练】 模拟划拳游戏规则如下：随机产生两个[0，5]之间的整数，表示路人甲和路人乙出拳的数字，再产生两个随机数，表示他们报的数。若一方报数为双方出拳数之和，则表示他赢了，积2分；若双方报数均为出拳之和，则表示他们平了，各积1分；若双方均不正确，不计局数。在文本框Text1中输入比试的局数，单击“开始”按钮Command1，在列表框List1中显示路人甲的情况，在列表框List2中显示路人乙的情况，在文本框Text2、Text3中分别显示他们的得分。程序运行界面如下图所示：
程序代码如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim i As Integer，jc As Integer，jb As Integer，jd As Integer
Dim yc As Integer，yb As Integer，yd As Integer，n As Integer
Randomize：List1.Clear：List2.Clear
n＝Val(Text1.Text)
For i＝____①____
jc＝Int(Rnd()*6)
yc＝Int(Rnd()*6)
jb＝Int(Rnd()*6)＋jc
yb＝Int(Rnd()*6)＋yc
If ____②____Then
List1.AddItem Str(jc)＋” ”＋Str(jb)＋” ”＋”平”
List2.AddItem Str(yc)＋” ”＋Str(yb)＋” ”＋”平”
jd＝jd＋1
yd＝yd＋1
ElseIf jb＝yc＋jc Then
List1.AddItem Str(jc)＋” ”＋Str(jb)＋” ”＋”胜”
List2.AddItem Str(yc)＋” ”＋Str(yb)＋” ”＋”负”
____③____
ElseIf yb＝yc＋jc Then
List1.AddItem Str(jc)＋” ”＋Str(jb)＋” ”＋”负”
List2.AddItem Str(yc)＋” ”＋Str(yb)＋” ”＋”胜”
____④____
Else
i＝i－1
End If
Next i
Text2.Text＝Str(jd)
Text3.Text＝Str(yd)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
④_________________________________________________________________
解析 本题考核的知识点是对于For结构循环及选择结构的理解。输入输出理解变量含义，n输入的次数，jd路人甲得分，yd路人乙得分。 第1空表示循环的次数，第2空表示他们平局的条件，3、4空所填内容和下面没有赋值的变量有关，显示路人甲、乙赢了，各得2分。
答案 ①1 To n ②yb＝yc＋jc And jb＝yc＋jc ③jd＝jd＋2 ④yd＝yd＋2
二、循环范围确定的类型
某个范围内的数进行遍历情况。循环变量代表具体的某个数字，如在求水仙数、玫瑰花数时，循环变量表示从最小的三位数、四位数，到最大的三位数、四位数。
【例2】 完全数。如果一个数所有的真因子(即除了自身以外的约数)的和等于它本身，则称该数为“完全数”。 在文本框Text1中输入一个数，单击“判断”按钮Command1，在文本框Text2中输出结论。程序界面如下图所示：
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n＝Val(Text1.Text)
s＝0
For i＝1 To ____①____
If ____②____ Then
s＝s＋i
List1.AddItem Str(i)
End If
Next i
If ____③____ Then Text2.Text＝”是的” Else Text2.Text＝”不是
End Sub
划线处代码为①____________________________________________________
②_________________________________________________________________
③_________________________________________________________________
解析 本题考核的知识点是对于For结构循环及选择结构的理解。理解变量含义，n输入的整数，s＝s＋i，真因子的和；循环的条件是判断除了本身以外的数是否是真因子，终值为n－1。抓住真因子的条件和完全数的条件，是解题的关键。
答案 ①n－1 ②n Mod i＝0 ③s＝n
[方法总结] 在上一节中，练习了选择结构的条件，以及各种表达式，在程序填空时，往往要体现这部分内容。因此打好函数表达式及理解选择结构功能对解答本题是有很大帮助。
【变式训练】 单击“开始”按钮Command1，在列表框List1中输出这样的有趣的四位数，他能被他的前两位整除，能被中间的两位数整除，还能被最后的两位数整除，在文本框Text1中输出总的个数。程序运行界面如下：
程序代码如下，请把空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，a As Integer
Dim b As Integer，c As Integer，n As Integer
n＝0
For i＝1000 To 9999
a＝____①____
b＝(i '10) Mod 100
c＝i Mod 100
If b<>0 And c<>0 Then
If ____②____Then
List1.AddItem Str(i)
____③____
End If
End If
Next i
Text1.Text＝Str(n)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
解析 本题考核的知识点是对于For结构循环及选择结构的理解。理解变量含义，n出的个数，b中间两位数，c后面两位数，s＝s＋i，抓住题目中条件，均可以整除。往下找没有出现的变量，n表示符合条件的个数，数量增加一个。
答案 ①i100或Int(i/100) ②i Mod a＝0 And i Mod b＝0 And i Mod c＝0 ③n＝n＋1
三、对于字符串的遍历
1.对于文本有查找、删除、替换和插入的操作，查找是各种操作的基础，只有找到这个字符，才可以删除，才可以替换为其他字符，只有找到位置，才可以插入新的字符。
2.字符查找最通常的做法是，从字符串的第1个位置开始，取出单个字符或从该位置开始的多个字符，与其他字符进行对比，接着是第2个位置，第3个位置……直到最后一个位置。
3.循环变量i含义是字符串的位置。有两个函数是经常用到的，Len函数，决定了循环的次数，Mid函数，从字符串取出1个或多个字符。
【例3】 在文本框Text1中输入两个正整数和一个运算符的计算表达式，单击“运算”按钮Command1，在文本框Text2中输出计算结果。程序运行界面如下：
程序代码如下，请把空白处填写完整。
Private Sub Command1_Click()
Dim y As Integer，i As Integer，t As Integer
Dim s As String，ch As String，ysf As String
s＝Text1.Text
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝”0” And ch<＝”9” Then
____①____
Else
ysf＝ch
y＝t
t＝____②____
End If
Next i
If ysf＝”＋” Then
y＝y＋t
ElseIf ysf＝”－” Then
y＝y－t
ElseIf ysf＝”*” Then
y＝y*t
ElseIf ysf＝”/” Then
If t＝0 Then Text2.Text＝”” Else y＝y/t
End If
If t<>0 Then Text2.Text＝Str(y)
End Sub
划线处代码为①___________________________________________________
②________________________________________________________________
解析 本题考核的知识点是用循环结构处理字符的方法。本题最大难度是从文本中分离出一个多位整数的方法。从输入输出看，s是输入的表达式，y是输出的结果。If ch>＝”0” And ch<＝”9” Then语句，多次取出字符，如果取出连续的0－9之间数字，说明这个整数还没有结束，反之，表示整数已经结束，取出的是操作符。①处所填内容跟t有关，理由是从①片下找，发现变量t没有被赋值过。从语句y＝y＋t来推断，t是就是字符串中第1个整数。用表格表示程序在运行过程中的值。
i
ch
t
S1另一种方法中变量
1
”2”
2
”2”
2
”5”
25
”25”
3
”0”
250
”250”
4
”*”
0
””
5
”4”
4
”4”
从表是可以看出随着ch的变化，变量t的变化规律：2→25→250→0→4。如果取出的字符不是0～9之间的数字，则表示当前是运算符，该整数结束了，变量t将存储下一个整数的值，因此要初始化为0。这是从算术运算上来获取整个整数部分，也可以从字符连接来获得整数部分。观察上表，随着ch的变化，变量t的变化规律：“2”→“25”→“250”→ “”→“4”。把每次的ch连接起来，当读取的字符不是数字时，表示该整数已经结束，把取得的字符串转换成数字，同时把s1清空，以便存储下一个整数的值。部分代码如下所示：
s1＝””
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝”0” And ch<＝”9” Then
s1＝s1＋ch
Else
ysf＝ch
y＝Val(s1)
s1＝””
End If
Next i
t＝Val(s1)
答案 ①t＝t*10＋Val(ch) ②0
[方法总结] 在字符串中不全是数字时，要掌握把其中部分数字字符转换为一个整数的方法和技巧。在程序运行过程中，先从输入输出来理解变量的含义，从选择结构来看实现的功能，可以借助表格来推断各个变量的关系。
【变式训练】 在文本框Text1中输入一段只包含大小字母的英语短文，且每个单词以一个空格或一个标点分隔，点击“统计”按钮Command1，在文本框Text2中输出单词的数量，在文本框Text3中输出单词的最大长度。
程序代码如下，请将程序空白处填写完整。
Private Sub Command1_Click()
Dim s As String，ch As String，i As Integer
Dim t As Integer，max As Integer，n As Integer
s＝Text1.Text
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ____①____ Then
t＝t＋1
Else
____②____
If max t＝0
End If
Next i
Text2.Text＝Str(n)
Text3.Text＝Str(max)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
答案 ①Asc(ch)>64 And Asc(ch)<91 Or Asc(ch)>96 And Asc(ch)<123或ch>＝”a” And ch<＝”z” or ch>＝”A” And ch<＝”Z” ②n＝n＋1
1.模拟石头剪刀布游戏。规则如下：随机产生两个1至3之间的整数，分别表示路人甲和路人乙出石头、剪刀和布，如果赢了得2分，平了得1分。在文本框Text1中输入比试的局数，单击“开始”按钮Command1，在列表框List1中显示路人甲和路人乙的情况，在文本框Text2、Text3中分别显示他们的得分。程序界面如下：
程序代码如下，请将程序空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，jc As Integer，jm As String，jd As Integer
Dim yc As Integer，ym As String，yd As Integer，n As Integer
Randomize：List1.Clear
____①____
For i＝1 To n
jc＝Int(Rnd()*3)＋1
If jc＝1 Then
jm＝”石头”
ElseIf jc＝2 Then
jm＝”剪刀”
Else
jm＝”布”
End If
yc＝Int(Rnd()*3)＋1
If yc＝1 Then
ym＝”石头”
ElseIf yc＝2 Then
ym＝”剪刀”
Else
ym＝”布”
End If
If jc－yc＝－1 Or jc－yc＝2 Or yc－jc＝1 Then
____②____
List1.AddItem jm＋” ”＋ym＋” ”＋”路人甲赢”
ElseIf yc－jc＝－1 Or yc－jc＝2 Or jc－yc＝1 Then
____③____
List1.AddItem jm＋” ”＋ym＋” ”＋”路人乙赢”
Else
jd＝jd＋1
yd＝yd＋1
List1.AddItem jm＋” ”＋ym＋” ”＋”平了”
End If
Next i
Text2.Text＝Str(jd)
Text3.Text＝Str(yd)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 在语句For i＝1 To n前，未对n赋值；理解变量的含义，jd表示路人甲得分，yd表示路人乙得分，可以得到答案。
答案 ①n＝Val(Text1.Text) ②jd＝jd＋2 ③yd＝yd＋2
2.公元1900年是鼠年，以后每12年一个轮回，在文本框Text1中输入一个年份，单击“开始”按钮Command1，在列表框List1中输出该年及该年以后共12个年份的属相。程序运行的界面如图所示：
程序代码如下，请把空白处填空完整。
Private Sub Command1_Click()
Dim y As Integer，t As Integer，sx As String
sx＝”鼠牛虎兔龙蛇马羊猴鸡狗猪”
y＝Val(Text1.Text)
For i＝____①____
t＝____②____
List1.AddItem Str(i)＋”年的属相是”＋____③____
Next i
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 理解变量的含义，y是输入年份，从图中及语句在语句List1.AddItem Str(i)＋”年的属相是”，可以看出i表示具体哪些年份，该年以后共12个年份表达是该年及这年后面11年。年份与1900的差值的余数，表示在生肖中位置，但余数的值和位置的值差1。
答案 ①y To y＋11 ②(y－1900) Mod 12 ③Mid(sx，t＋1，1)
3.在文本框Text1中输入摄氏温度，单击“转换”按钮Command1，在文本框Text2中输出转换后的华氏温度，在列表框List1中每隔0.5度输出该温度上下2度对应的华氏温度，程序运行界面如下。
程序代码如下，请把空白处填空完整。
Private Sub Command1_Click()
Dim t As Single，i As Single，c As Integer
t＝Val(Text1.Text)
c＝32＋t*1.8
Text2.Text＝Str(c)
List1.AddItem ”摄氏温度”＋” ”＋”华氐温度”
For i＝t－2 To ____①____
c＝32＋i*1.8
List1.AddItem ____②____＋” ”＋____③____
Next i
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 变量含义：t表示输入的摄氏温度，c输出的华氏温度。对题中及图示中可以看出循环的范围是输入温度上下2度。注意字符串的连接格式，要把数字转换成字符。
答案 ①t＋2 ②Str(i) ③Str(c)
4.在文本框Text1中输入一个二进制数，单击“转换”按钮Command1，在文本框Text2中显示该二进制数对应的十进制数，若二进制数中存在不是0和1的数，则输出”非法的二进制数！”，程序运行时界面如下：
程序代码如下，请在空白处补充完整。
Private Sub Command1_Click()
Dim s As String，t As Integer，i As Integer
Dim ch As String，flag As Boolean，j As Integer
s＝Text1.Text
flag＝True
j＝0
For i＝Len(s) To 1 Step－1
ch＝Mid(s，i，1)
If ch＝”1” Or ch＝”0” Then
____①____
j＝j＋1
Else
____②____
Exit For
End If
Next i
If flag＝True Then
Text2.Text＝Str(t)
Else
Text2.Text＝”非法的二进制数！”
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 理解变量的含义。S输入的二进制数，t是转换后的十进制数，ch是从低位向高位分解的字符，j从0、1、2、3……的变化规律，flag是否是二进制数的标志。
答案 ①t＝t＋Val(ch)*2^j ②flag＝False
5.判断是否是回文。一个字符串，从左到右读和从右到左读是完全一样的。在文本框Text1中输入文字，单击“检测”按钮Command1，在文本框Text2中输出结论，程序运行时界面如下：
程序代码如下，请在空白处补充完整。
Private Sub Command1_Click()
Dim s As String，j As Integer，i As Integer，flag As Boolean
s＝Text1.Text
flag＝True
For i＝1 To Len(s) 2
____①____
If Mid(s，i，1)<>Mid(s，j，1) Then
flag＝False
Exit For
End If
Next i
If ____②____ Then Text2.Text＝”是的” Else Text2.Text＝”不是”
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
解析 理解变量的含义：s输入的文本，flag是否是回文的标志，i表示分解字符的位置，从第1个位置到中间，从判断的条件Mid(s，i，1)<>Mid(s，j，1)来看，j应该是与i对应的回文位置。列出表格，找出i和j的关系。
i
j
1
Len(s)
2
Len(s)－1
3
Len(s)－2
……
……
发现i与j的和是一个定值Len(s)＋1，即i＋j＝Len(s)＋1，那么j＝Len(s)－i＋1
答案 ①j＝Len(s)－i＋1 ②flag＝True
6.在文本框Text1中输入一个二进制数，单击“换算”按钮Command1，在标签Lable2中显示换算结果。程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String，n As Integer，i As Integer，ch As String
____①____
For i＝1 To Len(s)
ch＝Mid(s，i，1)
____②____
Next i
Label2.Caption＝”二进制数”＋s＋”转换为十进制的值为”＋Str(n)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
答案 ①s＝Text1.Text ②n＝n*2＋Val(ch)
7.用电脑随机产生两位数以内的加减乘除运算的算式，要求结果不能出现负数。在文本框Text1中输入题量，单击“生成”按钮Command1，在列表框List1中显示结果。程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Integer，a As Integer，b As Integer
Dim ch As String，s As String，i As Integer
s＝”＋－*/”
n＝Val(Text1.Text)
List1.Clear
For i＝1 To n
a＝Int(Rnd()*100)
b＝Int(Rnd()*100)
____①____
If c＝2 And ai＝i－1
ElseIf c＝4 And____②____
i＝i－1
Else
____③____
List1.AddItem”(”＋Str(i)＋”)”＋Str(a)＋ch＋Str(b)＋”＝”
End If
Next i
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③________________________________________________________________
答案 ①c＝Int(Rnd()*4＋1) ②b＝0 Then ③ch＝Mid(s，c，1)
8.现有5种奖品分别用“ABCDE”表示，22位顾客分别用“甲乙丙丁戊己庚辛壬癸子丑寅卯辰巳午未申酉戌亥”表示。在文本框Text1中输入中奖名额，单击“抽奖”按钮Command1，将每位中奖顾客姓名及随机抽取的奖品(假设奖品的数量足够多)显示在列表框List1中。程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String，s2 As String
Dim c1 As String，c2 As String
Dim i As Integer，n As Integer
List1.Clear
s1＝”甲乙丙丁戊己庚辛壬癸子丑寅卯辰巳午未申酉戌亥”
s2＝”ABCDE”
n＝Val(Text1.Text)
For i＝1 To n
a＝Int(Rnd()*22＋1)
b＝____①____
c1＝Mid(s1，a，1)
____②____
List1.AddItem”顾客”＋c1＋”所中奖品为：”＋c2
Next i
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
答案 ①Int(Rnd()*5＋1) ②c2＝Mid(s2，b，1)
1.有一数列：1、2、5、4、9、8、13、16…，奇数项是等差数列，偶数项是等比数列，在文本框Text1中输入项数，单击“计算”按钮Command1，分别在列表框List1、List2中显示奇数项和偶数项的值，在文本框Text2中显示所有项之和。程序运行界面如下图所示。
程序代码如下，请在空白处补充完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer，sum As Long
Dim a As Integer，b As Long
n＝Val(Text1.Text)
a＝1
b＝2
sum＝____①____
For i＝1 To n
If ____②____Then
List1.AddItem Str(a)
sum＝sum＋a
____③____
Else
List2.AddItem Str(b)
sum＝sum＋b
b＝b*2
End If
Next i
Text2.Text＝Str(sum)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
解析 本题考核的知识点是用For结构循环来控制确定的循环次数。从输出语句来看，变量s是前20项的和，s的初值为2，表示前两项和。根据题目意思，从第3项开始有规律，并且计算到第20项。从第二空向下找，确定与变量s有关，累加求和。
答案 ①0 ②i Mod 2＝1 ③a＝a＋4
2.编写一个“模拟抛硬币”程序，实现如下功能：在文本框Text1中输入抛投次数n，单击“开始”按钮，随机产生n个0或1，分别表示硬币的正面和反面，在列表框List1中显示正、反面的次数。程序运行界面如下图所示。
程序代码如下，请在空白处补充完整。
Private Sub Cmd1_Click()
Dim n As Integer，x1 As Integer，x2 As Integer
Dim i As Integer，t As Integer
n＝Val(Text1.Text)
Randomize ′随机函数初始化
x1＝0 ：x2＝0
For i＝____①____
____②____
If t＝0 Then
x1＝x1＋1
Else
x2＝x2＋1
End If
Loop
List1.AddItem ”正面：”＋Str(x1)＋”次”
List1.AddItem ”反面：”＋Str(x2)＋”次”
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 循环的次数是确定的。理解变量的含义，n是次数，t是每次产生的正面或反面的值，x1表示正面的次数，x2表示反面的次数。
答案 ①1 To n ②t＝Int(Rnd()*2)或 t＝Int(Rnd()＋0.5)
3.单击“查找”按钮Command1，在列表框List1中输出第1位数字是2，第5位数字是5，数字长度为5的完全平方数，并在文本框Text1中输出这些数的个数。程序运行的界面如下图所示：
程序代码如下，请在空白处补充完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n＝0
For i＝20000 To 29999
If ____①____ And ____②____ Then
List1.AddItem ____③____
____④____
End If
Next i
Text1.Text＝Str(n)
End Sub
划线处代码为①___________________________________________________
②________________________________________________________________
③________________________________________________________________
④________________________________________________________________
解析 i表示要查找的5位数，其中循环的范围中，最高位为2，已经满足第1位是2的条件。再找出最后一位是5的完全平方数即可。变量n是找出符合条件的个数。
答案 ①i Mod 10＝5 ②Sqr(i)＝Int(Sqr(i)) ③Str(i) ④n＝n＋1
4.某条形码共有13 位数字组成，其中第13位数字表示校验码。校验码的计算方法：先计算前12 位数字中偶数位数字和奇数位数字之和，再把偶数位和乘以3与奇数位和相加，再对相加之和求余数，得到校验码值。在文本框Text1中输入条形码，单击“校验”按钮Command1，在标签Label1中输出结论。程序代码如下所示，请补充完整。
Private Sub Command1_Click()
Dim s As String，x As String
Dim js As Integer，os As Integer，jy As Integer
s＝Text1.Text
n＝Len(s)
If n<>13 Then
Label1.Caption＝”条形码位数错误”
Else
For i＝____①____
____②____
If ____③____ Then js＝js＋x Else os＝os＋x
Next i
jy＝os*3＋js
jy＝jy Mod 10
If ____④____ Then
yz＝”验证码正确”
Else
yz＝”验证码错误”
End If
Label1.Caption＝yz
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
④_______________________________________________________________
解析 程序设计填空题在解题时，先要理解各个变量的含义。从输入语句来看，s表示输入的条形码，n是条形的长度，对条形的前12位进行计算，因此循环的范围是前12位，x是每一位上的数字，但要注意类型。题目中描述，偶数位和乘以3与奇数位和相加，因此js表示奇数位和，注意是奇数位而不是取出的数字是否为奇数。计算的结果和第13位相比较，再输出结论。
答案 ①1 To n－1 ②x＝Val(Mid(id，i，1))
③i Mod 2＝1 ④jy＝Val(Mid(s，13，1))
5.在文本框Text1中输入一个字符串s，在文本框Text2中输入一个要删除的字符串c1，单击“删除”按钮Command1，在文本框Text3中显示一轮删除后字符串。
Private Sub Command1_Click()
Dim s As String，ch As String，c1 As String
Dim i As Integer，n As Integer，s1 As String，newch As String
s＝Text1.Text
c1＝Text2.Text
Lc1＝len(c1)
For i＝1 To Len(s)－Lc1＋1
____①____
If s1＝c1 Then
i＝i＋Lc1－1
Else
____②____
End If
Next i
Text3.Text＝newch
End Sub
划线处代码为①__________________________________________________
②_______________________________________________________________
解析 变量的含义：s是输入的字符串，c1是要删除的字符串，newch是删除后的字符串，i表示每次取出与c1长度相同字符串的起始位置，s1表示字符串从第i个位置取出与c1长度相同的字符串。从选择结构来看，如果找到了，下次要找的位置跳到当前位置再加上要删除子串长度的位置。没有找到，把当前位置的字符联接起来作为新的字符串。也可以用表格的形式列出变量的变化情况。
i
S1
Newch
1
”Tom”
”T”
2
”omc”
”To”
3
”mca”
”Tom”
4
”cat”
”Tom”
7
”是一只”
”Tom是”
……
……
……
答案 ①s1＝Mid(s，i，Lec1) ②newch＝newch＋Mid(s，i，1)
6.小明编写了一个模拟发红包的VB程序：在文本框cash中输入要发放的红包总金额，在文本框number中输入红包个数，单击“计算”按钮send，在列表框list1中输出每个随机分配的红包金额，在文本框Text3中显示最高红包金额。运行界面如图所示。
请回答下列问题：
(1)代码“Private Sub Send_Click()”中的Send_Click 是________。(填字母：A.属性名/B.对象名/C.事件名/D.事件处理过程名)
(2)实现上述功能的程序代码如下，请在划线处填入合适的代码。
Private Sub Send_Click()
Dim s As Single，Max As Single，x As Single
Dim n As Integer，i As Integer ′变量n存放红包个数
Randomize
List1.Clear
s＝Val(cash.Text)
n＝____①____
Max＝0
For i＝1 Ton－1
x＝Int(Rnd()*100*i*s/n)/100
If x>Max Then Max＝x
If x＝0 Then
i＝i－1
Else
List1.AddItem”红包”＋Str(i)＋”：”＋Str(x)
____②____
End If
Next i
x＝s′计算最后一个红包
If x>Max Then Max＝x
List1.AddItem”红包”＋Str(i)＋”：”＋Str(x)
Text3.Text＝Str(Max)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
(3)红包发放过程中，________(会/不会)产生金额为0的红包
解析 Click指鼠标单击的事件，Send_Click指按钮Send的单击事件，因此是事件处理的过程名。n表示在文本框number中输入红包个数，x指每次产生的红包金额，当x＝0时，i＝i－1重新产生红包，否则金额将减去产生的红包金额。
答案 (1)D (2)①Val(number.Text) ②s＝s－x (3)不会
7.用VB编写求句子中最长单词的程序。输入要求：句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1，将结果显示在文本框Text2和Text3中。
(1)结合图的运行界面，当前窗体中共使用了________类对象(填数字)，窗体标题文字“统计句子中最长的单词”是From1对象的________属性。
(2)根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i As Integer，k As Integer
Dim s As String，ch As String
Dim max As Integer ′存储句子中最长单词的长度
Dim ss As String ′存储句子中最长的单词
s＝Text1.Text
i＝1：k＝0：max＝0
ch＝””
Do While ch<>”.”Or i<＝Len(s)
ch＝Mid(s，i，1)
If ch<>” ”And ch<>”.”Then
____①____
Else
k＝0
End If
If____②____ Then
max＝k
ss＝____③____
End If
i＝i＋1
Loop
Text2.Text＝ss
Text3.Text＝Str(max)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③_______________________________________________________________
答案 (1)3 Caption (2)①k＝k＋1 ②k>Max ③Mid(s，i－k＋1，k)
8.5421BCD码是用4位二进制数表示1位十进制数的代码，从左到右的位权分别是5、4、2、1，即用该二进制代码的第1至第4位分别乘以相应的位权并相加，得到的数为转换后的十进制数。在文本框Text1中输入BCD码，单击“转换”按钮Command1后，在文本框Text2输出相应的十进制数。程序运行界面如图所示：
(1)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim bcd As String，s As String，t As Integer，i As Integer，n As Integer
bcd＝Text1.Text
If Len(bcd)Mod 4<>0 Then Text2.Text＝”输入的BCD码不正确”：Exit Sub
n＝0
For i＝1 To Len(bcd)
ch＝Mid(bcd，i，1)
____①____
If t＝1 Then
n＝Val(ch)*5
ElseIf t＝2 Then
n＝n＋Val(ch)*4
ElseIf t＝3 Then
n＝n＋Val(ch)*2
Else
n＝n＋Val(ch)
s＝s＋Str(n)
n＝____②____
End If
Next i
Text2.Text＝____③____
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
(2)若在文本框Text1中输入“00101”，则在文本框Text2中输出的内容是________。
答案 (1)①t＝i Mod 4 ②0 ③s (2)输入的BCD码不正确
9.对英文字母进行加密的规则：用26个互不重复的ASCII字符作为密钥，字母“A”用密钥中第1个字符代替，字母“B”用密钥中第2个字符代替，其他字母用类似方法进行加密。现编写一个验证密钥合法性的程序。在文本框Text1中输入密钥，单击“验证”按钮Command1，在文本框Text2中输出相应的信息。运行界面如下图所示。
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer，ch As String，s As String，j As Integer
Dim ch1 As String，falg As Boolean
s＝Text1.Text
If____①____Then Text2.Text＝”密钥长度不足26个字符！”
flag＝True
For i＝1 To 26
ch＝Mid(s，i，1)
For j＝1 To i
____②____
If ch＝ch1 Then flag＝False
Next j
Next i
If____③____ Then
Text2.Text＝”密钥正确！”
Else
Text2.Text＝”密钥中有重复字符！”
End If
End Sub
(1)实现验证功能事件的过程名称是________。
(2)划线处代码为①_________________________________________________
②________________________________________________________________
③________________________________________________________________
答案 (1)Command1_Click (2)①Len(s)<26 ②ch1＝Mid(s，j，1) ③flag
10.两个数的平方和等于另外一个数的平方，把这三个数称为一组勾股数。编写一个VB程序，单击“运行”按钮Command1，在列表框List1中显示100以内的整数勾股数对，在文本框Text1中显示总共的组数。程序运行的界面如下图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer，j As Integer，sum As Long
Dim k As Single，n As Integer
n＝0
For i＝1 To 100
For j＝i To 100
sum＝____①____
k＝Sqr(sum)
If____②____And k<100 Then
n＝____③____
List1.AddItem Str(i)＋”*”＋Str(i)＋”＋”＋Str(j)＋”*”＋Str(j)＋”＝”＋Str(k)＋”*”＋Str(k)
End If
Next j
Next i
Text1.Text＝Str(n)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
答案 ① i*i＋j*j ②k＝lnt(k) ③n＋1
课件36张PPT。第9节 循环结构算法实现—For语句1.__________又称为重复结构。当__________的时候，执行循环体的代码，当条件不成立的时候，跳出循环，执行循环结构后面的代码。
For语句 For 循环变量＝_____ To _____ Step _____
语句块
Next __________循环结构条件成立初值步长终值循环变量2.如果在循环过程中要退出循环，For循环用__________语句来实现，也可以用循环变量＝终值来实现。
3.在循环结构中包含一个_____结构，根据题目的条件逐个进行判断，该算法的基本思想是枚举算法。要点有三个，一是确定枚举的_____，二是筛选解(条件判断)，三是统计解的_____或者具体内容。Exit For分支范围个数一、用于循环次数确定的类型
用于固定次数的重复操作时，往往用For循环，此时变量起到计数或表示在某个位置的作用。【例1】 模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和，如果是偶数表示甲赢了，奇数表示乙赢了。在文本框Text1中输入总次数n，单击“计算”按钮Command1，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框List1中输出游戏过程。程序运行界面如下图所示：程序代码如下所示，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer，b As Integer，n As Integer
Dim j As Integer，k As Integer，i As Integer
Randomize
k＝0：j＝0
n＝Val(Text1.Text)
For i＝ ①
a＝Int(Rnd()*6＋1)
b＝Int(Rnd()*6＋1)
If ② Then List1.AddItem Str(i)＋”甲赢了！”
③
Else
List1.AddItem Str(i)＋”乙赢了！”
④
End If
Text2.Text＝Str(k)
Text3.Text＝Str(j)
Next i
End Sub
划线处代码为①______________________________________
②__________________________________________________
③__________________________________________________
④__________________________________________________解析 本题考核的知识点是对于For结构循环及选择结构的理解。程序设计填空题在解题时，先要理解各个变量的含义，变量的含义往往从输入输出语句并结合题中所给图示来理解。从输入输出看变量含义，n表示掷骰子次数，k表示甲赢的次数，j表示乙赢的次数。因此①表示循环的范围，②表示条件成立的条件，两人的点数和为偶数，③和④所填内容和下面没有赋值过的变量有关。
答案 ①1 To n ②(a＋b)mod 2＝0 ③ k＝k＋1 ④j＝j＋1[方法总结] 记住解程序题的三条步骤，一是理解变量的含义，先从输入输出语句来看变量的含义；二是理解各个基本结构的作用，特别是某个选择结构和循环结构；三是程序所填内容往往下面没有赋值过的变量有关。【变式训练】 模拟划拳游戏规则如下：随机产生两个[0，5]之间的整数，表示路人甲和路人乙出拳的数字，再产生两个随机数，表示他们报的数。若一方报数为双方出拳数之和，则表示他赢了，积2分；若双方报数均为出拳之和，则表示他们平了，各积1分；若双方均不正确，不计局数。在文本框Text1中输入比试的局数，单击“开始”按钮Command1，在列表框List1中显示路人甲的情况，在列表框List2中显示路人乙的情况，在文本框Text2、Text3中分别显示他们的得分。程序运行界面如下图所示：程序代码如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim i As Integer，jc As Integer，jb As Integer，jd As Integer
Dim yc As Integer，yb As Integer，yd As Integer，n As Integer
Randomize：List1.Clear：List2.Clear n＝Val(Text1.Text)
For i＝ ①
jc＝Int(Rnd()*6)
yc＝Int(Rnd()*6)
jb＝Int(Rnd()*6)＋jc
yb＝Int(Rnd()*6)＋yc
If ② Then
List1.AddItem Str(jc)＋" "＋Str(jb)＋" "＋"平"
List2.AddItem Str(yc)＋" "＋Str(yb)＋" "＋"平"
jd＝jd＋1
yd＝yd＋1ElseIf jb＝yc＋jc Then
List1.AddItem Str(jc)＋" "＋Str(jb)＋" "＋"胜"
List2.AddItem Str(yc)＋" "＋Str(yb)＋" "＋"负"
③
ElseIf yb＝yc＋jc Then
List1.AddItem Str(jc)＋" "＋Str(jb)＋" "＋ "负"
List2.AddItem Str(yc)＋" "＋Str(yb)＋" "＋"胜"
④
Else i＝i－1
End If
Next i
Text2.Text＝Str(jd)
Text3.Text＝Str(yd)
End Sub
划线处代码为①______________________________________
②__________________________________________________
③__________________________________________________
④__________________________________________________解析 本题考核的知识点是对于For结构循环及选择结构的理解。输入输出理解变量含义，n输入的次数，jd路人甲得分，yd路人乙得分。 第1空表示循环的次数，第2空表示他们平局的条件，3、4空所填内容和下面没有赋值的变量有关，显示路人甲、乙赢了，各得2分。
答案 ①1 To n ②yb＝yc＋jc And jb＝yc＋jc ③jd＝jd＋2 ④yd＝yd＋2二、循环范围确定的类型
某个范围内的数进行遍历情况。循环变量代表具体的某个数字，如在求水仙数、玫瑰花数时，循环变量表示从最小的三位数、四位数，到最大的三位数、四位数。【例2】 完全数。如果一个数所有的真因子(即除了自身以外的约数)的和等于它本身，则称该数为“完全数”。 在文本框Text1中输入一个数，单击“判断”按钮Command1，在文本框Text2中输出结论。程序界面如下图所示：程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n＝Val(Text1.Text)
s＝0
For i＝1 To ①
If ② Then
s＝s＋i
List1.AddItem Str(i)
End If Next i
If ③ Then Text2.Text＝"是的" Else Text2.Text＝"不是
End Sub
划线处代码为①_____________________________________
②_________________________________________________
③_________________________________________________解析 本题考核的知识点是对于For结构循环及选择结构的理解。理解变量含义，n输入的整数，s＝s＋i，真因子的和；循环的条件是判断除了本身以外的数是否是真因子，终值为n－1。抓住真因子的条件和完全数的条件，是解题的关键。
答案 ①n－1 ②n Mod i＝0 ③s＝n
[方法总结] 在上一节中，练习了选择结构的条件，以及各种表达式，在程序填空时，往往要体现这部分内容。因此打好函数表达式及理解选择结构功能对解答本题是有很大帮助。【变式训练】 单击“开始”按钮Command1，在列表框List1中输出这样的有趣的四位数，他能被他的前两位整除，能被中间的两位数整除，还能被最后的两位数整除，在文本框Text1中输出总的个数。程序运行界面如下：程序代码如下，请把空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，a As Integer
Dim b As Integer，c As Integer，n As Integer
n＝0
For i＝1000 To 9999
a＝ ①
b＝(i 10) Mod 100
c＝i Mod 100
If b<>0 And c<>0 Then
If ② Then List1.AddItem Str(i)
③
End If
End If
Next i
Text1.Text＝Str(n)
End Sub
划线处代码为①______________________________________
②__________________________________________________
③__________________________________________________解析 本题考核的知识点是对于For结构循环及选择结构的理解。理解变量含义，n出的个数，b中间两位数，c后面两位数，s＝s＋i，抓住题目中条件，均可以整除。往下找没有出现的变量，n表示符合条件的个数，数量增加一个。
答案 ①i100或Int(i/100) ②i Mod a＝0 And i Mod b＝0 And i Mod c＝0 ③n＝n＋1三、对于字符串的遍历
1.对于文本有查找、删除、替换和插入的操作，查找是各种操作的基础，只有找到这个字符，才可以删除，才可以替换为其他字符，只有找到位置，才可以插入新的字符。
2.字符查找最通常的做法是，从字符串的第1个位置开始，取出单个字符或从该位置开始的多个字符，与其他字符进行对比，接着是第2个位置，第3个位置……直到最后一个位置。
3.循环变量i含义是字符串的位置。有两个函数是经常用到的，Len函数，决定了循环的次数，Mid函数，从字符串取出1个或多个字符。【例3】 在文本框Text1中输入两个正整数和一个运算符的计算表达式，单击“运算”按钮Command1，在文本框Text2中输出计算结果。程序运行界面如下：程序代码如下，请把空白处填写完整。
Private Sub Command1_Click()
Dim y As Integer，i As Integer，t As Integer
Dim s As String，ch As String，ysf As String
s＝Text1.Text For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9" Then
①
Else
ysf＝ch
y＝t
t＝ ②
End If
Next i
If ysf＝"＋" Then
y＝y＋tElseIf ysf＝"－" Then
y＝y－t
ElseIf ysf＝"*" Then
y＝y*t
ElseIf ysf＝”/” Then
If t＝0 Then Text2.Text＝”” Else y＝y/t
End If
If t<>0 Then Text2.Text＝Str(y)
End Sub
划线处代码为①____________________________________
②_________________________________________________解析 本题考核的知识点是用循环结构处理字符的方法。本题最大难度是从文本中分离出一个多位整数的方法。从输入输出看，s是输入的表达式，y是输出的结果。If ch>＝”0” And ch<＝”9” Then语句，多次取出字符，如果取出连续的0－9之间数字，说明这个整数还没有结束，反之，表示整数已经结束，取出的是操作符。①处所填内容跟t有关，理由是从①片下找，发现变量t没有被赋值过。从语句y＝y＋t来推断，t是就是字符串中第1个整数。用表格表示程序在运行过程中的值。从表是可以看出随着ch的变化，变量t的变化规律：2→25→250→0→4。如果取出的字符不是0～9之间的数字，则表示当前是运算符，该整数结束了，变量t将存储下一个整数的值，因此要初始化为0。这是从算术运算上来获取整个整数部分，也可以从字符连接来获得整数部分。观察上表，随着ch的变化，变量t的变化规律：“2”→“25”→“250”→ “”→“4”。把每次的ch连接起来，当读取的字符不是数字时，表示该整数已经结束，把取得的字符串转换成数字，同时把s1清空，以便存储下一个整数的值。部分代码如下所示：
s1＝""
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9" Then
s1＝s1＋ch
Else ysf＝ch
y＝Val(s1)
s1＝""
End If
Next i
t＝Val(s1)答案 ①t＝t*10＋Val(ch) ②0[方法总结] 在字符串中不全是数字时，要掌握把其中部分数字字符转换为一个整数的方法和技巧。在程序运行过程中，先从输入输出来理解变量的含义，从选择结构来看实现的功能，可以借助表格来推断各个变量的关系。【变式训练】 在文本框Text1中输入一段只包含大小字母的英语短文，且每个单词以一个空格或一个标点分隔，点击“统计”按钮Command1，在文本框Text2中输出单词的数量，在文本框Text3中输出单词的最大长度。
程序代码如下，请将程序空白处填写完整。Private Sub Command1_Click()
Dim s As String，ch As String，i As Integer
Dim t As Integer，max As Integer，n As Integer
s＝Text1.Text
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ① Then
t＝t＋1
Else
②
If maxEnd If
Next i
Text2.Text＝Str(n)
Text3.Text＝Str(max)
End Sub
划线处代码为①______________________________________
②__________________________________________________
答案 ①Asc(ch)>64 And Asc(ch)<91 Or Asc(ch)>96 And Asc(ch)<123或ch>＝”a” And ch<＝”z” or ch>＝”A” And ch<＝”Z” ②n＝n＋1
