Question

vb问题：任意输入三十个数，请编写程序能计算其和，平均值，平方和

这个代码对不对，怎么不能运行呢
Private Sub Form_Load()
Dim a(1 To 30), w%, r%, s%
Dim i%
w = 0: r = 0: s = 0
For i = 1 To 5
a(i) = Val(InputBox("请输入30个数"))
Next i
w = w + a(i): s = s + a(i) ^ 2
r = w / 30
Print "和为" & w
Print "平均值为" & r
Print "平方和为" & s
End Sub

Answer 1

Private Sub Command6_Click()
Dim ss As String, s1 As Single, s2 As Single, s3 As Single
Dim sL As Variant
ss = InputBox("请输入30个数,用逗号','隔开")
sL = Split(ss, ",")

If UBound(sL) <> 30 Then
MsgBox "数字不对"
Exit Sub
End If

s1 = 0
s2 = 0
For i = 0 To UBound(sL)
s1 = s1 + sL(i)
s2 = s2 + sL(i) ^ 2
Next
s3 = s1 / (UBound(sL) + 1)
Print "和为" & s1; ",平均值为" & s3; ",平方和为" & s2

End Sub

追问

显示类型不匹配，是怎么回事呢?

追答

请改一下
s1 = s1 + Val(sL(i))
s2 = s2 + Val(sL(i)) ^ 2
注意你的逗号要是半角的即 不是"，" 是","

追问

恩恩，成功了，谢谢啊。。
可不可以帮忙再看看这个题呢？
在学生文件中，分别用三种循环结构命令编程，实现以下功能：
①统计男、女生人数
②统计不及格，60-80,80-90,90分以上的各级别学生人数
③按学号和总成绩查找学生

追答

学生文件是个什么文件，是个表格？

追问

题目也没有叙述清楚，就只是这样说的，如果是txt文件，可以做么？
就像这样的：

姓名 学号 成绩 性别
张三 01 90 男
李斯 02 80 女

Answer 2

Private Sub Form_Load()
Dim a(1 To 30), w%, r%, s%
Dim i%
w = 0
r = 0
s = 0
For i = 1 To 30
a(i) = Val(InputBox("请输入" & i & "个数"))
w = w + a(i)
s = s + a(i) * a(i)
r = w / 30
Next i
Print "和为" & w
Print "平均值为" & r
Print "平方和为" & s
End Sub

追问

为什么还是显示不了结果呢，谢谢

追答

Private Sub Form_Load()
Dim a(1 To 30), w%, r%, s%
Dim i%
w = 0
r = 0
s = 0
For i = 1 To 30
a(i) = Val(InputBox("请输入" & i & "个数"))
Next i
For i =1 to 30
w = w + a(i)
s = s + a(i) * a(i)
r = w / 30
Next i
Print "和为" & w
Print "平均值为" & r
Print "平方和为" & s
End Sub

追问

恩恩，成功咯，谢谢哦，
可不可以帮忙再看看这个题呢？
在学生文件中，分别用三种循环结构命令编程，实现以下功能：
①统计男、女生人数
②统计不及格，60-80,80-90,90分以上的各级别学生人数
③按学号和总成绩查找学生

追答

另一个问题我无能为力了。