课堂练习

班级

请输入您的信息：

Private Sub Command1_Click() 注释：以下为求1到50之间偶数和的代码，请不要删除(1)和(2)以外的任何代码 Dim s As Integer Dim n As Integer Dim i As Integer n = 50 注释：删除(1)，在(1)处写上正确的代码 s = (1) 注释：删除(2)，在(2)处写上正确的代码 For i = 2 To (2) Step 2 s = s + i Next i Print S=; sEnd Sub

Private Sub Command1_Click() Dim I As Integer Dim S As Double S = 0 删除1，填入正确的代码 For I = 1 To 50 Step 2 删除2，填入正确的代码 S = 2 + I Next I Print 2+4+6+8+10+12+…48+50=; S End Sub

Private Sub Command1_Click() 注释：以下为求1*2*3*4*5*……*9*10的积的代码，请不要删除(1)和(2)以外的任何代码 Dim s As Long Dim n As Integer Dim i As Integer n = 10 注释：删除(1)，在(1)处写上正确的代码 s = (1) For i = 1 To n 注释：删除(2)，在(2)处写上正确的代码 s =s*i Next i Print S=; （2）End Sub

Private Sub Command1_Click() 注释：以下为求1*1/2*1/3*……*1/9*1/10 的积的代码，请不要删除(1)和(2)以外的任何代码 Dim s As Single Dim n As Integer Dim i As Integer n = 10 注释：删除(1)，在(1)处写上正确的代码 s = 1 For i = 1 To （1） 注释：删除(2)，在(2)处写上正确的代码 s = s * (2) Next i Print S=; sEnd Sub

Private Sub Command1_Click()Dim i As IntegerDim s As Integer删除1，填入正确的代码s = 1For i = 1 To 100删除2，填入正确的代码 If i Mod 5 = 0 Then 2 End IfNext iPrint 1到100之间能被5整除的个数是：; sEnd Sub

Private Sub Command1_Click()Dim i As IntegerDim s As Integer删除1，填入正确的代码s = 0For i = 6 To 100 step （1） s=s+（2）Next iPrint 1到100之间能被6整除的个数是：; sEnd Sub