用vb编写一个小程序程序
展开全部
新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。
新建一个命令按钮Command1,添加以下代码：
Private
Sub
Command1_Click()
Dim
i
As
Integer
For
i
=
1
To
100
If
(i
Mod
5
=
0)
And
(i
Mod
3
<>
0)
Then
Text1.Text
=
Text1.Text
&
vbCrLf
&
i
Next
End
Sub
新建一个命令按钮Command1,添加以下代码：
Private
Sub
Command1_Click()
Dim
i
As
Integer
For
i
=
1
To
100
If
(i
Mod
5
=
0)
And
(i
Mod
3
<>
0)
Then
Text1.Text
=
Text1.Text
&
vbCrLf
&
i
Next
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
