设有程序： 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个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

查看答案

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

您可能会需要：

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

安装上学吧APP，拍照搜题省时又省心！

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

第1题

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click( ) For i=1 To 20 x=Int(【】*100+200) If【】=0 Then Print x S=S+【】 End lf Next i Print"Sum="；S End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show Dim b( ) As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：

如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。 Private Sub Combo1【】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【】Combo1.Text End If End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";b End Sub Sub pl(x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer，y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a=【】和b=【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案