![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/7dd98d1001e939011e00892777ec54e736d196ac?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = Text1
n = Text2
s = 0
For i = m To n
If i Mod 2 = 1 Then s = s + i
Next i
Print s
End Sub
Private Sub Form_Load()
Label1.Caption = "整数m"
Label2.Caption = "整数n"
Text1 = ""
Text2 = ""
Command1.Caption = "计算"
End Sub
追问![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/cc11728b4710b912b629fde7cffdfc039245223a?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
那这题怎么做😔
追答![]()
Private Sub Command2_Click()
Dim n As Integer
n = Text1
If n < 0 Then MsgBox "负数" Else MsgBox "非负数"
End Sub
Private Sub Form_Load()
Label1.Caption = "输入整数"
Text1 = ""
Command2.Caption = "判断"
End Sub
追问不是是底下年利率那题😁