VB 12级课件第6章-3(7-1,2,3学时、8-1,2,3学时)北邮.pptVIP

* Private Sub Form_Click() Randomize Max = 0 For i = 1 To 30 x = Int(Rnd * 100) Print x; If Max = x Then Max = x Next i Print Print “最大值为:”; Max End Sub * 分行显示技术 Private Sub Form_Click() Randomize Max = 0 For i = 1 To 30 x = Int(Rnd * 100) Print x; If i Mod 10 = 0 Then Print If Max = x Then Max = x Next i Print Print “最大值为:”; Max End Sub * 例:分别统计英文字母、数字字符的个数 * 例：找因数 * 例6-5：输入2个正整数，求它们的最大公约数和最小公倍数 * 例6-5：输入2个正整数，求它们的最大公约数和最小公倍数 古希腊数学家欧几里德的“辗转相除法”理论 ①在给出的两个正整数中，变量m(较大) ，变量n（放较小）。 ②m除以n，得出余数r。 ③若r≠0，则 n→m，r→n，转到②。 ④若r=0，则n的值就是这两个正整数的最大公约数。 231和63的最大公约数 * ①在给出的两个正整数中，变量m(较大) ，变量n（放较小）。 m = Val(Text1.Text) n = Val(Text2.Text) If m n Then t = m: m = n: n = t m=231 n=63 * ②m除以n，得出余数r。 ③若r≠0，则 n→m，r→n，转到②。 ④若r=0，则n的值就是这两个正整数的最大公约数。 Do r = m Mod n m = n n = r Loop Until r = 0 m=231 n=63 231 Mod 63=42 r=42 63 42 63 Mod 42=21 r=21 42 42 Mod 21=0 r=0 21 m为最大公约数 21 0 * 求最小公倍数： 求两个正整数的积(初始的m,n的值)， 积除以它们的最大公约数。 VB例6-5 * Private Sub Command1_Click() Dim m%, n%, r%, t% m = Val(Text1.Text) n = Val(Text2.Text) If m n Then t = m: m = n: n = t t = m * n Do r = m Mod n m = n n = r Loop Until r = 0 Label3.Caption = 它们的最大公约数是： m Label4.Caption = 它们的最小公倍数数是： t / m End Sub * 上机作业（第5次） 补充1. 求 1- n（输入的正整数）之间的奇数之和，保存文件名为VB6-a.frm 和 VB6-a.vbp 补充2.随机产生500个[1，6]间的随机整数，统计1、2、3、4、5、6各数字出现的次数。保存文件名为VB6-b.frm 和 VB6-b.vbp 补充3 （选做题）从文本框中输入一段英文，统计其单词数(单词之间用一个空格或者 “.”分隔)。保存文件名为VB6-c.frm 和 VB6-c.vbp 实验教材： 实验6-1、实验6-3 * Visual Basic程序设计 Visual Basic 循环结构（2） （第8次 1，2，3学时） 2012级本科 周丽华 * 第6章 循环结构 6.1 循环的概念 6.2 Do … Loop语句 6.3 For … Next 语句 6.4 循环的嵌套 6.5 循环的退出 习题6 * 6.4 循环嵌套 循环嵌套：在一个循环语句的循环体中又包含有另一循环语句。 VB的三种循环可以自身嵌套与相互嵌套 要求：内层结构一定包含在外层结构中，不能交叉 Do while Do While … … Loop … Loop For k= … Do While … … Next k … Loop Do While … … For k= … Loop Next k For J= … For k= … Next k … Next J For J= … … For k= … Next J Next K Do While … … For k= … Next k Loop For k= … Do