BB平台VB日常测试过程与函数
VB常用函数介绍
VB常用函数介绍一、常用内部函数在VB内部提供了大量函数。
在这些函数中，有些是通用的。
有些则与某种操作有关的。
大体分成五类，分别是：转换函数、数学函数、日期函数、时间函数和随机函数。
（1）转换函数函数名功能Int(x) 返回不大于自变量的最大整数。
Fix(x) 去掉一个浮点数的小数部分,保留其整数部分。
Hex(x) 把一个十进制数转换成为十六进制数。
Oct(x) 把一个十进制数转换成为八进制数。
Asc(x) 返回字符串中第一个字符的ASCII码。
Chr(x) 把值转换为相应的ASCII字符。
Str(x) 把值转换为一个字符串Cint(x) 把小数部分四舍五入，转换为整数。
Ccur(x) 把值转换为货币类型，小数部分最多保留4位。
CDbl(x) 把值转换为双精度数值。
CLng(x) 把值小数部分四舍五入转换为长整型数值。
CSng(x) 把值转换为单精度数值。
CVar(x) 把值转换为变体类型值。
（2）数学函数函数名功能Sin(x) 返回正弦值。
Cos(x) 返回余弦值。
Tan(x) 返回正切值。
Atn(x) 返回反正切值。
Abs(x) 返回绝对值。
Sgn(x) 返回自变量的符号。
即：值为负数时，函数返回-1值为0时，函数返回0值为正数时，函数返回1Sqr(x) 返回自变量x的平方根，自变量必须大于或等于0。
Exp(x) 返回以e为底数，以x为指数的值，即求e的x 次方。
（3）日期函数函数名功能Day(Now) 返回当前的日期。
WeekDay(Now) 返回当前的星期。
Month(Now) 返回当前的月份。
Year(Now) 返回当前的年份。
（4）时间函数函数名功能Hour(Now) 返回小时（0~23）。
Minute(Now) 返回分钟（0~59）。
Second(Now) 返回秒（0~59）。
（5）随机函数Rnd(x) 产生一个0~1之间的单精度随机数Rnd函数可以产生随机数，当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。
VB常用函数用法详解
VB常用函数用法详解VB函数数学函数（1）A bs 函数语法：Abs(number)绝对值返回一数值的绝对值。
参数 number 可以是任何数值表达式。
如果 number 的值为 Null，则返回Null；如果其参数是没有初始值的变数，则返回0。
注解：一个数值的绝对值就是将正负号去掉以后的值。
例如Abs(-1) 和 Ab s(1) 的返回值都是1。
（2）A tn 函数语法：Atn(number) 反正切该函数返回参数的「反正切」(arctangent) 值。
参数 number 可以是任何有效的数值表达式。
注解：Atn 函数的参数(number) 是直角三角形中构成直角两边的比值(正切函数值)，其返回值则为相对应之底角的度数，以「弧度」为单位。
正切函数值(number) 的算法为「对边除以邻边」。
返回值的范围落在 pi/2 到 pi/2 的「弧度」之间。
「角度」与「弧度」的转换方法为：将「角度」乘以 pi/180 即为「弧度」。
反过来将「弧度」乘以180/pi 便得「角度」。
（3）C os 函数余弦函数语法：Cos(number)该函数返回一角度的 cosine (余弦函数)值。
参数 number 可以是任何有效的数值表达式，其值代表一个角度，以「弧度」为单位。
注解：Cos 函数的参数表示角度，返回值为该角度两邻边的比值。
其比值的定义为「连接另一锐角的邻边除以连接直角的邻边」。
返回值的范围在 -1 到 1 之间。
（4）E xp 函数语法：Exp(number) 自然对数之底数该函数返回 e(自然对数之底数)的某次方。
参数 number 可以是任何的数值表达式。
（5）L og 函数自然对数值语法：返回参数的自然对数值。
Log(number)参数number可以是任何的数值表达式，条件是参数值必须大于0。
注解：自然对数是以 e 为底数的对数。
常数 e 的值大约是2.718282。
VB函数（6）R nd 函数随机数语法：Rnd[(number)]返回一个随机数。
VB实习过程
(一)、调试例题：准备：利用Excel生成大量实验数据以备编程题用：（1）启动Excel，生成一个工作簿，留下A列作为姓名列，将光标定位于B1单元格，输入公式“=int(rand()*51)+50”，可以生成50，100范围内的随机数，向下拖动B1单元格的填充柄，即可生成一列数据。
（2）选中B1:D10单元格，用Ctrl+R实现向右填充，即生成需要的数据。
（3）选中A1:D10单元格区域，复制后粘贴到Word中一个空白文档中，选中表格在系统菜单中选择“表格”-“转换”-“表格转换成文本”。
将转换后的文本另存为纯文本（*.txt）”文件类型。
1.在桌面上新建文件夹命名es-05,并保存.，启动VB程序。
2.“新建”“标准.EXE”，在窗体上添加适当的“文本框”、“按钮”、“标签”等控件：双击控件类图标，再用鼠标将其拖到适当的位置.。
3.修改各控件属性，如：单击各控件按钮，在右边的属性窗口，将Label的AutoSize 属性值改为True；将Command的Caption属性值改为“确定”、“开始”等。
4．保存并运行：.双击各控件按钮，进入代码表编辑窗口，将课本上的代码输进去，然后单击“文件”，保存窗体到es-05；单击工具栏上蓝色三角形按钮运行程序，运行失败后，进行“调试”，然后根据光标定位处更正代码，或运用“调试”中的逐语句进行逐步检查；更正后再进行运行（将例题5-13中代码中的Case4改为Case3）。
5.添加新窗体：在工具栏的“工程”中单击“添加新窗体”，然后按照第一个的程序进行编辑；在运行工程时，将工具栏上“工程”中“工程属性”的“启动对象”改为当前运行的窗体。
（二、）编辑习题：1. 启动VB程序。
“新建”“标准.EXE”，在窗体上添加适当的“文本框”、“按钮”、“标签”等控件：双击控件类图标，再用鼠标将其拖到适当的位置.。
2.修改各控件属性，如：单击各控件按钮，在右边的属性窗口，将文本框的ScrollBars的属性改为vbV ertical，并将MultLine的属性改为True，这样可以添加垂直滚动条，使文本框的内容不至于太多溢出而无法看见；3保存并运行：.双击各控件按钮，进入代码表编辑窗口，将自己编辑好的代码输进去，然后，单击“文件”，保存窗体到es-05；单击工具栏上蓝色三角形按钮运行程序，运行失败后，进行“调试”，然后根据光标定位处更正代码，或运用“调试”中的逐语句进行逐步检查；更正后再进行运行。
VB试验01-简单程序
实验一Visual Basic开发环境及简单程序设计一、实验目的1．熟悉Visual Basic集成开发环境程。
2．掌握建立、编辑和运行一个简单Visual Basic应用程序的全过程。
3．掌握对象及其属性、事件、方法的基本概念。
4．掌握基本控件（标签、命令按钮和文本框）的应用。
二、实验内容实验1.1 编写一个文字移动(能够手动和自动)的程序，程序界面如下图。
单击标题为“手动”的命令按钮，具有文字“欢迎学习程序设计！”的标签对象向右水平移动一定的距离，单击标题为“自动”的命令按钮，标签对象连续向右水平移动。
提示：1．建立用户界面涉及4个对象，1个Label(标签)、2个Command Button(命令按钮)和一个Timer(时钟)。
标签用来显示信息，如本例的“欢迎学习程序设计！”；命令按钮用来执行相关操作，如单击标题为“手动”的命令按钮使标签对象向右水平移动一定的距离；时钟用来定时执行相关操作，使标签对象连续向右水平移动。
建立好的用户界面下图。
2．设置对象属性建立好控件后，就要为其设置属性值。
属性是对象特征的表示，各类控件对象都有默认的属性值，设置控件对象的属性是为了使其符合应用程序的需要。
属性设置有两种方法。
通常，对于反映对象外观特征的一些不变的属性应在设计阶段完成，而一些内在的可变属性则有编程实现。
设计阶段用属性设置的第一种方法（在属性窗口设置）设置各控件对象的有关属性见下表，设置后用户界面如下图。
3．编写事件过程建立用户界面并设置了控件属性后，需要考虑用什么事件来激发控件对象来执行所需的操作。
这涉及选择对象的事件和编写事件过程代码。
编写事件过程代码是在“代码窗口”进行的。
“代码窗口”左边的“对象”列表框列出了该窗体的所有对象，右边的“过程”列表框列出了与选重对象相关的所有事件。
根据应用程序的要求，需要对用户操作作出具体响应的是两个命令按钮，对命令按钮的操作通常采用单击鼠标。
因此需要对命令按钮Command1和命令按钮Command2的单击事件过程编写事件过程代码。
vb的编程步骤
vb的编程步骤VB的编程步骤VB（Visual Basic）是一种广泛应用于Windows平台的编程语言，具有易学易用的特点。
在进行VB编程时，按照一定的步骤进行开发可以提高效率和代码质量。
下面将介绍VB的编程步骤，帮助初学者了解如何使用VB进行程序开发。
一、需求分析在进行VB编程之前，首先需要明确开发的需求。
需求分析是软件开发过程中的第一步，它确定了程序的功能和目标。
在这个阶段，开发人员需要与客户或用户进行沟通，了解他们的需求和期望，然后将这些需求转化为具体的功能和特性。
需求分析的目标是明确软件的功能、界面设计和用户交互方式。
开发人员可以使用各种工具和技术，如用户故事、用例图和流程图等，来帮助理解和分析需求。
通过合理的需求分析，可以避免开发过程中的返工和不必要的错误。
二、设计界面在明确了需求之后，下一步是设计程序的界面。
VB提供了丰富的界面设计工具，使得开发人员可以轻松创建各种窗体、控件和布局。
界面设计要考虑到用户的使用习惯和体验，尽量简洁明了、易于操作。
在设计界面时，需要确定程序所需的窗体和控件，并合理布局。
可以使用拖放的方式将控件添加到窗体上，并设置它们的属性和事件。
通过合理的控件选择和布局，可以增强程序的可读性和易用性。
三、编写代码界面设计完成后，下一步是编写代码。
VB是一种基于事件驱动的编程语言，开发人员通过编写事件处理程序来响应用户的操作。
在编写代码之前，需要对程序的逻辑进行设计，确定各个功能的实现方式。
在编写代码时，需要使用VB提供的语法和函数来实现程序的功能。
可以使用条件语句、循环语句、函数和子程序等结构来组织代码。
同时，还可以使用各种API和库来扩展程序的功能。
编写代码时要注意代码的可读性和可维护性。
可以使用注释来解释代码的作用和实现方式，避免出现冗长和复杂的代码块。
此外，还要注意代码的缩进和命名规范，使得代码结构清晰，易于理解。
四、调试和测试在编写完代码之后，需要进行调试和测试。
VB试验指导书
实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、了解Visual Basic集成环境的组成，各部分的作用。
4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。
实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。
界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。
1-1 图实验准备：应用程序建立VB1) VB集成化开发环境 2) 复习相关知识：1.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。
2.实验步骤：中文版的启动与退出。
1.Visual Basic 6.0 启动：Microsoft Visual Basic 6.0）单击“开始”按钮，然后选择“程序”中“1 中文版”，单击即可。
中文版”图标，Microsoft Visual Basic 6.0或：单击桌面上“ exe”按钮，进入环境。
）新建工程对话框，单击打开“标准2--退出：1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计：（1）添加标签Label1。
（2）添加命令按钮Command1。
（3）添加命令按钮Command2。
（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。
3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。
VB最简单实例入门教程
VB最简单实例入门教程VB简称Visual Basic，是一种基于对象的编程语言，旨在提供简单易学的编程环境。
本篇教程将为初学者介绍VB的基本概念和语法，帮助读者入门编程。
第一步：安装VB首先，你需要下载并安装VB开发环境。
你可以在微软官方网站上找到VB的最新版本，并按照提示进行安装。
第二步：创建新项目打开VB开发环境，点击“新建项目”（New Project）按钮，选择“Windows 窗体应用程序”（Windows Forms Application）并点击“确定”按钮。
然后为你的项目取一个名称，选择存储位置，并点击“确定”按钮。
这样就创建了一个新的VB项目。
第三步：界面设计VB的窗体界面是基于Windows窗体的，你可以通过拖拽控件到窗体上来设计界面。
在左侧的“工具箱”中选择一个控件，然后在窗体上点击并拖拽以放置该控件。
通过调整控件的属性，你可以改变其外观和行为。
例如，你可以修改按钮控件的文本，使其显示为“点击我”。
第四步：编写代码VB是一种事件驱动的编程语言，意味着你可以在用户与窗体上控件交互时触发事件。
你可以通过双击控件来创建事件处理程序，并在其中编写代码。
例如，你可以在按钮的点击事件中编写一段代码，在用户点击按钮时执行特定的操作。
第五步：运行程序在编写完代码后，你可以点击“调试”（Debug）菜单中的“开始调试”选项，或者按下F5键来运行程序。
此时，VB将会编译并执行你的代码。
你可以在窗体上触发事件，查看程序是否按照你的预期执行。
第六步：调试和测试编写完代码后，你可能会遇到一些错误。
VB提供了一些调试工具，帮助你找出和修复错误。
你可以使用断点来中断程序执行，在某个特定位置检查变量的值和程序状态。
另外，你还可以使用调试输出来输出调试信息，以便定位问题。
第七步：学习更多以上是VB入门的基本步骤，但VB是一种功能强大的编程语言，还有很多其他的概念和语法需要学习。
你可以通过阅读官方文档、参考书籍或者在线教程来深入学习VB编程。
VB程序设计-过程和函数
Private Sub Command1_Click()
Print sum(5, 3)
调用函数
End Sub
Function sum(x, y)
s=x+y sum = s
定义函数
End Function
函数和过程的相互转换
Private Sub Command1_Click()
Call sum(5, 3, s) 调用过程
function title(tit,n)
if len(tit)>n then
title=left(tit,n)&"…"
'返回函数值
else
title=tit
'返回函数值
end if
end function
5.7 参数传递
5.7.1 形参与实参
• 形参：置于过程定义时，参数列表中的变 量或数组；在过程被调用前，系统不对其 分配空间；
6.3 子过程与函数的参数传递
1.参数传递方式
过程的参数有两种传递方式：
传值（ByVal）
传地址（ByRef）（默认方式）。
按值传递参数:在形式参数前加上关键字ByVal 表示指定按值传递参数。调用时实际参数仅将值
传递给形式参数，形式参数的任何改变不会影响 实际参数。
按地址传递参数:
在形式参数前加上关键字ByRef表示指定按地址传递参 数。
调用函数 –变量= Function 函数名（参数1，参数2，…） –函数可以向变量一样引用和参与运算
6.2 定义Function过程
定义Function过程说明： 1）Function过程以Function语句开头，以End Function结束；中间代码部分为函数体； 2）函数名有返回值，其值类型由As 数据类型指定； 3）函数体内一般都会至少为函数名赋值一次；如果 不赋值，函数返回值默认为0或空； 4）函数中途可以利用Exit Function退出。
VB常用函数大全
返回当前日期和时间
Year
从日期中提取年份
例：Myyear = Year ( “75/06/13 ”)返回值为1975
Month
从日期中提取月份
同上
Weekday
从日期中提取星期数
例：Myweekday=weekday(“Oct 16,98”)值为6，周五
Day
从日期中提取天数
同前
Hour
从时间中提取小时数
VB常用函数大全
1．类型转换函数
Cbool将表达式转换为布尔型Cbyte转换为字节型
Ccur转换为货币型Cdate转换为日期型
Cdbl转换为双精度浮点型Cint转换为整形
Clng转换为长整型Csng转换为单精度型
Cstr转换为字符串型Cvar转换为变体型
2．日期和时间函数
函数
说明
举例
Date
返回当前日期
同上
DateAdd
DateDiff
计算两个日期之间差
例：my=datediff(“d”,”75/6/13”,”98/10/16”)值为8526
DatePart
返回某一日期某部分
例：my=datepart(“q”,”98/10/16”)值为4，第四季度
Timer
从午夜到现在经过秒数的单精度点数，一般用来控制时间
黑色
vbBlack
8
灰色
1
蓝色
9
亮蓝色
vbBlue
2
绿色
10
亮绿色
vbGreen
3
青色
11
亮青色
vbCyan
4
红色
12
亮红色
vbRed
5
VB常用操作 (计算机二级考试上机考试必备)
一。
随机数出一个小写字母Private Sub Command1_Click()Dim a As StringRandomizea = Chr(Int(97 + 26 * 26))MsgBox (a)End Sub二。
计算1/1！+1/2！+。
+1|10！Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub三。
编写一个函数，求两个数的最小数Private Sub Form_Load()Dim a%, b%a = Val(InputBox("a="))b = Val(InputBox("b="))If a > b ThenPrint "a>b"ElsePrint "a<b"End IfEnd Sub四。
输入正方形的边长，并计算对角线长Private Sub Form_Load()Dim a%, b%a = InputBox("请输入a的值")b = Sqr(2) * aPrint "正方形的对角线长："; bEnd Sub五。
计算并输出下面级数前n项和中偶数项和s=1*2+2*3+3*4+4*5+。
+n*(n+1) Private Sub Command1_Click()Dim i%, sum%For i = 1 To 50 Step 2sum = sum + i * (i + 1)Next iPrint sumEnd Sub六。
编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001是否是素数Private Sub Command1_Click()Dim a%, i%a = InputBox("请输入a的值")For i = 1 To aIf a Mod i = 0 Thenm = m + 1End IfNext iIf m = 2 ThenMsgBox ("a是素数")ElseMsgBox ("a不是素数")End IfEnd Sub七。
vb学习 过程与函数
❖ Sub子过程必须先定义，再在主过程中通过调用语句 （Call等）来调用。定义时需要知道该功能需要什么 已知参数，是否需要返回结果，若需要则必须通过 参数返回(地址传递)，方可确定所需参数的作用、类 型及个数。
《计算机语言与程序设计》
Visual Basic 6.0
计算机公共课教研室 ·2010年
Visual Basic 6.0
第八章 过程与函数
1
Sub过程
2
Function过程
3
参数传递
4
过程的嵌套
计算机公共课教研室 ·2010年·邓秀华修改
过程的引入
Visual Basic 6.0
❖ 计算算式结果，假设N=4，k=3
Sub过程小结
Visual Basic 6.0
❖Sub过程是以Sub为开头标志，End Sub为结束标志
❖ 事件过程与Sub子过程的区别
▪ 事件过程：当某个对象发生一个动作时，VB会自动调 用与事件相关的事件过程。事件过程是与窗体或控件 捆绑在一起的，不能独立存在。所以一般作为Sub子 过程的主过程。
Sub子过程与Function过程小结
Visual Basic 6.0
❖ 使用Sub子过程、Function函数过程必须先定义，再 在主过程中调用，注意调用和定义的区分。
----------------------------子过程------------------------------
-----------------------------
sum = jc fact 7, jc
VB常用函数大全
Do While Timer < Strat + 5
DoEvents
Loop
程序用来暂停5秒
3．目录和文件函数
函数
说明
例子
ChDir
改变当前目录
Chdir “c:\windows”
ChDrive
改变当前驱动器
CurDir
返回当前目录
MkDir
创建目录
MkDir “c:\my documents\vb6”
RGB(255,255,0)
7．字符串函数
函数
说明
例子
Len
返回字符串长度
Len(“Hello”)=5
Lcase
字符串所有字母变小写
Lcase(“Hello”)=hello
Ucase
字符串所有字母变大写
Lcase(“hello”)=HELLO
StrReverse
字符串反向
StrReverse(“hello”)=”olleh”
例：Myhour=Hour(“pm 09:30:00”)值为21
Minute
从时间中提取分钟数
同上
Second
从时间中提取秒数
同上
Formatdatetime
对日期和时间格式化
MonthName
返回月份的名称
例：Mymonthname=monthname(10)值为”十月”
WeekdayName
返回星期数的名称
Sin,Cos,Tan,Atn
计算对应参数的值
Rnd
产生一个0~1间随机数
下面产生a~b之间的随机数
Int (Rnd * (1)) + a
BB平台VB程序匹配题
从键盘输入一段英文文章（都是小写字母），统计一下该段文章中26个英文字母的使用情况。
Private Sub Form_Click()Dim c(1 To 26) As IntegerDim n As Integer, k As IntegerDim s As String, xs As StringFor i = 1 To 26c(i) = 0Next i(1)(2)For i = 1 To n(3)If xs >= "a" And xs <= "z" Then(4)(5)End IfNext iFor i = 1 To 26Print Chr(96 + i); "----"; c(i)Next iEnd Sub4.(1) 1.(2) 5.(3) 3.(4)2.(5)1. n = Len(s)2. c(k) = c(k) + 13. k = Asc(xs) – 964. s = InputBox("s=")5. xs = Mid(s, i, 1)单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。
Private Sub Form_Click()(1)s = 0For i = 1 To 20Randomize(2)Print x;(3)If (4) Then s = s + xNext i(5)End Sub2.(1)5.(2)1. If i mod 5 =0 Then Print2. Dim i As Integer, x AsInteger, s as Long1.(3) 4.(4)3.(5)3. Print "s="; s4. x Mod 2 = 05. x = Int(600*Rnd+1)实现文本框的复制、剪切、粘贴、删除功能Private Sub Command1_Click()(1)Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()Clipboard.Clear(2)(3)End SubPrivate Sub Command3_Click()(4)End SubPrivate Sub Command4_Click()(5)End Sub4.(1)1. Text1.SelText = ""5.(2) 1.(3) 3.(4)2.(5)2. Text1.SelText = ""3. Text1.SelText =Clipboard.GetText4. Clipboard.Clear5. Clipboard.SetTextText1.SelText调用VB的RND和INT函数，在当前工作表的A列的1—10行输入序号1—10，B列的1—10行填入0—1之间的随机数，C列的1—10行填入两位正整数，最后在C列的11行求出该列的最大数（调用EXCEL的内部MAX函数）。
BB平台(VB日常测试)过程与函数
问题 1得 2.22 分，满分 20 分编写一子过程，将数组a （n, n ）转置。
正确答案所选答案1. Public Sub ff(a() As Single, n As Integer) 1. Public Sub ff(a() As Single, n As Integer)2. Dim i As Integer, j As Integer, t As Single - [未给定]3. For i = 2 To n For j = 1 To i-1- [未给定] 4.t = a(i, j)- [未给定] 5.a(i, j) = a(j, i)- [未给定] 6.a(j, i) = t- [未给定] 7.Next j- [未给定] 8.Next i- [未给定] 9.End Function- [未给定]问题 2得 0 分，满分 20 分求下面表达式的值，并在窗体上输出。
要求m 与n 的值在窗体单击事件中用Inputbox()函数输入，且同为正整数，m>n 。
通过函数过程实现求阶乘的功能。
Private Sub Form_Click()Dim m As Integer, n As Integer Dom = InputBox("m=", "m>0，m 必须大于n") n = InputBox("n=", "n>0")Loop While m <= n Or m < 0 Or n < 0Print fact(m) / fact(n) / fact(m - n)End Sub正确答案所选答案1. Private Function fact(ByVal k As Integer)As Long-[未给定]2. Dim i As Integer-[未给定]3. fact = 1-[未给定]4. For i = 2 To k-[未给定]5. fact = fact * i-[未给定]6. Next i-[未给定]7. End Function-[未给定]问题 3 得 0 分，满分 20 分编写一个将一维数组倒置存放的子过程，并编写简单事件验证子过程的正确性。
实验06
实验六VB过程、函数与调用●实验目的1)了解并掌握过程、函数的基本概念。
2)正确编写过程、函数并灵活调用。
3)理解递归概念。
●实验题目1)设计一个窗体，通过命令按钮操作，用过程与函数两种方式计算N！。
窗体界面如图实验六01所示。
图实验六012)设计一个窗体，通过命令按钮操作，分别调用阶乘过程与函数计算5个元素中拿3个进行组合的可能次数。
窗体界面如图实验六02所示。
图实验六02●实验背景及准备1)已学习过程的概念。
2)已学习函数的概念。
3)已了解递归的概念。
●实验过程与主要步骤1)题目一进入VB，在窗体上放置2个标签、2个文本框、两个命令按钮，改变Caption属性。
“计算”按钮中用一个循环完成N!的运算，根据定义，N!=N*（N-1）*（N-2）*……1。
“递归算法”按钮中直接调用Ｎ！函数。
函数写在通用程序段中。
递归公式N！=N*（N-1）！，即欲求N！，必须先求出（N-1）！。
由此，先有1！=1，再反推出2！，3!，……直到N！。
题目一程序代码如下：Dim n As IntegerDim p As IntegerDim k As IntegerPrivate Function jshs(x) As Integer '定义阶乘函数If x = 1 Thenjshs = 1Elsejshs = x * jshs(x - 1) '递归End IfEnd FunctionPrivate Sub Command1_Click()n = Val(Text1.Text)If n = 0 Or n = 1 Thenp = 1Elsep = 1For k = n To 1 Step -1p = p * kNextEnd IfText2.Text = pEnd SubPrivate Sub Command2_Click()n = Val(Text1.Text)Text2.Text = jshs(n) '函数调用End SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""End Sub2)题目二进入VB，窗体上放置1个Picture控件，1个文本框，2个命令按钮。
VB函数说明及使用方法
c、Lock Read:不允许其他进程读该文件。只在没有其他Read存取类型的进程访问该文件时，才允许这种锁定。
d、Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时，才允许这种锁定
a、Output:指定顺序输出方式，将覆盖原有内容
b、Input:指定顺序输入方式
c、Append:指定顺序输出方式，在文件未尾追加内容
d、Random:指定随机存取方式，也是默认方式，在Random方式时，如果没有Access子句，则在执行Open语句时，VB将按下列顺序打开文件：读/写、只读、只写
Mid$(字符串,p,n)
从位置p开始取字符串的n个字符
Len(字符串)
测试字符串的长度
String$(n,字符串)
返回由n个字符组成的字符串
Space$(n)
返回n个空格
InStr(字符串1,字符串2)
在字符串1中查找字符串2
Ucase$(字符串)
把小写字母转换为大写字母
Lcase$(字符串)
把大写字母转换为小写字母
MsgBox(msg,[type]…)
跳出一个提示窗口
文本操作函数
1、Open文件名[For方式] [Access存取类型] [锁定] AS [#]文件号[Len=记录长度]
功能：为文件的输入输出分配缓冲区，并确定缓冲区所使用的存取方式
说明：
1)方式：指定文件的输入输出方式，可选,默认是Random,可以是以下值
举例：Open “” for Output as #1
Open “C:\” forradomas #1 len=256
VB考试教程：过程的使用之再谈Sub过程与Function过程的调用及使用
1、再谈Sub过程与Function过程的调⽤及使⽤调⽤过程有很多⽅法，它们与过程的类型、位置以及在应⽤程序中的使⽤⽅式有关。
调⽤Sub过程与Function过程不同，在表达式中，调⽤Sub过程的是⼀个独⽴的语句，⽽调⽤函数过程只是表达式的⼀部分。
Sub过程还有⼀点与函数不⼀样，它不会⽤名字返回⼀个值。
⽽与Function过程⼀样，Sub过程也可以修改传递给它们的任何变量的值。
（1）调⽤Sub过程有两种⽅法：Call MyProc(FirstArgument,SecondArgument)MyProc FirstArgument,SecondArgument说明当使⽤Call语法时，参数必须在括号内。
若省略Call关键字，则也必须去掉参数两边的括号（2）调⽤函数过程⽅法⼀：通常，调⽤⾃定义的函数过程的⽅法和调⽤VB内部函数过程的⽅法⼀样，即在表达式中写上名字。
⽅法⼆：也可以像调⽤Sub过程⼀样调⽤Function 过程，如调⽤函数过程Year：Call Year（Now）Year Now当⽤这种⽅法调⽤函数时，放弃返回值。
⼀般来说，函数都赋值给某些变量或属性。
（3）调⽤其它模块中的过程在⼯程中的任何地⽅都能调⽤其它模块中的公⽤过程。
调⽤其它模块中的过程的各种⽅法，取决于该过程是在窗体模块中、类模块中还是标准模块中。
调⽤窗体模块中的过程：所有窗体模块的外部调⽤过程必须指向包含此过程的窗体模块。
如在窗体模块Form1中包含SomeSub过程，则可使⽤语句：“Call Form1.SomeSub（参数列表）”来调⽤Form1中的SomeSub过程。
调⽤类模块中的过程：类模块中的过程与窗体中调⽤过程类似，在类模块中调⽤过程要调⽤与过程⼀致并且指向类实例的变量。
例如DemoClass是类Class1的实例：Dim DemoClass as New Class1DemoClass.SomeSub但是不同于窗体的是，在引⽤⼀个类的实例时，不能⽤类名作限定符（如不能像窗体中⽤Form1.SomeSub那样使⽤Class1.SomeSub），必须⾸先声明类的实例为对象变量（如上⾯的DemoClass）并⽤该变量名引⽤它。