VB程序设计1．在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。要求：（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。（2）每单击Command1按

Question

VB程序设计
1．在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。
要求：
（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。
（2）每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。
（3）单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。
（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。
（5）双击窗体后可以退出。
2．设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：
（1）用代码初始化各控件（提示：可写在Form_Load事件中）。
（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。
（3）结束程序运行的代码（命令按钮）。

Answer 1

Private Sub Command1_Click()
Form1.FontSize = Val(Form1.FontSize) + 3
Print "欢迎使用VB"
End Sub
Private Sub Command2_Click()
Form1.FontSize = Val(Form1.FontSize) - 3
Print "欢迎使用VB"
End Sub
Private Sub Command3_Click()
Form1.FontBold = True
Print "欢迎使用VB"
End Sub
Private Sub Command4_Click()
Form1.FontBold = False
Print "欢迎使用VB"
End Sub
Private Sub Form_DblClick()
End
End Sub