VB基础操作代码

Form1.BackColor = RGB(0, 0, 255)
End Sub
9. 要求：1）通过菜单编辑器制作如图所示的弹出菜单。2）编写适当的代码，右键单击窗体时显示弹出菜单。3）编写适当的代码，程序运行时单击菜单更改Form1的背景颜色。3）保存工程为Jc09.Vbp窗体为Jc09.Frm。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Button
End Sub
3. 窗体文本的显示与清除要求：1）在窗体上添加两个命令按钮，Command1的标题为“输出文本”，Command2的标题为“清除文本”。3）填写适当的代码，程序运行时单击Command1在窗体上显示“内蒙古财经学院”，单击Command2清除“内蒙古财经学院”。4）保存工程为Jc03.Vbp窗体为Jc03.Frm。
Private Sub Command1_Click()
Text2.Text = Text1.SelText
End Sub
14. 要求：1）在窗体上添加两个文本框Text1、Text2、text3，Text1初始内容如图所示。2）设置Text1属性，允许输入多行，显示垂直滚动条，Text2、text3内容不可编辑。3）添加两个的命令按钮command1、command2，标题分别为“起始位置”、“字符个数”。4）编写适当的代码，程序运行时单击“起始位置”Text2中返回Text1的光标位置，单击“字符个数”时Text3中返回Text1中选中的文本个数。 4）保存工程为Jc14.Vbp窗体为Jc14.Frm。
Private Sub Command1_Click()
Text2.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
16. 要求：1）在窗体上添加名称为Frame1的框架，标题为“请选择”，在框架内部添加两个单选按钮Option1、Option2，名称分别为“计算机学院”、“财税学院”。2）添加名称为Command1的命令按钮，标题为“清屏”。3）编写适当的代码，程序运行时单击单选按钮分别在窗口显示相应的标题。4）对命令按钮设置适当的属性，使得程序运行后按回车键即可调用单击事件。5）保存工程为Jc16.Vbp窗体为Jc16.Frm。
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Check4_Click()
Text1.FontUnderline = True
End Sub
13. 要求：1）在窗体上添加两个文本框Text1、Text2，Text1初始内容如图所示。2）设置文本框属性，允许输入多行，Text1显示垂直滚动条，Text2显示水平滚动条3）添加名称为Command1的命令按钮，标题为“返回选中文本”，。4）编写适当的代码，程序运行时单击“返回选中文本”按钮在Text2中返回Text1中选中文本4）保存工程为体为Jc13.Frm。
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Option1_Click()
Print Option1.Caption
End Sub
Private Sub Option2_Click()
Print Option2.Caption
1. 窗体的显示与隐藏
要求：1）在窗体上添加两个命令按钮，Command1的标题为“显示窗体”，Command2的标题为“隐藏窗体”。2）在工程资源管理器窗口添加新窗体Form2。3）填写适当的代码，控制Form2的显示和隐藏。4）保存工程为Jc01.Vbp窗体分别为Jc011.Frm、Jc012.Frm。
Private Sub H_Click()
Form1.BackColor = RGB(255, 0, 0)
End Sub
Private Sub L_Click()
Form1.BackColor = RGB(0, 255, 0)
End Sub
Private Sub U_Click()
End Sub
12. 要求：1）在窗体上添加文本框，初始内容为“内蒙古”，字号小初，设置为自动大小。2）添加四个复选框按钮，标题分别为“粗体”、“斜体”、“删除线”、“下划线”。3）编写适当的代码，程序运行时单击复选框按钮更改文本框中文本的字形、格式。4）保存工程为Jc12.Vbp 窗体为Jc12.Frm。
End Sub
17. 要求：1）在窗体上添加文本框Text1初始内容为空。2）添加计时器Timer1，设置属性，每1秒钟调用一次事件。3）添加两个命令按钮Command1、Command2，名称分别为“暂停”、“继续”。4）编写适当的代码，程序运行时Text1中显示当前时间，单击“暂停”按钮暂停计时，单击“继续”按钮继续计时。5）保存工程为Jc17.Vbp窗体为Jc17.Frm。
Private Sub DK_Click()
Form2.Show
End Sub
Private Sub GB_Click()
Form2.Hide
End Sub
Private Sub TC_Click()
End
End Sub
8. 要求：1）在资源管理器窗口中添加MDI窗体，通过菜单编辑器制作如图所示的菜单。2）设置Form1的属性将Form1设为MDI窗体的子窗体。3）编写适当的代码，程序运行时单击背景菜单的下拉菜单更改Form1的背景颜色。3）保存工程为Jc08.Vbp窗体为MDIform1.Frm、Jc08.Frm。
Private Sub Command1_Click()
Print "内蒙古财经学院"
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
4. 要求：1）设置窗体的背景为红色。2）更改窗体图标为1.ico。3）设置窗体的最大化最小化按钮不可用。4）在窗体上添加名称为Command1的命令按钮更改标题为“窗体标题”，编写适当的代码，程序运行时单击“窗体标题”按钮，窗体标题更改为“内蒙古财经学院”。5）保存工程为Jc04.Vbp窗体为Jc04.Frm。
Private Sub Form_Click()
Command1.Visible = False
End Sub
7. 要求：1）通过菜单编辑器制作如图所示的菜单。2）在资源管理器窗口中添加Form2。3）编写适当的代码，程序运行时单击打开菜单打开Form2，单击关闭菜单关闭Form2，单击退出菜单退出程序。3）保存工程为Jc07.Vbp窗体为Jc71.Frm、Jc72.Frm。
L1.FontName = "隶书"
End Sub
Private Sub Option2_Click()
L1.FontName = "黑体"
End Sub
Private Sub Option3_Click()
L1.FontName = "楷体_GB2312"
End Sub
11要求：1）在窗体上添加名称为Label1的标签，标题为“内蒙古”，设置为自动大小。2）添加三个单选按钮，标题分别为“20”、“30”、“50”。3）编写适当的代码，程序运行时单击单选按钮更改标签字号。4）保存工程为Jc11.Vbp窗体为Jc11.Frm。
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form2.Hide
End Sub
2. .测试鼠标按键值 要求：1）在窗体上添加名称为Text1的文本框并将内容清空。2）设置Text1的鼠标指针属性为15。3）在窗体的Mousedown事件中填写适当的代码，程序运行时在Text1中返回鼠标左键、右键按键的返回值。4）保存工程为Jc02.Vbp窗体为Jc02.Frm。
Private Sub Command1_Click()
Text2.Text = Text1.SelStart
End Sub
Private Sub Command2_Click()
Text3.Text = Text1.SelLength
End Sub
15. 要求：1）在窗体上添加两个文本框Text1、Text2，初始内容为空，设置Text1、Text2属性，允许输入多行，显示垂直滚动条。2）添加命令按钮，标题为“定位光标”。3）在Text1中编写适当的代码使程序运行时Text2中内容与Text1中内容同步。4）编写适当的代码，单击“定位光标”时光标定位在Text2中。5）保存工程为Jc15.Vbp窗体为Jc15.Frm。
Private Sub Check1_Click()
Text1.FontBold = True
End Sub
Private Sub Check2_Click()
Text1.FontItalic = True
End Sub
Private Sub Check3_Click()
Text1.FontStrikethru = True
Form1.BackColor = RGB(255, 0, 0)
End Sub
Private Sub L_Click()
Form1.BackColor = RGB(0, 255, 0)
End Sub
Private Sub U_Click()
Form1.BackColor = RGB(0, 0, 255)
Private Sub Command1_Click()
Form1.Caption = "内蒙古财经学院"
End Sub
5. 要求：1）设置窗体不显示控制菜单。2）设置窗体的背景为1.bmp。3）在窗体上添加名称为Command1的命令按钮更改标题为“关闭”，编写适当的代码，程序运行时单击“关闭”按钮关闭窗体。5）保存工程为Jc05.Vbp窗体为Jc05.Frm。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Form1.PopupMenu BJ
End If
End Sub
Private Sub H_Click()
Private Sub Command1_Click()
End
End Sub
6. 要求：1）设置窗体外观属性为4。2）设置窗体启动时距离显示器左边距和上边距为0。3）在窗体上添加名称为Command1的命令按钮，编写适当的代码，程序运行时单击窗体隐藏命令按钮。4）保存工程为Jc06.Vbp窗体为Jc06.Frm。
. Private Sub Option1_Click()
Label1.FontSize = 20
End Sub
Private Sub Option2_Click()
Label1.FontSize = 30
End Sub
Private Sub Option3_Click()
Label1.FontSize = 50
End Sub
10. 要求：1）在窗体上添加名称为Label1的标签，标题为“内蒙古”，字号小初，设置为自动大小。2）添加三个单选按钮，标题分别为“隶书”、“黑体”、“楷体”。3）编写适当的代码，程序运行时单击单选按钮更改标签字体。4）保存工程为Jc10.Vbp窗体为Jc10.Frm。
Private Sub Option1_Click()