计算机基础与Visual Basic程序设计 教学课件 作者 978 7 302 28844 2 第七章 VisualBasic控制结构 循环结构习题.pptVIP

Exit Do与Exit For语句 语句功能：强制退出循环 Exit Do语句只能用在Do循环语句中 Exit For 语句只能用在For循环语句中 使用方法：在循环体中，作为IF语句的子句 循环结构程序的要素： 循环体是什么？ 循环控制变量及循环控制表达式是什么？ 循环应如何初始化？ 对于每次循环，其控制变量如何改变？ 循环嵌套举例 一、程序分析举例 题目1: n = 1 For i = 1 To 3 For j = 5 To I Step -1 n = n + 2 Next j Print n ; j ; i Next i Print n ; j ; i 程序分析举例 题目2: k = 0 For j = 1 To 2 Print I For i = 1 To 3 k = i + 1 Next I Print I For i = 1 To 2 k = k + 1 Next I Print I Next j Print k ; I 程序分析举例 题目3: For m = 1 To 2 For j = 1 To m For k = j To 2 Print m=“ ; m , j=; j , k= , k Next k , j , m 程序分析举例 题目4: For i = 5 To 4 Step -1 s = 0# For j = i To 3 Step -1 s = s + i * j Next j Next i Print s 总结：循环嵌套程序的执行方式、分析方法 书写循环嵌套程序的习惯、原则 二、程序填空题 以下程序将十六进制整数字符串转换成十进制整数 假设文本框中输入的十六进制字母符号全部为大写 s$=text1.text : d=0 For i = (1) c = Mid(s$, i, 1) If c = A Then d = (2) - Asc(A) + 10 Else d = d * 16 + Val(c) End If Next (3) Text2.text=d 三、程序设计举例 题目1: 输出一行（20个）星号。 输出一列（20个）星号。 输出三行星号，每行20个。 输出5行三角形形式星号。 程序设计举例 题目2: (1)判断一个输入的数是否为素数。 (2)找出100到200之间的所有素数。 题目3: 求S=1!+2!+3!+……+7！ 练习：教材习题P119，二，2 程序设计举例 题目4:穷举法 for a=1 to 9 for b=0 to 9 for c=0 to 9 …… next c , b , a (1)请用上面的循环方式找出所有水仙花数 (2)教材P114，例6-13 (3)教材习题：P119，二，1 以下代码用于计算 的近似值，当级数第i项的绝对值小于10-5时计算结束，同时调用内部函数进行验证。这里，x为弧度。 x=3.14159/6 i=1:t=x:sinx=t Do While (1) i=i+2 t= (2) sinx=sinx+t Loop Print sinx, (3) 下面的程序用于对9位的准考证号进行校验。参数mno存放准考证号，mjy存放产生的校验位，tag判断校验正确否，若校验正确在L1中显示“yes”，否则在L1中显示“no” 。产生校验位的算法为：取准考证号右边的8位数之和关于9的模作为校验值，准考证号最左边的一位为校验位。 Mno$=text1.text msum = 0 (1) m = Mid(mno, j, 1) msum = msum + Val(m) N