第04章 VB基本语句(8学时)3.30.pptVIP

Dim i As Integer, N As Integer, k as integer Dim x As String, s As String, a As String x = Text1.Text N = Len(x) For i = 1 To N a = Val(Asc(Mid(x, i, 1))) s = Do While a 0 r = a Mod 2 a = a \ 2 s = r s Loop k = Len(s) s = String(8 - k, 0) s If Mid(s, 1, 1) = 0 Then Mid(s, 1, 1) = 0 Else Mid(s, 1, 1) = 1 End If For j = 2 To 8 If Mid(s, j, 1) = 0 Then Mid(s, j, 1) = 1 Else Mid(s, j, 1) = 0 End If Next j f = 0 For k = 1 To 8 f = f + Val(Mid(s, k, 1)) * 2 ^ (8 - k) Next k p = p Chr(f) Next i Text2.Text = p 分析下列程序的运行结果，并得出相应的结论 Private Sub Form_Click() Dim a As Integer a=1 Do until a=10 a=a+2 loop Print a End Sub 分析下列程序的运行结果，并得出相应的结论 Private Sub Form_Click() Dim M As Integer,N As Integer Dim K As Integer N=-3：k=0 For M=6 To k Step N M=M+1 N=N-M K=K+1 Next M Print M;N; K End Sub 作业 P81 1 P82 3、5、 9 、10 练习 . 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句,单击该窗体,其中___32___一定可以将Hello显示在当前窗体上。 A. Form1.Print HelloB. Me.Print HelloC. Debug.Print HelloD. Form2.Print Hello * ⑵ D0 循环体 Loop While 条件 执行过程:（先执行，后判断） 先执行循环体,再判断循环条件, 若为真， 继续执行循环体; 否则，结束循环,执行Loop之后语句 循环条件 语句块 T F 语句块 F Exit Do T 1. While循环 §4.4.2 Do…Loop循环 ⑵ D0 循环体 Loop While 条件 例4:修改例3 Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s (1)循环体执行几次？ (2)将I先赋值为11， 执行结果如何? 1. While循环 §4.4.2 Do…Loop循环 ⑴ Do While 条件 循环体 Loop ⑵ D0 循环体 Loop While 条件 区别:(1)执行顺序不同 形式一:先判断,后执行循环体; 形式二:先执行循环体,后判断 (2)执行次数不同（特殊情况下） 形式一:条件不满足,循环体可能一次也不执行 形式二:不论条件如何,至少执行一次 1.While循环 §4.4.2 Do…Loop循环 练习3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数 分析： 最大公约数 ⑴ 已知两数m、n ⑵ m Mod n的值为r ⑶ m←n，n←r， ⑷ 若r0 ，则重复⑵ ⑶ 否则，循环结束，m 为所求的最大公约数， 最小公倍数 原两个数相乘，再除以最大公约数 §4.4.2 Do…Loop循环 练习4：我国现有人口13亿，按人口年增长率0.8%计算，多少年