用VB编写一个小程序

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text.Text = "Visual Basic程序设计"

Command1.Caption = "结束"

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

a = Form1.Width - Command1.Left

b = Form1.Height - Command1.Top

End Sub

Private Sub Form_Resize()

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

Command1.Left = Form1.Width - a

Command1.Top = Form1.Height - b

End Sub

注意，各变量名，控件名保持一致,你题目中的文本框名称为text

选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

首先启动vb6.0，执行文件-新建命令，d出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入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

---