VB设计题.docVIP

属性设置如下： CommandButton 属性： Height 为 550 ，Width 为 1000 ，Style 为 1 ，Picture 为上面的图片路径名 属性设置如下： ComboBox 属性：Text 为 空 程序代码如下： Private Sub Command1_Click() Combo1.AddItem Text1.FontName End Sub 属性设置如下： 菜单编辑略。 TextBox 属性： MultiLine 为 True 程序代码如下： Dim st As String Private Sub Cp_Click() st = Text1.SelText End Sub Private Sub Ps_Click() Text1.SelText = st End Sub 属性设置如下： 菜单编辑器中添加上面的三项 把宋体的复选属性选中。 属性设置如下： Timer控件： Interval 为 1000 程序代码如下： Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False Label1.Caption = 00:00:00 End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub 属性设置如下： ComboBox 控件：List 添加上 教师、学生、工人 程序代码如下： Private Sub Command1_Click() Text1.Text = Combo1.Text End Sub Private Sub Form_Load() Combo1.Text = Combo1.List(0) End Sub 属性设置如下： Shape控件的属性： Top 为 300 ， Left 为 400 ，Shape 为 3 属性设置如下： TextBox控件的属性：Alignment 为 2 ，Text 为 Select All Text! 程序代码如下： Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 属性设置如下： ListBox控件属性：在 List 中添加 上面的国家 程序代码如下： Private Sub Command1_Click() Text1.Text = List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Command2_Click() List1.AddItem Text1.Text Text1.Text = Text1.SetFocus End Sub 属性设置如下： TextBox 控件属性：Font 为 黑体 三号 ，MultiLine 为 True ，ScrollBars 为 3 程序代码如下： Private Sub Command1_Click() Text2.Text = Text1.SelText End Sub 程序代码如下： Private Sub New_Click() MsgBox 新建？, vbYesNo, 新建 End Sub 属性设置如下： Image控件属性： Stretch 为 True 属性设置如下： CommandBox 控件属性：Enabled 为 False 程序代码如下： Private Sub Text1_Change() Form1.Caption = 欢迎光临 Command1.Enabled = True End Sub 程序代码如下： Private Sub Command1_Click() List2.AddItem List1.Text End Sub Private Sub Form_Load() List1.AddItem AAA List1.AddItem BBB List1.AddItem CCC List1.AddItem DDD List1.AddItem EEE End Sub 属性设置如下： Shape 控件属性为 ：Shape 为 1 ，FillStyle 为 7 程序代码如下： Private Sub Option1_Click() Text1.Text = VB程序设计 End Sub Private Sub Option2_Click() Text1.Text =