vb6.0实验六习题与答案

vb6.0实验六习题与答案实验六专业_1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（slider）、时钟、图形控件；2.学习在表单中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4.学习编写每个控件、鼠标和键盘的事件过程。

二、实验内容1、单选按钮、复选框、框架1）将表格F1的标题设置为“复选框、框架和单选按钮”；将表格中复选框ch1、ch2ch1和CH2的高度和宽度分别设置为360和1000；程序运行时，check2处于非零状态。

FR1帧包含单选按钮OP1和op2。

2）设计窗体，要求①标题为“设置字体”；② 带边框的标签控件Label1以表格形式设置，高度和宽度分别为450和3800，标题为“欢迎VB”，字体大小为“4”，并显示在中间；③标题为“字体”框架包含两个标题分别为“楷体_gb2312”和“华文新魏”的单选按钮op1和op2；④ 标题为“Italic”的框架包含两个标题为“是”和“否”的单选按钮。

⑤ 编写相应控件的事件进程，使程序运行时，点击“Kaiti_gb2312”，标签控件的字体为Kaiti_gb2312，点击“Chinese New Wei”，标签控件的字体为Chinese New Wei；单击Yes，label控件的字体将为斜体。

单击“否”取消标签控件字体的斜体化。

privatesuboption1_click()标签1。

fontname=option1。

说明文字endsubprivatesuboption2_uu单击（）label1.fontname=option2.captionendsubprivatesuboption3_click()label1.fontitalic=trueendsubprivatesuboption4_click()label1.fontitalic=falseendsub3）在窗体是设置设置框text1，其中文字为：黑体、四号、居中；设置单选按钮option1和option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。

部分思考与练习答案思考与练习11．填空题（1）中文Visual Basic 6.0包括学习版(Learning)、专业版(Professional)和企业版(Enterprise)三个版本。

（2）中文Visual Basic 6.0的菜单栏主要包括文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口和帮助。

（3）应用程序建立在工程的基础之上，一个工程是各种类型文件的集合。

（4）工程包括有如下文件：文件（Vbp）、窗体文件（Frm）、标准模块文件（Bas）、类模块文件（Cls）、资源文件（Res）和包含ActiveX的文件（ocx）。

（5）Visual Basic为了对这些工程资源进行有效地管理，提供了工程资源管理器。

单击“视图”→“工程资源管理器”菜单命令，即可调出“工程资源管理器”窗口。

（6）代码编辑器由“对象”下拉列表框、“过程”下拉列表框、程序编辑区域、“过程查看”按钮和“全模块查看”按钮组成。

（7）调出代码编辑器的方法有以下三种:单击“视图”→“代码窗口”菜单命令；单击选中一个对象，单击鼠标右键，弹出它的快捷菜单，再单击该菜单中的“查看代码”命令；在调出代码编辑器的同时，也创建了该对象的一对过程头和过程尾语句；双击某一个对象，在调出代码编辑器的同时，也创建了该对象的一对过程头和过程尾语句。

（8）Visual Basic应用程序的基本单元就是对象。

对象是代码和数据的的集合。

（9）“属性”窗口有两种显示方式，一种是按照属性分类排序，另外一种是按照英文字母排序。

（10）对象属性的设置可以使用“属性”窗口修改其属性值来完成，在程序中使用代码来完成两种方法。

（11）方法是改变对象属性的操作。

在Visual Basic中，方法是针对对象进行操作的程序和改变对象属性值的程序。

（12）事件可分为鼠标事件及键盘事件等。

（13）通常的程序设计方法有结构化程序设计、面向对象程序设计和事件驱动程序设计三种。

《VisualBasic6.0程序设计》习题答案《Viusla Basic 6.0程序设计》习题答案习题1答案一、简答题1. 答：Windows应用程序通常以窗口形式运行，窗口上包含文本框、按钮等控件。

在Visual Basic中，采用“所见即所得”方式设计Windows应用程序，可以把控件直接拖放到窗口上，而不用编写代码来实现用户界面。

2. 答：在任务1中，窗体、标签和按钮都是对象，在设计过程设置了这些对象的许多属性，例如Caption属性等；还在按钮的Click事件中编写程序代码，以便在单击按钮时执行相应的操作。

二、填空题1. 窗体模块；标准模块；类模块2. 对象；过程3. 运行；启动4. .frm；.vbp三、选择题1. A2. D3. D4. B一、简答题1. 答：Visual Basic有以下基本数据类型：Byte（字节型）、Integer （整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）、Currency（货币型）、String（变长）、String（定长）、Variant（可变型数字）、Variant（可变型字符）、Boolean（布尔型）、Date （日期型）、Object（对象型）。

2. 答：Visual Basic的表达式分为以下4类：算术表达式、字符串表达式、关系表达式、布尔表达式。

3. 答：Print语句用于输出数字和文本，通常是把结果输出到窗体上。

4. 答：分支语句有两个：If语句和Select语句，它们都是根据条件来执行特定的语句。

5. 答：循环语句有3种语句：For、While和Do，For用于执行指定次数，While为先测试型循环语句，Do为后测试型循环语句。

6. 答：定长数组包含固定数目的元素，通过数组名和下标来访问每个元素。

7. 答：动态数组和定长数组的不同之处在于：动态数组的元素数可以动态改变。

8. 答：过程的参数有两种传递方式：按值传递参数和按地址传递参数。

实验任务6课程名称：程序设计基础VB实验名称——实验六程序设计基础一、实验目的：1．掌握常用的接收和输出数据的方法2．进一步掌握常量、变量、运算符、表达式和常用函数的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1请先手工写出以下表达式的值和类型，然后上机验证不同数据类型之间的运算，并判断结果的数据类型。

要求：请分别在窗体的单击事件过程中,按如下形式判断表达式的结果类型，比较不同类型常数运算的结果类型；观察算术运算符的不同，对结果有什么影响;记录验证结果，找出出错原因；分析：在实际编程中我们应尽量避免不同类型的变量之间的运算和相互赋值，应为可能会引起“类型不匹配”的错误。

但是我们应该清楚哪些情况是允许的，哪些情况会出错注意：类型符省略为：%——Integer，&——Long，!——Single，#——Double，@——Currency，结果转换方向：整型→长整型→单精度型→双精度型→货币型Private Sub Form_Click()Print TypeName(1& + 1!) 'TypeName()函数可以求出数据的类型名称End Sub第（1）组（求下面15个表达式的值和类型，若将运算符加号改为减号、乘号和除号又会有什么不同）1% + 1% 1& + 1% 1! + 1% 1# + 1% 1@ + 1%1& + 1& 1! + 1& 1#+ 1& 1@+ 1&1! + 1! 1#+ 1! 1@+ 1!1#+ 1# 1@+ 1#1@+ 1@第（2）组（求下面10个表达式的值和类型）Dim a As Integer, b As Single, c As Singlea < 2 = 3 b^2 - 4*a*c > 0 "ABC">"ACB" "ABC" = "abc" 200 + True#1/1/2007# - #1/1/2000# "30" + 140 "123" & 456 "123" + 456 "123ab" & 246实验1注意：类型符省略为%——Integer，&——Long，!——Single，#——Double，@——Currency，第（1）组总结◆加法和减法的情况相同◆通常相同类型的操作数进行运算,结果同操作数本身,但是除法/比较特殊,除单精度数据除外(Single),相同数据进行除运算结果是Double不同类型的操作数进行运算,结果通常按占用内存字节数多的方向转换(规则:转换方向整型→长整型→单精度型→双精度型→货币型);也有特例:单精度与长整型运算结果为Double,单精度与货币型相乘运算结果为Double, 双精度与货币型相乘运算结果为Double,单精度与整型相除运算结果为Single第（2）组Dim a As Integer, b As Single, c As Singlea < 2 = 3 b^2 - 4*a*c > 0 "ABC">"ACB" "ABC" = "abc" 200 + True#1/1/2007# - #1/1/2000# "30" + 140 "123" & 456 "123" + 456 "123ab" & 246实验2请先手工写出以下程序段的运行结果，然后使用在窗体的Click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。

第一章Visual FoxPro 6.0基础知识习题精练一参考答案：一、单项选择题1.A2.C3.C4.A5.D6.B7.B8.B9.A 10.D 11.B 12.B 13.C 14.D 15.A 16.A 17.B 18.D 19.C 20.A 21.B 22.C 23.B 24.C 25.A 26.C 27.A 28.D 29.B 30.B 31.B 32.D 33.A 34.B 35.C 36.B 37.C 38.A 39.C 40.B 41.A 42.D 43.C 44.B 45.A 46.B 47.C 48.A 49.B 50.B 51.D 52.B 53.D 54.A 55.C 56.A 57.D 58.A 59.D 60.C 61.A 62.D 63.C 64.C 65.B 66.C 67.C 68.B 69.A 70.C 71.A 72.B 73.A74.D 75.B 76.B 77.A 78.D 79.D 80.A 81.A二、填空题1.通用型 G 42.备注型 43..FPT4.变量数组对象5.数值型逻辑型货币型6.严格的 YMD7.$ ￥ 48.字段变量和内存变量9.利用赋值号“=”赋值利用STORE命令赋值 10.?<表达式> ??< 表达式> 11.私有数组全局数组局部数组 12.1 65000 13.不小写大写 14.函数名函数返回值函数名参数函数返回值 15..PRG .DBC .DBF习题精练二参考答案一、选择题1.B2.C3.A4.C5.C6.D7.C8.D9.D 10.A 11.C 12.D 13.D 14.C 15.A16.D 17.D 18.C 19.D 20.B 21.C 22.A 23.C 24.B 25.A 26.D 27.C 28.B 29.D 30.B 31.B 32.C 33.D 34.C 35.C 36.D 37.B 38.B 39.B 40.B 41.C 42.A 43.D 44.B 45.D 46.C 47.C 48.C 49.C 50.B 51.B 52.A 53.C 54.D 55.A 56.B 57.B 58.B 59.A 60.D 61.D 62.D 63.A 64.C 65.B 66.C 67.A 68.D 69.A 70.A 71.C 72.B 73.D 74.C 75.C 76.B 77.B 78.D 79.B 80.B 81.A 82.A 83.B 84.B 85.D 86.A 87.B 88.B 89.D 90.D 91.B 92.D 93.D 94.B 95.A96.A 97.C 98.A 99.C二、填空题1.人工管理、文件管理、数据库系统管理2.一对一、一对多、多对多3.元组,属性4.候选关键字5.外部关键字6.数据结构、数据操作、数据的完整性约束条件。

VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导实验一认识VB6.0[实验目的]1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序[实验内容]一、VB集成开发环境的启动和退出1.启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。

2.在“新建工程”对话框中选择“标准EXE”注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？3.熟悉VB集成开发环境4.退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。

二、VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名称。

2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。

想一想：可以通过哪些方法打开代码窗口。

3.掌握在窗体设计器窗口中添加控件。

4.学会设置窗体、命令按钮、文本框的最常用属性。

5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。

想一想：窗体、命令按钮、文本框的缺省事件是什么。

三、建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。

实验一认识VB6.0Private Sub Command1_Click()Text1.Text = "Hello，Visual Basic！"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub想一想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。

vb6.0练习题及答案第一篇：vb6.0练习题及答案一、选择题1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。

A．窗体设计．代码C．属性D．工程资源管理器窗口 >> 答案：d2．窗体的Load事件的触发时机是（）。

A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时 >> 答案：ｂ3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。

A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术答案：C4．VB6.0集成开发环境的主窗口不包括（）。

A．标题栏 B．菜单栏 C．状态栏 D．工具栏答案：c5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。

A．T ext.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text答案：b6．下列可以激活属性窗口的操作是（）。

A．用鼠标双击窗体的任何部位B．执行“工程”菜单中的“属性窗口”命令 C．按Ctrl+F4 D．按F4键答案： b d7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。

A．单击窗体上没有控件的地方 B．单击任一个控件 C．不执行任何操作 D．双击窗体的标题栏答案：a8．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。

A．Caption B．PasswordChar C．Text D．Char答案：b9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。

A．Locked B．MultiLine C．TabStop D．Visible答案：a10．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。

A．Index B．Tag C．Enabled D．Left答案：c11．要在窗体Form1内显示“myfrm”，使用的语句是（）。

学院专业(班级)姓名学号任课教师目录实验一 Visual Basic编程环境和控件 (1)实验二窗体及基本控件使用 (7)实验三顺序结构程序设计 (14)实验四选择结构程序设计 (20)实验五选择结构程序设计（续） (25)实验六循环结构程序设计 (33)实验七循环结构程序设计（续） (38)实验八常用控件 (42)实验九常用控件（续） (51)实验十数组 (56)实验十一数组（续） (65)实验十二顺序文件 (70)实验十三过程 (77)实验十四过程（续） (84)实验十五菜单及通用对话框 (90)实验十六随机文件（选作） (94)附录:VB统考编程题（精选） (98)期末自测题（A卷） (108)期末自测题（B卷） (113)实验报告的整理与编写上机实验结束后，编写实验报告是软件工程的要求，也是培养科学作风的重要途径，实验报告的主要内容包括：（1）实验目的实验作为教学的一个重要环节，其目的在于更深入地理解和掌握课程教学中的有关基本概念，应用基本技术解决实际问题，从而进一步提高分析问题和解决问题的能力。

因此，当我们着手做一个实验的时候，必须明确实验的目的，以保证达到课程所指定的基本要求。

在写实验报告时，要进一步确认是否达到了预期的目的。

（2）实验内容实验的目的是要通过解决一些具体问题来达到的。

在书中，每一部分都安排了多个实验题目，根据教学安排、进度、实验条件、可提供的机时、学生的基础等因素，可以选择其中的几个或全部。

因此，在实验报告中，实验内容是指本次实验中实际完成的内容。

在每一个实验题目中，一般都提出一些具体要求，其中有些具体要求是为了达到实验目的而提出的，不仅有具体的实验题目，还应包括具体要求。

（3）程序设计说明包括算法设计思路，必要的流程图，界面设计说明、使用模块及变量的说明等。

（4）源程序代码Visual Basic的源程序包括界面设计和代码。

程序设计的产品是程序，它应与算法或流程图相一致，要与用户界面设计一致。

5630101：答：设置Text1 的属性MultiLine为true和ScrollBarsFalsecommand1的属性Enabled 为Text1.FontBold = TrueEnd SubPrivate Sub Op2_Click()Text1.FontBold = FalseEnd SubPrivate Sub Cd1_Click()P1.ClsP1.Line (0, 0)-(1800, 1200)End SubPrivate Sub Cd2_Click()P1.ClsP1.Circle (900, 600), 500End SubPrivate Sub Command1_Click()Dim n As IntegerDim a As Integer, b As Integer, c As Integer n = Text1.Texta = n Mod 10b = n \ 10 Mod 10c = n \ 100If a ^ 3 + b ^ 3 + c ^ 3 = n ThenLabel1.Caption = "是水仙花数" ElseLabel1.Caption = "不是水仙花数" End IfEnd SubDim A(1 To 10)Private Sub Command1_Click() RandomizeDim i As IntegerFor i = 1 To 10A(i) = Int(10 + Rnd * (99 - 10 + 1))Text1.Text = Text1.Text & A(i) & " " Next iEnd SubPrivate Sub Command2_Click()Min = A(1)Max = A(1)For i = 2 To 10If A(i) < Min ThenMin = A(i)ElseIf A(i) > Max ThenMax = A(i)End IfNext iText2.Text = MaxText3.Text = MinEnd Sub5630102：答：设置image1 的属性BorderStyle为1和Stretch为true属性找到图片在image1 的pictureText2.Text = Text1.SelTextText1.Text = ""Text1.SetFocusEnd Sub'''不得删改本行注释Dim a As Singlea = Text1.TextIf a >= 80 And a <= 100 Then Text2.Text = "优良"If a >= 60 And a < 80 Then Text2.Text = "合格"If a > 0 And a < 60 Then Text2.Text = "不合格"End Sub：5630103Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Command1_Click()L1.AddItem Text1.TextL2.AddItem Val(Text1.Text) ^ 2T1.Text = ""T1.SetFocusEnd SubPrivate Sub Command1_Click()Dim s As String, i As Integer, n As Integers = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then n = n + 1End IfNext iText2.Text = nEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 100 To 200If isprime(i) = False ThenText1.Text = Text1.Text & i & " "End IfNext iEnd Sub：5630104按窗体右键->菜单编辑器, 标题和名称不能少,例如:标题: 文件,名称为File.注意名称的大小写和题目一致设置标签L1的BorderStyle属性为1,Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visible = TrueEnd Sub5630106：设置combo1的style属性为1,然后下拉组合框Private Sub Cd1_Click()Combo1.AddItem Combo1.TextEnd SubPrivate Sub Cd2_Click()Combo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Command1_Click()Dim n As Integern = Text1.TextIf (n Mod 4 = 0 And n Mod 100 <> 0) Or n Mod 400 = 0 Then Text2.Text = "是闰年"ElseText2.Text = "非闰年"End IfEnd SubPrivate Sub Command1_Click()'''不得删改本行注释Text2.Text = zh(Text1.Text)End Sub5630107：Private Sub Command1_Click()'''不得删改本行注释Dim S As StringOpen "K:\administrator\5630111\PDZM.TXT" For Input As #1 Do While Not EOF(1)Input #1, SText1.Text = Text1.Text & SLoopEnd SubPrivate Sub Command2_Click()'''不得删改本行注释Dim S As String, i As Integer, N As IntegerS = Text1.TextFor i = 1 To Len(S)If Mid(S, i, 1) = UCase(Text2.Text) Or Mid(S, i, 1) = LCase(Text2.Text) Then N = N + 1End IfNext iText3.Text = NEnd Sub：5630108Private Sub C1_Click()L1.AddItem T1.TextL2.AddItem Asc(T1.Text)T1.Text = ""T1.SetFocusEnd Sub：5630109Private Sub Form_Load()List1.AddItem "PictureBox"List1.AddItem "Label"List1.AddItem "TextBox"List1.AddItem "Frame"List1.AddItem "CommandButton"List1.AddItem "CheckBox"End SubPrivate Sub Command1_Click()Text1.Text = List1.TextText2.Text = List1.ListIndexEnd Sub5630110：Dim n As Integern = Text1.TextFor i = 1 To 50If Sqr(i) = Int(Sqr(i)) ThenText2.Text = Text2.Text & i & " "End IfNext iEnd SubOption ExplicitDim A(1 To 20) As Integer '''不得删改本行声明Private Sub Command1_Click()'''不得删改本行注释Open "K:\administrator\5630005\input02.txt" For Input As #1 For i = 1 To 20Input #1, A(i)Text1.Text = Text1.Text & A(i) & " "Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, sum As IntegerFor i = 1 To 20sum = sum + A(i)Next iText2.Text = sumEnd Sub答：设置image1 的属性BorderStyle为1和Stretch为true Private Sub Check1_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture("K:\Fjexam95\Jztx.bmp")ElseImage1.Picture = LoadPicture("")End IfEnd Sub。

VB实验作业参考答案作业一窗体设计 (2)作业二计算器 (4)作业三人民币张数求电阻值 (6)作业四（必做）建康城 (8)作业五阶乘累加 (9)作业六（必做）九九乘法表 (11)作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12)作业八递归函数计算两个正整数的最大公约数，递归公式为 (13)作业九（必做）家电提货单 (15)作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。

(17)作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。

(19)作业十二通过菜单选择，对字体、字号进行设置 (21)作业一1.简答题(略)2.编程题：1)单击窗体后在窗体上显示“您好！×××同学”。

要求：（1）程序中用自己的姓名替代“×××”。

（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。

（3）建立一个命令按钮，结束时单击此按钮退出。

答案参照课本P27的例1-6。

2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。

请编写：（1）用代码初始化各控件（提示：可写在Form_Load事件中）。

（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。

（3）结束程序运行的代码（命令按钮）。

程序代码：Private Sub Form_Load()Text1.Left = 0Text1.Top = 0Text1.Width = Form1.Width / 2Text1.Height = Form1.Height / 2Command1.Left = Form1.ScaleWidth - Command1.WidthCommand1.Top = Form1.ScaleHeight - Command1.Height End SubPrivate Sub Form_Resize()Call Form_LoadEnd SubPrivate Sub Command1_Click()EndEnd Sub作业二1.填空题：（1）Visual Basic 算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（ ab ed c b ba 2+++ ）。

第四章1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。

通过inputbox 函数输入数据，在窗体上显示和及平均值。

Dim a as singleFor i=1 to 4a=inputbox（“请输入一个数：”，“数据输入”）sum=sum+an=n+1avg=sum/nnext iprint “和是：”,sumprint “平均值是：”，avg2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

Dim a as variantFontsize=20a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；aa=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；aa=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；aa=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；aa=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a3．a=5，b=2.5，c=7.8，编程序计算：y=（πab）/（a+bc）程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=（pi*a*b）/（a+b*c）print “结果是：”;y4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。

Dim a as long，d as integer ，h as integer，s as integera=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600print d；“日”；h；“时”；s；“秒”5、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。

实验6 数组6-1Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10) As Integer, t As IntegerPrint "交换前数据："For i = 1 To 10a(i) = ……‘生成20-80之间的随机数Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值，‘如不用分号和逗号，则分行输出各数组元素的值。

Next iPrint ‘输出空行,表示后面的输出换到新的一行。

For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一'个和最后一个的交换，第二个和第九个的交换，以此类推）‘以下实现数据交换，必须通过第三个变量实现两两数据交换t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iPrint "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上面循环只有5次，只能输出5个元素。

For i = 1 To 10Print ……;Next iEnd Sub6-2Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, aver As IntegerDim max As Integer, imax As IntegerDim min As Integer, imin As Integer, sum As IntegerPrint "输入评委的评分"‘①输入数组元素For i = 1 To 10a(i) =……if a(i)<5 or a(i)>10 then‘出错信息‘i控制变量作何处理？endifNext i‘②输出数组元素For i=1 to 10Print ……;Next iPrint ‘换行‘③开始对数组元素进行处理imax = 1: imin = 1: sum = a(1): max = a(1) ‘imax表示最大元素的下标值，imin表示最小元素的下标值，max变量表示最大值，sum表示元素和变量。

VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具;面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境;结构化程序设计语言;完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6。

0后,误把Windows子目录删除。

当重新安装Windows后,是否需要再次安装VB6。

0？答：要重新安装的。

因为安装VB6。

0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6。

0。

3、Visual Basic 6。

0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上,能显示对应的版本.4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件);然后对控件属性进行设置；再对控件事件过程及编程;保存应用程序；程序调试和运行。

5、Visual Basic 6。

0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图"—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码"按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件,应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存.先保存窗体文件（.frm）,再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么?答：系统默认的目录是VB988、安装Visual Basic 6。

0后，帮助系统是否也已安装？答:没有。

VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器,直接显示与选定内容有关的帮助信息。

VB实验教材的实验与习题答案第一章VB开发环境与VB概述习题答案习题第二章常用控件与界面设计习题答案习题第三章实验与习题实验实验3_1…算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b)End Sub…关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12) List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98 List1.AddItem Str(32.345) = CStr(32.345)End Sub…逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80End Sub实验3_2略实验3_3略实验3_4…零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果") If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub…产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = Val(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3)End Sub…求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")End Sub实验3_5略习题选择题填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”))) x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z”x>=10 And x<20x<z<="">5、False2TrueFalseTrueTrueTrueTrue6、18820010068.568765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”.10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)End Sub3、Private Sub Command1_Click()Dim l As Single, w As Single, h As SingleDim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1方法一：x<=5 ; y方法二：Is<=2 ;Case Else实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b<c< bdsfid="215" p=""></c<> b=aa=k实验4-4方法二：s*n ; t/s<10^-5实验4-5方法一:m>=10^-4 ; (-1)^(n+1)*m 实验4-6x2=x3 ; <10^-6实验4-7实验4-8i+2*j+5*k=10 ; n实验4-9题目一：a) 5b)i=16 p=12 n=5c)i=9 p=8 n=1题目二：120 10实验4-10N=1 ；S=N& "*3 " & "+1 "实验4-11Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St 实验4-12i\100 ; (i Mod 100)\10习题一、选择题二、填空题1．Is=0 ; 1 To 10 ; Is >102. 93. 3 ; 4 154. this is a book ;This Is A Book5. 3 ; 3 ; 3 56. 32 07. 48. 15 19. 1 ; 401 ;10410. 1 2 3 ;1 3; 111. (3)12. 2 0 2413. 10 1414. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1) S=S+118. Mid(n,i,1)>Mid(n,i+1,1)19. "输入n";N/I=0 ;Print I第五章数组实验5_1Int(90 * Rnd) + 10a(i) = a(21 - i)a(21 - i) = t5_2k = x Mod 10i = i + 15_3s5_4max < a(i, j)row = Icol = j5_51ReDim Preserve prime(m) prime(j)5_6d Mod 25_7Exit Fora(j + 1) = a(j)5_8N – IA(j) = A(j + 1)5_9A(i, 1)JMin = MaxNot Flag5_10ch >= "0" And ch <= "9"P = P & chReDim Preserve C(k)5_11Private Sub Form_Click()Dim x As Integer, i As Integer, k As Integer, j As Integer Dim a() As Integerx = InputBox("输入正整数x=")i = 2Print x; "的质因子为:";Do While x >= iIf x Mod i = 0 Thenk = k + 1ReDim Preserve a(k)a(k) = ix = x \ iElsei = i + 1End IfLoopFor j = 1 To UBound(a)Print a(j);Next jEnd Sub习题一选择题二填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5. 4 5 66 5 43 2 16.T – 1I + 17.k = 6 - i – jmax = m8.j = aj = j - 39.i + 1i = i + 110. 237三编程题1．Option ExplicitOption Base 1Private Sub Command1_Click() Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数" End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("ê?è?m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IFor I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As Integer A(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10 S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10 For J = 1 To I - 1If X = B(J) Then Exit For Next JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IText3.Text = SEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) Then List1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub第六章参考答案实验实验6-11、Exit Do2、Y(X)3、X >= -1实验6-2【题目二】42 、26、8实验6-31、s1, key2、s As String3、ch >= "a" And ch <= "z"4、Mid(s, i, 1) = Chr(Asc(ch) + k - 26)思考：解密函数Private Sub dec(s As String, k As Integer) '解密过程Dim i As Integer, ch As String * 1For i = 1 To Len(s)ch = Mid(s, i, 1)If "A" <= ch And ch <= "Z" ThenIf Asc(ch) - k < Asc("A") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfElseIf ch >= "a" And ch <= "z" Then '多分支格式，ch介于小写a与z之间If Asc(ch) - k < Asc("a") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfEnd IfNext iEnd Sub实验6-41、b() As Integer, st As String2、L <= R3、ReDim Preserve b(R)4、L = L + 1辗转相除法求最大公约数函数Private Function Gcd(ByVal p As Integer, ByVal q As Integer) As IntegerDim r As Integerr = p Mod qDo While r <> 0p = qq = rr = p Mod qLoopGcd = qEnd Function实验6-5【题目一】age = age(n - 1) - 3 【题目二】1、(Left + Right) / 22、Left = Mid + 1实验6-61、3 -12、7 43、3 -14、7 0实验6-7【题目一】1、Sqr(2 + t)2、Abs(a - 1) < eps 【题目二】1、Dim X As Integer2、"S(" & I & ")=" & S(I)3、(j * i + 1)习题参考答案一选择题二、填空1（1）形式、（2）实在2（1）按地址传递、（2）ByVal3（1）窗体模块、（2）标准模块、（3）类模块4（1） 65（1）4 20 1016（1） 6 26 、（2）-2 987（1）10 6 、（2） 5 -58（1） 6 5 、（2）8 79（1）11 、（2）710（1）Fun(i) 、（2）Fun=p11（1） 4 、（2）20.712（1）29 、（2）28.713（1）k = j 、（2）b() As Integer14（1）gec 、（2）ge 、（3） 315（1）p1 = True And p2 = True 或p1 And p2 、（2）p1 = p2 – 2 、（3）Isp = True 、（4）m Mod i = 016（1）Convert(st) 、（2）Len(s) 、（3）"A" To "F" 、（4）k = k + p * h17（1）isualVi 、（2）sualVisu18（1）s + a 、（2）n + 1 、（3）x As Single, n As Integer 、（4）p * (x + i) / ((2 * i - 1) * i * x) 三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As Integer Dim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As Integer For I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取" Exit ForEnd IfNext IEnd Sub5、Option Explicit。