第6周单循环结构教案代码.docxVIP

Public Sub Example05A() 【问题1】的求解程序 Dim S As Double Dim i As Integer S = 0 i = 0 Do While i 64 S = S 2 ^ i i = i 1 Loop Debug.Print i=; i, S=; S End Sub Public Sub Example05B() 【问题1】的求解程序 Dim S, k As Double Dim i As Integer S = 1 k = 1 i = 0 Do While i 63 k = k * 2 i = i 1 S = S k Loop Debug.Print i=; i, S=; S End Sub Public Sub Example06A() Dim N, M, Sum As Integer N = 0 Sum = 0 Do While Sum 10000 M = Sum N = N 1 Sum = Sum N Loop Debug.Print M=; M, n=; N - 1 Debug.Print Sum=; Sum - N, n=; N End Sub Public Sub Example06B() Dim N, M, Sum As Integer N = 0 Sum = 0 Do Until Sum 10000 M = Sum N = N 1 Sum = Sum N Loop Debug.Print M=; M, n=; N - 1 Debug.Print Sum=; Sum - N, n=; N - 1 End Sub Public Sub Example07A() Dim N, i, k As Integer Dim S As Long i = 0 N = Abs(Int(Val(InputBox(输入随机数个数)))) Do While i N k = Int(Rnd * 100) S = S k i = i 1 Loop Debug.Print N=; N Debug.Print 平均值为：; S / N End Sub Public Sub Example07B() Dim N, i, k As Integer Dim S As Long i = 0 N = Abs(Int(Val(InputBox(输入随机数个数)))) Do Until i = N k = Int(Rnd * 100) S = S k i = i 1 Loop Debug.Print N=; N Debug.Print 平均值为：; S / N End Sub Public Sub Example08() Dim i As Integer Dim N As Long N = Val(InputBox(请输入一个正整数, 验证素数)) Let i = 2 Do While i = N / 2 If N Mod i = 0 Then Exit Do End If i = i 1 Debug.Print i Loop If i N \ 2 Then Debug.Print N, 是素数 Else Debug.Print N, 不是素数！ End If End Sub Public Sub Example09A() 【问题1】的求解程序A Dim s As Double Dim i As Integer s = 0 For i = 0 To 63 Step 1 s = s 2 ^ i Next Debug.Print i=; i Debug.Print S=; s End Sub Public Sub Example09B() 【问题1】的求解程序A Dim s, k As Double Dim i As Integer s = 1 k =