vb题 vb 达人帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/08 09:24:23
1 ）输入n，用InputBox再输入n个数，求最大值和平均值。
2）输入n，再输入n个学生的成绩，统计及格人数。
3）单击命令按钮command1求表达式 x/2!+x^2/3!+x^3/4!+...+x^n/(n+1)! 的值。其中x在文本框text1中输入(x为实数),n在文本框text2中输入,结果在文本框text3中输出。
设变量定义为Single类型.

1.

Private Sub Command1_Click()
Dim i As Long
Dim n As Long
Dim sum As Single
Dim s As String
Dim max As Single

s = InputBox("输入一个正整数", "输入")
n = CLng(s)

s = InputBox("输入数字", "输入")
max = CSng(s)
sum = max
For i = 2 To n
s = InputBox("输入数字", "输入")
If CSng(s) > max Then max = CSng(s)
sum = sum + CSng(s)
Next i

Print "最大值:"; max
Print "平均值:"; sum / n
End Sub

2.

Private Sub Command2_Click()
Dim i As Long
Dim n As Long
Dim count As Long
Dim s As String

s = InputBox("输入人数", "输入")
n = CLng(s)

For i = 1 To n
s = InputBox("输入成绩", "输入")
If CSng(s) >= 60 Then count = count + 1
Next i

Print "及格人数:"; count
End Sub

3.

Function