题目内容（请给出正确答案）

[主观题]

设有程序： Option Base 1 Private Sub Command1_Click（) Dim arrl, Max As Integer arrl=Arr

设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【】=arrl(1) For i=1 To 8 If arrl(i)＞Max Then【】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“设有程序： Option Base 1 Private Su…”相关的问题

第1题

设有程序： Option Base 1 Pfivme Sub Command1_Click（) Dim arr1，Ma

设有程序： Option Base 1 Pfivme Sub Command1_Click() Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) 【】=arr1(1) For i=1 To 8 If arr1(i)＞MaxThen【】 Next i Print"最大值是："；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

点击查看答案

第2题

设有如下程序：Option Base 0Private Sub Form_Click（)Dim aDim I As Integera=Array（1,2,3,4,5,6,7,8,9)For I=0 To 3Print a（5 – I);Next IEnd Sub程序运行后，单击窗体，则在窗体上显示的是（)。

A.4321

B.5432

C.6543

D.7654

点击查看答案

第3题

以下程序的输出结果是（)。 Option Base 1 Private Sub Command1_Click（) Dim a（10),p（3)as Integ

以下程序的输出结果是()。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub

A．33

B．28

C．35

D．37

点击查看答案

第4题

Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j>

Option base 1 Private sub command1_click（) Dim a（3,3) For I=1 to 3 For j=1 to 3 If j＞

Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j＞1 and I＞1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后，单击命令按钮后，在窗体显示的结果是？

点击查看答案

第5题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

点击查看答案

第6题

下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。 Option Base

1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) If【】Then Total = Total + n(k) End If Next k Print Total End Sub

点击查看答案

第7题

下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示【

】行数据，其中第2行和第3行的数据分别是【】和【】。 Option Base 1 Private Sub Command1_Click() Dim a， s As String，i As Integer a=Array(1，3，5，7，2，4，6，8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub

点击查看答案

第8题

要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充

完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【】 Do x=Rnd If x＞0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 【】 Do While k＜j If t ＜＞ b(k)Then k = k + 1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k)； j=j+1 End If Loop Until j＞50 Print 【】 Max=b(1) For n=2 To 50 If b(n)＞Max Then 【】 p = n End If Next n Print "最大数是："；Max Print "位置在第"；p；"个" End Sub

点击查看答案

第9题

下列说法正确的是()。

A.即使数据类型为Variant,数组中的元素类型也必须保持⼀致

B.数据类型为Variant时,数组中的元素可以包含不同的类型

C.在数组中如果使⽤Option Base 1语句,则缺省的下界为0

D.在数组中如果没有使⽤Option Base语句,则缺省的下界为1

点击查看答案

第10题

用下列语句定义数组的元素个数是（)。Option Base1Dim Arr5（0 to 6，0 to 5)As IntegerA．42B．30C．37

用下列语句定义数组的元素个数是()。 Option Base 1 Dim Arr5(0 to 6，0 to 5)As Integer

A．42