第5章VB控制结构解答.ppt

【例5-7】求解Fibonacci数列的前20项。 Private Sub Command1_Click() Dim i As Integer Dim f1 As Long, f2 As Long Text1.Text = f1 = 1 f2 = 1 For i = 1 To 10 Text1.Text = Text1.Text Str(f1) Str(f2) If (i Mod 2 = 0) Then Text1.Text = Text1.Text Chr(13) Chr(10) End If f1 = f1 + f2 f2 = f1 + f2 Next i End Sub 【例5-8】 编写程序，求出1000以内所有的“完数”。如果一个正整数恰好等于它的因子之和，这个数就为“完数”。如，6的因子为1、2、3，而6=1+2+3，因此6是完数。要求按格式6=1+2+3格式输出每个完数。 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim sum As Integer, s As String Tex