vb期末考试复习资料（经典总结版）(6)

例7 在上面例题6的二重循环中，如果把外层循环中的Until关键字改为While，要求输出结果相同，请填空。

13

Do

Do While Counter＜ 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop

Loop While _____

【分析】 在Do-Loop循环中，Until关键字的含义是“直到条件变为真之前”执行循环体，而While关键字正好相反，是“当条件为真时”执行循环体。也就是说，这两个关键字后面的条件是相反的，只要在条件前加上取反运算符Not，或者条件从False改为True，就可以用While替换Until，并且反之亦然。

【答案】 Not Check=False或Check=True 例8阅读程序：

Private Sub Form_Click()

Dim i As Integer, sum As Integer For i = 2 To 10

If i Mod 2 ＜＞ 0 Then Print i Else

sum = sum + i End If Next i Print sum End Sub

程序运行后，单击窗体，在窗体上的输出结果是_____。

【分析】 本题For循环的循环变量的初值为2，终值为10，步长为1。在循环体内，判断循环变量的值是否为偶数，如果是，则将该值累加到变量sum，否则输出循环变量的值。不难看出，运行该程序后，在循环体内输出的是奇数，而累加的是偶数。在循环体外，输出偶数的累加和。 【答案】 3 5 7 9 30

例9 阅读程序：

Private Sub Form_Click()

Dim num As Integer, digit As Integer num= InputBox(\ While num ＜＞ 0 digit =num Mod 10 num = num\\ 10 Print digit Wend End Sub

程序运行后，如果从键盘上输入9876，则输出结果为_____。

【分析】 本题使用了当循环，循环执行的条件是num不等于0。在循环体内，先用Mod运算符求出输入的数num的余数，接着用10对该数进行整除，把得到的商赋给num，最后输出余数。然后对整除后的num重复上述过程，直到num为0，结束循环。

在循环内，digit存放的是num的个位数，而每次整除后，num都要去掉个位数，而输出的也是个位数。例如，假定输入的是9876，则循环的执行过程如下： digit = 9876 Mod 10 = 6 num= 9876 \\ 10 = 987

14

Print digit 输出6 由于num不等于0，重复上述过程： digit = 987 Mod 10 = 7 num= 987 \\ 10 = 98

Print digit 输出7 num不等于0，重复上述过程： digit = 98 Mod 10 = 8 num= 98 \\ 10 = 9 Printdigit 输出8

num不等于0，重复上述过程： digit = 9 Mod 10 = 9 num=9\\ 10=0

Print digit 输出9 num等于0，结束循环。 【答案】 6 7 8 9

例10 以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。 Private Sub Command1_Click() Dim x As Single

Dim amax As Single, amin As Single x=InputBox(\请输入分数\ amax = x amin = x

Do While______

If x ＞ amax Then amax = x End If

If______Then amin = x End If

x=InputBox(\请输入分数\ Loop

Print amax, amin End Sub

【分析】 本题需要填两个空。第一个空是结束循环的条件。根据题目要求，在循环体内，需要反复地输入每个学生的分数，只有当输入负数时才结束输入，即退出循环。也就是说，结束循环的条件就是输入的数是负数，即小于0。 【答案1】 x＞=0 或Not x＜0

由于本题要求输出输入的最高分数和最低分数，其中最高分数通过循环中的第一个条件语句来统计，放在变量amax中，类似地，最低分数通过循环中的第二个条件语句来统计，放在变量amin中。

【答案2】x＜amin 或 Not x＞=amin

例11 给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 【分析】 从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形的三条边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。 程序如下：

Private Sub Form_Click() Dim a, b, c, s, t As Single

15