循环结构编程作业资料.doc

三、循环结构编程 1. 求自然数1～100之间奇数之和。交1 代码1 Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 100 Step 2 s = s + i Next Print 1到100的奇数和为: s End Sub 代码2 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0: For i = 1 To 100 If i Mod 2 0 Then s = s + i End If Next Print 1到100间所有奇数和为: s Label2.Caption = 1-100间所有奇数和为: s End Sub 2. 求自然数1～100之间能被3整除的数及之和。交1 代码： Private Sub Command1_Click() Dim i As Integer, s As Integer, p As String s = 0: p = For i = 1 To 100 If i Mod 3 = 0 Then p = p i s = s + i End If Next Print 1到100能被3整除数的和为: s Label2.Caption = 1-100间能被3整除的数有： vbCr p End Sub 3.在窗体的单击事件过程中，编写程序计算1！+2！+3！+ … +20! 交2 代码1（单循环实现） Private Sub Command1_Click() Dim t As Long, s As Long s = 0 t = 1 For i = 1 To 20 t = t * i s = s + t Next Print s=; s End Sub 代码2（双循环实现） Private Sub Command1_Click() Dim t As Long, s As Long s = 0 for a=1 to 20 t = 1 For i = 1 To a t = t * i Next s = s + t next Print s=; s End Sub 4.编写程序，将26个字母逆序输出。 代码1： Dim s As String S = ABCDEFGHIJKLMNOPQRSTUVWXYZ Print s For i = 26 To 1 step -1 ‘或：For i = len(s) To 1 step -1 Print Mid(s,i,1) Next i End Sub 代码2： Private Sub Command1_Click() Dim s As String, p As String s = ABCDEFGHIJKLMNOPQRSTUVWXYZ ‘或：s= text1.text Print s For i =len(s) To 1 Step -1 p = p Mid(s, i, 1) Next i Print p End Sub 5. 编写程序，将字符串学无止境按逆序境止无学输出。交1 代码： Private Sub Command1_Click() Dim s As String: Dim t As String: Dim r As String s = Text1.Text s = 学无止境 Print s m = Len(s) For i = m To 1 Step -1 t = Mid(s, i, 1) r = r t Next i Print r End Sub 6. 编写程序，在窗体上随机输出10--99之间的两位整数。交2 代码： Private Sub Command1_Click() Cls Dim i As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i) Next End Sub 7. 编程计算从200到1000之间的所有4的倍数之和。 代码： Private Sub Command1_Click() Dim i As Integer Dim sum As Long For i = 200 To 1000 If i Mod 4 = 0 Then sum = sum + i End If Next Print sum End Sub 8. 编程将一维数组A(10)中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。 代码：（9）交2