Question

编写一程序,要求单击"开始"按钮(command1),在文本框(text1)中输出100～200之间

Answer 1

加个 Text1 控件，设它的 MultiLine 为 True，ScrollBars 为 2
加个 Command1 控件和代码：
Private Sub Command1_Click()
Dim i As Long
Text1 = ""
For i = 100 To 200
If i Mod 3 > 0 Then
Text1 = Text1 & vbCrLf & i
End If
Next
End Sub

追问

清除呢？单击清除按钮(command2),清除文本框中的全部内容

追答

Private Sub Command2_Click()
Text1 = ""
End Sub