又一道VB操作题,高手帮忙7、下面的程序是求100以内容奇数和s的值（s=1+23+5+7…+99）.程序中有三个错误.请打开VBTEST子目录下的窗体文件Form7.frm.调试更正.PrivateSubCommand1Click()DimsAsIntegerDimi

Question

又一道VB操作题,高手帮忙
7、下面的程序是求100以内容奇数和s的值（s=1+23+5+7…+99）.程序中有三个错误.请打开VBTEST子目录下的窗体文件Form7.frm.调试更正.
Private Sub Command1_Click()
Dim s As Integer
Dim iAs Integer
s=0
For i=1 to 100 Step 1
s=s*i
Next i
Print s
End Sub

Answer 1

Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s=0
For i=1 to 100 Step 2
s=s+i
Next i
Print s
End Sub
这样就成了