计算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 a(i, j) = Int(Rnd * 90) + 10 Picture1.Print a(i, j); Next j Picture1.Print Next i End Sub Private Sub Command2_Click() ?求元素和的计算” sum = 0 For i = 1 To 5 For j = 1 To 5 sum = sum + a(i, j) Next j Next i Text1.Text = sum End Sub Private Sub Command3_Click()“外面元素和” sum = 0 For i = 1 To 5 For j = 1 To 5 If i = 1 Or i = 5 Then sum = sum + a(i, j) ElseIf j = 1 Or j = 5 Then sum = sum + a(i, j) End If Next j Next i Text2.Text = sum End Sub Private Sub Command4_Click() 对角线的和 Dim sum1 As Integer sum = 0 For i = 1 To 5 For j = 1 To 5 If i = j Then sum = sum + a(i, j) End If Next j Next i For i = 1 To 5 For j = 1 To 5 If i + j = 6 Then sum1 = sum1 + a(i, j) End If Next j Next i Text3.Text = sum + sum1 End Sub Private Sub Command5_Click() Picture1.Cls Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command6_Click() Unload Me End Sub 水仙花的计算 Private Sub Command1_Click() Dim s As Integer, a As Integer, b As Integer, c As Integer, st As String For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 s = a * 100 + b * 10 + c If s = a ^ 3 + b ^ 3 + c ^ 3 Then