填空题

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

【参考答案】

[12] Max
[13] Max=arr1(i)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load( ) Timer1.Enabled=False Timer1.Interval= 【6】 End Sub Private Sub Form_Click( ) Timer1.Enabled= 【7】 End Sub Private Sub Timer1_Timer( ) Label1.Caption= 【8】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
填空题
在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Pfivme Sub Command1_Click( ) If List1.List1ndex＞= 【9】 Then List1.Removehem 【10】 Label1.Caption= 【11】 Else MsgBox“请选择要删除的项目” End If End Sub
相关试题