题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-10-21 11:51:19

[单项选择]下面程序运行后,输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Art(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j); Next k Print Next j A) 2 5 B) 5 8 C) 4 7 D) 5 9  3 6  6 9  5 8  6 8

更多"下面程序运行后,输出的结果是 Dim arr(3,3) Fo"的相关试题:

[单项选择]下面程序运行后,输出的结果是
Dim arr(3,3)
For j=1 To 3
  For k=1 To 3
    Arr(j,k)=(j-1)*3+k
  Next k
Next j
For j=2 To 3
  For j=2 To 3
    Print art(k,j);
  Next k
  Print
Next j
A. 2 5
B. 5 8
C. 4 7
D. 5 9
[单项选择]下面程序运行后,输出的结果是
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
[单项选择]下面程序段,运行后的结果是
Private Sub Command1_Click( )
Dim b%(1 To 4),i%,t#
  For i=1 To 4
    b(i) =i
  Next
  t=Tof(b( ) )
  Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
  t=1
  For i=2 To UBound(
[单项选择]下面程序运行后的结果是( )。
Private Sub Form_Click( )
Dim s As Integer,k As Integer,i As Integer,n As Integer
s=1
fori=1 to 3
forj=i to 3
for k=j to istep-1
s=s*k
nextk,J,i
print s
End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下面程序段,运行后的结果是 Private Sub Commandl_Click( )  Dim b%(1 To 4),i%,t#  For i=1 To 4   b(i)=i  Next i  t=Tof(b( ) )  Print"t=";t, End Sub Function Tof(a( ) As Integer)  Dim t#,i%  t=1  For i=2 To UBound(
[单项选择]阅读程序: Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger,j As Integer ReDim arr(3,2) For i=1 To 3 Forj=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Nextj Print arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序: Option Base 1 Dim arr( ) As Integer Private Sub Form_Click( ) Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 an(i,j) =i*2+j Next Next ReDim Preserve an(3,4) For j=3 To 4 an(3,j) =j+9 Next Print arr(3,2) +air(3,4) End Sub 程序运行后,单击窗体,输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]有以下程序: Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i As Integer,j As Integer ReDim arr(3,2) FOr i=1 To 3 For j=1 To 2 an"(i,J)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2);arr(3,4) End Sub 程序运行后,单击窗体,输出结果为【 】
A. 8 13
B. 0 13
C. 7 12
D. 0 0
[单项选择]阅读程序: Option Base 1 Dim arr( ) As Integer Private Sub Form_Click( ) Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后,单击窗体,输入结果为______。
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序:
Option Base 1
Dim arr( )As Integer
Private Sub Form_Click( )
Dim i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
A. 21
B. 13
C. 8
D. 25

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码