Question

如何用VB 6.0编辑这个程序，请在程序旁边注明这步的作用，我是初学者。

这是高二数学里的算法的逻辑框图，我打不了框，那就文字算了，开始→输入一个正整数n→（s=0）→（i=1）→（s=s+1/2）→（i=i+1）→（i是否≤n），是 则→（s=s+1/2）→（i=i+1），否 则→输出s→结束。

Answer 1

将下面函数复制到VB6中
不过看问题描述,输入的N并没有参与计算,只进行判断,每次输出的S应该都相同=1

sub calc()
dim ans as string
dim s as integer
dim i as integer
ans=prompt("请输入一个正整数")' 输入一个正整数
if isnumeric(ans) then '判断输入的数是不是正整数
if val(ans)<=0 then
msgbox "输入的数是负数或0,请输入一个正整数."
exit sub
end if
if cint(val(ans)<val(ans) then
msgbox "输入的数是带有小数,请输入一个正整数."
exit sub
end if
s=0 ' s=0
i=1 'i=1
s=s+1/2 's=s+1/2, 这时s=0.5
i=i+1 'i=i+1,这时,i=2
if i<=n then
s=s+1/2 's=s+1/2,这时s=1
i=i+1 'i=i+1,这时i=3
else
msgbox "s=" & cstr(s)'用对话框的形式输出s=1
end if
end sub

追问

复制后可以运行，但弹了那个框出来，按了许多下了，都没有结果，还是空白的。if cint(val(ans)<val(ans) )then 就算这句，我修正了之后，还是不行，

追答

修改后的代码:
Sub calc()
Dim ans As String
Dim s As Variant
Dim i As Integer
ans = InputBox("请输入一个正整数") ' 输入一个正整数
If IsNumeric(ans) Then '判断输入的数是不是正整数
If Val(ans) <= 0 Then
MsgBox "输入的数是负数或0,请输入一个正整数."
Exit Sub
End If
If CInt(Val(ans)) < Val(ans) Then
MsgBox "输入的数是带有小数,请输入一个正整数."
Exit Sub
End If
End If
s = 0 ' s=0
i = 1 'i=1
s = s + (1 / 2) 's=s+1/2, 这时s=0.5
i = i + 1 'i=i+1,这时,i=2
If i <= n Then
s = s + 1 / 2 's=s+1/2,这时s=1
i = i + 1 'i=i+1,这时i=3
Else
MsgBox "s=" & CStr(s) '用对话框的形式输出s=1
End If
End Sub

追问

还是不行，不知道为什么？