(8)为了在运行时把dpic文件夹下的图形文件ajpg装入图片框 Picture1,所使用的语句 为【8】 s Forml (9)设有如下程序: Private Sub Form Click aS=ABCDFO For i=l To 6 Print tab(12-i),【9】 End sub 程序运行后,单击窗体,结果如图所示,请填空。 (10)在窗体上画一个命令按钮,其名称为 Command1,然后编写如下代码 Private Sub Commandl Click() Am=Aray(43,68,-25,65,-78,12,-79,43,-94,72) neg=0 For k=l to 1 If Arr(k) >0 Then 【10】 【11】 End If Print pos, neg End Sub 以上程序的功能是,计算并输出数组Am中10个数的正数之和pos与负数之和neg, 请填空, (11)在窗体上画一个名为 Command1的命令按钮,然后编写如下程序: Private Sub Command1 Click() Dim i as inte n=Input Box("Enter a number") n-Val(n) For i=l To Sum=【12】 Print Sum End Sub Function fun(t As Integer )As Long F 二级Ⅴ isual basic语言程序设计试卷第9页(共10页)二级 Visual Basic 语言程序设计试卷 第 9 页（共 10 页） （8）为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句 为 【8】 。 （9）设有如下程序： Private Sub Form_Click( ) Cls a$="ABCDFG" For i=1 To 6 Print Tab(12-i); 【9】 Next i End Sub 程序运行后，单击窗体，结果如图所示，请填空。 （10）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim Arr Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72) pos=0 neg=0 For k=1 To 10 If Arr(k)>0 Then 【10】 Else 【11】 End If Next k Print pos, neg End Sub 以上程序的功能是，计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg， 请填空。 （11）在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n Sum= 【12】 Next i Print Sum End Sub Function fun(t As Integer)As Long p=1 For i=1 To t