Private Sub Command1_Click()
Dim m As Integer, n As Integer, d As Integer
Dim s As Long '保存结果
m = Val(Text1.Text)
n = Val(Text2.Text)
d = Val(Text3.Text)
s = 0
sum m, n, d, s
Label4.Caption = m & "到" & n & "之间能被
Private Sub Command1_Click()
Dim m As Integer, n As Integer, d As Integer
Dim s As Long '保存结果
m = Val(Text1.Text)
n = Val(Text2.Text)
d = Val(Text3.Text)
s = 0
sum m, n, d, s
Label4.Caption = m & "到" & n & "之间能被