编制一个表单,实现在文本框中输入一个起始数,则在编辑框中显示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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com