100匹马驮100担货，大马1匹驮3担，中马1匹驮2担，小马2匹驮1担，编程计算大马、中马、小马的数量。设大马为x，中马为y，小马为z。请将下列程序补充完整。 Private Sub Command1_Click() Dim x As Integer，y As Integer，z As Integer _____________ Do While Z<100 X=3*Z \ 2-100 Y=200-5*Z \ 2 If (x>=0) And (y>=0) Then Print "大马="；x，"中马="；y，"小马="；z End If Z=Z+2 Loop End Sub
举一反三
- 下列程序运行时，能运行语句2的 x, y, z 的条件时，分别赋值为： Dim x ,y , z As Integer x = ____ y = ____ z = ____ If x > 2 And y < 5 Or z =5 Then 语句1 Else 语句2 End If
- 有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
- 已知int x=1，y=2，z=3；执行if(x>y) z=x；x=y；y=z；后x，y，z的值为（ ） A: x=1，y=2，z=3 B: x=2，y=3，z=3 C: x=2，y=3，z=1 D: x=2，y=3，z=2
- 已知x=1,y=2,z=3,执行下列语句if(x>y) z=x;x=y;y=z;则x,y,z的值分别是 A: x=1,y=2,z=3 B: x=2,y=3,z=1 C: x=2,y=2,z=1 D: x=2,y=3,z=3
- 已知int x=1,y=2,z=3;以下语句执行后x,y,z的值是( ). if(x>y) z=x; x=y; y=z; A: x=1, y=2, z=3 B: x=2, y=3, z=3 C: x=2, y=3, z=1 D: x=2, y=3, z=2