输入初始值,输出100个不能被3整除的数。 【解答】 (1)设计程序界面和设置对象属性,如图6-1所示。 图6-1 输出100个不能被3整除的数 (2)编写代码。 增加窗体的Activate事件代码: Private Sub Form_Activate( ) Text2.SetFocus End Sub 改写命令按钮Command1的Click事件代码: Private Sub Command1_Click( ) Dim x As Integer, n As Integer x = Val(Text2.Text): n = 1 Do 1 If 2 Then Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10) n = n + 1 End If 3 4 Loop End Sub