求高人解答VB题

来源：百度知道 编辑：UC知道 时间：2024/06/23 08:53:41
设计一窗体，窗体上有1个文本框，一个命令按钮，运行时文本框中显示“程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0 , top=0 ，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角。请编写
1 用代码初始化各控件
2 文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码
3 结束程序运行的代码（命令按钮）

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = "程序设计"
Text1.Left = 0
Text1.Top = 0
Text1.Width = Form1.Width / 2
Text1.Height = Form1.Height / 2
Command1.Caption = "结束"
Command1.Left = Form1.Width - Command1.Width - 500
Command1.Top = Form1.Height - Command1.Height - 500
End Sub

Private Sub Form_Resize()
Text1.Left = 0
Text1.Top = 0
Text1.Width = Form1.Width / 2
Text1.Height = Form1.Height / 2
Command1.Caption = "结束"
Command1.Left = Form1.Width - Command1.Width
Command1.Top = Form1.Height - Command1.Height
End Sub