用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

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

例子：

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

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

出现

Private sub command_click()

'加入内容如下

Msgbox “你好！"

sub

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

END

---