VB实验四 实验报告2018
VB实验报告
VB实验报告实验一、VB控制结构[实验目的]1.掌握选择语句的使用2.掌握循环语句的使用[实验内容]一、VB编程基础练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别会发生什么情况，为什么？①Private Sub Form_Click()I = 10Print IEnd Sub②Private Sub Form_Click()Dim I%I = 10Print IEnd Sub③Option ExplicitPrivate Sub Form_Click()I = 10Print IEnd Sub④Option ExplicitPrivate Sub Form_Click()Dim I%I = 10Print IEnd Sub第一个程序运行的结果是：点击一次窗体便会出现一个“10”第二个程序的运行结果是：也是点击一次窗体出现一个“10”第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？Private Sub Form_Click()Dim n As Integern = n + 1Print nEnd SubPrivate Sub Form_Click()Static n As Integern = n + 1Print nEnd Sub第一个程序运行结果是：第二个程序运行的结果是：二、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
Private Sub Text1_Change()Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,tempX1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框If X1 > X2 ThenTemp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换End IfIf X1 > X3 ThenTemp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换End IfIf X2 > X3 ThenTemp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换End IfPrint: PrintPrint "输出结果：" ’在屏幕上输出“输出结果：”PrintPrint x1,x2,x3 ’在屏幕上输出x1,x2,x3End Sub三、循环语句程序3：创建应用程序。
vb实验报告实验总结
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中，我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验，我们深入了解了VB的各种功能和特性，并且掌握了如何利用VB进
行程序设计和开发。
在实验过程中，我们首先学习了VB的基本语法和数据类型，包括变量、常量、运算符等。
然后我们学习了VB中的控件和事件处理，掌握了如何在窗体中添
加控件，以及如何处理用户的交互事件。
接着，我们学习了VB中的条件语句
和循环语句，掌握了如何编写条件判断和循环结构的程序。
最后，我们学习了VB中的函数和过程，掌握了如何封装和调用函数，以及如何设计和调用过程。
通过本次实验，我们对VB编程语言有了更深入的理解，掌握了VB的基本编程
技能。
我们能够利用VB进行程序设计和开发，实现各种功能和应用。
同时，
我们也意识到了编程的乐趣和挑战，对计算机编程产生了浓厚的兴趣。
总的来说，本次VB实验对我们的学习和成长都具有重要意义。
我们通过实验
掌握了VB的基本知识和技能，提升了自己的编程能力和实践能力。
我们相信，在今后的学习和工作中，VB编程语言一定会为我们带来更多的机遇和挑战，让我们能够更好地应对和把握。
希望我们能够不断学习和进步，不断提升自己的
编程水平，为自己的未来铺平更加广阔的道路。
实验报告四——单级放大电路静态工作点测试
实验内容及要求：
要求：
1、熟悉单管放大电路，掌握不失真放大的条件。
2、了解负载变化对放大倍数的影响。
内容：
1、元件选用：二极管、直Байду номын сангаас稳压电源、导线
2、内容：测量并计算静态工作点
实验分析：
最基本的模拟信号出路功能是信号的放大，它是通过放大电路实现的，放大是指将微弱的电信号在允许的失真范围内将其幅值增强到要求的数量。放大电路种类很多，实验以单级阻容耦合低频放大电路为例，它的功能是将频率从几十HZ到几百kHz的低频弱小信号进行不失真的放大。它是电子线路基本单元电路之一。
5、静态工作点的测量
静态工作点包括：当输入信号为零时，器件各电极上的电流与电压处于静态。对于三极管，静态工作点Q点包括基极电流IP、集电极(或发射极)电流Ic(或IE)、BE间电压UBE和管压降UCE。静态工作点选择就是使得放大器尽量工作在放大区的台适位置，静态工作点选择过低则有可能在输入信号负半周时产生基极电流失真最终造成输出的截止失真。静态工作点选择过高虽然不会使得基极电流失真，但是有可能在输入信号正半周时候使得晶体管进入饱和状态，从而导致饱和失真。
放大器静态工作点可利用电路的直流通路进行计算，即
IBQ=（VCC-VBEQ）/RB,
ICQ=βIBQ,
VCEQ=VCC-ICQRC
实验小结：
(1)利用电脑软件仿真进行电路的实验，首先按照实际电路在软件上连接电路；在连接电路的同时应往意电路的简洁美观；安放电表时应现规定好表的属性；在进行静态调试时，应慢慢的调节电位器的同时仔细观看电流表的示数；在进行动态调试时，慢慢的调节电位器，仔细观察示波器上波形的变化，找到最大不失真的位置，并测量相关量；在规定个元器件时应往意其单位。
2018年VB实验报告02 (2) (8000字)-优秀word范文 (5页)
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==VB实验报告02 (2) (8000字)编号：201X－201X学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验二、程序设计基础1 学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1. 掌握运算符的使用。
2. 掌握表达式的正确书写规则。
3. 掌握常用函数的使用。
4. 掌握InputBox、MsgBox函数的使用。
5. 熟悉掌握赋值语句的使用。
6. 掌握顺序结构的应用程序的编程过程。
二. 实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。
运行结果填在右侧表中：（一行一行地输入，不能粘贴） ? 35 /5 mod 13 \2+5^2 PrintNot("bad">"bed") BirthDay = #5/18/1980#Birth$ = "出生日期：" & BirthDay Print Birth$a = 10b = 15c = -9Print a > 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Printlen(str(c))Print Chr(Asc("A") + 3)Print Trim(" a b ") & "cde" Print " a b " & "cde"Print Left("Visual Basic 6.0", 7)Print Mid("Visual Basic 6.0", 8, 5)Print Instr("Visual Basic 6.0",” Ba”) Print Len("VB程序设计")Print UCase("Hello!")Print "浙江" & Space(2) & "杭州" Print Date, Date+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, "#0.0000") Print Sqr(9) Print Abs(-25) Print Rnd, RndPrint Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8)【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如下所示。
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程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
vb实训报告
vb实训报告1. 引言在本次VB实训中，我们小组的任务是设计和开发一个员工管理系统。
该系统旨在帮助企业管理员工信息、薪资、考勤等日常管理事务。
本文将介绍我们在实训过程中的项目规划、功能实现、问题解决以及项目总结等方面的内容。
2. 项目规划在项目规划阶段，我们首先明确了系统的功能需求和主要模块划分。
根据实际情况，我们将系统划分为员工信息模块、薪资管理模块、考勤模块以及权限管理模块。
每个模块都有相应的功能要求和优先级。
3. 功能实现3.1 员工信息模块在员工信息模块中，我们实现了员工的基本信息录入、修改和查询功能。
通过设计合理的界面布局和表单格式，使用户能够方便快捷地操作相关功能。
我们还添加了员工照片上传和显示的功能，增强了系统的可视化和人性化。
3.2 薪资管理模块薪资管理模块是该员工管理系统的关键部分之一。
我们实现了薪资的计算、发放和统计功能。
通过与员工信息模块的数据交互，能够自动计算薪资、生成工资条等相关操作。
同时，我们提供了统计报表的功能，帮助管理人员迅速了解企业的薪资概况。
3.3 考勤模块在考勤模块中，我们实现了考勤打卡、请假申请和考勤统计等功能。
通过与系统日历的结合，员工能够方便地进行考勤操作，并及时查看自己的考勤记录。
考勤统计功能可以帮助企业管理人员掌握员工的出勤情况，及时进行奖惩和管理。
3.4 权限管理模块为了保证系统的安全性和数据的机密性，我们设计了权限管理模块。
该模块实现了用户角色的划分、账号权限的设置和登录验证等功能。
只有经过验证的用户才能够访问系统，并根据其角色的不同进行相应的操作。
4. 问题解决在项目开发过程中，我们遇到了一些问题，并采取了相应的解决策略。
例如，在员工信息模块中，由于员工照片的上传和显示涉及到文件操作和路径设置，我们遇到了一些路径错误和图片加载问题。
通过仔细检查代码和路径设置，最终解决了这些问题。
同样，在权限管理模块中，我们遇到了一些安全性和数据保护的问题。
通过加密算法和访问控制的设置，我们增强了系统的安全性，避免了未授权用户的非法访问。
VB实验报告4VB绝对经典
Text3.Text = UCase(Text1.Text)
End Sub
（3）运行结果截图
.
二、实验感受(包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对 Nhomakorabea机的意见等)
加强自学能力，并能根据老师的一些方法举一反三，做到灵活的运用所学的知识去编写还没学的程序，只有这样才能有所提高。
学号：******xx姓名：xxx班级：0xxx实验时间：30xxx.03.22
实验编号
VB01
实验名称
对象、属性、事件与方法的使用
实验目的和要求
1.掌握对象属性的设置。
2.掌握对象方法的使用
实验内容
1.print、cls方法的作用。
2.seltext、sellength等文本框属性的使用。
3.change事件的使用。
3.课本P22,例［2－6］。
4.在窗体上有三个文本框，程序运行时向文本框一中输入任意英文大小字母，文本框二中显示相应的字母且所有字母都是小写，文本框三中显示相应的字母且都是大写字母。（字母的大小写转换，预习书P54，3.5.1转换函数）
（1）属性设置：
控件名
属性名
属性值
（2）代码编写：Private Sub Text1_change()
一、实验题目
1.窗体背景颜色为淡蓝色，二个按钮,按钮背景色为蓝色，单击按钮一(cmdprint)时，窗体中出现“HELLO WORLD！”，字体为二号字，红色，当单击按钮二(cmddel)时，窗体中的内容清除。（根据要求设计界面，编写程序）
2.一个文本框（名为：txtext），二个按钮控件(cmdone)，二个标签(cmdtwo)，运行程序后，在文本框1中任意输入字符，并选择部分字符，单击按钮一，在标签1中显示所选的内容，单击按钮二，在标签2中显示所选字符的个数。（根据要求设计界面，编写程序，标签要带边框）
VB实验报告04
浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验四、分支结构程序设计学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。
2.掌握多分支条件语句的使用。
3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。
二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score < 60 Then Print "不合格"If score >= 60 and score<85 Then Print "合格"If score >= 85 Then Print "优秀"End sub引伸1若把程序代码写成如下形式，画出它的流程图。
问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 Then st= "优秀"If score < 60 Thenst=”不合格”Elsest="合格"End IfPrint stEnd Sub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 ThenPrint "优秀"ElseIf score >= 60 ThenPrint "合格"ElsePrint "不合格"End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。
VB实验报告
软件技术实验指导实验一：名称：VB的感性认识实验要求：1）在屏幕上开辟一个窗口（文本框），窗口的上部放置一个标签，标签中显示：“欢迎使用Visual Basic6.0中文版”。
窗口的下部有三个按钮，左边按钮中标有“开始显示”，中间按钮中标有“清屏”，右边按钮中标有“结束”。
当鼠标单击左边按钮时，文本框中显示“欲穷千里目，更上一层楼！”如果单击中间按钮，则清除文本框中显示的内容，单击右边按钮则程序结束。
2）单击“清屏”后，让光标出现在文本框中，此时往文本框中输入若干文字，例如“您好”，然后单击窗体，使得在窗体的指定位置上显示在文本框中输入的文字。
3）如果将1）中单击左边按钮后文本框中显示的“欲穷千里目，更上一层楼！”改为“白日依山尽，黄河入海流，欲穷千里目，更上一层楼！”此时文本框在一行中将显示不下所有文本，请试调整该文本框的“Multiline”属性，并将文本框纵向距离调整到可容纳两行以上文字。
此时再次执行程序，观察执行结果所发生的变化。
实验设计知识点：文本框的双向作用（即输入与输出）；窗体的双重作用（容器与输出）；事件过程的编写；输入输出的简单实现；窗体、文本框、标签、命令按钮等基本控件的常用属性的动、静态设置等。
(只为工大人民准备的) 附加内容：建立我的工具箱：该程序用于对Windows中的常用工具例如记事本、画图板等等进行方便的管理。
程序使用者只需单击界面上的相应图标按钮，就可以启动相应的Windows程序。
实验步骤：1）在窗体中央放入四个命令按钮，并选中4个按钮控件令其全部处于激活状态，单击“格式”菜单，选择“统一尺寸”子菜单下的“两者都相同”选项，可使所有被选中的按钮的外观尺寸统一；2）分别修改4个按钮的Caption属性分别为：记事本，画图板、写字板和媒体播放，并且将四个按钮的Style属性值取为Graphical属性以便在按钮控件上可以添加小图标和设置背景颜色。
在图标库中给四个按钮选择放入合适的小图标。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验报告四课程VB程序设计实验项目VB过程与函数设计(6学时) 成绩专业班级石油工程2017姓名万佳宁学号201731011301 实验日期 6.6实验目的（1）掌握Function过程和Sub过程的定义与调用（2）理解参数按址传递和按值传递的本质（3）理解变量和过程的作用域（4）能熟练运用Function过程和Sub过程解决实际问题、简化程序实验内容【实验1】编写Function函数程序实现计算n！。
程序界面如下图所示。
（5分）掌握函数过程的定义及使用实验结果：【实验1 代码】Private Sub Command1_Click()n = Val(T ext1.T ext)T ext2.T ext = jiecheng(n)End SubPrivate Function jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd FunctionPrivate Sub Command2_Click()EndEnd Sub【实验1 典型结果】【实验2】编写Sub子函数过程实现计算n！。
程序界面同上题。
（5分）掌握Sub子过程的定义及使用实验结果：【实验2 代码】Private Sub Command1_Click()n = Val(T ext1.T ext)Call jiecheng(n, t)T ext2.T ext = tEnd SubSub jiecheng(a, t)t = 1For j = 1 T o at = t * jNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub【实验2 典型结果】【实验3】编写计算n! 的函数过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Function过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验3 代码】Private Sub Form_Click()n = Val(InputBox(1))For j = 1 T o nb = b + jiecheng(j)Next jPrint bEnd SubFunction jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd Function【实验3 典型结果】【实验4】编写计算n! 的子过程，调用该过程，计算1!+2!+3!+……+10!之和（5分）掌握使用Sub过程简化多重循环的方法，即把具有单一功能的内循环放到函数内部函数的作用是简化程序，不要把双重循环都放到函数内，无法达到简化程序的目的实验结果：【实验4 代码】Private Sub Form_Click()n = Val(InputBox(1))For i = 1 T o nCall jiecheng(i, b)c = c + bNext iPrint cEnd SubSub jiecheng(a, b)t = 1For j = 1 T o at = t * jNext jb = tEnd Sub【实验4 典型结果】【实验5】编写计算x n/n! 的函数过程，调用该过程，计算e x的近似值（10分）e x=1+x/1! +x2/2!+x3/3!+ ……+x n/n!要求：1）x的值用InputBox函数输入2）要求精度：x n/n!<0.000001掌握使用函数过程简化多重循环的方法实验结果：【实验5 代码】Function jiecheng(a)t = 1For i = 1 T o at = t * iNext ijiecheng = tEnd FunctionPrivate Sub Command1_Click() Dim b As Longx = Val(T ext1.T ext)d = 1Doi = i + 1b = jiecheng(i)c = x ^ id = d + c / bLoop Until c / b < 0.000001 Print dEnd Sub【实验5 典型结果】【实验6】编写程序输出200~300之间的素数。
（10分）要求：1）利用函数过程编写判断一个数是否是素数的程序，如果是素数则返回1，否则返回02）将素数输出到列表框掌握使用函数过程简化多重循环的方法实验结果：【实验6 代码】Private Sub Command1_Click()For j = 200 T o 300If sushu(j) = 1 Then List1.AddItem jNext jEnd SubFunction sushu(n)For i = 2 T o n - 1If n Mod i = 0 Then Exit ForNext iIf i > n - 1 Thenflag = 1Elseflag = 0End Ifsushu = flagEnd Function【实验6 典型结果】【实验7】编写程序验证100以内数的哥德巴赫猜想（任意一个大于6的偶数可以表示成两个素数之和），要求素数判断用函数过程实现。
（10分）掌握使用函数过程简化多重循环的方法实验结果：【实验7 代码】Private Sub Command1_Click()List2.ClearList1.Clearn = Val(T ext1)For i = 2 T o n - 2If sushu(i) = 1 And sushu(n - i) = 1 ThenList1.AddItem iList2.AddItem n - iEnd IfNext iEnd SubFunction sushu(a)For j = 2 T o a - 1If a Mod j = 0 Then Exit ForNext jIf j > a - 1 Thensushu = 1Elsesushu = 0End IfEnd Function【实验7 典型结果】【实验8】编写一个通用的Function函数过程，求出数组中的最大值。
已知数组中的数据为（101，52，38，96，182，100，25，78，66，89），程序界面设计如下图所示。
（10分）掌握Function过程中数组作为参数传递的方法实验结果：【实验8 代码】Private Sub Command1_Click()Dim num()num = Array(101, 52, 38, 96, 182, 100, 25, 78, 66, 89)T ext1 = max(num())End SubFunction max(num())t = num(0)For i = 0 T o UBound(num) - 1If num(i) > t Then t = num(i)Next imax = tEnd Function【实验8 典型结果】【实验8 问题】请总结一下哪些情况使用Function过程更加合适、哪些情况使用sub过程更加合适。
需要返回值用function不需要返回值时用sub更合适【实验9】分别编写按地址传递交换、按值传递交换两个数的过程子程序代码swap1（）和swap2（）。
程序界面设计如下图所示。
（10分）掌握Sub过程参数传递方法实验结果：【实验9 代码】Private Sub Command1_Click()a = 10:b = 20huan1 a, bPrint "按址传递前："; "a=10"; "b=20"Print "按址传递后："; "a="; a; "b="; bEnd SubSub huan1(a, b)t = aa = bb = tEnd SubPrivate Sub Command2_Click()a = 10:b = 20huan2 a, bPrint "按值传递前："; "a=10"; "b=20"Print "按值传递后："; "a="; a; "b="; bEnd SubSub huan2(ByVal a, ByVal b)t = aa = bb = tEnd Sub【实验9 典型结果】【实验10】编写程序，利用sub过程，输出由字符组成的菱形，通过三次调用输出三个不同字符组成的菱形。
（10分）灵活运用函数过程和子过程解决实际问题实验结果：【实验10 代码】Sub lingxing(a As String)For i = 1 T o 5Print T ab(10 - i);For j = 1 T o i * 2 - 1Print a;Next jPrintNext iFor i = 4 T o 1 Step -1Print T ab(10 - i);For j = 1 T o i * 2 - 1Print a;Next jPrintNext iPrintEnd SubPrivate Sub Command1_Click() lingxing yuansulingxing yuansulingxing yuansuEnd SubFunction yuansu() As String yuansu = InputBox("字符") End Function【实验10 典型结果】【实验11】编写程序，利用Sub过程实现将任意一个十进制数n分别转换成2进制、8进制和16进制数。
要求：在文本框中得到要转换的十进制数n，在事件过程中调用Sub过程得到转换后的3个结果，在窗体上打印出结果。
（10分）综合案例实验结果：【实验11 代码】【实验11 典型结果】【实验12】编写程序，利用Function函数过程的递归调用方式计算n！。
程序界面如下图所示。
（10分）掌握Function过程的递归调用实验结果：【实验12 代码】Private Sub Command1_Click()n = Val(T ext1)T ext2 = jiecheng(n)End SubFunction jiecheng(a)If a = 1 Thenjiecheng = 1Elsejiecheng = jiecheng(a - 1) * aEnd IfEnd FunctionPrivate Sub Command2_Click()EndEnd Sub【实验12 典型结果】【选做1】编写程序，利用Sub子程序递归调用方式计算两个数M、N的最大公约数，其中M>N，且N≠0。