维生素K3是()
第1题:
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
第2题:
以下程序的输出结果是【 】。
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;
}
第3题:
下面程序运行后,窗体中显示【 】。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
第4题:
以下程序的输出结果是( )。
include<stdio.h>
main()
fint x=0;
sub(&x,16,2);
printf("%d\n",x);
}
sub(int*a,int n,int k)
{if(k<=n) sub(a,n/2,2*k);
*a+=k;
}
第5题:
下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }
A.6
B.7
C.8
D.9
第6题:
下列程序的运行结果为【 】。
A="1"
B="2"
A=Val (@A@+Val (@B@B=Val ("12")
If A<>B Then Prink A-B Else Print B-A
(11)阅读下列程序:
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j<> k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时,输出的结果是【 】
第7题:
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k<=n
Print m
End Sub
第8题:
有如下程序,该程序的执行结果是【 】。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
第9题:
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j<> k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k);
Next k
Next j
End Sub
运行程序时,输出的结果是【 】。
第10题:
在窗体上画一个名称为CoilTlilandl的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3:x(i)=i:Next i For i = 1 To 2: Call sub1(x,i):Next i For i = 0 To 3: Print x(i);: Next i End Sub Private Sub sub1(a()As Integer,k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j < 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3