基于Visual Basic 60可视化程序设计上机指导Word格式文档下载.docx

1、Caption一个简单应用程序文本框Text1Text空白MultilineTrue5.参考代码如下：窗体的单击事件，用于实现文本框中内容的显示。 Private Sub Form_Click（） Text1.Text = 欢迎使用 Visual Basic End Sub运行结果如图1.33所示。图1.336.保存工程。1）选择主菜单选项“文件（F）”。2）选择子选项“保存工程（V）”，这将调用“文件另存为”对话框，如图1.34所示。图1.34Visual Basic首先提示我们保存窗体。参见图1.34。3）在标签“文件名（N）”中指定form1.frm作为窗体名字，以当前工作目录为文件保存

2、目录，窗体使用的缺省扩展名为frm。4）单击“保存（S）”按钮，这将调用“工程另存为”对话框。5）指定form1.vbp作为当前工作目录下工程的名字，工程文件的缺省扩展名为vbp。参见图1.35。图1.356）单击“保存（S）”按钮（在Visual Basic中，窗体和工程分别作为单独的文件存储）。7.运行工程。让我们运行一下应用程序，看看你的代码操作。1）选择菜单选项“运行（R）”。2）单击子选项“启动（S）”。这将运行应用程序。当应用程序在屏幕上运行时，他将如图1.32所示。3）单击窗体，文本框中将显示“欢迎使用 Visual Basic”，如图1.33所示。8.生成可执行文件。生成可执行

3、文件之前，要确保整个应用程序的正确性。因为，一旦生成可执行文件之后，应用程序便不可修改，如果出现错误，需重新再生成一个可执行文件。1）选择菜单选项“文件（F）”。2）单击子选项“生成工程1.exe（K）”，这将调用“生成工程”对话框，如图1.36所示。图 1.363）在标签“文件名（N）”中指定“工程1.exe”作为可执行默认文件名，以当前工作目录为文件保存目录，窗体使用的缺省扩展名为exe。4）单击“确定”按钮，即可立即生成该应用程序的可执行文件。第二章 窗体与基本控件 窗体、命令按钮、文本框、标签框的应用 掌握窗体、命令按钮及文本框的常用属性、事件和方法，熟练这些控件的综合应用，并能实现相

4、应的功能。 1.设计一个程序，在执行时由用户从键盘上键入两个操作数和运算符，然后根据输入的运算符来改变标签框的内容，单击“”命令按钮，将根据运算符进行相应的运算并将运算结果显示在“运算结果”标签框中。其界面设计如图2.25所示。图 2.25其属性设置如表2.8所示。表2.8 属性设置控件综合使用标签框1Label1操作数AutoSizeAlignment2center标签框2Label2标签框3Label3运算符标签框4名称Label4运算结果标签框5Label5注意：运算符只能是+、-、*、/中的一个标签框6Label6文本框1文本框2Text2文本框3Text3命令按钮1Command1命

5、令按钮2Command2清除命令按钮3Command3退出参考代码如下：1确定用于说明运算类型的标签框的显示内容Private Sub Text2_Change（） Select Case Text2.Text Case + Label1.Caption = 被加数 Label3.Caption = 加号 Label2.Caption = 加数 Label4.Caption = 和-被减数减号减数差*被乘数乘号乘数积/被除数除号除数商 End SelectEnd Sub2用于进行运算的命令按钮“”Private Sub Command1_Click（） aa = Val（Text1.Text）

6、 bb = Val（Text3.Text） cc = aa + bb cc = aa - bb cc = aa * bb cc = aa / bb Label6.Caption = Str（cc）3进行多次运算时需进行的“清除”操作Private Sub Command2_Click（） Text1.Text = Text3.Text = Label6.Caption = Text1.SetFocus4结束操作Private Sub Command3_Click（） End第三章 Visual Basic程序设计基础常量、变量、表达式和基本语句的应用掌握数据类型的定义及使用，掌握常量、变量和表

7、达式的使用，熟悉VB基本语句的使用，能够使用简单的算法解决实际问题。1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。图 3.9表3.8 属性设置排序排序结果为：清空1 数据输入后的排序操作 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

8、a = b b = zjjg End If c Then a = c c = zjjg If b zjjg = b b = c & a & , b & c2清空操作，用于第2次以后的要排序数据的输入 Text2.Text = 3结束操作运行后的结果如图3.10所示。图 3.10第四章 常用控件 常用控件的应用 掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。1设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。图 4

9、.39表4.25 属性设置Form1 欢迎使用Visual Basic框架1Frame1字体框架2Frame2大小框架3Frame3颜色框架4Frame4字形框架5Frame5文字效果单选钮1Option1宋体单选钮2Option2隶书单选钮3Option3幼圆单选钮4Option418点单选钮5Option520点单选钮6Option622点单选钮7Option7蓝色单选钮8Option8红色单选钮9Option9黄色单选钮10Option10普通单选钮11Option11粗体单选钮12Option12斜体单选钮13Option13粗斜体复选框1Check1删除线复选框2Check2下划线1

10、装载窗体在初始装载窗体时，给出窗口运行的初值Private Sub Form_Load（） Option1.Value = True Option4.Value = True Option7.Value = True Option12.Value = True2确定文本框中文字的字体Private Sub Option1_Click（） If Option1.Value = True Then Text1.FontName = 宋体Private Sub Option2_Click（） If Option2.Value = True Then Text1.FontName = 隶书Privat

11、e Sub Option3_Click（） If Option3.Value = True Then Text1.FontName = 幼圆3确定文本框中文字的字号（即字的大小）Private Sub Option4_Click（） If Option4.Value = True Then Text1.FontSize = 18Private Sub Option5_Click（） If Option5.Value = True Then Text1.FontSize = 20Private Sub Option6_Click（） If Option6.Value = True Then Te

12、xt1.FontSize = 224确定文本框中文字的颜色Private Sub Option7_Click（） If Option7.Value = True Then Text1.ForeColor = QBColor（9）Private Sub Option8_Click（） If Option8.Value = True Then Text1.ForeColor = QBColor（12）Private Sub Option9_Click（） If Option9.Value = True Then Text1.ForeColor = QBColor（14）5确定文本框中文字的字形Pr

13、ivate Sub Option10_Click（） If Option10.Value = True Then Text1.FontBold = False Text1.FontItalic = FalsePrivate Sub Option11_Click（） If Option11.Value = True Then Text1.FontBold = TruePrivate Sub Option12_Click（） If Option12.Value = True Then Text1.FontItalic =TruePrivate Sub Option13_Click（） If Opt

14、ion13.Value = True Then Text1.FontItalic = True6确定文本框中文字的文字效果Private Sub Check1_Click（） If Check1.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = FalsePrivate Sub Check2_Click（） If Check2.Value = 1 Then Text1.FontUnderline = True Text1.FontUnderline = False7结束操作2设计一个简单的报到处理窗体，

15、要求界面如图4.40所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。图 4.40表4.26 属性设置报到名单录入组合框1Combo1列表框1List1List姓名班级学生列表加入列表删除列表选项清空列表命令按钮4Command4在初始装载窗体时，给出组合框的初始值 Combo1.AddItem 03网络03电商03计维03软件 Combo1.Text = Combo1.List（0）2将新报到的学生名单加入列表框 If （Text1.Text And Comb

16、o1.Text ） Then List1.AddItem Text1.Text + + Combo1.Text MsgBox 必须输入学生姓名3根据实际需要，删除选定的列表项 List1.RemoveItem List1.ListIndex4删除全部列表项 List1.Clear5结束操作Private Sub Command4_Click（）3设计一个应用程序，窗体上由1计时器和1个图像框组成，图像框中添加一个球形图片，界面设计如图4.41所示。图 4.41表4.27 属性设置球体运动计时器1Timer1Interval100图像框1Image1Stretch1.在窗体的“通用”区定义窗体级

17、变量,留作后用。Dim chui As IntegerDim shui As Integer2装载窗体在初始装载窗体时，给出窗口运行的初始值 shui = 80 chui = 803通过鼠标单击窗体，决定球体是否运动Private Sub Form_Click（） Timer1.Enabled = Not Timer1.Enabled4球体运动Private Sub Timer1_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 = -shui5捕捉球体，防止因窗体大小的改变而使球体跑出屏幕Private Sub Form_Resize（）= 0 Then Image1.Top = -25 chui = -chui If Image1.Top = （Form1.Height - 420） Then Image1.Top =