Private Sub Command1_Click()
For i = Val(Text1.Text) To Val(Text2.Text)
If i Mod 2 = 0 Then s = s + i
Next
Label1.Caption = Text1.Text & "..." & Text2.Text & "之间的偶数和=" & s
End Sub
追问这样子就是显示在标签框当中了么?
追答是的,请看代码:
Label1.Caption = Text1.Text & "..." & Text2.Text & "之间的偶数和=" & s
就是显示在标签中了的。