VB课后实验6答案
[VIP专享]VB第6章课后练习答案
![[VIP专享]VB第6章课后练习答案](https://img.taocdn.com/s3/m/3ca1a7c9bceb19e8b8f6bac2.png)
第6章过程与函数一、填空题1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。
2．一维长整型数组a作过程形参写作：a() As Long，二维长整型数组b作过程形参写作：____b() As Long ____。
3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。
4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按值传递____方式。
5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地址传递____方式。
6．声明Single类型全局变量x，写作____Public x As Single（或 Publicx!）____；声明Integer类型静态变量x，写作____Static x As Integer（或 Static x%）____。
7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作____Form2.y____。
8．阅读如下代码，单击窗体后，窗体上的显示结果为____s = 2 s = 5 s =9____。
Dim i As Integer, n As IntegerPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 3s = sum(i): Print "s ="; s;Next iEnd SubPrivate Function sum(n As Integer)Static j As Integerj = j + n + 1: sum = jEnd Function二、选择题1.VB程序设计语言中，函数过程与子过程必须分别用关键字（ C）声明。
(A)Private，Public (B)Public，Private(C)Function, Sub (D)Sub, Function2.要调用一个已经定义好的函数myfunction( )，用语句的方式调用函数，下列写法哪个是正确的（D）(A)Call myfunction (B)myFunction(C)myFunction ( ) (D)CallmyFunction( )3.定义过程时，如果在过程名前加关键字Private，则该过程为（ A）。
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
VB实验报告(含答案)
实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。
程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。
图实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption我的第一个vb程序窗体Form1caption请输入姓名标签Label1text““文本框Text1caption显示命令按钮Command1caption清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些=“请输入姓名”=24=True2.两个按钮所使用的是什么事件代码分别是什么Private Sub Command1_Click()=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。
转换公式是：C= 5 / 9(F - 32)。
F为华氏温度，C为摄氏温度。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。
框架Fr1包含单选按钮Op1和Op2。
2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。
⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。
Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click() Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
VB实验任务6参考答案(1)
实验任务6参考答案课程名称：程序设计基础VB实验名称——实验六Visual Basic程序设计基础(2)一、实验目的：1．掌握顺序结构的程序设计方法2．掌握常用的接收和输出数据的方法3．进一步掌握常量、变量、运算符、表达式和常用函数的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验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"123ab" & 246#1/1/2007# - #1/1/2000# "30" + 140 "123" & 456 "123" + 456实验2请先手工写出以下程序段的运行结果，然后使用立即窗口或在窗体的Click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
VB实验报告答案-推荐下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验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表示元素和变量。
min = a(1)‘min变量表示最小值，初值一定要在循环体外赋值，不然min=0，输入的数组元素值如果都>0，那min永远都为0.For i = 2 To 10If max < a(i) Then ……‘找最大值及下标If min > a(i) Then ……‘找最小值及下标sum = ……‘求数组元素和Next i‘④输出结果aver = (sum - a(imax) - a(imin)) / 8‘求平均值aver = (sum - max - min) / 8 Print "选手的得分为："Print averEnd Sub6-3‘通用处定义窗体级变量Option ExplicitOption Base 1Dim a(5, 5) As Integer‘定义窗体级变量，以便在下面的4个命令按钮的click 事件中使用该数组Private Sub Command1_Click()Dim i As Integer, j As Integer ‘不可以再次定义a（5,5），否则a（5,5）只能在command1中有用，在其他命令按钮事件中不起作用。
‘二维数组元素的赋值用二重循环控制For i = 1 To 5For j = 1 To 5a(i, j) = Val(InputBox("输入a(" & i & "," & j & ")的值")) ‘此写法在输入对话框中可显示数组元素的下标值。
Next jNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer‘用二重循环控制二维数组元素的输出……Picture1.Print Mid(Str(a(i, j)) & " ", 1, 3); Spc(4); ’为了在输出时每列元素列对齐……‘用Picture1.Print输出空行……End SubPrivate Sub Command3_Click()Dim imax As Integer, max As Integer, jmax As Integer ‘imax表示最大值元素的下标，imin表示最小值元素的下标，max表示最大元素Dim sum1%, sum2%, sum3%Dim i As Integer, j As IntegerFor i = 1 To 5For j = 1 To 5If 条件 Thenmax =……: imax = ……: jmax =……End IfIf 条件 Then sum1 = ……‘i=j时，主对角线上的元素If 条件 Then sum2 = ……‘i<j时，上三角元素If 条件 Then sum3 = ……‘i>j时，下三角元素Next jNext iLabel1.Caption = "最大元素为a(" & imax & "," & jmax & ")=" & maxLabel2.Caption = "对角线元素之和为" & sum1Label3.Caption = "上三角元素之和为" & sum2Label4.Caption = "下三角元素之和为" & sum3End SubPrivate Sub Command4_Click()Picture1.Cls ‘清屏Label1.Caption = ""Label2.Caption = ""Label3.Caption = ""Label4.Caption = ""End Sub6-4Option Base 1Dim a() As Integer ‘定义动态数组，因为数组元素个数不确定Private Sub Form_Click()Dim i As Integer, j As Integer, p As BooleanDim n As IntegerFor i = 2 To 100p = True ‘注意True的写法，不能写出TureFor j = 2 To CInt(Sqr(i)) ‘j不能从1开始，思考一下为什么？If i Mod j = 0 Thenp = FalseExit For ‘i能被j整出，说明i已不是素数了，没必要继续执行循环，跳出循环。
End IfNext jIf p Then‘可写成if p=True Then，当P为True时说明i不被j整除，是素数。
n = ……‘用n变量累计素数的个数ReDim Preserve ……‘重新声明动态数组a（）的大小，……‘将素数i赋给数组元素a（n）。
……‘输出即素数。
End IfNext i‘也可单独做循环输出数族元素a（n），即素数For i = 1 To nPrint Mid(Str(a(i)) & " ", 1, 3); Spc(4); ‘输出时列对齐If i Mod 6 = 0 Then Print ‘每行输出6个元素。
考虑在图像框中如何换行？Next iEnd Sub6-5Dim a(5, 5) As Integer, b(1 To 25) As Integer ‘定义窗体级变量，便于各个命令按钮使用该数组，注意在各命令按钮事件中不可再定义这两个数组a和b。
Private Sub Command1_Click()For i = 1 To 5For j = 1 To 5……‘给数组a各元素赋初值，同时输出各元素值Next jPicture1.Print ‘换行Next iEnd SubPrivate Sub Command2_Click()‘将二维数组转换成一维数组For i = 1 To 5For j = 1 To 5b((i - 1) * 5 + j) = a(i, j)Next jNext i‘用冒泡法或选择法对数组元素进行排序……‘输出排序后的结果For i = 1 To 25Picture2.Print ……‘输出一维数族元素b（i）If i Mod 5 = 0 Then……‘Picture2换行End IfNext iEnd SubPrivate Sub Command3_Click()Picture1.ClsPicture2.ClsEnd Sub6-6Dim a(1 To 10) As Integer‘定义窗体级变量Private Sub Command1_Click()‘给数组a各元素赋初值，同时输出各元素值For i = 1 To 10a(i) = Int((50 - 20 + 1) * Rnd) + 20Picture1.Print a(i);Next iEnd SubPrivate Sub Command2_Click()‘用冒泡法排序Private Sub Command3_Click()‘二分查找6-7Option ExplicitDim s() As String, n As Integer‘定义窗体级变量，其中s为字符数组Private Sub Command1_Click()Dim i As Integer, smax As String, imax As Integer, j As Integer Dim s1 As String‘选择排序，注意：对字符数族元素可直接排序，不必转换成整型数据。
For i = 1 To n - 1imax = iFor j = i + 1 To nIf s(j) > s(imax) Then imax = jNext js1 = s(imax)s(imax) = s(i)s(i) = s1Next iFor i = 1 To nPicture1.Print s(i)Next iEnd Sub‘如用冒泡法排序，如何编程？练习一下。
Private Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenn = ……‘n值加1，即数组元素个数增加1个ReDim Preserve s(n) ‘动态数组使用前必须声明s(n) = ……‘用s数组存放字符串Text1.Text = "" ‘清空文本框，便于输入下一个字符串。