4.编程求1到5000之间的能被5整除的前若干个奇数之和，当和大于500时,终止求和，并输出该和
Private Sub Form_Click()
Dim i As Integer, s As Long
FontSize = 14
FontBold = True

If i Mod 2 <> 0 Then s = s + i
If s > 500 Then Exit For
Next i
Print s
End Sub

5.编程求在四位数的奇数中，所有各位数字之和是25的倍数的数之和。(1298515)
Private Sub Form_Click()
Dim m%, a%, b%, c%, d%, s&
s = 0
FontSize = 14: FontBold = True
Print: Print: Print
For m = 1001 To 9999 Step 2
a = Int(m / 1000)
b = Int((m - 1000 * a) / 100)
c = Int((m - 1000 * a - 100 * b) / 10)
d = m Mod 10
If Then s = s + m
Next m
Print s
End Sub

6.编程求在四位数的偶数中，所有各位数字之积是25的倍数的数之和。(555500)
Private Sub Command1_Click()
sum = 0
For i = 1000 To 9999 Step 2
d1 = i Mod 10
d2 = (i \ 10) Mod 10
d3 = (i \ 100) Mod 10
d4 = i \ 1000
d = d1 * d2 * d3 * d4
If Then sum = sum + i
Next i
Print sum
End Sub

7.编写一个程序，求一个最大的正整数N，使N!<5000。
Private Sub Command1_Click()
Dim n As Integer, f As Long
f = 1
n = 1
While
f = f * n
n = n + 1
Wend
Print n-1
End Sub

8.某人想将手中的一张面值100元的人民币换成5元、1元和0.5元面值的票子50张，且要求每种至少1张。求换法的种数。
Private Sub Form_Click()
Dim i, j, k As Integer, RMBsum As Integer
RMBsum = 0
For i = 1 To 19
For j = 1 To 48
k = 50 - i - j
If Then
RMBsum = RMBsum + 1
Print i; j; k
End If
Next j, i
FontSize = 12: FontBold = True
Print RMBsum
End Sub