vb编程问题

1.编写 1！+2！+3！。。。。+N!。N从键盘输入
2.在窗体画三个命令按钮，标题分别为“输入成绩”“显示成绩”“计算”再画一个文本框，分别为三个命令按钮编写事件过程，运行后，单击“输入成绩”按钮将通过键盘数入50人成绩，并保存在C盘根目录下CJ.TXT;单击“显示”按钮将在文本框中显示大于80分的成绩；单击“计算‘按钮，将统计所有成绩的平均成绩并将计算结果保存在PJ.TXT文件中

答案：
dim a as integer
private sub form_click()
10 a=val(inputbox("请输入一个数"))
if a = 0 then
  goto 10
  msgbox "请重新输入"
else
  print f(a)
end if 
end sub
function  f(x)
for i =1 to x
h = 1
  for j =1 to i
     h=h*j
  next j
he = he +h
next i
f=he
end function
'试试吧本人技术不怎么样

上一个：求助VB编程
下一个：VB编程问题