VB¿¼ÊÔÌâÄ¿ ÁªÏµ¿Í·þ

·¢²¼Ê±¼ä : ÐÇÆÚÈý ÎÄÕÂ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