level 4
负数：用InputBox函数输入一个数，赋值给变量，判断该变量是否小于0，如果是，则Print到窗体上
偶数和：令m和n分别等于两个文本框中的数，令i从m循环到n，依次判断每个i是否为偶数（即除以2的余数是否为0），如果是，则累加到求和变量中；循环之后，输出求和变量的值
2022年05月11日 15点05分
level 11
Option Explicit
Private Sub Command1_Click()
Dim a As Double
a = Val(InputBox("请输入数据", "判断负数"))
If a < 0 Then Print CStr(a)
End Sub
Private Sub Command2_Click()
Dim m As Long
Dim n As Long
Dim i As Long
Dim s As Double
m = -Int(-Val(Text1.Text))
n = Int(Val(Text2.Text))
For i = m To n
If i Mod 2 = 0 Then s = s + i
Next i
Print s
End Sub
2022年05月11日 18点05分
3
Private Sub Command1_Click()
Dim a As Double
a = Val(InputBox("请输入数据", "判断负数"))
If a < 0 Then Print CStr(a)
End Sub
Private Sub Command2_Click()
Dim m As Long
Dim n As Long
Dim i As Long
Dim s As Double
m = -Int(-Val(Text1.Text))
n = Int(Val(Text2.Text))
For i = m To n
If i Mod 2 = 0 Then s = s + i
Next i
Print s
End Sub