VB考试题目

F. sum=value

G. value=value+sum

>H. sum=sum+value

I. Until value<>-1

J. While value <>-1

K. Until value=1

L. While value=-1

M. sum=sum+value

N. sum=sum+1

O. sum=sum-1

P. sum=value

3.求π的近似值，可利用公式π/4＝1 - 1/3 + 1/5 - 1/7 + ??，计算到最后一项的绝对值小于0.00001时为止，代码如下，请在空白处选择最佳答案。
Private Sub Command1_Click()

/>Cls
Dim pi, p, n As Single
n = 1
___1___
p = 1
Do Until ___2___
___3___
p = -p
___4___
Loop
Print "π的值是："; 4 * pi
End Sub（  ）

>A. pi=1

B. Pi=0

C. pi=-1

>D. pi=2

E. 1 / n < 0.00001

F. 1 / n >=0.00001

>G. 1/(2*n+1) < 0.00001

H. 1/(2*n-1) <0.00001

I. pi=pi+1/(2*n+1)

J. pi=pi+1/(2*n-1)

K. pi=pi+p/n

L. pi=pi-p/n

M. n=n+1

N. n=n+2

O. 1/n=1/n+1/2

P. n=-n

4.变量a是Single型，a=-1.23456，b=Int(a)， c=Sgn(a)，d=Abs(a)，e=Fix(a)
则：b= _______1_______ ,c=_____2_____,d= _____3_____ ,d=_____4_____。（  ）

A.-1

B.-2

C.-1.23456

D.0

E.-1

F.-2

G.0

>H.1.23456

I.-2

J.-1

K.-1.23456

L.0

M.-2

>N.0

O.-1.23456

P.-1