《可视化程序设计习题及上机指导.doc》由会员分享，可在线阅读，更多相关《可视化程序设计习题及上机指导.doc（23页珍藏版）》请在三一文库上搜索。
1、可视化程序设计习题与上机指导第一章 Visual Basic基础习题：1.什么是属性、事件、方法及三者之间的区别？2.如何创建一个新的工程？3.创建Visual Basic应用程序的基本步骤是什么？4.如何生成一个可执行文件？可执行文件生成前应完成哪些工作？5.根据前面讲述的保存方法，自己保存一个空白的窗体和工程。 上机实验：认识VB界面，设计一个简单应用程序。实验目的： 掌握Visual Basic的启动与退出操作，熟悉应用程序的建立步骤以及工程的保存方法，能生成一个可执行文件。实验内容：1.Visual Basic的启动。请遵循如下步骤：1、单击“开始”按钮。2、选择“程序”选项。这将显示
2、更多的选项。3、从显示的选项中选择“Microsoft Visual Basic 6.0”选项。此时会显示一个选项列表。4、从这些显示的选项中单击“Microsoft Visual Basic 6.0”选项。打开的Visual Basic屏幕如图1.11所示。2.Visual Basic退出。有如下几种方法：方法一：单击窗口右上角的关闭按钮。方法二：单击“文件”菜单，选择“退出”选项。方法三：按快捷键AltQ键。方法四：按快捷键AltF4键。3.设计一个简单应用程序，在窗体上添加一个文本框，单击窗体后，在文本框中显示“欢迎使用Visual Basic”具体步骤如下：1.在工具箱（ToolBox
3、）中双击 “TextBox（文本框）”控件（工具箱中第二行的第二个控件）。2.在“Form1”中单击并拖动“TextBox”，把它放置到窗体中的适当位置，“TextBox”控件上有一个缺省的文字“Text1”，如图1.31所示。图 1.313.使用“属性（Properties）”窗口，删除分配给该控件Text属性的缺省值“Text1”，使其变为空白，参见图1.32。图 1.324.各对象的属性设置如表1.10所示。表1.10 属性设置对象属性设置窗体（名称）Form1Caption一个简单应用程序文本框（名称）Text1Text空白MultilineTrue5.参考代码如下：窗体的单击事件，用
4、于实现文本框中内容的显示。Private Sub Form_Click()Text1.Text = 欢迎使用 Visual BasicEnd Sub运行结果如图1.33所示。图1.336.保存工程。1）选择主菜单选项“文件（F）”。2）选择子选项“保存工程（V）”，这将调用“文件另存为”对话框，如图1.34所示。图1.34Visual Basic首先提示我们保存窗体。参见图1.34。3）在标签“文件名（N）”中指定form1.frm作为窗体名字，以当前工作目录为文件保存目录，窗体使用的缺省扩展名为frm。4）单击“保存（S）”按钮，这将调用“工程另存为”对话框。5）指定form1.vbp作为当
5、前工作目录下工程的名字，工程文件的缺省扩展名为vbp。参见图1.35。图1.356)单击“保存（S）”按钮(在Visual Basic中，窗体和工程分别作为单独的文件存储)。7.运行工程。让我们运行一下应用程序，看看你的代码操作。1）选择菜单选项“运行（R）”。2）单击子选项“启动（S）”。这将运行应用程序。当应用程序在屏幕上运行时，他将如图1.32所示。3）单击窗体，文本框中将显示“欢迎使用 Visual Basic”，如图1.33所示。8.生成可执行文件。生成可执行文件之前，要确保整个应用程序的正确性。因为，一旦生成可执行文件之后，应用程序便不可修改，如果出现错误，需重新再生成一个可执行文
6、件。1）选择菜单选项“文件（F）”。2）单击子选项“生成工程1.exe（K）”，这将调用“生成工程”对话框，如图1.36所示。图 1.363）在标签“文件名（N）”中指定“工程1.exe”作为可执行默认文件名，以当前工作目录为文件保存目录，窗体使用的缺省扩展名为exe。4）单击“确定”按钮，即可立即生成该应用程序的可执行文件。第二章 窗体与基本控件习题：1.当用鼠标单击窗体时，能够触发哪些事件？2.设计一个程序，窗体如图2.24所示。要求在“数据”框中输入一个数字作为被乘数，当单击“计算”命令按钮时，将被乘数乘以6后的结果显示在另外的标签框中。图 2.243.文本框与标签框在使用时有哪些区别？
7、上机实验： 窗体、命令按钮、文本框、标签框的应用实验目的： 掌握窗体、命令按钮及文本框的常用属性、事件和方法，熟练这些控件的综合应用，并能实现相应的功能。 实验内容：1.设计一个程序，在执行时由用户从键盘上键入两个操作数和运算符，然后根据输入的运算符来改变标签框的内容，单击“”命令按钮，将根据运算符进行相应的运算并将运算结果显示在“运算结果”标签框中。其界面设计如图2.25所示。图 2.25其属性设置如表2.8所示。表2.8 属性设置对象属性设置窗体（名称）Form1Caption控件综合使用标签框1（名称）Label1Caption操作数AutoSizeTrueAlignment2cente
8、r标签框2（名称）Label2AutoSizeTrueAlignment2center标签框3（名称）Label3Caption运算符AutoSizeTrueAlignment2center标签框4名称Label4Caption运算结果AutoSizeTrueAlignment2center标签框5（名称）Label5Caption注意：运算符只能是+、-、*、/中的一个标签框6（名称）Label6Caption空白文本框1（名称）Text1Text空白文本框2（名称）Text2Text空白文本框3（名称）Text3Text空白命令按钮1（名称）Command1Caption命令按钮2（名称）
9、Command2Caption清除命令按钮3（名称）Command3Caption退出参考代码如下：1确定用于说明运算类型的标签框的显示内容Private Sub Text2_Change() Select Case Text2.Text Case + Label1.Caption = 被加数 Label3.Caption = 加号 Label2.Caption = 加数 Label4.Caption = 和 Case - Label1.Caption = 被减数 Label3.Caption = 减号 Label2.Caption = 减数 Label4.Caption = 差 Case *
10、 Label1.Caption = 被乘数 Label3.Caption = 乘号 Label2.Caption = 乘数 Label4.Caption = 积 Case / Label1.Caption = 被除数 Label3.Caption = 除号 Label2.Caption = 除数 Label4.Caption = 商 End SelectEnd Sub2用于进行运算的命令按钮“”Private Sub Command1_Click() aa = Val(Text1.Text) bb = Val(Text3.Text) Select Case Text2.Text Case +
11、cc = aa + bb Case - cc = aa - bb Case * cc = aa * bb Case / cc = aa / bb End Select Label6.Caption = Str(cc)End Sub3进行多次运算时需进行的“清除”操作Private Sub Command2_Click() Text1.Text = Text3.Text = Label6.Caption = Text1.SetFocusEnd Sub4结束操作Private Sub Command3_Click()EndEnd Sub第三章 Visual Basic程序设计基础习题：1.如何在程
12、序中加入注释内容？2.怎样声明局部变量和模块级变量？二者之间存在哪些不同？3.静态变量有什么特点，应怎样声明？4.在调用子程序时，若需要进行参数的传递，通常有几种参数的传递方式，它们的区别是什么？5.运算符“/”和“”有什么区别，分别用于何种问题的解决？6.设计一个简单的应用程序，在窗体上有一个文本框，用户在执行过程中随意在其中输入n个字符，单击命令按钮“计数”后，在标签框中显示字符的个数，用户界面如图3.8所示。图 3.8上机实验：常量、变量、表达式和基本语句的应用实验目的：掌握数据类型的定义及使用，掌握常量、变量和表达式的使用，熟悉VB基本语句的使用，能够使用简单的算法解决实际问题。实验内
13、容：1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。图 3.9表3.8 属性设置对象属性设置窗体（名称）Form1Caption排序文本框1（名称）Text1Text空白文本框2（名称）Text2Text空白文本框3（名称）Text3Text空白标签框1（名称）Label1Caption排序结果为：命令按钮1（名称）Command1Caption排序命令按钮2（名称）Command2Caption退出命令按钮3（名称）Command3Cap
14、tion清空参考代码如下：1 数据输入后的排序操作Private Sub Command1_Click() Dim a, b, c As Integer Dim zjjg As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) c = CInt(Text3.Text) If a b Then zjjg = a a = b b = zjjg End If If a c Then zjjg = a a = c c = zjjg End If If b c Then zjjg = b b = c c = zjjg End If Label1.Capt
15、ion = 排序结果为： & a & , & b & , & cEnd Sub2清空操作，用于第2次以后的要排序数据的输入Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub3结束操作Private Sub Command2_Click()EndEnd Sub运行后的结果如图3.10所示。图 3.10第四章 常用控件习题：1.对于框架内的复选框和单选钮，在使用时有何不同？2.组合框和列表框的主要区别是什么？在什么时候可以二者有相同的用法。3.图片框和图像框在使用时有哪些
16、不同之处？4.在程序中为图片框或图像框加载图像时，通常使用哪个函数？上机实验： 常用控件的应用实验目的： 掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。 实验内容：1设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。图 4.39表4.25 属性设置对象属性设置窗体（名称）Form1CaptionForm1 文本框1（名称）Text1Text欢迎使用Visual Basic框架1（名称）Frame1Caption字
17、体框架2（名称）Frame2Caption大小框架3（名称）Frame3Caption颜色框架4（名称）Frame4Caption字形框架5（名称）Frame5Caption文字效果（名称）Label3单选钮1（名称）Option1Caption宋体单选钮2（名称）Option2Caption隶书单选钮3（名称）Option3Caption幼圆单选钮4（名称）Option4Caption18点单选钮5（名称）Option5Caption20点单选钮6（名称）Option6Caption22点单选钮7（名称）Option7Caption蓝色单选钮8（名称）Option8Caption红色单选钮9
18、（名称）Option9Caption黄色单选钮10（名称）Option10Caption普通单选钮11（名称）Option11Caption粗体单选钮12（名称）Option12Caption斜体单选钮13（名称）Option13Caption粗斜体复选框1（名称）Check1Caption删除线复选框2（名称）Check2Caption下划线命令按钮1（名称）Command1Caption退出参考代码如下：1装载窗体在初始装载窗体时，给出窗口运行的初值Private Sub Form_Load() Option1.Value = True Option4.Value = True Optio
19、n7.Value = True Option12.Value = TrueEnd Sub2确定文本框中文字的字体Private Sub Option1_Click() If Option1.Value = True Then Text1.FontName = 宋体End SubPrivate Sub Option2_Click() If Option2.Value = True Then Text1.FontName = 隶书End SubPrivate Sub Option3_Click() If Option3.Value = True Then Text1.FontName = 幼圆En
20、d Sub3确定文本框中文字的字号（即字的大小）Private Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 18End SubPrivate Sub Option5_Click() If Option5.Value = True Then Text1.FontSize = 20End SubPrivate Sub Option6_Click() If Option6.Value = True Then Text1.FontSize = 22End Sub4确定文本框中文字的颜色Private Sub Opt
21、ion7_Click() If Option7.Value = True Then Text1.ForeColor = QBColor(9)End SubPrivate Sub Option8_Click() If Option8.Value = True Then Text1.ForeColor = QBColor(12)End SubPrivate Sub Option9_Click() If Option9.Value = True Then Text1.ForeColor = QBColor(14)End Sub5确定文本框中文字的字形Private Sub Option10_Clic
22、k() If Option10.Value = True Then Text1.FontBold = False Text1.FontItalic = False End IfEnd SubPrivate Sub Option11_Click() If Option11.Value = True Then Text1.FontBold = True Text1.FontItalic = False End IfEnd SubPrivate Sub Option12_Click() If Option12.Value = True Then Text1.FontBold = False Text
23、1.FontItalic =True End IfEnd SubPrivate Sub Option13_Click() If Option13.Value = True Then Text1.FontBold = True Text1.FontItalic = True End IfEnd Sub6确定文本框中文字的文字效果Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End IfEnd SubPrivate S
24、ub Check2_Click() If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Sub7结束操作Private Sub Command1_Click()EndEnd Sub2设计一个简单的报到处理窗体，要求界面如图4.40所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。图 4.40表4.26 属性设置对象属性设置窗体
25、（名称）Form1Caption报到名单录入文本框1（名称）Text1Text空白组合框1（名称）Combo1Text空白列表框1（名称）List1List空白标签框1（名称）Label1Caption姓名AutoSizeTrue标签框2（名称）Label2Caption班级AutoSizeTrue标签框3（名称）Label3Caption学生列表AutoSizeTrue命令按钮1（名称）Command1Caption加入列表命令按钮2（名称）Command2Caption删除列表选项命令按钮3（名称）Command3Caption清空列表命令按钮4（名称）Command4Caption退出参
26、考代码如下：1装载窗体在初始装载窗体时，给出组合框的初始值Private Sub Form_Load() Combo1.AddItem 03网络 Combo1.AddItem 03电商 Combo1.AddItem 03计维 Combo1.AddItem 03软件 Combo1.Text = Combo1.List(0)End Sub2将新报到的学生名单加入列表框Private Sub Command1_Click() If (Text1.Text And Combo1.Text ) Then List1.AddItem Text1.Text + + Combo1.Text Else MsgB
27、ox 必须输入学生姓名 End IfEnd Sub3根据实际需要，删除选定的列表项Private Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd Sub4删除全部列表项Private Sub Command3_Click() List1.ClearEnd Sub5结束操作Private Sub Command4_Click()EndEnd Sub3设计一个应用程序，窗体上由1计时器和1个图像框组成，图像框中添加一个球形图片，界面设计如图4.41所示。图 4.41表4.27 属性设置对象属性设置窗体（名称）Form1Caption
28、球体运动计时器1（名称）Timer1Interval100图像框1（名称）Image1StretchTrue参考代码如下：1.在窗体的“通用”区定义窗体级变量,留作后用。Dim chui As IntegerDim shui As Integer2装载窗体在初始装载窗体时，给出窗口运行的初始值Private Sub Form_Load() shui = 80 chui = 80End Sub3通过鼠标单击窗体，决定球体是否运动Private Sub Form_Click() Timer1.Enabled = Not Timer1.EnabledEnd Sub4球体运动Private Sub T
29、imer1_Timer() Image1.Move Image1l.Left + shui, Image1.Top + chui If Image1.Top = Form1.Height - 420 Then chui = -chui If Image1.Left = Form1.Width - 100 Then shui = -shuiEnd Sub5捕捉球体，防止因窗体大小的改变而使球体跑出屏幕Private Sub Form_Resize() If Image1.Top = (Form1.Height - 420) Then Image1.Top = (Form1.Height - 44
30、5) - Image1.Height chui = -chui End If If Image1.Left = (Form1.Width - 100) Then Image1.Left = (Form1.Width - 125) - Image1.Width shui = -shui End IfEnd Sub其运行结果如图4.42所示。图 4.42第五章 菜单设计1.简述Visual Basic菜单设计器的基本构成和各部分的作用。2.菜单的热键和快捷键有什么区别？如何为菜单设置热键和快捷键？3.怎样设计弹出菜单？4.如何创建菜单的控件数组？上机实验5 设计应用程序菜单实验目的： 掌握下拉式菜
31、单和弹出式菜单的设计方法，掌握菜单事件过程的编写方法。实验内容：按本章所讲的步骤和方法，设计所要求的菜单系统。1 设计一个菜单程序，在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单中有Word、Excel、PowerPoint三个选项。“附件”菜单中含有“画图”和“游戏”两个选项。当用户选择了某个菜单项时，应能启动相应的程序。设计后的界面如图510所示。图510提示：使用函数：Shell( )格式：Shell(“文件名”)功能：执行一个可执行的文件。可带盘符、路径、主文件名、扩展名。例如：编写“程序”菜单中有Word的单击事件的代码：若Word文件的路径是：d:program offi
32、ceofficewinword.exe ，则代码是：Shell (“d:program officeofficewinword.exe”)Excel的文件名：Excel.exePowerpoint的文件名：Powerpoint.exe画图的文件名：Mspaint.exe纸牌的文件名：Sol.exe排雷的文件名：Winmine.exe利用查找方式来查找各自文件名的盘符和路径。2 建立一个弹出菜单，含有“红色”、“兰色”、“绿色”三个选项，单击相应的选项后，可以改变文本框中文字的颜色。程序运行的结果如图511所示。图511第六章 文件管理1.如何实现驱动器、目录和文件列表三者间的同步操作？写出具体
33、的代码。2.怎样触发驱动器列表框和目录列表框的Change事件，这两个控件的Change事件在程序设计中有什么作用？ 上机实验6 驱动器、目录及文件列表框的应用 实验目的： 掌握驱动器、目录及文件列表框属性、事件和方法，熟练完成三者之间的同步操作，并能实现相应的功能。 实验内容：1模拟一个文件选择窗体，并能完成下列操作。窗体如图66所示。各对象的属性设置如表64所示图66表64 属性设置对象属性设置窗体（名称）Form1Caption文件选择窗体文件列表框（名称）File1目录列表框（名称）Dir1驱动器列表框（名称）Drive1组合框（名称）Combo1List*.* *.vpb *.frm
34、Style0Text*.*标签框1Caption文件列表框（名称）Label1标签框2Caption文件显示类型（名称）Label2标签框3Caption当前被选择的文件（名称）Label3标签框4Caption空（名称）Label4标签框5Caption目录列表（名称）Label5标签框6Caption驱动器列表（名称）Label6标签框7Caption当前被搜索目录（名称）Label7标签框8Caption空（名称）Label8命令按钮1Caption复制文件命令按钮2Caption重新明名命令按钮3Caption删除文件命令按钮4Caption结束操作参考代码如下：2 在窗体的“通用”区
35、将choicedfile 定义为窗体级变量,留作后用。Dim choicedfile2装载窗体在初始装载窗体时，将当前路径显示在标签框中。Private Sub Form_Load()Label8.Caption = Dir1.PathEnd Sub3确定文件列表框的显示内容Private Sub Combo1_Click() = Combo1.TextEnd Sub4保持各文件系统控件的同步Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change() = Dir1.PathLabel8.
36、Caption = Dir1.PathEnd Sub5选择文件名Private Sub ()Label4.Caption = If Right(Dir1.Path, 1) = Thenchoicedfile = Dir1.Path + Elsechoicedfile = Dir1.Path + + End IfEnd Sub6文件复制Private Sub Command1_Click()Dim sour StringDim dest Stringstr2 = 请输入复制的目的文件：sourfile = choicedfiledestfile = InputBox(str2, 复制文件)If
37、destfile Then sourfile, destfile 源文件，目标文件End IfEnd Sub7文件重命名Private Sub Command2_Click()Dim oldname As StringDim newname As StringTitle = 重新命名str0 = 请再输入一遍需要修改的文件名str1 = choicedfile + Chr(10) + Chr(13) + str0str2 = 请输入新文件名oldname = InputBox(str1, Title)msg = 确认被更改的文件名 & oldnamep = MsgBox(msg, 35, 数据
38、检查框)If p = 6 Then newname = InputBox(str2, Title) Name oldname As newname Name 旧文件As 新文件 MsgBox 你的新文件名是： + newnameEnd IfEnd Sub8删除文件 Private Sub Command3_Click()Dim killed Stringkilledfile = choicedfileTitle = 数据检查框msg1 = 你要删除文件: & killedfilex = MsgBox(msg1, 35, Title)If x = 6 ThenKill killedfile Kill 文件名 End IfEnd Sub9结束操作Private Sub Command4_Click()EndEnd Sub第七章 图形1.VB中主要有哪些图形方法？试简述它们各自的功能。2.试述形状控件的FillStyle和BorderStyle属性功能，并说明它们各自预定义样式和方法。3.试设计一个程序，用两种方法在窗体上画两个椭圆，并可通过命令按钮改变两个椭圆的填充色和边框样式。上机实验七 实验目的：通过上机操作，进一步熟练和掌握VB作图的控件和方法，能根据自己的意愿，画出点、直线、矩形、圆