题目
(9)下列程序的输出结果是。 Sub Prin() Dim B As String A=1 B=A & Space(4)&A PrintA Print trim(B) End Sub
第1题
以下程序的输出结果是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
第2题
若有如下程序: sub(p,n) int(*p)[3],n; { int i; for(i=0;i<=n;i++) printf("%d",*(*(p+i)+n)); } main() {int s[3][3]={1,2,3,4,5,6,7,8,9}; sub(s,2); } 则程序运行后的输出结果是()
A.3 6 9
B.2 4 8
C.4 5 6
D.7 8 9
第3题
(23)下列程序运行时输出的结果是 Option Base 1 Const a=10 Priate Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub A.1 3 5 7 9 10 B.-1 -3 -5 -7 -9 C.-1 2-3 4-5 6-7 8-9 10 D.1-2 3-4 5-6 7-8 9-10
第4题
下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
第5题
当发生Form_Click事件时,下列程序的输出结果是()。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer,p As Integer k=6:p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub
A.7 75 66 60 7 80 126 60
B.7 75 66 60 7 75 126 60
C.7 75 66 60 7 80 66 60
D.7 75 66 60 7 75 66 60
第6题
运行下列程序:
Private Sub Command1_Click()
a = Val(InputBox("a = "))
Print fun1(a)
End Sub
Private Function fun1(b)
If b > 0 Then
fun1 = 10
ElseIf b = 0 Then
fun1 = 9
Else
fun1 = 8
End If
End Function
单击按钮后从键盘为变量a输入数据3,输出的结果是()。
A.3
B.8
C.9
D.10
第7题
下列程序运行时输出的结果是 Option Base 1
Private Sub Form_Click()
Dim x(10) As Integer,y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A.3 7 11 45 19
B.19 15 11 7 3
C.1 3 5 7 9
D.不确定的值
第8题
下列程序运行时输出的结果是()。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i); NextI
A.3 7 11 45 19
B.17 13 9 5 1
C.1 3 5 7 9
D.不确定的值
第9题
下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form. Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
第10题
A.33
B.28
C.35
D.37
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!