Question

VB题，计算表达式的值：1-1/3+1/5-1/7+……，直到最后一项的绝对值小于10^(-6)为

VB题，计算表达式的值：1-1/3+1/5-1/7+……，直到最后一项的绝对值小于10^(-6)为止。求代码

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

dim num_a as double
dim num_result as double
num_a=1
num_result=1
do
if num_a<>1 then num_a=num_a+4
num_result=num_result-1/(num_a+2)+1/(num_a+4)
loop until (num_a+4)>10^(6)
msgbox "值是" & iif((num_a+2)>10^(6),num_result-1/(num_a+4),num_result)

追问

_是什么意思？

追答

没什么意思，就是一个变量的名字，例如dim a_b as string 意思就是a_b是一个类型为string的变量