更多"阅读程序: Option Base 1 Dim arr2( ) As "的相关试题:
[填空题]阅读程序:
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 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 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 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
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) > a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后,按回车键;输出结果是______。
[单项选择]阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]阅读程序:
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]有以下程序:
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 Base1
Private Sub Form_Click( )
Dim a(3)As Integer
Print“输入的数据是:”;
For i=1 To 3
a(i)=InputBox(“输人数据”)
Print a(i);
Next
Print
If a(1) t=a(1)
a(1)=a(2)
a(2)= 【8】
End If
If a(2)>a(3) Then
m=a(2)
Else If a(1)>a(3)Then
m= 【9】
Else
m= 【10】
End If
Print“中间数是:”;m
End Sub
程序运行后,单击窗体,在输入对话框中分别输人三个整数,程序将输出三个数中的中间数,如图所示。请填空。[*]