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

Answer 2

第一个问题：
Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize - 1

End Sub

Private Sub Command2_Click()
Label1.FontSize = Label1.FontSize + 1

End Sub

Private Sub Command3_Click()
Label1.FontBold = Not Label1.FontBold（单击一次时为粗体，第二次时为标准）
End Sub
在label1的caption属性里改你要填写的东西。
等下再发问题2给你。

Answer 3

大哥你这个问题很简单，只不过在这里不能把代码全给你，你的问题描述的不清楚，
我吧几个关键的技术点告诉你：字体变化有font属性来实现
按钮始终在窗体又下放可以再窗体的form_Resize中设置 按钮的top和left属性让他们分别=me.whith-50,me.heght-50
（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。这个用print "欢迎使用VB"
（2）文本框控件随窗体的大小而调整大小的代码 这个text1.whith=me.whith/2,text2.hethg=me.heght/2
（3）结束程序运行的代码（命令按钮）。
me.end 就可以了