visual basic程序设计-第一部分实验安排与指导(2003.1.3)

第一部分实验安排与指导实验一VISUALBASIC60集成开发环境的初步使用实验目的1掌握启动和退出VISUALBASIC60的方法。2熟悉VISUALBASIC60集成开发环境。3掌握开发一个简单程序的基本步骤。4初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。5了解VISUALBASIC60连机帮助的使用。实验内容1开发一个简单程序把华氏温度转换为摄氏温度。在上机调试程序过程中，掌握启动和退出VISUALBASIC60的方法,初步掌握菜单栏、工具栏、窗体、工具箱、工程资源管理器窗口和属性窗口的使用。2使用VISUALBASIC60的连机帮助。实验指导第1题实验指导上机操作的过程为1启动VISUALBASIC60启动VISUALBASIC60的方法有两种方法一若使用VISUALBASIC60中文版，操作步骤为（1）单击“开始/程序/MICROSOFTVISUALBASIC60中文版”。（2）双击MICROSOFTVISUALBASIC60中文版图标。若使用VISUALSTUDIO60套装软件，则操作步骤为（1）单击“开始/程序/MICROSOFTVISUALSTUDIO60”。（2）双击MICROSOFTVISUALBASIC60图标。方法二在桌面上双击MICROSOFTVISUALBASIC60快捷方式图标。选择上述其中一种方法启动VISUALBASIC60。启动成功之后，系统进入VISUALBASIC60集成开发环境，并显示一个“新建工程”对话框。默认选择是建立标准VB工程，如图111所示。图111“新建工程”对话框2界面设计单击“打开”按钮，VISUALBASIC6进入设计模式。系统在屏幕上提供一个名为FORM1的窗体，我们就在这个窗体上进行界面设计。建立控件的方法为双击工具箱上的命令按钮（COMMANDBUTTON），在窗体中出现一个带有COMMAND1字样的命令按钮图形对象。用鼠标把它拖到窗体的合适位置。再次双击工具箱上的命令按钮（COMMANDBUTTON），在窗体的中间又出现一个带有COMMAND2字样的命令按钮图形对象。用鼠标把它拖到窗体的合适位置。3属性设置为了明确应用程序的功能，一般需要修改控件的标题属性。首先从屏幕右边的属性窗口中打开FORM1的属性列表，找到CAPTION属性栏，把右边的“FORM1”改为“把华氏温度转换为摄氏温度”（如图112所示），按回车键确认。这时我们可以看到窗体标题也同时改变。然后从属性窗口中打开命令按钮COMMAND1的属性列表，找到CAPTION属性栏，把右边的“COMMAND1”改为“开始”。用同样的方法，把命令按钮COMMAND2的CAPTION属性值改为“结束”。至此，用户界面设计完成，如图113所示。图112在属性窗口中修改FORM1标题属性图113转换温度的界面设计4编写程序代码把华氏温度转换为摄氏温度的计算公式是，其中F表示华氏温度值，3295CC表示摄氏温度值。根据计算公式编写程序为OPTIONEXPLICITPRIVATESUBCOMMAND1_CLICKDIMF,CFINPUTBOX“请输入华氏温度值“C5/9F32PRINTPRINTTAB12“华氏温度值“F“转换为摄氏温度值是“CENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUB（5）输入程序代码在VB中，输入和修改程序代码必须要进入代码编辑环境，进入代码编辑环境有四种方法方法一双击控件。方法二使用鼠标右键单击控件，从弹出的菜单中选择“查看代码”命令执行。方法三从菜单栏的“视图”菜单中选择“代码窗口”命令执行。方法四在工程资源管理器窗口单击“查看代码”图标。无论使用那一种方法进入代码编辑环境，都会显示代码编辑窗口，代码编辑窗口如图114所示。图114代码编辑窗口代码编辑窗口中的顶端有两个下拉列表框，左边是对象列表框，右边是事件列表框。从对象列表框中选择控件名和从事件列表框中选择相应的事件名后，代码编辑窗口中显示出相应的事件驱动程序的框架。我们可以在事件驱动程序的框架中输入程序代码。如果双击控件，代码编辑窗口会出现默认的CLICK事件框架。对于这个题目，我们双击命令按钮COMMAND1，代码编辑窗口中显示出COMMAND1_CLICK事件驱动程序的框架。这时我们可以在事件驱动程序的框架中输入程序代码。用同样的方法，我们也可以输入单击命令按钮COMMAND2的事件驱动程序。在输入和修改事件驱动程序时，都可以在工程资源管理器窗口中单击“查看代码”或“查看对象”按钮来查看程序代码或窗体上的对象。6运行程序运行VISUALBASIC程序有三种方法方法一单击工具栏上的“启动”按钮。方法二按F5功能键。方法三从菜单栏的“运行”菜单中选择“启动”命令执行，这时系统对程序解释执行。若从菜单栏的“运行”菜单中选择“全编译执行”命令执行，程序编译执行。不管采用那一种运行方法，系统都会进入运行模式，在标题栏上显示“运行”两字，并开始执行程序。对于这个题目，可以选择上述三种方法中的其中一种运行程序。程序运行后，屏幕出现如图113所示的用户界面。单击标题为“开始”的命令按钮，执行COMMAND1_CLICK事件驱动程序。执行到语句FINPUTBOX“请输入华氏温度值“时，屏幕出现如图115所示的输入对话框。输入数据（例如，输入50）和按“确定”键，程序继续执行下去，输出结果如图116所示。单击标题为“结束”的命令按钮，结束程序的执行。图115输入温度对话框图116输出执行结果如果程序出现编译或运行错误，系统都将给出错误提示信息。此时，应分析产生错误的原因，找出出错位置，并使用编辑功能键对程序进行修改。修改完程序后，按F5功能键，重新执行程序。7保存程序保存程序有两种方法方法一选择菜单栏上“文件”菜单中的“保存工程”命令执行。方法二单击工具栏中的“保存”按钮。不管采用那一种保存程序的方法，对于新程序，系统都会要求用户给定存放的路径和文件名，并分别保存窗体文件和工程文件。对于这个题目，选择其中一种方法保存程序。此时，屏幕出现如图117所示的“文件另存为”对话框。在“文件名”文本框中输入窗体文件名和按“保存”按钮，屏幕出现如图118所示的“工程另存为”对话框。在“文件名”文本框中输入工程文件名和单击“保存”按钮，此时，屏幕出现“SOURCECODECONTROL”对话框，如图119所示。图117“文件另存为”对话框图118“工程另存为”对话框图119SOURCECODECONTROL对话框单击“YES”按钮，屏幕出现“VISUALSOURCESAFELOGIN”对话框，如图1110所示。图1110VISUALSOURCESAFELOGIN对话框单击“CANCEL”按钮，屏幕出现“SOURCECODECONTROL”对话框，如图1111所示。图1111“SOURCECODECONTROL”对话框此时，单击“OK”按钮，文件保存完成。8退出VISUALBASIC60退出VB6的方法有三种方法一单击主窗口右上角的“关闭”按钮。方法二选择菜单栏上的“文件”菜单中的“退出”命令执行。方法三按ALTQ组合键。第2题实验指导1使用“MSDNLIBRARY在线帮助”在运行VB6时，使用“MSDNLIBRARY在线帮助”是寻求帮助的常用方法。操作步骤为（1）启动VB6，选择菜单栏上“帮助”菜单的“内容”命令，系统打开“MSDNLIBRARYVISUALSTUDIO60”对话框，如图1112所示。图1112“MSDNLIBRARYVISUALSTUDIO60”对话框（2）在“活动子集”的下拉列表框中选择“VISUALBASIC文档”，然后单击“目录”选项。（3）单击“MSDNLIBRARYVISUALSTUDIO60”目录前面的“”号，展开“MSDNLIBRARYVISUALSTUDIO60”目录。（4）单击“VISUALBASIC文档”目录前面的“”号，展开“VISUALBASIC文档”目录。（5）单击“使用VISUALBASIC”目录前面的“”号，展开“使用VISUALBASIC”目录。（6）单击“程序员指南”目录前面的“”号，展开“程序员指南”目录。此时，用户可以继续展开和查看需要帮助的有关内容。2使用“上下文相关帮助”使用“上下文相关帮助”，我们可以不必使用“帮助”菜单就能获得“工具箱”中的控件、“属性”窗口中的属性、应用程序中的关键字等内容的帮助。操作方法是把光标移到（或选取）希望获得帮助的位置，然后按F1功能键，VB自动弹出相关主题的帮助。（1）获得“工具箱”中控件帮助的操作步骤为把光标移到“工具箱”中需获得帮助的控件处，并单击。按F1功能键。（2）获得“属性”窗口中属性帮助的操作步骤为把光标移到“属性”窗口中需获得帮助的属性处，并单击。按F1功能键。（3）获得应用程序中关键字帮助的操作步骤为把光标移到应用程序中需获得帮助的关键字处。按F1功能键。3“帮助”主题中代码示例的运行“VISUALBASIC60帮助系统”有很多帮助主题。在这些主题中包含一些可以直接运行的程序代码示例。我们可以通过WINDOWS的剪贴板将这些程序代码复制到VB的代码窗口中，然后单击工具栏上的“启动”按钮运行这些程序代码。例如，在VB集成开发环境把光标移到属性窗口的FILLCOLOR属性处，并单击，然后按F1功能键。此时，屏幕显示如图1113所示。图1113FILLCOLOR属性帮助信息单击“示例”，用鼠标（或键盘）选取“示例”中的程序代码。选择菜单栏上“编辑”菜单的“复制”命令（或用CTRLC热键）把代码复制到WINDOWS的粘贴板上。然后打开VB的代码编辑窗口，单击工具栏上的“粘贴”按钮（或用CTRLV热键）把选择的程序代码复制到代码窗口，这时我们可以运行程序了。如果代码示例涉及到除窗体以外的控件，则在进入VB集成开发环境之后应先进行用户界面设计，即在窗体添加相关控件，才能够正确运行程序。实验二数据类型、运算符和表达式实验目的1掌握VISUALBASIC60数据类型的概念。2掌握常量的概念、定义方法和作用域。3掌握变量的概念和定义方法，熟悉可变类型变量和静态变量的使用，掌握自动变量与静态变量的区别。4掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的值。5掌握常用标准函数的一般形式、功能和用法。6进一步熟悉VISUALBASIC60集成开发环境。实验内容1利用下列式子测试各种运算符的功能。11045299MOD2353441/25“VISUAL”“VISUAL“NOT53075X1234PRINT“X“PRINTXENDSUB2利用下列程序测试TAB函数和SPC函数的功能以及它们之间的区别。PRIVATESUBFORM_CLICKPRINTTAB10100TAB20200TAB30300PRINTSPC10100SPC10200SPC10300ENDSUB3利用下列程序测试FORMAT函数的功能。PRIVATESUBFORM_CLICKDIMXX1235PRINTFORMATX,”PRINTFORMATX,”PRINTFORMATX,”00000”PRINTFORMATX,”000”PRINTFORMATX,”000”PRINTFORMATX,”PRINTFORMATX,”PRINTFORMATX,”0000E00”ENDSUB4使用INPUTBOX函数输入某种商品的单价和购买数量，计算并输出需付款金额。5利用下列程序测试MSGBOX函数的功能。PRIVATESUBFORM_CLICKDIMMSG,STYLE,TITLE,RESPONSE,MYSTRINGMSG“要继续吗“指定提示信息STYLEVBYESNOVBCRITICALVBDEFAULTBUTTON1指定需显示按钮TITLE“提示信息“指定标题RESPONSEMSGBOXMSG,STYLE,TITLE显示MSGBOX对话框PRINTRESPONSEIFRESPONSEVBYESTHEN若单击“是“按钮，则把“YES“赋给MYSTRINGMYSTRING“YES“ELSE若单击“否“按钮，则把“NO“赋给MYSTRINGMYSTRING“NO“ENDIFPRINTMYSTRINGENDSUB6使用文本框输入变量A和B的值，然后把变量A和B的值交换，最后使用文本框输出交换后变量A和B的值。（要求在属性窗口中设置属性值）7打开由第4题建立的程序，修改INPUTBOX函数中的参数，然后再运行程序。实验指导第1题实验指导先阅读给出的程序，写出执行结果。然后按如下操作步骤进行验证（1）建立新工程（2）属性设置把窗体FORM1的CAPTION属性设为为“测试PRINT方法功能”。（3）输入程序代码在工程管理器窗口双击“查看代码”按钮，屏幕出现“代码窗口”。在“代码窗口”的“对象”列表框选择窗体对象“FORM”；在“代码窗口”的“事件”列表框中选择“CLICK”。此时，在“代码窗口”中显示“FORM_CLICK”事件驱动程序的框架PRIVATESUBFORM_CLICKENDSUB然后在“FORM_CLICK”事件驱动程序框架中填写其它程序代码。（4）运行程序单击工具栏上的“启动”按钮，开始执行程序。此时，屏幕出现运行窗体。单击窗体，系统执行FORM_CLICK事件驱动程序，并输出结果，如图131所示。图131测试PRINT方法的功能第2题实验指导先阅读给出的程序，写出执行结果。然后仿照第2题的操作步骤进行验证。输出结果如图132所示。图132测试TAB函数和SPC函数的功能第3题实验指导先阅读给出的程序，写出执行结果。然后仿照第2题的操作步骤进行验证。输出结果如图133所示。图133测试FORMAT函数的功能第4题实验指导（1）建立新工程（2）界面设计在窗体FORM1上建立两个命令按钮COMMAND1和COMMAND2。（3）属性设置FORM1的CAPTION属性置为“计算付款金额”；COMMAND1的CAPTION属性置为“计算”；COMMAND2的CAPTION属性置为“退出”。界面设计如图134所示。图134计算付款金额界面设计（4）编写程序代码PRIVATESUBCOMMAND1_CLICKDIMD,N,TDINPUTBOX“请输入商品的单价“NINPUTBOX“请输入商品的数量“TDNPRINTPRINTTAB18“付款金额为“T“元“ENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUB（5）输入程序代码（6）运行程序程序运行后，单击“计算”命令按钮，始执COMMAND1_CLICK事件驱动程序。执行语句DINPUTBOX“请输入商品的单价“时，屏幕出现输入对话框。输入数据（例如，输入05）和按“确定”按钮；程序继续执行语句NINPUTBOX“请输入商品的数量“这时，屏幕又出现输入对话框。输入数据（例如，输入100）和按“确定”按钮。程序计算并输出结果。单击“退出”命令按钮，结束程序的执行。第5题实验指导先阅读给出的程序，然后按如下操作步骤进行实验（1）建立新工程（2）属性设置把窗体FORM1的CAPTION置为“测试MSGBOX函数的功能”。（3）输入程序代码（4）运行程序启动程序之后，单击窗体，执行FORM_CLICK事件驱动程序。执行到语句RESPONSEMSGBOXMSG,STYLE,TITLE时，屏幕出现MSGBOX对话框，如图135所示。这时，若单击“是Y”或按回车键,则输出结果6和YES。若单击“是N”,则输出结果7和NO。图135MSGBOX对话框第题实验指导（1）建立新工程（2）界面设计在窗体FORM1上建立各个控件。操作方法是用鼠标双击工具箱的图标，马上看到窗体出现相应的控件。然后可以用鼠标拖动调整位置和改变大小。双击工具箱上的命令按钮（COMMANDBUTTON），窗体中间出现一个带有COMMAND1字样的命令按钮图形对象，用鼠标拖到合适位置。双击工具箱上的标签（LABEL），建立一个带有LABEL1字样的标签控件。用同样的方法设置标签控件LABEL2、LABEL3、LABEL4、LABEL5和LABEL6。双击工具箱上的文本框（TEXTBOX），建立文本框控件TEXT1、TEXT2、TEXT3和TEXT4。（3）属性设置在属性窗口把各控件的属性设置，如表111所示。表111第6题的界面设计控件名称CAPTION属性字体属性FORM1交换A和B的值COMMAND1交换隶书，小四号LABEL1交换前隶书，小四号LABEL2ALABEL3BLABEL4交换后隶书，小四号LABEL5ALABEL6BTEXT1空TEXT2空TEXT3空TEXT4空字体属性的设置方法是在属性列表中找到FONT属性栏，单击右边按钮，这时屏幕出现“字体”对话框。如本题要求，设置字体为“隶体”和字号为“小四号”，并单击“确定”按钮。用户界面如图136所示。图136第6题用户界面（4）编写程序代码PRIVATESUBCOMMAND1_CLICKDIMA,B,TAVALTEXT1TEXTBVALTEXT2TEXTTAABBTTEXT3TEXTATEXT4TEXTBENDSUB（5）输入程序代码（6）运行程序程序运行之后，屏幕出现用户界面，焦点在文本框TEXT1上。在文本框TEXT1上输入数据（例如，3），使用鼠标把光标移到文本框TEXT2上并单击，这时焦点在文本框TEXT2上。在文本框TEXT2上输入数据（例如，5）。然后单击标题为“交换”的命令按钮，系统执行COMMAND1_CLICK事件驱动程序，显示交换后的变量值。执行结果如图137所示。图137第6题执行结果思考题如果把程序中语句“TAABBT”改为“BAAB”能把A和B的值交换吗第7题实验指导操作步骤为（1）单击工具栏上的“打开工程”按钮，屏幕出现如图138所示的“打开工程”对话框。图138“打开工程”对话框（2）从“打开工程”对话框中选择需打开的文件名并单击或在文本框中输入需打开的文件名，然后单击“打开”按钮。此时，屏幕出现“SOURCECODECONTROL”对话框，如图119所示。（3）单击“YES”按钮，屏幕出现“VISUALSOURCESAFELOGIN”对话框，如图1110所示。（4）单击“CANCEL”按钮，屏幕出现“代码窗口”，如图139所示。图139代码窗口此时，可以使用编辑功能键对程序进行修改。例如，把语句DINPUTBOX“请输入商品的单价“修改为DINPUTBOX“请输入商品的单价“,“计算付款金额“”把语句NINPUTBOX“请输入商品的数量“修改为NINPUTBOX“请输入商品的数量“,“计算付款金额“（5）执行程序（6）重新保存程序实验四选择结构程序设计实验目的1掌握选择结构程序的概念。2掌握单行结构条件语句的一般格式、功能和使用。3掌握块结构条件语句的一般格式、功能和使用。4掌握情况语句的一般格式、功能和使用。5掌握GOTO语句的一般格式、功能和使用。6掌握把应用程序生成EXE文件的方法。实验内容1输入一个字符，若它是大写字母，则把它变成小写字母，若它是小写字母，则把它变成大写字母；若它是其它字符，则它的值不变。2某公司按购买商品的款项数目X给予不同优惠折扣Y，给出计算优惠折扣Y的公式如下20108153200XY编写程序从键盘上输入X的值，求应付款项S。3输入两个运算量和一个运算符（，/），输出运算结果。4把第3题的程序生成EXE文件，并在WINDOWS下运行该程序文件。实验指导第1题实验指导根据题意可以编程序如下PRIVATESUBCOMMAND1_CLICKDIMCHASSTRING1CHINPUTBOX“请输入一个字符“IFASCCH65ANDASCCH97ANDASCCH10000时的最小N值。2使用公式求E的近似值，要求计算到最后一项10000时，循环结束；最后输出N的值。按上述算法编写程序为PRIVATESUBCOMMAND1_CLICKDIMN,TA“的平方根是“XELSEIFA0THENPRINTPRINTTAB15A“的平方根是“XELSEPRINTPRINTTAB18“负数不能求平方根“ENDIFENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUB界面设计、属性设置等由读者完成。读者可以按前面介绍的操作步骤上机调试程序。思考题如果改用DOLOOPUNTIL语句编写程序，程序如何修改读者可以通过这样的修改比较DOLOOPWHILE语句和DOLOOPUNTIL语句的区别。第4题实验指导算法设计设置一个循环，使控制变量N的值从100200变化。在循环体中，若N满足指定的条件NMOD32ANDNMOD53ANDNMOD72，则输出N的值。请读者按上述算法编写程序，并完成界面设计、属性设置等。第5题实验指导算法设计解决这个问题无法使用代数方法，但可以用“穷举法”求解。所谓穷举法就是把问题的各种可能组合全部列出来，并对每一种可能组合判别是否满足给定条件的解。假定用变量X、Y和Z分别表示公鸡、母鸡和小鸡的数目。据题意可知X、Y和Z的取值都是1100之间的整数。所以我们可以设计一个三重循环，用外层循环控制X从1100变化，中层循环控制Y从1100变化，内层循环控制Z从1到100变化，然后在内层循环体中对每一个X、Y和Z，判别X、Y和Z是否满足条件XYZ100和5X3YZ/30100，若满足就输出X，Y和Z。按上述算法编写程序为PRIVATESUBCOMMAND1_CLICKDIMX,Y,ZFORX1TO100FORY1TO100FORZ1TO100IFXYZ100AND5X3YZ/3100THENPRINTX,Y,ZENDIFNEXTZNEXTYNEXTXENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUB界面设计、属性设置等由读者完成。读者可以仿照前面介绍的操作步骤上机调试程序。思考题据题意可知，当取定X和Y之后，Z100XY。因此，我们也可以使用二重循环来编程序。若使用二重循环来编程序，程序如何修改第6题实验指导在第2题的应用程序中设置断点调试程序的操作步骤为（1）按实验三第7题介绍的方法，打开第2题的程序。（2）在代码窗口中把语句PRINTTAB18“E“E设置为断点。设置断点有以下方法将光标移到需设置断点的语句行，然后选择“调试”菜单中的“切换断点”命令；或将光标移到需设置断点的语句行后按F9键；或直接用鼠标单击断点语句之前左边的灰色区域。此时，断点语句或程序行中的字符都变为粗体，以深红色反相显示，并在代码窗口的左边灰色区域中出现一个圆点。设置断点的方法也可以用来取消断点。即使用上述三种方法来设置断点时，若该语句行不是断点，则设置为断点；否则，取消断点。（3）运行程序程序运行之后，单击命令按钮COMMAND1，开始执行事件过程COMMAND1_CLICK。当程序执行到断点语句PRINTTAB18“E“E时，系统暂停程序的执行，进入中断模式。断点语句以黄色反相显示，语句左边灰色区域出现一个向右箭头指向断点。图151执行到断点处并查看表达式的当前值（4）检查变量或表达式的值若要检查变量N的值，只须把鼠标移到“N”处，系统立即把变量N的当前值显示出来。若要检查表达式“1/T”的值，则先选择字符“1/T”，使表达式“1/T”以蓝底反相显示，然后把鼠标表达式处，系统把“1/T”的当前值显示出来。图151显示了程序执行到断点语句和查看表达式当前值的情况。第7题实验指导。（1）按照实验三第7题介绍的方法，打开第1题的程序。（2）单击“调试”工具条（若不在窗口上，则可以单击“视图/工具栏/调试”命令）上的“逐语句”按钮，或者按热键F8，系统进入运行模式。（3）程序运行之后，单击COMMANDL命令按钮，开始执行事件过程COMMAND1_CLICK，系统切换到中断模式。（4）再次单击“调试”工具条上的“逐语句”按钮（或按F8键）执行完第一个可执行语句之后，就把下一个可执行语句设置为“待执行语句”。每单击一次“调试”工具条上的“逐语句”命令（或每按一次F8），VB就执行一个语句。待执行语句以黄色反相显示。由此可以跟踪程序执行的整个过程。在单步执行的任何时刻，都可以查看变量或表达式的当前值。实验六常用控件的使用实验目的1掌握父对象、子对象、焦点和TAB顺序的概念。2掌握各种控件的构造及其常用属性值的设置方法。3学会使用各种控件在窗体上建立用户界面的方法。4初步掌握各种控件的主要事件和方法的使用。实验内容1设计一个检测密码程序当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统”；否则，显示“密码错误请重新输入密码。”。若连续三次输入的密码都不正确，则在屏幕上显示一个消息框，并在消息框上显示提示信息“对不起，您不能使用本系统”，然后结束本程序的执行。要求设计的用户界面如图161所示。图161第1题的用户界面2编程序完成在窗体中放置一个包含某一图片的图片框和下边放置一个水平滚动条，当单击水平滚动箭头或单击水平滚动箭头与滚动块之间的区域或拖动水平滚动块时，能使图片左右往返移动。要求设计的用户界面如图162所示。图162第2题的用户界面3编一程序在文本框中显示一段文字，并使用两组单选按钮分别选择文本框的背景颜色和文字颜色。要求使用两个框架分别作为两组单选按钮的容器和设计的用户界面如图163所示。图163第3题的用户界面4编写一个职工通讯录程序。当在下拉列表框中选择某一姓名后，能在三个文本框中分别显示该职工的电话号码、邮政编码和住址。要求设计的用户界面如图164所示。图164第4题的用户界面5编程序完成在窗体中间放置一个包含某一图片的图片框。当单击“放大”按钮时，图片每隔半秒放大100缇。当单击“停止”按钮时，停止放大。用户界面如图165所示。图165第5题的用户界面6结合第3题理解父对象、子对象、焦点和TAB顺序的概念。实验指导第1题实验指导按题意编写程序为PRIVATESUBFORM_LOADTEXT1TEXT“TEXT1MAXLENGTH10TEXT1PASSWORDCHAR“LABEL2CAPTION“LABEL2ALIGNMENT2ENDSUBPRIVATESUBTEXT1_KEYPRESSKEYASCIIASINTEGERSTATICNLABEL2CAPTION“IFKEYASCII13THENIFTEXT1TEXT“0123456789“THENLABEL2CAPTION“欢迎你使用本系统“ELSEIFN0ORN1THENNN1LABEL2CAPTION“密码错误请重新输入。“TEXT1SELSTART0TEXT1SELLENGTHLENTEXT1TEXTELSEMSGBOX“对不起，你不能使用本系统“ENDENDIFENDIFENDSUB第2题实验指导按题意编写程序为PRIVATESUBFORM_LOADHSCROLL1MIN0HSCROLL1MAXFORM1WIDTHPICTURE1SCALEWIDTH200HSCROLL1LARGECHANGEFORM1WIDTHPICTURE1SCALEWIDTH/50HSCROLL1SMALLCHANGEFORM1WIDTHPICTURE1SCALEWIDTH/50PICTURE1LEFT0PICTURE1TOP200PICTURE1PICTURELOADPICTURE_“CPROGRAMFILESMICROSOFTOFFICEOFFICEBITMAPSSTYLESGLOBEWMF“ENDSUBPRIVATESUBHSCROLL1_CHANGEPICTURE1LEFTHSCROLL1VALUEENDSUB思考题若在用户界面的右边再加上一个垂直滚动条，并当单击任何滚动箭头或单击任何滚动箭头与滚动块之间的区域或拖动任何滚动块时，能使图片左右上下往返移动，则程序如何修改第3题实验指导按题意编写程序为OPTIONEXPLICITPRIVATESUBOPTION1_CLICKIFOPTION1VALUETHENTEXT1FONTNAME“楷体_GB2312“ENDSUBPRIVATESUBOPTION2_CLICKIFOPTION2VALUETHENTEXT1FONTNAME“黑体“ENDSUBPRIVATESUBOPTION3_CLICKIFOPTION3VALUETHENTEXT1FONTNAME“隶书“ENDSUBPRIVATESUBOPTION4_CLICKIFOPTION4VALUETHENTEXT1FORECOLORVBREDENDSUBPRIVATESUBOPTION5_CLICKIFOPTION5VALUETHENTEXT1FORECOLORVBBLUEENDSUBPRIVATESUBOPTION6_CLICKIFOPTION6VALUETHENTEXT1FORECOLORVBGREENENDSUB调试程序的操作步骤为（1）建立新工程（2）界面设计建立文本框TEXT1。双击工具箱上的文本框（TEXTBOX），在窗体的中间出现一个带有TEXT1字样的文本框图形对象，使用鼠标把它拖到窗体中的预定位置和适当调整大小。建立框架FRAME1。双击工具箱上的框架（FRAME），在窗体的中间出现一个带有FRAME1字样的框架图形对象，使用鼠标把它拖到窗体中的预定位置和适当调整大小。在框架FRAME1中建立单选按钮。操作方法是单击FRAME1，使其成为活动控件（四周出现8个小方块）；单击工具箱上的单选按钮（OPTIONBUTTON）；把鼠标移到框架FRAME1中，鼠标变形为“”。此时按住鼠标左键并拖动，在框架内画出OPTIONBUTTON1单选按钮的图形对象。以同样的方法，设置单选按钮OPTIONBUTTON2和OPTIONBUTTON3作为框架FRAME1的子控件。按上述方法建立框架FRAME2，以及它的子控件单选按钮OPTIONBUTTON4、OPTIONBUTTON5和OPTIONBUTTON6。（3）属性设置按图163，设置FORM1、FRAME1、FRAME2、OPTIONBUTTON16的CAPTION属性值。再设置TEXT1的TEXT属性值为“与时俱进”、MULTILINE属性值为“TRUE”和FONTSIZE属性值为24。（4）运行程序程序运行之后，屏幕出现如图163所示的用户界面。单击框架FRAME1中的某个单选按钮，系统执行相应的CLICK事件驱动程序，选择某种字体，文本框TEXT1中的文字的字体立即跟着改变。同样，单击框架FRAME2中的某个单选按钮，系统执行相应的CLICK事件驱动程序，选择某种颜色，文本框TEXT1中的文字的颜色也立即跟着改变。思考题如果题目还要求在用户界面上设置两个复选框分别选择文字的修饰效果为“斜体”和“加粗”，则程序如何修改第4题实验指导按题意编写程序为PRIVATESUBFORM_LOADTEXT1TEXT“初始化文本框TEXT2TEXT“TEXT3TEXT“LABEL1CAPTION“姓名“初始化标签LABEL2CAPTION“电话号码“LABEL3CAPTION“邮政编码“LABEL4CAPTION“住址“COMBO1ADDITEM“何伟东“初始化组合框COMBO1ADDITEM“李小明“COMBO1ADDITEM“张惠芳“COMBO1ADDITEM“杨一兵“COMBO1ADDITEM“黄海滨“COMBO1TEXT“ENDSUBPRIVATESUBCOMBO1_CLICKSELECTCASECOMBO1LISTINDEXCASE0TEXT1TEXT“87554488“TEXT2TEXT“510641“TEXT3TEXT“南秀村50栋808“CASE1TEXT1TEXT“87553388“TEXT2TEXT“510641“TEXT3TEXT“东秀村19栋305“CASE2TEXT1TEXT“87550044“TEXT2TEXT“510641“TEXT3TEXT“南秀村51栋603“CASE3TEXT1TEXT“87551122“TEXT2TEXT“510641“TEXT3TEXT“西秀村25栋202“CASE4TEXT1TEXT“87559988“TEXT2TEXT“510641“TEXT3TEXT“南秀村45栋701“ENDSELECTENDSUB思考题若题目还要求在用户界面上增加一个下拉列表框用于单位的选择（具体数据由读者确定），程序如何修改第5题实验指导。按题意编写程序为PRIVATESUBFORM_LOADPICTURE1PICTURELOADPICTURE_“CPROGRAMFILESMICROSOFTOFFICEOFFICEBITMAPSSTYLESGLOBEWMF“PICTURE1LEFT0PICTURE1TOP0TIMER1ENABLEDFALSETIMER1INTERVAL500ENDSUBPRIVATESUBCOMMAND1_CLICKTIMER1ENABLEDTRUEENDSUBPRIVATESUBTIMER1_TIMERIFFORM1WIDTHPICTURE1WIDTH100THENPICTURE1WIDTHPICTURE1WIDTH100ENDIFIFFORM1HEIGHTPICTURE1HEIGHT100THENPICTURE1HEIGHTPICTURE1HEIGHT100ENDIFENDSUBPRIVATESUBCOMMAND2_CLICKTIMER1ENABLEDFALSEENDSUB思考题如果题目还要求在用户界面上增加一个“缩小”命令按钮，用于每隔半秒钟缩小图片100缇，程序如何修改第6题实验指导从第3题给定的用户界面可以看到，窗体FORM1是框架FRAME1和FRAME2的父对象，亦即框架FRAME1和FRAME2是窗体FORM1的子对象。框架FRAME1是单选按钮OPTIONBUTTON1、OPTIONBUTTON2和OPTIONBUTTON3的父对象。框架FRAME2是单选按钮OPTIONBUTTON4、OPTIONBUTTON5和OPTIONBUTTON6的父对象。假定建立用户界面时，建立控件的顺序为文本框TEXT1；框架FRAME1；框架FRAME2，则程序运行时，焦点先在文本框TEXT1上，按TAB键焦点移到框架FRAME1，再按TAB键焦点移到框架FRAME2。也就是说，这组控件的TAB顺序为TEXT1TABINDEX0FRAME1TABINDEX1FRAME2TABINDEX2它们的TABINDEX属性值可以在属性窗口查看，也可以进行修改，以便改变控件的TAB顺序。请读者试一试。实验七数组与记录实验目的1掌握一维数组、二维数组和记录的概念。2熟悉一维数组、二维数组、记录类型和记录变量的说明方法。3掌握数组元素和记录变量元素的引用、赋值。4掌握一维数组、二维数组和记录变量的输入输出方法。5初步掌握使用单重或二重循环结构控制数组元素的下标按一定规律变化来处理一维数组元素和二维数组元素的程序设计方法。6初步掌握可调数组和控件数组的使用。实验内容1使用随机函数产生10个1100之间的随机整数存放在一维数组A中，并把该数组元素显示在一个文本框里。然后在数组A中的指定位置插入一个指定值，并将插入数组元素后的一维数组A所有元素显示在另一文本框中。要求设计的用户界面如图171所示。图171第1题用户界面2把若干个国家名存放在一维数组A中，并显示在一个文本框里。然后用选择排序法把数组A中数据按升序排列，并把排列结果显示在另一文本框中。要求设计的用户界面如图172所示。图172第2题用户界面3使用随机函数产生0到9之间的随机整数形成一个5阶矩阵的元素，并把该矩阵存放到一个二维数组A和在一个文本框中显示出来。求出该矩阵的上三角元素之和、下三角元素（不包括对角线）之和、主对角线元素之和、次对角线元素之和以及靠边元素之和。要求设计的用户界面如图173所示。图173第3题用户界面4输入若干个职工的姓名、年龄和工资存放到一维记录数组S中，然后输入一个职工姓名，查询该职工的年龄和工资并输出。5创建一个控件数组，它包含6个单选按钮。程序运行时，当按下某个单选按钮时，给文本框中的文字选择某一种颜色。要求设计的用户界面如图174所示。图174第5题用户界面实验指导第1题实验指导算法分析假设数组A的下界为1、指定插入的数组元素值为NUM和插入位置为P，则按题意要把数组A中的元素从AP起到最后一个元素都向后移动一个位置，而原A1，A2，AP1的值不变，NUM作为AP的值。把数组A中的元素从AP起到最后一个元素都向后移动一个位置，需要从最后元素开始逐个往前移动一个位置。要完成这样的工作需使用单重循环结构。根据上述算法分析编写程序如下DIMA1TO11ASINTEGERPRIVATESUBFORM_LOADDIMITEXT1TEXT“TEXT2TEXT“TEXT3TEXT“TEXT4TEXT“RANDOMIZE随机数生成器初始化FORI1TO10AIINTRND1001NEXTIFORI1TO10显示插入前数组A的元素值TEXT1TEXTTEXT1TEXT“该职工已找到“PRINTTAB20“年龄“SIAGEPRINTTAB20“工资“SIWAGEGOTOLENDIFNEXTIPRINT“该职工找不到“LENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUB思考题如果要计算职工的平均年龄和平均工资，程序如何修改第5题实验指导。据题意编写程序为PRIVATESUBOPTION_CLICKINDEXASINTEGERSELECTCASEINDEXCASE0TEXT1FORECOLORVBREDCASE1TEXT1FORECOLORVBBLUECASE2TEXT1FORECOLORVBYELLOWCASE3TEXT1FORECOLORVBGREENCASE4TEXT1FORECOLORVBBLACKCASE5TEXT1FORECOLORVBWHITEENDSELECTENDSUB调试程序的操作步骤为（1）建立新工程（2）创建控件数组在窗体上建立包含6个单选按钮的控件数组OPTION的操作方法为建立单选按钮OPTION1，将其NAME属性修改为OPTION。建立单选按钮OPTION2，将其NAME属性也修改为OPTION。此时，屏幕显示一个对话框，如图175所示。单击“是（Y）”按钮，系统将单选按钮OPTION2添加到控件数组OPTION中。按第步的操作，分别建立单选按钮OPTION3、OPTION4、OPTION5、OPTION6和将其NAME属性也修改为OPTION，系统也自动把它们添加到控件数组OPTION中。图175建立控件数组的对话框（3）按图174完成其它控件的建立、输入程序代码和运行程序。实验八绘图程序设计实验目的1熟悉VISUALBASIC的坐标系统。2掌握直线控件和形状控件的使用。3掌握使用各种画图方法绘制简单图形的方法。4掌握图形中颜色的设置。5初步掌握动画程序设计的方法。实验内容1编写一个程序实现在窗体上出现一架从左到右飞行着的飞机。当拖动水平滚动条的滑动块时，可以改变飞机的飞行速度。要求设计的用户界面如图181所示。图181第1题的用户界面2利用下面程序实验使用SHAPE控件的SHAPE属性绘制6种不同图形及采用不同的线型和填充图案绘制这些图形时的情况。PRIVATESUBFORM_LOADDIMIOPTION10CAPTION“SHAPE0“FORI1TO5LOADOPTION1I创建控件数组OPTION1的其它5个元素为新的单选按钮设置位置OPTION1ITOPOPTION1I1TOPOPTION10HEIGHT40设置单选按钮的标题OPTION1ICAPTION“SHAPE“Y1/X“SCALE8,68,6LINE75,075,0LINE0,550,55CURRENTX78CURRENTY02PRINT“X“CURRENTX1CURRENTY6PRINT“Y“CURRENTX7CURRENTY0FORX7TO7STEP001Y1/XLINEX,YNEXTXENDSUB思考题假如不仅要求画出X和Y坐标轴，而且还要求在坐标轴上标出刻度，程序如何修改第4题实验指导据题意编写程序为PRIVATESUBFORM_LOADSCALE0,1360,1FILLSTYLE0FILLCOLORVBREDENDSUBPRIVATESUBTIMER1_TIMERSTATICXDIMYCLSXX10Y09SINX314159265/180CIRCLEX,Y,8,VBREDENDSUB思考题若还要求当小球移到窗体的右边界时，又能从左边界开始移动，程序如何修改第5题实验指导。按题意编写程序为PRIVATESUBCOMMAND1_CLICKDIMS,I,M,N,L,T,B1,B2,B3CONSTPI314159265CLSM0N0L0DOSINPUTBOX“请输入一段文字包括英文字母、数字或其他字符“LOOPUNTILS“FORI1TOLENSSELECTCASEMIDS,I,1CASE“A“TO“Z“,“A“TO“Z“MM1CASE“0“TO“9“NN1CASEELSELL1ENDSELECTNEXTITMNLB1M/TB2N/TB3L/TFILLSTYLE0FORI1TO250FILLCOLORVBREDIFM0THENCIRCLE1500,1500I,800,VBRED,2PI,2PIB1,2/3ENDIFFILLCOLORVBYELLOWIFN0THENCIRCLE1500,1500I,800,VBYELLOW,2PIB1,2PIB1B2,2/3ENDIFFILLCOLORVBBLUEIFL0THENCIRCLE1500,1500I,800,VBBLUE,2PIB1B2,2PIB1B2B3,2/3ENDIFNEXTIFILLCOLORVBREDIFM0THENCIRCLE1500,1500I,800,VBWHITE,2PI,2PIB1,2/3ENDIFFILLCOLORVBYELLOWIFN0THENCIRCLE1500,1500I,800,VBWHITE,2PIB1,2PIB1B2,2/3ENDIFFILLCOLORVBBLUEIFL0THENCIRCLE1500,1500I,800,VBWHITE,2PIB1B2,2PIB1B2B3,2/3ENDIFENDSUB思考题如果要求在饼图的底部加一条白线，程序如何修改实验九过程的使用实验目的1熟悉VISUALBASIC应用程序的构成。2掌握子过程和函数过程的定义及其调用。3掌握参数传送的两种方式传值调用和传地址调用。4掌握子过程和函数过程的使用。5掌握变量和过程作用域的概念。6了解递归的概念和使用方法。实验内容1利用下列程序测试参数传送的两种方式传值调用和传地址调用，从而理解传值参数和传地址参数的区别。PRIVATESUBPBYREFX,BYVALYXX1