Question

如图，用VB编写程序，求大佬帮忙!!!

Answer 1

第一题：

Dim i As Integer
Dim n As Integer
Dim SUM As Integer
SUM = 0
n = 0
For i = 100 To 200
   If i Mod 5 = 0 And i Mod 3 <> 0 Then
      Print i,
      SUM = SUM + i
      n = n + 1
      If n Mod 5 = 0 Then Print
   End If
Next i
Print
Print "SUM="; SUM

第二题：

Dim s As Double
Dim i As Integer
Dim fz As Integer
Dim fm As Integer
fz = 2
fm = 1
s = 0
For i = 1 To 10
   s = s + fz / fm
   fz = fz + fm
   fm = fz - fm
Next i
Print s