填空题
设有程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
(14)
=arr1(1)
For i=1 To 8
If arr1(i)>Max Then
(15)
Next i
Print"最大值是:";Max
End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。
【参考答案】
Max
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
N>Max
点击查看答案
填空题
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程 Private Sub Command1_Click() Dim a As String a=______ For i=1 To 5 Print Space(6-i);Mid$(a,6-i,2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果如下,请填空。 5 456 34567 2345678 123456789
点击查看答案
相关试题
S-Max-Min
Max=arr1(i)
首先执行循环体,然后再进行条件判断,决定...