2021年1月23日发(作者：calculator)
1.
找出一个数的整数因子。

Private Sub Command1_Click()
Dim n%, i%
n = InputBox(
请输入一个整数








For i = 1 To n


If n Mod i = 0 Then Print i
Next i
End Sub

2.
随机产生数，并取出其中的偶数，并打印

Private Sub Command1_Click()
Dim i%, n%, m%
For i = 1 To 50


n = Int(Rnd * 100 + 1)


If n Mod 2 = 0 Then





m = m + 1





Print n;





If m Mod 5 = 0 Then Print

End If
Next i
Print
End Sub

1

3
水仙花 数（所谓水仙花数，是指一个
3
位数，其各位数字立方和等于该数字本身）

Private Sub Command1_Click()




Dim i As Integer, a As Integer, b As Integer




Dim c As Integer, st As String




For i = 100 To 999








a = i 100








b = (i Mod 100) 10








c = i Mod 10








If i = a ^ 3 + b ^ 3 + c ^ 3 Then













st = i &













m st








End If



Next i
End Sub

4
富人和穷人互给钱（书上
P270
第
8
题）

Private Sub Command1_Click()
Dim sum1!, sum2#
sum1 = 100000 * 30
t = 0.01
For i = 1 To 30

2



sum2 = sum2 + t



t = 2 * t
Next i
Print
陌生人给富翁的钱是

Print
富翁给陌生人的钱是

End Sub

5.
加密

Option Explicit

Private Sub Command1_Click()


Dim i%, s1$$, s2$$


s1 =


For i = 1 To Len(s1)




If Mid(s1, i, 1) =







s2 = s2 & Mid(s1, i, 1)




ElseIf Asc(Mid(s1, i, 1)) + 2 > Asc(







s2 = s2 & Chr(Asc(Mid(s1, i, 1)) + 2 - 26)




Else







s2 = s2 & Chr(Asc(Mid(s1, i, 1)) + 2)













End If






Next i
= s2

End Sub

Private Sub Command2_Click()


Text1 =


Text2 =


us
End Sub

3