更多"以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Pri"的相关试题:
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click（ ） Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是( )。
Option Base 1
Private Sub Command1 Click（ ）
Dim a(10)，p(3)as Integer
k=5
For I=1 to 10
a(i)=I
Next I
For j=1 to 3
p(i)=a(I*j)
Next j
For I=1 to 3
k=k+p(I)*2
Next I
Print k
End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click（ ） Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A. 33
B. 28
C. 35
D. 37
[单项选择]以下程序的输出结果是
Private Sub Command1_Click（ ）
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[填空题]以下程序的输出结果是 【14】 。
main（ ）
{ int x=0；
sub(&x，8，1)；
printf(“%d/n”，x)；
}
sub(int *a，int n，int k)
{ if(k＜＝n)sub(a，n/2，2*k)；
*a+=k；
}
[单项选择]单出命令按钮执行以下程序，输出结果为( )。
Private Sub Command1_Click（ ）
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 12 32
B. 2 32
C. 2 3
D. 12 3
[单项选择]以下程序运行后，单击按钮输出结果是( )。
Private Sub Commandl_Click( )
Dim x As Integer，y As Integer，z As Integer
X=4：y=2： Z=3
Call Gopd(x，x，z)
Print x；X；Z
Call Gopd(x，y，y)
Print x；y；y
End Sub
Private Sub Gopd(x As Integer，y As Integer，z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
[填空题]以下程序运行后的输出结果是 【11】 。
Private Sub Form _ Click（ ）
i=10 ：j=0
Do
j=j+1
i=i-1
Loop while i＞2
Print j；
End Sub
[单项选择]单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，z As Integer
x=1:y=2:z=3
Call God(x，x，z)
Print x；x；z
Call God(x，y，y)
Print x；y；y
End Sub
Private Sub God(x As Integer，y As Integer，z As Integer)
X=3*z+1
Y=2*Z
z=x+y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]单击按钮时，以下程序运行后的输出结果是（ ）。
Private Sub Commandl_Click( )
Dim X As Integer，y As Integer，z As Integer
x=1：y=2： Z=3
Call God(x，x，z)
Print x；x；z
Call God(x，y，y)
Print X；y；y
End Sub
Private Sub God(x As Integer，y As Integer，z As Integer)
x=3 * Z + 1
y=2 * Z
z=x + y
End Sub
[填空题]以下程序的输出结果是______。
main（ ）
int x；0；
sub(&x，8，1)；
printf("%d/n"，x)；
sub(int *a，int n，int k)
if(k＜=n) sub(a，n/2，2*k)；
*a+=k；
[单项选择]请选出以下程序的输出结果_______。
#include＜stdio.h＞
sub(int*s,inty)
static int t=3,
y=s[t];t-；
main（ ）
int a[]=1,2,3,4,i,x=0；
for(i=0；i＜4;i++)
sub(a,x);printf("%d",x)；
printf("/n");
A. 1234
B. 4321
C. 0000
D. 4444
[单项选择]以下程序运行后，单击按钮输出结果是
Private Sub Commandl_Click( )
Dim x As Integer，y As Integer，z As Integer
X=4：y=2： Z=3
Call Gopd(x，x，z)
Print x；X；Z
Call Gopd(x，y，y)
Print x；y；y
End Sub
Private Sub Gopd(x As Integer，y As Integer，z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]以下程序输出结果为( )。
class test 2
public static void main(String args[])
int n=7；
n＜＜=3；
n=n&n+1 |n+2^n+3；
n＞＞=2；
System.out.println(n)；
A. 0
B. -1
C. 14
D. 64
[填空题]以下程序输出100以内的所有质数。
public class Class29
public static void main(String[] args)
int i，j，k=0；
System. out. println("100以内的质数有：")；
for(i=3；i＜=100；i++)
for(j=2；j＜=i/2；j++)
if(i%j==0)______；
if______
System. out. print(i+" ")；
k++；
if(k%8==0) System. out. println（ ）；
System. out. println("共"+k+"个。")；
[单项选择]单击按钮时，以下程序运行后的输出结果是（ ）。
Private Sub proc1(x As Integer，y As Integer，z As Integer)
x=3*z
y=2*z
z=x+y
End Sub
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer，Z As Integer
x=1：y=2：z=3
Call proc1(x，x，z)
Print x；x；z
Call proc1(x，y，y)
Print x；y；y
End Sub
A. 6 6 12
B. 9 5 10 6101051010
C. 9 6 12
D. 9 10 10 910155410
