·¢²¼Ê±¼ä : ÐÇÆÚÈý ÎÄÕÂ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=value3.Çó¦ÐµÄ½üËÆÖµ£¬¿ÉÀûÓù«Ê½¦Ð/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£¨ £©
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+2O. 1/n=1/n+1/2
P. n=-n4.±äÁ¿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_____¡££¨ £©
C.-1.23456
D.0 E.-1 F.-2 G.0>H.1.23456
I.-2 J.-1K.-1.23456
L.0 M.-2 >N.0O.-1.23456
P.-1