询问高手这些VB怎么算啊？？都不懂呀～

来源：百度知道 编辑：UC知道 时间：2024/09/21 08:14:50
（1）计算S=1- 1/2+1/ 3+…-1/100,并打印输出。（2）求一分数数列1,1/3,1/5,1/7,1/(2n+1)…. 前20项的和。（3）输入10个整数，统计其中正数、负数及零的个数，并打印；（4）输入10位学生某课程的成绩，统计不及格人数及全班平均分，并打印；（5）输入10位学生某课程的成绩，找出最高分和最低分，并打印。

第一题
Dim s
s = 0
For i = 1 To 100
s = s + (1 / i) * (-1) ^ (i + 1)
Next i
MsgBox s

第二题：
'1/(2n+1)中第一项为1，即n=0 时。那么第20项为，n=19时
Dim s
s = 0
For n = 0 To 19
s = s + (1 / (2 * n + 1))
Next n
MsgBox s
第三题：
Dim i, j, SS1, SS2, SS3 As Single 's1为负数个数，s2为0的个数，s3为正数个数。
SS1 = 0
SS2 = 0
SS3 = 0

For i = 1 To 10
j = InputBox("输入第" & i & "个整数", "输入", i)
If IsNumeric(j) = False Or InStr(j, ".") > 0 Then
MsgBox "请输入整数!", 64, "提示"
i = i - 1

Else
Select Case Val(j)
Case Is > 0
SS1 = SS1 + 1
Case Is = 0
MsgBox 0
SS2 = SS2 + 1
Case Is < 0
MsgBox 1
SS3 = SS3 + 1
End Select

End If
Next i
MsgBox "正数:" & SS1 & "个，" & "0:" & SS2 & "个，""负数:&qu