填空题(每题2分,计16分)

　　1. 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

　　Private Sub Form_Load()

　　For i=1 To 100

　　If i Mod 7 =0 Then

　　_【 1_】__

　　End If

　　Next i

　　End Sub

　　Private Sub Command1_Click()

　　Sum =0

　　For i=0 To__【 2_】__

　　Sum =Sum+_【_3 】_____

　　Next i

　　Text1.Text=Sum

　　End Sub

　　2.按存储信息的形式分类，文件可以分为【 4 】和【 5 】。

　　3. 以下语句输出结果是 【 6 】 。

　　Print Int(12345.6789 * 100 + 0.5) / 100。

　　4.数学表达式 的VB算术表达式为【 7 】。

　　5.表达式Lcase(left(“ABCDEFG”,5)的值是【 8 】。

　　6.设有如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arr1

　　Dim Min As Integer, i As Integer

　　arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

　　Min = 【9】

　　For i = 2 To 8

　　If arr1(i) < Min Then 【10】

　　Next i

　　Print "最小值是："; Min

　　End Sub

　　以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

（1）list1.additem i 　  list1.listcount-1   list1.list(i)

（2）ASCII文件 二进制文件

（3）12345.68

（4）Sqrt(x)/2/(x+y)+3^2-3*x

（5）abcdef

（6）Array(1)  min=array(1)