题目内容
（请给出正确答案）
A.该程序是死循环
B.该程序用于求1到100之间整数的和
C.该程序用于求1到100之间奇数的和
D.该程序用于求1到100之间偶数的和
如果结果不匹配，请 联系老师 获取答案
更多“对如下程序x=y=0 while True: x+=1 if…”相关的问题
求解隐式微分方程组
求解的Mallab程序应该如下：
的数值解，其中初值条件为x(0)=0，x(0)=1，y(0)=0。
程序代码为：
Public sub proc(a%())
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I＜2
End sub
Private sub command1_click()
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后，单击命令按钮后，在窗体显示的结果是（）。
阅读下列程序，请写出程序的运行结果。
import java.applet.*；
import java.awt.*；
public class C extends Applet implements Runnable
{
Thread redBall，blueBall；
Graphics redPen，bluePen；
int blueSeta=0，redSeta=0；
public void init（）
{
setSize（250，200）；
redBall=new Thread（this）；
blueBall=new Thread（this）；
redPen=getGraphics（）；
bluePen=getGraphics（）；
redPen.setColor（Color.red）；
bluePen.setColor（Color.blue）；
setBackground（Color.gray）；
}
public void start（）
{
redBall.start（）；
blueBall.start（）；
}
public void run（）
{
intx，y；
while（true）
{
if（Thread.currentThread（）==redBall）
{//以下代码为顺时针画圆
x=（int）（80.0*Math.cos（3.1415926/180.0*redSeta））；
y=（int）（80.0*Math.sin（3.1415926/180.0*redSeta））；
redPen.setColor（Color.gray）；
redPen.fillOval（100+x，100+y，10，10）；
redSeta+=3；
if（redSeta＞=360）redSeta=0；
x=（int）（80.0*Math.cos（3.1415926/180.0*redSeta））；
y=（int）（80.0*Math.sin（3.1415926/180.0*redSeta））；
redPen.setColor（Color.red）；
redPen.fillOval（100+x，100+y，10，10）；
try{redBall.sleep（20）；}
catch（InterruptedException e）{}
}
elseif（Thread.currentThread（）==blueBall）
{//以下代码为顺时针画圆
x=（int）（80.0*Math.cos（3.1415926/180.0*blueSeta））；
y=（int）（80.0*Math.sin（3.1415926/180.0*blueSeta））；
bluePen.setColor（Color.gray）；
bluePen.fillOval（150+x，100+y，10，10）；
blueSeta-=3；
if（blueSeta＜=-360）blueSeta=0；
x=（int）（80.0*Math.cos（3.1415926/180.0*blueSeta））；
y=（int）（80.0*Math.sin（3.1415926/180.0*blueSeta））；
bluePen.setColor（Color.blue）；
bluePen.fillOval（150+x，100+y，10；10）；
try{blueBall.sleepp（40）；}
catch（InterruptedException e）{}
}
}
}
}
用二分法求函数f(x)=x^3-6x-1=0在x=2～5范围内的x=2附近的一个实根，其计算误差为|xl-x2|＜10^(-6)。完善下列程序。
Private Sub Command1 _Click ()
Dim V0 As Singke, v As Single, s As String
Dim x As Single, t As Single, x1 As Single, x2 As Single
x1 =0: x2=5
Do While()
x = (x1 +x2)/2
If Sgn(f1 (x)) = 1 Then
x2 = x
Else
x1 = x
End If
Loop
Print "x = "; x
End Sub
Private Function f1 (x As Single) As Single
f1 = x * x * x -6 * x-1
End Function
Private Sub Command1 _Click()
Dim i As Integer
For i = 0 To 1 2
Print();Space(2)
Next i
End Sub
A.publicvoidA(intx1,inty1,intz1){a=x1;b=y1;c=z1;}
B.publicvoidB(intx1,inty1,intz1){a=x1;b=y1;c=z1;}
C.publicvoidB(intx,inty){a=x;b=y;c=0;}
D.publicB(intx,inty,intz){a=x;b=y;c=z;}
求函数返回值，输入x=9999;
int func （x ）
{
int countx = 0;
while (x )
{
countx ++;
x = x&(x-1);
}
return countx;
}
结果呢？
