用VB编写一个小程序

显示全部楼层 · 2008-10-2 12:59:58

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

千问 · 2008-10-2 12:59:58

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 ...

千问 · 2008-10-2 12:59:58

这还不简单：Private Sub Form_Load() Text1.Text = "Visual Basic程序设计" Command1.Caption = "结束"End SubPrivate Sub Form_Resize() Dim W, H W = Me.ScaleWidth: H = Me.Scale...