Question

VB计算 Sum=1*3*5*7*9*13的积，并把求得的结果在文本框Text1 中显示出来

Answer 1

代码：
Function Sum(n As Integer) As Long
Dim f As Long
f = 1
For i = 1 To n Step 2
f = f * i
Next i
Sum = f
End Function Private Sub Command1_Click()
Text1.Text = Sum(13)
End Sub

Answer 2

Private Sub Command1_Click()
Dim sum As Long, i As Integer
sum = 1
For i = 3 To 13 Step 2
sum = sum * i
Next
Print sum
End Sub

Answer 3

Function QiuJi () As Integer Dim sum as integer, i as integer sum = 1 For i=3 to 13 step 2 sum = sum * i NextEnd Function 窗体内调用Text1.Text = QiuJi ()

Answer 4

dim i as integer dim s as integer s=1for i =1 to 13 step 2s=s * inexttext1.text = s