数据库应用考试复习_3.ppt

Public Sub p1() Dim s As Integer, t As Integer, i As Integer s = 24 t = 18 i = 24 Do While i = 1 If s / i = Int(s / i) And t / i = Int(t / i) Then Debug.Print i= + Str(i) Exit Do End If i = i - 1 Loop End Sub i=6 Public Sub p2() Dim a1 As Integer, s As Integer, i As Integer a1 = 1 s = 0 For i = 1 To 5 s = s + a1 a1 = a1 * 2 Next Debug.Print a1= + Str(a1) Debug.Print s= + Str(s) Debug.Print i= + Str(i) End Sub a1= 32 s= 31 i= 6 Public Sub p3() Dim s As Integer, i As Integer, n As Inte