计算1到10和和积.docVIP

计算1到10的和与积 Private Sub Command1_Click() Dim i As Integer, sum As Integer, f As Long sum = 0 Print sum=; For i = 1 To 10 sum = sum + i If i 10 Then Print i; +; Else Print i; =; End If Next i Print sum f = 1 Print f=; For i = 1 To 10 f = f * i If i 10 Then Print i; *; Else Print i; =; End If Next i Print f End Sub 生成数组，并计算所有元素之和，和对角线的和 Dim a(5, 5) As Integer, i As Integer, j As Integer Dim sum As Integer, st As String Private Sub Command1_Click() For i = 1 To 5 For j = 1 To 5