更多"有以下程序:
Option Base 1
Dim"的相关试题:
[单项选择]有以下程序:
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. 813
B. 013
C. 712
D. 00
[单项选择]有以下程序:
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 i
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next i
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)
Fori=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
Forj=3 To 4
arr(3,j)=j+9
Nextj
Print arr(3,2);arr(3,4)
End Sub程序运行后,单击窗体,输出结果为______。
A. 0 0
B. 7 12
C. 0 13
D. 8 13
[单项选择]阅读程序: 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
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
[单项选择]阅读程序:
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 arr2( ) As Integer
Prtvate Function FindMax(a( )As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound 【10】
Finish:UBound 【11】
Max= 【12】
For i=Start To Pinlsh
If a (i)>Max Then Max= 【13】
Next i
FindMax=Max
End Function
Private Sub Commandl_Click( )
Dim arr1
arrl=Atray(12,435,76,24,78,54,866,43)
b=UBound(arrl)
Renm arr2( 【14】 )As Integer
For i=1 TO b
arr2(i)=CInt( 【15】 )
Next i
M=FindMax(arr2( ))
Print"最大值是:":M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组,把这个数组作为参数传送到通用过程PindMax,并返回该数组的最大值。请填空。
[填空题]阅读程序:
Option Base 1
Dim arr2( ) As Integer
Prtvate Function FindMax(a( )As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound 【10】
Finish:UBound 【11】
Max= 【12】
For i=Start To Pinlsh
If a (i)>Max Then Max= 【13】
Next i
FindMax=Max
End Function
Private Sub Commandl_Click( )
Dim arr1
arrl=Atray(12,435,76,24,78,54,866,43)
b=UBound(arrl)
Renm arr2( 【14】 )As Integer
For i=1 TO b
arr2(i)=CInt( 【15】 )
Next i
M=FindMax(arr2( ))
Print"最大值是:":M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组,把这个数组作为参数传送到通用过程PindMax,并返回该数组的最大值。请填空。
[单项选择]
阅读程序:
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
[单项选择]有如下程序:
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 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
[单项选择]下面程序运行后,输出的结果是
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)
For j=1 To 3
For k=1 To 3
[单项选择]语句Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是( )。
A. 20
B. 12
C. 15
D. 24
[单项选择]阅读程序:
Option Base 1
Dim art( )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 ale(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
[单项选择]设有如下程序:
Option Base 1
Dim a(3, 4) As Integer, b(4, 3) As Integer
Private Sub Command1_Click( )
’循环1
For i = 1 To 3
For j = 1 To 4
b(j, i) =a(i, j)
Next j
Next i
’循环2
x=b(1, 1)
For i = 1 To 4
For j = 1 To 3
Print b(i, j);
if x<b(i, j) Then x=b(i, j)
Next j
Print
Next i
End Sub
程序中的数组a已被赋值。以下关于上述程序的叙述中,正确的是( )。
A. 窗体模块中,不能使用Dim声明a、b数组
B. “循环1”可以正常运行
C. “循环2”中循环变量i、j的终值不对,所以不能正常运行
D. 程序可以正常运行,x中保存的是数组b中所有元素中最小的数