(委屈...)是不是我学习态度不端正>o<

态度确实不端正，连题目都能弄错了。以下红色标注处应该是题目遗漏的文字。

3、下列程序是通过键盘输入8个整数，输出最大的数，请完成填空= =

  sub max1()
  dim d(8) as integer,i as integer,max_1 as integer
  for i=1 to 8
      d(i)=inputbox("请输入任意一个整数：")
  next i
  max_1=d(1)
  for i =2 to 8
      if d(i)>max_1 then max_1=d(i)
  next i
  msgbox max_1
  end sub

4、常数e=1+1/1!+1/2!+1/3!+……+1/n!，式中某一项的值小于10^(-3)为止。要求用函数过程F1运算e值，并用另一个Function过程F2获得1/n!倒数的值

 sub F1
 dim i as integer,e as single,x as single
 i=1
 e=1
 x=1/1
 do while Ture
    if x<=0.001 then exit do
       e=e+x
       i=i+1:x=x*1/i
 loop
 msgbox e & " " & i
 end sub
 

function F2(x as integer) as long
dim j as integer,mult as long
mult=1
for j =1 to x
     mult =mult *j
next j
F2=1/mult
end function