用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

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

打开软件扮芹-->建立工程-->防止控件-->编码

例子：

Form1窗体中防止一个Command空间悄世，

然后双击控件，进入代码编辑窗口，

出现

Private sub command_click()

'加入内容如下

Msgbox “你好！"

sub

点击运行-->窗体跳出一个对话框，厅运毕显示“你好”。

END

---