Private Sub Form_Click()
For i = 0 To 8
For j = i + 1 To 9
Sum = Sum + 10 * j + i
Next
Next
Print "和是" & Sum
End Sub
结果是2970