第10节 循环结构算法实现—Do While语句
知识点
目标
考试要求
算法的程序实现
①循环语句
②解析算法、枚举算法等常见算法的实现
c
必考＋加试
1.Do While 条件表达式
语句块
Loop
2.在Do While 循环中，先给循环变量赋初值，在循环体中改变循环变量的值，否则会造成死循环。
3.中途退出Do While循环的语句是Exit__Do。
所有的For循环均可以转换成Do While循环。For循环中的Next语句，相当于循环变量＋Step值语句的作用，Do While循环中，在Loop语句的上方或者循环体内部往往有一条改变循环变量值的语句，否则会造成死循环。
当循环次数不能确定时，或者当循环条件有两个或两个以上时，往往用Do While 循环。关键要找到循环的条件，当条件满足时，反复执行循环体语句。
【例1】 第1天存1元，第2天存2元，第3天存4元，第4天存8元，以此类推。在文本框Text1中输入所需储蓄的金额，单击“计算”按钮Command1，在文本框Text2中输出至少所需天数。程序运行的界面如下图所示：
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，p As Single，t As Single
p＝Val(Text1.Text)
t＝1
n＝0
____①____
Do While____②____
s＝s＋t
____③____
n＝n＋1
Loop
Text2.Text＝Str(n)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 本题考核的知识点是Do While循环的应用。通过输入、输出理解变量的含义，p是要达到的金额，n是所需天数。s＝s＋t，t是每天存的金额，s是总共存储的金额。循环的条件是存储金额没有达到预期金额。第1个t的值为1，因此s的初值为0。
答案 ①s＝0 ②s
[方法与总结] 通过本题的练习，让学生理解什么时候用Do While循环，Do While 循环适合用于循环次数不确定的情况，要明确循环的条件及变量的含义，满足条件时，反复执行循环体语句。
【变式训练】 某理财产品的月收益率为4.3%，现投资1万元，在文本框Text1中输入预期的本息合计金额(单位万元)，单击“计算”按钮Command1，在文本框Text2中输出至少所需多少个月。程序运行的界面如下图所示：
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，p As Single，t As Single
p＝Val(Text1.Text)
t＝1
n＝0
Do While____①____
t＝t*(1＋0.043)
____②____
Loop
Text2.Text＝Str(n)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 变量t表示要达到的金额，n是所需月份，循环的条件是本息和没有达到预期的金额。
答案 ①t【例2】 工作人员手中有人民币100、50、10和1元4个币种，在文本框Text1中输入一个金额，按最大票面优先兑换的原则，输出相应的人民币及张数。程序运行界面如下图所示：
程序代码如下，请将空白处填写完整。
Private Sub Command2_Click()
Dim je As Single，n As Integer，t As Single，i As Integer
Dim rmb As Integer
je＝Val(Text1.Text)
i＝1：n＝0：rmb＝100
Do While ____①____
If je>＝rmb Then
____②____
n＝n＋1
Else
List1.AddItem ”面值”＋Str(rmb)＋”的张数为”＋Str(n)
____③____
If i＝2 Then
rmb＝50
ElseIf i＝3 Then
rmb＝10
Else
rmb＝1
End If
n＝0
End If
Loop
If n>0 Then List1.AddItem ”面值”＋Str(rmb)＋”的张数为”＋Str(n)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
解析 本题考核的知识点是Do While循环的应用。je表示输入的金额，n出现在循环体中，因此是每一种币种的数量。循环的条件是金额全部兑换成人民币，就是金额不为0的时候。
答案 ①je>0或 je<>0 ②je＝je－rmb ③i＝i＋1
[方法总结] 要牢牢把握循环的条件，什么时候循环。如果不能很好地找出来，那么可以从反面来理解，就是什么时候不循环。
【变式训练】 用物理天平测量物体的质量。假设有质量为500、100、20和10克砝码若干，在文本框Text1输入物体的质量，单击“计算”按钮Command1，在列表框List1中输出每次所加砝码，在文本框Text2中输出所加砝码总数，程序运行界面如图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，t As Integer，zl As Integer，fama As Integer
zl＝Val(Text1.Text)
n＝0：i＝1：fama＝500
Do While zl>0
If ____①____ Then
List1.AddItem ”重量”＋Str(zl)＋”。所加砝码”＋Str(fama)
zl＝zl－fama
____②____
Else
i＝i＋1
If i＝2 Then
fama＝100
ElseIf i＝3 Then
fama＝20
Else
fama＝10
End If
End If
Loop
Text2.Text＝Str(n)
End Sub
划线处代码为①__________________________________________________
②______________________________________________________________
解析 理解变量的含义，zl输入的物体质量，n所加砝码数量，i表示砝码的种类，fama表示砝码的质量。如果加上砝码后，质量减去所加砝码还没有达到0，反复加砝码。如果当前质量大于等于当前种类砝码质量，可以加，否则加下一种砝码。
答案 ①zl>＝fama ②n＝n＋1
1.有如下程序段。
x＝0：n＝0
Do While x<50
x＝(x＋2)*(x＋3)
n＝n＋1
Loop
Text1.Text＝Str(n)
Text2.Text＝Str(x)
运行该程序后，文本框Text1、Text2上分别显示的是________、________。
解析 通过表格的形式来分析变量的值。
x<50？
x
n
初始值
0
0
True
6
1
True
72
2
False
答案 2 72
2.在文本框Text1中输入一个四位数，单击“判断”按钮Command1，在文本框Text2中输出该四位数是否是玫瑰花数。玫瑰花数指一个四位数的各个数字4次方之和等于他本身，程序运行的界面如下图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，t As Integer，s As Integer，temp As Integer
n＝Val(Text1.Text)
If n>＝1000 And n<＝9999 Then
s＝0
temp＝n
Do While ____①____
t＝temp Mod 10
s＝s＋t^4
____②____
Loop
If n＝s Then
Text2.Text＝”是玫瑰花数”
Else
Text2.Text＝”不是玫瑰花数”
End If
Else
Text2.Text＝”输入的数不是4位数！”
End If
End Sub
划线处代码为①__________________________________________________
②_______________________________________________________________
解析 本题考核的知识点是对一个数各个位数进行分解。循环的条件是只要下一次分离的数不为0，继续分离。理解变量含义，n是输入的数，从输出来看，n要和4次方的和比较，因此用一个变量temp来代替n进行分解，t是分解后的个位数，玫瑰花数的条件是各个数的4次方和，分离出一个数后，要把该数去除。
答案 ①temp>0 或temp<>0 ②temp＝temp[ST0
3.对于任意一个正整数，如果是奇数，则乘以3加1，如果是偶数，则除以2，得到的结果再按上述的规则重复处理，最终总能够得到1。在文本框Text1中输入一个正整数，单击“计算”按钮Command1，在列表框List1中输出得到结果1的计算过程，在文本框Text2中输出所需步骤。程序运行界面如下。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，s As String
n＝Val(Text1.Text)
t＝0
Do While ____①____
s＝Str(n)＋”→”
If ____②____Then
n＝n*3＋1
Else
n＝n 2
End If
List1.AddItem s＋Str(n)
____③____
Loop
Text2.Text＝Str(t)
End Sub
划线处代码为①___________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 计算的条件是只要n不是1。理解变量含义，n是输入的数，t是所需步骤数，s是在列表框中显示的内容。
答案 ①n>1或n<>1 ②n Mod 2＝1 ③t＝t＋1
4.在文本框Text1中输入一个正整数，单击“判断”按钮Command1，在文本框 Text2中输出是否是素数，请把下列程序空白处填写完整。
Private Sub Command2_Click()
Dim i As Integer，n As Integer，flag As Boolean
n＝Val(Text1.Text)
i＝2
Do While ____①____
i＝i＋1
Loop
If ____②____ Then Text2.Text＝”素数” Else Text2.Text＝”非素数”
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 循环的条件是只要n没有被i除通，继续下个数除，当i加到n时，总会除通，就不循环了。因此判断是否是素数，从2除到n－1，若除到n－1还未除通，i将等于n。
答案 ①n Mod i<>0 ②i＝n
5.判断是否是回文。一个字符串，从左到右读和从右到左读是完全一样的。在文本框Text1中输入文字，单击“检测”按钮Command1，在文本框Text2中输出结论，程序运行时界面如下：
程序代码如下，请在空白处补充完整。
Private Sub Command2_Click()
Dim i As Integer，s As String，s1 As String，flag As Boolean
s＝Text1.Text
i＝1
j＝Len(s)
flag＝True
Do While is1＝Mid(s，i，1)
s2＝Mid(s，j，1)
If s1<>s2 Then ____①____
i＝i＋1
____②____
Loop
If flag＝True Then Label4.Caption＝s＋”是回文数” Else Label4.Caption＝s＋”不是回文数”
End Sub
划线处代码为①___________________________________________________
②________________________________________________________________
解析 循环的条件是字符串首尾各取一个字符，如果相等继续向中间移动再次取。变量含义，i表示头指针，j表示尾指针。s1表示从头部开始取出的字符，s2表示从尾部开始取出的字符，flag表示是否是回文数的标志，如果两者不相等，则不是回文数，退出循环，否则头指针向后称，尾指针向前移。
答案 ①flag＝False ②j＝j－1
6.产生降序随机数列，在文本框Text1中输入一个正整数，单击“产生”按钮Command1，在标签Label2中显示从该数到1的降序数列，在文本框Text2中输出数列的项数。程序运行的界面如下图所示。
(1)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Integer，n As Integer，s As String
x＝Val(Text1.Text)
n＝0
Do While____①____
n＝n＋1
____②____
x＝Int(Rnd()*x＋1)
Loop
Label2.Caption＝s＋Str(x)
Text2.Text＝____③____
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③_________________________________________________________________
(2)该数列中，________(有/没有)可能存在两个相同的数。
答案 (1)①x>1 ②s＝s＋Str(x) ③Str(n＋1) (2)有
7.单词倒序加密法。把明文中每个单词首尾颠倒进行加密，空格、标点等其他字符按原来顺序输出。在文本框Text1中输入密文，单击“解密”按钮Command1，按加密的规则，在文本框Text2中输出解密后的字符。程序运行时的界面如图所示：
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer，s As String，ch As String，newch As String，s1 As String
____①____
newch＝””
s1＝””
i＝1
Do While i<＝Len(s)
ch＝Mid(s，i，1)
If ch>＝”A” And ch<＝”Z” Or ch>＝”a”And ch<＝”z”Then
s1＝ch＋s1
Else
newch＝____②____
s1＝””
End If
____③____
Loop
If s1<>”” Then newch＝newch＋s1
Text2.Text＝newch
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
答案 ①s＝Text1.Text ②newch＋s1＋ch ③i＝i＋1
8.产生回文字母。在文本框Textl中输入一个字母，单击“产生回文字母”按钮Command1，在标签Label2中显示相应的回文字符串。例如：若输入的是大写字母“G”，则产生从“A”开始的回文字母“ABCDEFGFEDCBA”；若输入的是小写字母“g”，则产生从“a”开始的回文字母“abcdefgfedcba”。程序运行时的界面如图所示：
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s1 As String，s2 As String，s3 As String
Dim i As Integer，n As Integer，j As Integer
s1＝”ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
s2＝Text1.Text
i＝1
Do While Mid(s1，i，1)<>s2 And i<＝Len(s1)
i＝i＋1
Loop
If____①____Then
Label2.Caption＝”输入的字符不是字母”
Exit Sub
End If
If i>26 Then n＝27 Else n＝1
s3＝Mid(s1，i，1)
For j＝i－1 To n Step －1
s3＝____②____
Next j
Label2.Caption＝____③____
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
答案 ①i＝Len(s1)＋1或i>Len(s1)或i>52 ②Mid(s1，j，1)＋s3＋Mid(s1，j，1) ③s3
9.n个1的平方是个回文数，11的平方是121，111的平方是12321。在文本框Text1中输入两个相同1组成数相乘的表达式，单击“计算”按钮Command1，在标签Label2中显示相应的回文字符串。程序运行时的界面如图所示：
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s1 As String，i As Integer，n As Integer，str1 As String
str1＝”123456789”
s1＝Text1.Text
____①____
i＝1
Do While Mid(s1，i，1)<>”*”And i<＝n
____②____
Loop
i＝i－1
If i<>n2 Or n>19 Or Mid(s1，1，i)<>Mid(s1，i＋2，n－i＋1) Then
Label2.Caption＝”输入的数据不符合要求！”
Exit Sub
End If
For j＝1 To 2*i－1
If j<＝i Then
s2＝s2＋Mid(str1，j，1)
Else
s2＝____③____
End If
Next j
Label2.Caption＝s2
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③________________________________________________________________
答案 ①n＝Len(s1) ②i＝i＋1 ③s2＋Mid(str1，2*i－j，1)
10.现有10种奖品分别用字母A至J表示，22位顾客分别用“甲乙丙丁戊己庚辛壬癸子丑寅卯辰巳午未申酉戌亥”表示。在文本框Text1中输入不大于10的中奖名额，单击“抽奖”按钮，抽出中奖顾客姓名，按中奖先后从A到J顺序依次发放奖品，每人只有一次抽中的机会，获奖信息显示在列表框List1中。程序运行界面如图所示：
(1)实现上述功能的VB程序如下，请在划线处填入合适代码。
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＝”p甲乙丙丁戊己庚辛壬癸子丑寅卯辰巳午未申酉戌亥p”
s2＝”ABCDEFGHIJ”
n＝Val(Text1.Text)
If n>10 Or n<＝0 Then List1.AddItem”输入的数据不合法！”：Exit Sub
i＝1
Do While i<＝n
x＝Int(Rnd()*22＋2)
____①____
If c1<>”p” Then
c2＝____②____
List1.AddItem ”顾客”＋c1＋”所中奖品为：”＋c2
i＝i＋1
s1＝Mid(s1，1，x－1)＋”p”＋Mid(s1，x＋1，24－x)
End If
Loop
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
(2)产生随机数x的范围是[，]
(3)语句s1＝Mid(s1，1，x－1)＋”p”＋Mid(s1，x＋1，24－x)的功能是将中奖用________来表示。
答案 (1)①c1＝Mid(s1，x，1) ②Mid(s2，i，1) (2)[2，23] (3)字母p
11.在文本框Text1中输入一个二进制数，单击“换算”按钮Command1，在标签Lable2中显示换算成十六进制数的结果。程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String，n As Integer，i As Integer
Dim ch As String，t As Integer
Dim sum As Integer，s1 As String
str1＝”0123456789ABCDEF”
s＝Text1.Text
n＝Len(s)
If n Mod 4＝1 Then
s＝”000”＋s
ElseIf n Mod 4＝2 Then
s＝”00”＋s
ElseIf n Mod 2＝3 Then
s＝”0”＋s
End If
sum＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
t＝3－(i－1)Mod 4
sum＝____①____
If i Mod 4＝0 Then
____②____
sum＝0
End If
Next i
Label2.Caption＝”二进制数”＋s＋”转换为十六进制的值为”＋s1
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
答案 ①sum＋Val(ch)*2^t ②s1＝s1＋Mid(str1，sum＋1，1)
1.表达式为1＋1/2＋1/3＋1/4＋1/5＋……，在文本框Text1中输入一个整数，单击“计算”按钮Command1，在文本框Text2中输出这个表达式的和超过该数的项数。程序运行界面如图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，s As Single
p＝Val(Text1.Text)
i＝1
s＝0
n＝0
Do While ____①____
s＝s＋1/i
i＝i＋1
____②____
Loop
Text2.Text＝Str(n)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
解析 循环的条件是累加的和不超过输入的数。理解变量的含义，i表示每一项的分母，s表示累加的和，n表示已经所加的项数。
答案 ①s2.在文本框Text1中输入一个十进制整数，在文本框Text2中输入一个进制数R(2<＝R<＝16)，单击“计算”按钮Command1，在文本框Text3中输出转换后的数。程序运行界面如下图所示
程序代码如下，请将空白处填写完整。
Private Sub Command2_Click()
Dim n As Integer，t As Integer，s As String
Dim r As Integer，ch As String
s＝””
n＝Val(Text1.Text)
r＝Val(Text2.Text)
ch＝”0123456789ABCDEF” ′转换后的基数
If r>＝2 And r<＝16 Then
Do While n>0
t＝____①____
s＝____②____
____③____
Loop
Text3.Text＝s
Else
Text3.Text＝”进制输入有误”
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
解析 循环条件是只要被除数不为0，继续除。题解变量的含义，n是要转换的数，t除r的余数，s是转换后的进制数。每次除后，除数作为新的被除数。
答案 ①n Mod r ②Mid(ch，t＋1，1)＋s ③n＝n r
3.“质因数分解”的程序，程序的功能如下：在文本框Text1中输入一个大于1的正整数，单击“分解”按扭Command1后，则在文本框Text2中显示分解的质因子个数。程序运行的界面如下图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim i As Integer，n As Integer，s As String
n＝Val(Text1.Text)
i＝____①____
Do While ____②____
If n Mod i＝0 Then
List1.AddItem Str(i)
t＝t＋1
____③____
Else
i＝i＋1
End If
Loop
Text2.Text＝Str(t)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③________________________________________________________________
解析 循环的条件是只要分解后的数不为1。变量的含义，n是待分解的数，i是质因子，最小的质因子是2，如果能被该数整除，整除后的余数作为新的分解数，若不能整除，找下一个因子。
答案 ①2 ②n<>1或n>1 ③n＝n/i或n＝ni
4.用递减法计算两个数m、n的最大公约数，d取m、n的最小值，如果m和n都被d整除了，d就是他们的最大公约数，否则d就减1，直到d等于1为止。在文本框Text1、Text2中分别输入两个正整数，单击“计算”按钮Command1，在文本框Text3中输出他们的最大公约数。程序运行的界面如下图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim m As Integer，n As Integer，d As Integer，t As Integer
m＝Val(Text1.Text)
n＝Val(Text2.Text)
If ____①____ Then t＝m：m＝n：n＝t
d＝n
Do While d>1
If ____②____ Then
Exit Do
Else
d＝d－1
End If
Loop
Text3.Text＝Str(d)
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
解析 循环的条件是从两个数中较小数开始找，如果都能被两个数整除，则他就是最大公约数。理解变量的含义，m、n是输入的两个数，同时保证m>n，d是尝试的最大公约数。也可以改为下列结构。
Do While m Mod d<>0 And n Mod d<>0
d＝d－1
Loop
当最后d减至1时，总会除通。
答案 ①m5.在文本框Text1中输入一个电子邮箱名称，单击“分解”按钮Command1，在文本框Text2中输出主机名，在文本框Text3中输出域名。程序运行的界面如下图所示。
程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim s As String，ch As String，i As Integer
Dim zjm As String，ym As String，t As Integer
s＝Text1.Text：i＝1
ch＝mid(s，i，1)
Do While ____①____ And i<＝Len(s)
i＝i＋1
ch＝mid(s，i，1)
Loop
Text2.Text＝____②____
Text3.Text＝____③____
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________
③________________________________________________________________
解析 循环条件是没有找到@符号。变量含义，s输入的电子邮箱名称，ch分离出的字符，i分离的位置。若不满足条件时，该位置就是@符号所在位置。
答案 ①ch<>”@” ②Mid(s，l，i－1) ③Mid(s，i＋1，Len(s)－i)
6.在文本框Text1中输入一个二进制数，单击“换算”按钮Command1，在标签Lable2中显示换算成十进制数的结果。程序运行界面如图所示：
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String，n As Integer，i As Integer
Dim ch As String，t As Integer
s＝Text1.Text
i＝1
Do While i<＝Len(s)
ch＝Mid(s，i，1)
t＝Len(s)－i
____①____
i＝i＋1
Loop
For i＝1 To Len(s)
ch＝Mid(s，i，1)
Label2.Caption＝”二进制数”＋____②____＋”转换为十进制的值为”＋Str(n)
End Sub
划线处代码为①__________________________________________________
②_______________________________________________________________
答案 ①n＝n＋Val(ch)*2^t ②s
7.对英文字母进行加密的规则：用26个互不重复的ASCII字符作为密钥。单击“产生密钥”按钮Command1，在文本框Text1中输出产生的密钥。运行界面如下图所示。
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String，i As Integer，x As Integer，my As String
s＝”ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789”
i＝1
Do While i<＝26
t＝63－i
x＝____①____
my＝____②____
List1.AddItem Str(x)＋s
If x＝1 Then
s＝Mid(s，2，t－1)
ElseIf x＝t Then
s＝Mid(s，2，t－1)
Else
____③____
End If
i＝i＋1
Loop
Text1.Text＝my
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
答案 ①Int(Rnd()*(t＋1)＋1) ②my＋Mid(s，x，1) ③s＝Mid(s，1，x－1)＋Mid(s，x＋1，t－x)
8.小明站在高楼上，拿一个质量为1千克的弹簧球做自由落体，由于受空气阻力的影响，弹簧球每次下落到地面和反弹到最高点的过程中都要损失10%的机械能，当机械能小于1焦耳时，认为小球已经静止了。为了模拟和计算弹簧球落地的次数，编写了VB程序，在文本框Text1中输入楼房的高度，单击“运行”按钮Command1，在列表框List1中输出每次反弹的高度，在文本框Text2中输出落地的次数。程序运行的界面如下图所示。
为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim h As Single，m As Integer，g As Integer，n As Integer，e As Single
m＝1
g＝10
n＝1
h＝Val(Text1.Text)
e＝m*g*h*0.9 ′弹簧球第一次落地时，损失10%
的能量
Do While____①____
e＝e*0.9 ′弹簧球在反弹过程中损失的能量
h＝Int(e/m/g*100)
List1.AddItem”第”＋Str(n)＋”次反弹的高度”＋Str(h)＋”厘米”
____②____
n＝n＋1
Loop
Text2.Text＝____③____
End Sub
划线处代码为①__________________________________________________
②______________________________________________________________
③______________________________________________________________
答案 ①e>＝1 ②e＝e*0.9 ③Str(n)
9.1位十进制数转换为4位2421BCD码方法。若该数小于5，BCD码的最高位(左边第1位)值为0，并把该数转换成3位二进制数，不足3位补0。若该数大于等于5，则第1位值为1，并把该数减去5后的值转换成3位二进制数，不足3位补0。在文本框Text1中输入1位十进制数，单击“转换”按钮Command1后，在文本框Text2输出相应BCD码的。程序运行界面如图所示：
(1)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String，t As Integer，i As Integer，n As Integer，p As Integer
____①____t＝Val(Text1.Text)
If t<5 Then p＝t Else p＝t－2
i＝0
Do While p<>0
n＝p Mod 2
If n＝1 Then s＝”1”＋s Else s＝”0”＋s
p＝p2
i＝i＋1
Loop
If____②____t<5 Then s＝”0”＋s Else s＝”1”＋s
If i＝0 Then
s＝Mid(s，1，1)＋”000”
ElseIf i＝1 Then
____③____s＝Mid(s，1，1)＋”00”＋Mid(s，2，1)
ElseIf i＝2 Then
s＝Mid(s，1，1)＋”0”＋Mid(s，2，2)
End If
Text2.Text＝s
End Sub
划线处代码为①________________________________________________
②_____________________________________________________________
③______________________________________________________________
(2)若输入的十进制数为5，则相应的BCD码_________________________
答案 (1)①t＝Val(Text1.Text) ②t<5
③s＝Mid(s，1，1)＋”00”＋Mid(s，2，1) (2)1011
课件18张PPT。第10节 循环结构算法实现—Do While语句1.Do While ____________
语句块
Loop
2.在Do While 循环中，先给循环变量赋初值，在循环体中改变__________的值，否则会造成死循环。
3.中途退出Do While循环的语句是_________。条件表达式循环变量Exit Do所有的For循环均可以转换成Do While循环。For循环中的Next语句，相当于循环变量＋Step值语句的作用，Do While循环中，在Loop语句的上方或者循环体内部往往有一条改变循环变量值的语句，否则会造成死循环。
当循环次数不能确定时，或者当循环条件有两个或两个以上时，往往用Do While 循环。关键要找到循环的条件，当条件满足时，反复执行循环体语句。【例1】 第1天存1元，第2天存2元，第3天存4元，第4天存8元，以此类推。在文本框Text1中输入所需储蓄的金额，单击“计算”按钮Command1，在文本框Text2中输出至少所需天数。程序运行的界面如下图所示：程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，p As Single，t As Single
p＝Val(Text1.Text)
t＝1
n＝0
①
Do While ②
s＝s＋t
③ n＝n＋1
Loop
Text2.Text＝Str(n)
End Sub
划线处代码为①_____________________________________
②_________________________________________________
③_________________________________________________解析 本题考核的知识点是Do While循环的应用。通过输入、输出理解变量的含义，p是要达到的金额，n是所需天数。s＝s＋t，t是每天存的金额，s是总共存储的金额。循环的条件是存储金额没有达到预期金额。第1个t的值为1，因此s的初值为0。
答案 ①s＝0 ②s[方法与总结] 通过本题的练习，让学生理解什么时候用Do While循环，Do While 循环适合用于循环次数不确定的情况，要明确循环的条件及变量的含义，满足条件时，反复执行循环体语句。【变式训练】 某理财产品的月收益率为4.3%，现投资1万元，在文本框Text1中输入预期的本息合计金额(单位万元)，单击“计算”按钮Command1，在文本框Text2中输出至少所需多少个月。程序运行的界面如下图所示：程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，p As Single，t As Single
p＝Val(Text1.Text)
t＝1
n＝0
Do While ①
t＝t*(1＋0.043)
②
Loop
Text2.Text＝Str(n)
End Sub划线处代码为①______________________________________
②__________________________________________________
解析 变量t表示要达到的金额，n是所需月份，循环的条件是本息和没有达到预期的金额。
答案 ①tPrivate Sub Command2_Click()
Dim je As Single，n As Integer，t As Single，i As Integer
Dim rmb As Integer je＝Val(Text1.Text)
i＝1：n＝0：rmb＝100
Do While ①
If je>＝rmb Then
②
n＝n＋1
Else
List1.AddItem "面值"＋Str(rmb)＋"的张数为"＋Str(n)
③
If i＝2 Then
rmb＝50 ElseIf i＝3 Then
rmb＝10
Else
rmb＝1
End If
n＝0
End If
Loop
If n>0 Then List1.AddItem "面值"＋Str(rmb)＋"的张数为"＋Str(n)
End Sub划线处代码为①_______________________________________
②___________________________________________________
③___________________________________________________
解析 本题考核的知识点是Do While循环的应用。je表示输入的金额，n出现在循环体中，因此是每一种币种的数量。循环的条件是金额全部兑换成人民币，就是金额不为0的时候。
答案 ①je>0或 je<>0 ②je＝je－rmb ③i＝i＋1
[方法总结] 要牢牢把握循环的条件，什么时候循环。如果不能很好地找出来，那么可以从反面来理解，就是什么时候不循环。【变式训练】 用物理天平测量物体的质量。假设有质量为500、100、20和10克砝码若干，在文本框Text1输入物体的质量，单击“计算”按钮Command1，在列表框List1中输出每次所加砝码，在文本框Text2中输出所加砝码总数，程序运行界面如图所示。程序代码如下，请将空白处填写完整。
Private Sub Command1_Click()
Dim n As Integer，t As Integer，zl As Integer，fama As Integer
zl＝Val(Text1.Text)
n＝0：i＝1：fama＝500
Do While zl>0
If ① Then
List1.AddItem "重量"＋Str(zl)＋"。所加砝码"＋Str(fama)
zl＝zl－fama
② Else
i＝i＋1
If i＝2 Then
fama＝100
ElseIf i＝3 Then
fama＝20
Else
fama＝10
End If
End If
Loop Text2.Text＝Str(n)
End Sub
划线处代码为①_______________________________________
②___________________________________________________
解析 理解变量的含义，zl输入的物体质量，n所加砝码数量，i表示砝码的种类，fama表示砝码的质量。如果加上砝码后，质量减去所加砝码还没有达到0，反复加砝码。如果当前质量大于等于当前种类砝码质量，可以加，否则加下一种砝码。
答案 ①zl>＝fama ②n＝n＋1