大一VB操作实验题目加详细解答.doc

VB操作题(加解答)1、如图所示，在窗体Form1中建立一个名称为Command1、标题为“显示”的命令按钮。要求程序运行后，如果单击显示按钮，则在窗体上打印“显示”；如果单击窗体，则将屏幕信息清除；如果双击窗体，则退出程序。*注意：新建一个文件夹“练习一”，将程序保存在该文件夹中，期中窗体文件保存为MyPro1.frm，工程文件保存为MyPro1.vbp。Private Sub Command1_Click()Print 显示End SubPrivate Sub Form_Click()Form1.ClsEnd SubPrivate Sub Form_DblClick()EndEnd Sub2、程序界面设计要参照Design1.exe，其主要功能如下：l 只有单击“显示Form2”后，“左移”、“右移”、“放大”、“缩小”按钮才会有效（这四个按钮其初始状态时无效的），同时显示Form2。l 单击“隐藏from2”则将Form2隐藏，同时，将上述四个按钮设置为无效状态l 单击“左移”，可以让Form2向左移动，移动多少可以自行设定，同时在Form2中打印“左移”。“右移”按钮功能同理。l 单击“放大”，可以让Form2的高度和宽度都变成原来的2倍，同时在Form2中打印“放大”。“变小”按钮功能同理，只是变成缩小到原来的一半。l 双击窗体Form1，可以关闭程序。Private Sub Command1_Click()Form2.Left = Form2.Left - 100Form2.ClsForm2.Print 左移End SubPrivate Sub Command2_Click()Form2.Left = Form2.Left + 100Form2.ClsForm2.Print 右移End SubPrivate Sub Command3_Click()Form2.ShowCommand1.Enabled = TrueCommand2.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Command4_Click()Form2.Width = Form2.Width * 2Form2.Height = Form2.Height * 2Form2.ClsForm2.Print 放大End SubPrivate Sub Command5_Click()Form2.Width = Form2.Width / 2Form2.Height = Form2.Height / 2Form2.ClsForm2.Print 缩小End SubPrivate Sub Command6_Click()Form2.HideEnd SubPrivate Sub Command7_Click()Print OKEnd SubPrivate Sub Command8_Click()Form1.ClsEnd SubPrivate Sub Command9_Click()EndEnd Sub3、在窗体Form1中建立一个名称为Label1的标签，其初始内容为“我是*”（其中*为自己的姓名，例如：我是张三），文字对齐方式（Alignment属性）为居中；再建立两个命令按钮，名称分别为Command1、Command2，标题分别为“黑体”、“隶书”。要求程序运行后，在单击黑体按钮时，则Label1中的文字字体为“黑体”；在单击“隶书”按钮时，则Label1中的文字字体为“隶书”。*注意：保存在名为“练习一”的文件夹中，保存时窗体文件名为MyPro1.frm，工程文件名为MyPro1.vbp。Private Sub Command1_Click()Label1.FontName = 黑体End SubPrivate Sub Command2_Click()Label1.FontName = 隶书End Sub4、程序界面设计要参照Design2.exe，其主要功能如下：l 当鼠标在按钮“不好”或者“很好”上按下鼠标时（此时触发的是什么事件？），两个按钮上的文字会互换，即“不好”会变成“很好”，“很好”会变成“不好”l 单击任何一个按钮后，显示form2，同时隐藏form1l 在Form2中，有一个鼠标跟随效果，该效果用一个标签来显示文字，当鼠标在Form2上移动时，该标签随着鼠标的移动而移动。提示：用Form_Mousemove事件：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub该事件中的参数X,Y是系统自动获得的鼠标在窗体上的坐标，X是水平方向上的值，Y是垂直方向上的值l Form2中单击按钮“请笑一笑”，可以结束改程序。提示，结束程序可以用“End”语句第一个form: Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = Command1.CaptionCommand1.Caption = Command2.CaptionCommand2.Caption = aEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form2.ShowForm1.HideEnd SubPrivate Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = Command2.CaptionCommand2.Caption = Command1.CaptionCommand1.Caption = aEnd SubPrivate Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form2.ShowForm1.HideEnd Sub第二个form:Private Sub Command1_Click()EndEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label2.Left = XLabel2.Top = YEnd Sub5、参照“乘法运算.exe”进行设计程序。该程序的功能是：1） 编写Form_Load过程，设置初始属性：文本框1、2、3的对齐方式为右对齐，文本框2、3不能进行编辑操作。2） 在文本框1中输入乘数后，单击“=”按钮，将乘数乘以2的结果显示在文本框3中3） 文本框1不接受非数字键。（参照书上P100程序）4） 单击“清空”按钮，清空文本框1和3中的内容，同时文本框1获得焦点。*注意：新建一个文件夹“练习一”，将程序保存在该文件夹中，其中窗体文件保存为Form1.frm，工程文件保存为Design1.vbp。Private Sub Command1_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii Asc(9) Or KeyAscii = 3 ThenMsgBox 非法用户，强制退出！EndEnd Ifa = MsgBox(您的密码有错，请重试, 5 + 48, 密码检验)If a = 4 ThenText1.Text = ElseEndText1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub窗体Form2出错提示该程序功能是：1）单击“确定”按钮后，如果密码正确（密码为“123456”），则显示窗体Form2，隐藏Form1;如果密码错误，则弹出消息框提示出错，并根据消息框的返回按钮进行相应的操作（若单击“取消”按钮，则退出程序，若单击“重试”按钮，则清空文本框Text1的内容，并为Text1设置焦点）。三次密码输错后，则在提示非法用户后退出程序。2）单击Form1上的“取消”按钮，则退出程序运行3）可以在文本框内按回车键来实现单击“确定”按钮的操作。*注意：新建一个文件夹“练习二”，将程序保存在该文件夹中，其中窗体文件保存为Form1.frm和Form2.frm，工程文件保存为Design2.vbp。最后新建一个以自己的“学号+姓名”为名字的文件夹，将上述“练习一”、“练习二”文件夹放入该文件夹，最后压缩成RAR文件，然后上传至FTP的zuoye文件夹内的“实验三”文件夹7、作业要求：1、程序界面设计要参照Design4.exe2、最后保存时，可以先在桌面上新建一个以自己学号+姓名为名字的文件夹，然后，将工程的窗体文件(.frm)和工程文件(.vbp)都保存在该文件夹中,其中工程文件文件名为Design4.vbp3、将该工程生成一个可执行程序（.exe程序），程序名为Design4.exe(“文件生成Design4.exe),放入文件夹中4、将文件夹压缩成一个压缩文件包，然后上传到FTP的zuoye文件夹中的“实验四”文件夹程序的关键功能描述如下： 1、在给出的计算机机型和操作系统中进行选择后，用户可以订购一定数量的计算机，并在标签中给出一个订单结构2、初始状态中，所有的单选按钮都无效；3、一旦选定一个复选框，其所在的框架中的单选按钮就有效4、当选好机型和操作系统后，用户可以在文本框中输入订购数量，单击“确定”按钮后，在标签上显示订购结果。Private Sub Check1_Click()If Check1.Value = 1 Then Option1.Enabled = True Option2.Enabled = True Option3.Enabled = TrueElse Option1.Enabled = False Option2.Enabled = False Option3.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Option4.Enabled = True Option5.Enabled = TrueElse Option4.Enabled = False Option5.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()Command1.SetFocusDim a As Variant, b As VariantIf Option1.Value = True Then a = 联想If Option2.Value = True Then a = 戴尔If Option3.Value = True Then a = 方正If Option4.Value = True Then b = windows 2003If Option5.Value = True Then b = windows xpLabel3.Caption = 你订购了 & b & 的 & a & 共 & Text1.Text & 台End Sub 提示：可以在该程序中定义两个变量来分别放置“机型”和“操作系统”名称8、 判断健康状况（要求用SELECT CASE结构或者IF结构实现）根据文本框Text1中输入的身高和文本框Text2中输入的体重，分析健康状况，结果显示在标签Label5中。计算公式是：标准体重=身高-105体重高于标准体重1.1为偏胖体重低于标准体重0.9为偏瘦其他为正常Private Sub Command1_Click()w = Val(Text1.Text) - 105If Val(Text2.Text) w * 1.1 Then Label5.Caption = 你太胖了，少吃点！ElseIf Val(Text2.Text) 0 And Val(Combo3.Text) = 40 Then List1.FontSize = Val(Combo3.Text) End IfEnd SubPrivate Sub Combo3_Click()List1.FontSize = Val(Combo3.Text)End SubPrivate Sub Command1_Click()If Text1.Text Then List1.AddItem Text1.Text, 0Else Text1.Text = 请在此输入书名End IfText1.SetFocusEnd SubPrivate Sub Command2_Click()If List1.ListIndex = -1 Then MsgBox 请选择要删除的小说!Else List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()List1.AddItem 红楼梦List1.AddItem 西游记List1.AddItem 大唐双龙传Combo1.AddItem 隶书Combo1.AddItem 宋体Combo1.AddItem 黑体Combo1.Text = 隶书Combo2.AddItem 常规Combo2.AddItem 粗体Combo2.AddItem 斜体Combo2.AddItem 粗斜体Combo2.Text = 常规For i = 10 To 40 Step 2 Combo3.AddItem iNext iCombo3.Text = 16End Sub11、滚动条应用P117 6-11 字幕推出Private Sub Form_Load()Label1.AutoSize = TrueText1.MaxLength = 2HScroll1.SmallChange = 1HScroll1.LargeChange = 1HScroll1.Min = 10HScroll1.Max = 50End SubPrivate Sub HScroll1_Change()Label1.FontSize = HScroll1.ValueLabel1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2Text1.Text = Trim(Str(HScroll1.Value)End SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd SubPrivate Sub Text1_Change()Dim s As Integers = Val(Text1.Text)If s = 10 And s = 50 ThenHScroll1.Value = sLabel1.FontSize = HScroll1.ValueLabel1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2End IfEnd Sub12、定时器应用P119 6-13 滚动字幕Private Sub Command1_Click()If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止Else Timer1.Enabled = False Command1.Caption = 开始End IfEnd SubPrivate Sub Form_Load() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left Max Then Max = a(i): k = iNext iPrint 最大值; Max; 是第; k; 个End Sub14、Private Sub Form_Load()Timer1.Interval = 1000Label1.Caption = 10Shape2.FillColor = vbGreenShape2.FillStyle = 0Shape3.FillColor = vbRedEnd SubPrivate Sub Timer1_Timer()BeepLabel1.Caption = Label1.Caption - 1If Label1.Caption = -1 Then Label1.Caption = 10 If Shape2.FillStyle = 0 Then Shape2.FillStyle = 1 Shape3.FillStyle = 0 Else Shape2.FillStyle = 0 Shape3.FillStyle = 1 End IfEnd IfEnd Sub15、Dim x, y As IntegerPrivate Sub Command1_Click() Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = TrueEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() x = 100 y = 100End SubPrivate Sub Timer1_Timer() Shape1.Top = Shape1.Top + y Shape1.Left = Shape1.Left + x If Shape1.Top = Picture1.ScaleHeight - Shape1.Height Or Shape1.Top = Picture1.ScaleHeight - Shape1.Width Or Shape1.Left = 0 Then x = -xEnd IfEnd Sub16、参照Design10.exe，进行程序设计。代码参照第八章的例8-2,8-3,8-5Private Sub Command1_Click() CommonDialog1.DialogTitle = 打开图片 CommonDialog1.InitDir = D:实验十 通用对话框和下拉菜单 CommonDialog1.Filter = 所有文件|*.*|gif文件|*.gif CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName)End SubPrivate Sub Command2_Click() CommonDialog1.DialogTitle = 保存图片 CommonDialog1.InitDir = D:实验十 通用对话框和下拉菜单 CommonDialog1.Filter = 所有文件|*.*|gif文件|*.gif CommonDialog1.ShowSave SavePicture Picture1.Picture, CommonDialog1.FileNameEnd SubPrivate Sub Command3_Click()CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command4_Click()CommonDialog1.Flags = 257CommonDialog1.Action = 4Text1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontUnderline = CommonDialog1.FontUnderlineText1.FontStrikethru = CommonDialog1.FontStrikethruText1.ForeColor = CommonDialog1.ColorEnd Sub17、P180 第2题Private Sub D_Click()Picture1.Top = Picture1.Top + 200End SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture(C:Documents and SettingsAll UsersDocumentsMy Pictures示例图片Sunset.jpg)End SubPrivate Sub L_Click()Picture1.Left = Picture1.Left - 200End SubPrivate Sub R_Click()Picture1.Left = Picture1.Left + 200End SubPrivate Sub U_Click()Picture1.Top = Picture1.Top - 200End Sub18、弹出菜单实例程序参照“弹出.exe”，该程序中有一个文本框控件，名为Text1，在窗体上单击鼠标右键