VB基础操作代码
1. 窗体的显示与隐藏
要求：1）在窗体上添加两个命令按钮，Command1的标题为“显示窗体”，Command2的标题为“隐藏窗体”。2）在工程资源管理器窗口添加新窗体Form2。3）填写适当的代码，控制Form2的显示和隐藏。4）保存工程为Jc01.Vbp窗体分别为Jc011.Frm、Jc012.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 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()
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 Command1_Click()
Form1.Caption = "内蒙古财经学院"
End Sub
5. 要求：1）设置窗体不显示控制菜单。2）设置窗体的背景为1.bmp。3）在窗体上添加名称为Command1的命令按钮更改标题为“关闭”，编写适当的代码，程序运行时单击“关闭”按钮关闭窗体。5）保存工程为Jc05.Vbp窗体为Jc05.Frm。
Private Sub Command1_Click()
End
End Sub
6. 要求：1）设置窗体外观属性为4。2）设置窗体启动时距离显示器左边距和上边距为0。3）在窗体上添加名称为Command1的命令按钮，编写适当的代码，程序运行时单击窗体隐藏命令按钮。4）保存工程为Jc06.Vbp窗体为Jc06.Frm。
Private Sub Form_Click()
Command1.Visible = False
End Sub
7. 要求：1）通过菜单编辑器制作如图所示的菜单。2）在资源管理器窗口中添加Form2。3）编写适当的代码，程序运行时单击打开菜单打开Form2，单击关闭菜单关闭Form2，单击退出菜单退出程序。3）保存工程为Jc07.Vbp窗体为Jc71.Frm、Jc72.Frm。
Private Sub DK_Click()
Form2.Show
End Sub
Private Sub GB_Click()
Form2.Hide
End Sub
Private Sub TC_Clic
k()
End
End Sub
8. 要求：1）在资源管理器窗口中添加MDI窗体，通过菜单编辑器制作如图所示的菜单。2）设置Form1的属性将Form1设为MDI窗体的子窗体。3）编写适当的代码，程序运行时单击背景菜单的下拉菜单更改Form1的背景颜色。3）保存工程为Jc08.Vbp窗体为MDIform1.Frm、Jc08.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()
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)
If Button = 2 Then
Form1.PopupMenu BJ
End If
End Sub
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()
Form1.BackColor = RGB(0, 0, 255)
End Sub
10. 要求：1）在窗体上添加名称为Label1的标签，标题为“内蒙古”，字号小初，设置为自动大小。2）添加三个单选按钮，标题分别为“隶书”、“黑体”、“楷体”。3）编写适当的代码，程序运行时单击单选按钮更改标签字体。4）保存工程为Jc10.Vbp窗体为Jc10.Frm。
Private Sub Option1_Click()
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 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
12. 要求：1）在窗体上添加文本框，初始内容为“内蒙古”，字号小初，设置为自动大小。2）添加四个复选框按钮，标题分别为“粗体”、“斜体”、“删除线”、“下划线”。3）编写适当的代码，程序运行时单击复选框按钮更改文本框中文本的字形、格式。4）保存工程为Jc12.Vbp 窗体为Jc12.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
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.Vbp窗体为Jc13.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.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 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()
Form1.Cls
End Sub
Private Sub Option1_Click()
Print Option1.Caption
End Sub
Private Sub Option2_Click()
Print Option2.Caption
End Sub
17. 要求：1）在窗体上添加文本框Text1初始内容为空。2）添加计时器Timer1，设置属性，每1秒钟调用一次事件。3）添加两个命令按钮Command1、Command2，名称分别为“暂停”、“继续”。4）编写适当的代码，程序运行时Text1中显示当前时间，单击“暂停”按钮暂停计时，单击“继续”按钮继续计时。5）保存工程为Jc17.Vbp窗体为Jc17.Frm。
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Su
b
18. 要求：1）在窗体上添加名称为List1的列表框，在属性窗口输入如图示项目。2）添加名称为Text1的文本框，初始内容为空，添加命令按钮，标题为“项目总数”。3）编写适当的代码，程序运行时单击“项目总数”按钮Text1中返回列表框的项目总数。4）保存工程为Jc18.Vbp窗体为Jc18.Frm。
Private Sub Command1_Click()
Text1.Text = List1.ListCount
End Sub
19. 要求：1）在窗体上添加名称为List1的列表框，在属性窗口输入如图示项目。2）添加两个标签，名称分别为“序号”、“内容”；添加名称为Text1，Text2的文本框，初始内容为空，添加命令按钮，标题为“选中项目的序号及内容”。3）编写适当的代码，程序运行时单击“选中项目的序号及内容”按钮，Text1中返回列表框选中项目的项目序号，Text2中返回列表框选中项目的内容。5）保存工程为Jc19.Vbp窗体为Jc19.Frm。
Private Sub Command1_Click()
Text1.Text = List1.ListIndex
Text2.Text = List1.Text
End Sub
20. 要求：1）在窗体上添加名称为List1的列表框；名称为Text1的文本框；两个命令按钮，标题分别为“添加”、“删除”。2）编写适当的代码，单击“添加”按钮，可将Text1中内容作为列表项添加到列表中；单击“删除”按钮，可将列表框中选中的项目删除。3）保存工程为Jc20.Vbp窗体为Jc20.Frm。
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
21. 要求：1）在窗体上分别添加名称为List1、List2的列表框，在窗体Load事件里编写代码添加List1中的项目。2）添加两个命令按钮，名称分别为“>”、 “<”。3）编写适当的代码，程序运行时单击“>”将List1中列表项移到List2中；单击“<” 将List2中列表项移到List1中。4）保存工程为Jc21.Vbp窗体为Jc21.Frm。
Private Sub Command1_Click()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command2_Click()
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End Sub
Private Sub Form_Load()
List1.AddItem "数学"
List1.AddItem "语文"
List1.AddItem "政治"
List1.AddItem "英语"
End Sub
22要求：1）在窗体上添加名称为Combo1的组合框，通过属性窗口设置组合框项目为“20”、“30”、“50”。2）添加两个标签Label1、Label2，名称分别为“请选择字号”、“内蒙古”，设置适当的属性，标签自动大小，如图所示。3）编写适当的代码，程序运行时在Combo1中选一个字号，Labeb2中的文字变为选定的字号。4）保存工程为Jc22.Vbp窗体为Jc22.Frm。
Private Sub Combo1_Click()
Label2.FontSize = Combo1.Text
End Sub
23. 要求：1）在窗体上添加名称为Combo1、combo2的组合框，通过属性窗口设置combo1的
项目为“张三”、“李四”、“王五”，combo2的项目为“教师”、“医生”、“会计”。2）添加名称为text1的文本框，初始内容为空，名称为command1的命令按钮，标题为“确认”。3）编写适当的代码，程序运行后，例如在combo1中选择“张三”，combo2中选择“教师”，单击“确认”在text1中返回“张三是教师” 。4）保存工程为Jc23.Vbp窗体为Jc23.Frm。
Private Sub Command1_Click()
Text1.Text = Combo1.Text & "是" & Combo2.Text
End Sub
24. 要求：1）在窗体上添加名称为Hscroll1的滚动条，设置最大刻度值100，最小刻度值1。2）添加名称为Text1的文本框，初始内容为空。名称为label1的标签，标题为“显示滚动条的值”。3）编写适当的事件，程序运行时拖动滚动条或单击左右箭头在Text1中都可返回滚动条的值。4）保存工程为Jc24.Vbp窗体为Jc24.Frm。
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Text1.Text = HScroll1.Value
End Sub
25. 要求：1）在窗体上添加名称为Combo1的组合框，通过属性窗口设置组合框的项目为“1.Jpg”、“2.Jpg”、“3.Jpg”。2）添加名称Labelde1的标签，标题为“请选择图片”；名称为Image1的图像框，设置适当属性使图像框可自动调整大小。3）编写适当的代码，程序运行时在Combo1中选择图片的名称，在图像框中显示相应的图片。4）保存工程为Jc25.Vbp窗体为Jc25.Frm。
Private Sub Combo1_Click()
Image1.Picture = LoadPicture(Combo1.Text)
End Sub
26. 要求：1）在窗体上添加名称为Text1的文本框，初始内容为空；名称为Label1的标签，标题为“求和结果”；名称为Command1的命令按钮，标题为“计算”。2）编写适当的代码，程序运行时单击“求和计算”按钮，通过输入对话框输入两个数进行求和，Text1返回求和结果。3）保存工程为Jc26.Vbp窗体为Jc26.Frm。
Private Sub Command1_Click()
a = InputBox("请输入第一个数", "输入提示")
b = InputBox("请输入第二个数", "输入提示")
Text1.Text = Val(a) + Val(b)
End Sub
27 要求：1）在窗体上添加名称为Text1的文本框，初始内容为空；名称为Label1的标签，标题为“平方根”；名称为Command1的命令按钮，标题为“计算”。2）编写适当的代码，程序运行时单击“计算”按钮，通过输入对话框输入一个数求平方根，若输入数为正数Text1返回求和结果，否则通过消息框弹出错误信息。3）保存工程为Jc27.Vbp窗体为Jc27.Frm。
Private Sub Command1_Click()
a = InputBox("请输入")
If a < 0 Then
MsgBox "请重新输入！", 1 + 48, "错误"
Else
Text1.Text = Sqr(a)
End If
End Sub
28. 要求：1）在窗体上添加名称为CommonDialog1的通用对话框，更改名称为CD1，添加三个命令按钮，名称分
别为“打开”、“保存”、“颜色”。2）编写适当的代码，在窗体的Load事件中设置文件类型为所有文件、文本文件、WORD文件、EXCEL文件，程序运行时单击“打开”显示打开对话框，单击“保存”显示保存对话框，单击“颜色”显示颜色对话框，选中某一颜色可设置窗体背景。3）保存工程为Jc28.Vbp窗体为Jc28.Frm。
Private Sub Command1_Click()
CD1.Action = 1
End Sub
Private Sub Command2_Click()
CD1.Action = 2
End Sub
Private Sub Command3_Click()
CD1.Action = 3
Form1.BackColor = CD1.Color
End Sub
Private Sub Form_Load()
CD1.Filter = "所有文件|*.*|文本文件|*.txt|WORD文件|*.docx|EXCEL文件|*.xlsx"
End Sub
29要求：1）在窗体上添加名称为Text1、text2、text3的文本框，初始内容为空。2）添加名称为Label1的标签，设置属性，自动大小；名称为label2、label3、label4的标签标题分别为“年”、“月”、“日”，如图所示。3）添加名称为command1的命令按钮，标题为“判断日期”。4）编写适当的代码，程序运行时，label1显示系统日期；单击“判断日期”按钮时tex1、text2、text3分别返回系统日期的年、月、日。5）保存工程为Jc29.Vbp窗体为Jc29.Frm。
. Private Sub Command1_Click()
Text1.Text = Year(Label1.Caption)
Text2.Text = Month(Label1.Caption)
Text3.Text = Day(Label1.Caption)
End Sub
Private Sub Form_Load()
Label1.Caption = Date
End Sub
30. 要求：1）在窗体上添加名称为Text1、text2、text3的文本框，初始内容为空。2）添加名称为Label1的标签，设置属性，自动大小；名称为label2、label3、label4的标签标题分别为“时”、“分”、“秒”，如图所示。3）添加名称为command1的命令按钮，标题为“判断时间”4）编写适当的代码，程序运行时，label1显示系统时间；单击“判断时间”按钮时tex1、text2、text3分别返回系统时间的时、分、秒。5）保存工程为Jc30.Vbp窗体为Jc30.Frm。
Private Sub Command1_Click()
Text1.Text = Hour(Label1.Caption)
Text2.Text = Minute(Label1.Caption)
Text3.Text = Second(Label1.Caption)
End Sub
Private Sub Form_Load()
Label1.Caption = Time
End Sub
31. 要求：1）在窗体上添加名称为Text1、text2的文本框，初始内容为空。2）添加名称为Label1、 label2的标签标题分别为“商”、“余数”；添加名称为command1的命令按钮，标题为“计算。3）编写适当的代码，程序运行时，单击“计算”按钮通过输入对话框输入两个数进行整除和求余运算，在text1中返回商，text2中返回余数。4）保存工程为Jc31.Vbp窗体为Jc31.Frm。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入被除数", "输入提示")
b = InputBox("请输入除数", "输入提示")
Text1.Text = a \ b
Text2.Text = a Mod b
End Sub
32. 要求：1）在
窗体上添加text1、text2两个文本框，初始内容为空，添加名称为label1的标签，标题为“显示结果”。2）添加三个单选按钮，名称分别为“前三个”、“从第三个开始取三个”、“后三个”。3）编写适当的代码，程序运行后，单击单选按钮在text2中返回text1中相应个数的文本。4）保存工程为Jc32.Vbp窗体为Jc32.Frm。
Private Sub Option1_Click()
Text2.Text = Left(Text1.Text, 3)
End Sub
Private Sub Option2_Click()
Text2.Text = Mid(Text1.Text, 3, 3)
End Sub
Private Sub Option3_Click()
Text2.Text = Right(Text1.Text, 3)
End Sub
33. 要求：1）在窗体上添加text1、text2两个文本框，初始内容为空；两个标签，标题分别为“周长”、“面积”；一个命令按钮，标题为“计算”。2）编写适当的代码，程序运行时单击“计算”按钮可通过输入对话框输入半径，例如输入10，在text1中返回周长，text2中返回面积。3）保存工程为Jc33.Vbp窗体为Jc33.Frm。
Private Sub Command1_Click()
Const pi As Single = 3.14159
r= InputBox("请输入半径")
Text1.Text = pi * r ^ 2
Text2.Text = 2 * pi * r
End Sub
34. 要求：1）在窗体上添加一个名称为text1的文本框，初始内容为空，设置适当的属性，使输入密码时显示“*”，允许输入的最大字符数为6。2）添加名称为label1的命令按钮，标题为“请输入密码”；名称为command1的命令按钮，标题为“登陆”。3）编写适当的代码，程序运行时在文本框中输入“123456”单击“登陆“按钮，弹出消息框“登陆成功”，否则弹出消息框“登录失败”。4）保存工程为Jc34Vbp窗体为Jc34.Frm。
Private Sub Command1_Click()
If Text1.Text = "123456" Then
MsgBox "登陆成功", 0, "信息提示"
Else
MsgBox "密码错误", 0, "信息提示"
End If
End Sub
35. 要求：1）在窗体上添加名称为driver1的驱动器列表，名称为dir1的目录列表，名称为file1的文件列表。2）编写适当的代码，使得这三个文件系统控件可以同步变化，即当驱动器列表中显示的内容发生变化时，目录列表和文件列表内容同时发生变化。3）保存工程为Jc35.Vbp窗体为Jc35.Frm。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub