Question

用VB写出计算s=1/2+1/4+1/6+1/8+1/10+1/12

Answer 1

for i=1 to 6
s=s+ 1/(2 * i)
next i

Answer 2

问题太不明确了，s是什么类型的呢？

追问

我也不知道是什么型呀。。。是一个考试的题目

追答

如果我没有理解错的话，应该是加你打印出上边这句话吧？
在vb窗体上画2个text框，画一个button按钮
在button按钮中输入下边的代码
Private Sub Command1_Click()
Dim i, j, k As Long
Dim s As String
s = "s="
j = 1
i = Text1.Text
For i = 2 To Text1.Text Step 2
j = j * i

Next i

For i = 2 To Text1.Text Step 2
k = k + j / i

Next i

s = s + k & "/" & j
Text2.Text = s
End Sub
运行程序在text1里输入整数数字，点按钮，在text2里会出现上边的公式。
这里的输入没有做判断，你可以在完善下。

这样在试试，只是没有约分