题目
下列程序的输出结果是______。
Sub Prin()
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)End Sub
第1题
(9)下列程序的输出结果是。 Sub Prin() Dim B As String A=1 B=A & Space(4)&A PrintA Print trim(B) End Sub
第2题
下列程序的输出结果是()。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
Next i
For Each i In arr()
Next i
End Sub
第3题
下列程序运行后的输出结果是______。
void sub(int x,int y,int*z)
{*z=y-X;}
main()
{int a,b,c;
sub(7,3,&a);sub(2,a,&b);sub(a,b,&c);
printf("%d,%d,%d\n",a,b,c);
}
第4题
下列程序的输出结果是【 】。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub
第5题
下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k,"*") Print x Next End Sub
A.* * * * * *
B.1 * 2 * 3 *
C.3 * 2 * * 1 * * *
D.* * * * * *
第6题
下列程序的输出结果是______。
Private Sub Commandl_Click()
Dim alt(1 To 10)
Fori=1 To 10
arr(i) =I
Next i
For Each i In arr()
arr(i) =arr(i) *2+1
Next i
MsgBox arr(7)
End Sub
第7题
下列程序的输出结果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2) End Sub
第8题
下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k)=Print y Next End Sub
A.-10 -7
B.10 8
C.1 3
D.0 4
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!