在窗口上建立一个按钮： Function Total(Num1, Num2) As String 'Num1 为奇数和 'Num2 为偶数和 For i = 1 To 100 If i Mod 20 Then Num1 = Num1 + i Else Num2 = Num2 + i End If Next Total = "奇数和：" & Num1 & " 偶数和：" & Num2 End Function Private Sub Command1_Click() Me.Print Total(a, b) End Sub