(8) 下列事件过程的功能是：通过form_load事件给数组赋初值为35、48、15、22、67，form_click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。
dim arr()
private sub form_load()
    【8】
end sub
private sub form_click()
    【9】
     if int(x / 3) =x / 3 then
        print x
     end if
   next x
end sub
正确答案:  1.(arr = array(35, 48, 15, 22, 67)) 2.(for each x in arr)

(9) 给定年份，下列程序用来判断该年是否是闰年，请填空。
sub yn()
    dim x as integer
    x=inputbox("请输入年号")
    if (x mod 4=0 【10】 x mod 100 <> 0) 【11】 (x mod 400=0) then
      print "是闰年"
else
     print "不是闰年，是普通年份"
   end if
end sub
正确答案:  1.(and) 2.(or)

(10) 在e盘当前目录文件夹下建立一个名为"student.txt"的顺序文件，要求用inputbox函数输入5个学生的姓名(stuname) 、年级(stugrade) 和年龄(stuage) 。
private sub form_click()
    【12】
   for i=1 to 5
      stuname=inputbox("请输入姓名")
      stugrade=inputbox("请输入年级号")
      stuage=inputbox("请输入年龄")
        【13】
    next i
    【14】
end sub
正确答案:  1.(open) 2.("e:＼student.txt" for output as #1) 3.(write #1, s)

(11) 在窗体上有一个命令按钮，然后编如下事件过程：
function sr(x as double) as double
   select case sgn(x)
   case 1
       sr=sqr(x)
       exit function
   case 0
       sr=0
   case -1
       sr=-1
   end select
end function
private sub command1_click()
   dim msg, srn
   dim n as double
   n=inputbox("请输入要计算平方根的数")
   msg=n & "的平方根"
   select case sr(n)
       case 0
            msg=msg & "是0"
       case -1
          msg=msg & "是一个虚数"
       case else
          msg=msg & "是" & sr(n)
   end select
   msgbox msg
end sub
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
正确答案:  1.(-1的平方根是一个虚数)