VB 循环结构 计数循环

Question

制作四个按钮，单击后分别打印出对应题号的值
S=1+3+5+……+99
T=100+98+96+……+10
s=1+1/2+1/3+……+1/100
P=3+6+9+……+27+30+31+41+51+……+91
信息技术作业，不太会。。。

Answer 1

按你从上往下的顺序，代码如下：Private Sub Command1_Click()
Dim i As Integer
Dim Sum1 As Double
Sum1 = 0
For i = 1 To 99 Step 2
Sum1 = Sum1 + i
Next i
Print "S的值为：" & Sum1
End SubPrivate Sub Command2_Click()
Dim i As Integer
Dim sum2 As Double
sum2 = 0
For i = 10 To 100 Step 2
sum2 = sum2 + i
Next i
Print "T的值为：" & sum2
End SubPrivate Sub Command3_Click()
Dim i As Integer
Dim sum3 As Single
sum3 = 0
For i = 1 To 100
sum3 = sum3 + 1 / i
Next i
Print "s的值为：" & sum3
End SubPrivate Sub Command4_Click()
Dim i, j As Integer
Dim Sum4, Sum5 As Double
Sum4 = 0
Sum5 = 0
For i = 3 To 30 Step 3
Sum4 = Sum4 + i
Next i
For j = 31 To 91 Step 10
Sum5 = Sum5 + j
Next j
Print "P的值为:" & Sum4 + Sum5
End Sub

Answer 2

代码： Private Sub Command1_Click()
Dim i As Integer, sum As Integer
For i = 1 To 99 Step 2
sum = sum + i
Next i
Print "S=1+3+5+……+99=" + Str(sum)
End SubPrivate Sub Command2_Click()
Dim i As Integer, sum As Integer
For i = 100 To 10 Step -2
sum = sum + i
Next i
Print "T=100+98+96+……+10=" + Str(sum)
End SubPrivate Sub Command3_Click()
Dim i As Integer, sum As Double
For i = 1 To 100
sum = sum + 1 / i
Next i
Print "s=1+1/2+1/3+……+1/100=" + Str(sum)
End SubPrivate Sub Command4_Click()
Dim i As Integer, sum As Double
For i = 3 To 91 Step 3
sum = sum + i
Next i
Print "P=3+6+9+……+27+30+31+41+51+……+91=" + Str(sum)
End Sub
图：