T1 参考http://zhidao.baidu.com/question/439422571.html
T2
Dim i, a, b As Integer
a = CInt(Text1.Text)
For i = 0 To a
b = b + 2 * i + 1
Next i
MsgBox "总和=" & b, , "结果"
T3
Dim i, j, k As Integer
Dim p As Boolean
Dim a, b As Integer
k = 1
b = 1
a = 200 '设定上限
For i = 2 To a
p = False
For j = 2 To a
If j >= i Then Exit For
If i Mod j = 0 Then p = True
Next j
If p = False Then
Print i;
b = b + i
If k Mod 5 = 0 Then Print
k = k + 1
End If
Next i
Print
Print "Sum = " & b
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024