编制一个表单,实现在文本框中输入一个起始数,则在编辑框中显示20个...
发布网友
发布时间:2024-10-20 07:36
我来回答
共1个回答
热心网友
时间:6分钟前
一个command1按钮,一text1文本框,一个text2文本框,text2文本框属性"MultiLine"设为True,一个label1控件
Private Sub Command1_Click()
i = 0
a = 0
Text2.Text = ""
ii = Text1.Text
Do While i < 20
ii = Val(ii) + 1
If ii Mod 3 = 0 And Right(ii, 1) = 3 Then
Text2.Text = Text2.Text & vbLf & vbCr & ii & vbLf & vbCr
a = a + ii
i = i + 1
End If
Loop
Label1.Caption = "这组数字的和=" & a
End Sub