VB编程题（有关循环的题）

1. 求1*2*3*4*5*......*20的值

2. 求1到100内所有不能被3又不能被5整除的数的和

Private Sub Command1_Click()
Dim P As Double, I As Integer
P = 1
For I = 1 To 20
    P = P * I
Next
Print P
End Sub

E+18的意思是10的18次幂,这个数太大了

2.

Private Sub Command1_Click()
Dim S As Integer, I As Integer
For I = 1 To 100
    If I Mod 3 <> 0 And I Mod 5 <> 0 Then S = S + I
Next
Print S

End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！