Private Sub Form_Click() x = InputBox("请输入第一个数字：", "数字求和及平均", "1") y = InputBox("请输入第二个数字：", "数字求和及平均", "2") r = InputBox("请输入第三个数字：", "数字求和及平均", "3") t = InputBox("请输入第四个数字：", "数字求和及平均", "4") s = x + y + r + t c = (x + y + r + t) / 4 Print "四个数字的和="; s Print "四个数字的平均数="; c

End Sub

Private Sub Form_Click() dim x,y,r,t,s,c as integer x = InputBox("请输入第一个数字：", "数字求和及平均", "1") y = InputBox("请输入第二个数字：", "数字求和及平均", "2") r = InputBox("请输入第三个数字：", "数字求和及平均", "3") t = InputBox("请输入第四个数字：", "数字求和及平均", "4") s = x + y + r + t c = (x + y + r + t) / 4 Print "四个数字的和=" & s Print "四个数字的平均数=" & c

End Sub

[此贴子已经被作者于2005-2-21 18:09:29编辑过]