用vb编写一个小程序程序

Question

如题所述

Answer 1

新建一个文本框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