Question

用VB编写一个小程序

题目如下：
设计一窗体，窗体上有1个文本框（Text)，
1个命令按纽（Command1），
运行时文本框中显示”Visual Basic程序设计"，
命令按钮标题为“结束”，
文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，
其中调整文本框使其：Left=0,Top=0,宽度和高度能为窗体的一半；
命令按钮：始终位于窗体右下角。
请编写：
（1）用代码初始化各控件（提示：可写在Form_Load事件中）.
(2)文本框控件随窗体大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码
（提示：调整大小位置的代码写在Form_Resize事件中）.
(3)结束程序运行的代码（命令按钮）。

有会的直接把编写完的语言发上来！！！

Answer 1

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

Answer 2

这还不简单：
Private Sub Form_Load()
Text1.Text = "Visual Basic程序设计"
Command1.Caption = "结束"
End Sub
Private Sub Form_Resize()
Dim W, H
W = Me.ScaleWidth: H = Me.ScaleHeight
Text1.Move 0, 0, W * 0.5, H * 0.5
Command1.Move W - Command1.Width * 1.1, H - Command1.Height * 1.1
End Sub
Private Sub Command1_Click()
Unload Me
End Sub