VB的一道求奇数之积的题目

来源：百度知道编辑：UC知道时间：2024/07/02 20:58:18

在文本框text1中输入一个非负整数N，求不大于N的所有奇数之积并在文本框text2中输出结果，点击命令按钮Command1运行。
要求乘积使用变体类型或Double类型。

Dim A As Double ,B AS INTERGER,I AS INTERGER
Private Sub Command1_Click()
B=TEXT1
A = 1
For i = 1 To B Step 2
A = A * i
Next i
TEXT2= A
End Sub

Dim s As Double
Private Sub Command1_Click()
s = 1
For i = 1 To Val(Text1.Text) Step 2
s = s * i
Next i
Print s
End Sub

在命令按钮里填入以下代码
DIM s as variant
N=val(text1.text)
s=1
for i=1 to N
if (i mod 2)<>0 then
s=s*i
end if
next
text2.text=str(s)

呃...c的就会。。。vb的还没涉猎。。哈哈。。不过这个应该比较基础的。你随便百度下实例应该都有的。