VBA程序设计基础.pptxVIP

第九章程序设计基础;4、在编辑窗口中输入如下程序：（其实窗口中已有，所以我们只要在中间添加一句 Private Sub 命令 0_Click() 文本 1.Value=“VBA 程序设计” End Sub;;二、程序的输入输入出语句 （1）InputBox 函数 格式：InputBox 字符串 1，[字符串 2]，[字符串 3] 功能：显示一个输入对话框，等待用户输入信息或按下按钮。在按钮事件发生后返回键盘输 入到文本框中的内容，返回值的类型为文本类型， 说明：对话框中的提示信息是字符串 1，对话框的标题栏是字符串 2，字符串 3 是输入对话 框中的默认值。后两个字符串是可选项，可不选。 例 9-3 在窗体的命令按钮中分别加入以下代码，单击按钮后即可看出输入对话框的不同。 Private Sub Command0_Click() InputBox 请输入学号, 学号输入框, 2009 End Sub;（2）MsgBox 函数 格式：MsgBox 字符串 1，[按钮参数]，[字符串 2] 功能：出现一个消息框，字符串 1 为消息框中的提示信息，按钮参数则决定了消息框中按钮 的类型（见下面按钮参数表），字符串 2 为消息框的标题栏上信息。 按钮参数表：;5、 6、 切换到窗体视图，单击命令按钮，弹出一个消息框，如图：;例 9-5 在窗体上添加一个命令按钮，当单击该按钮后接受用户输入的三角形三边长，并求 出周长后输出 步骤： 1、 新建一个窗体，添加一个命令按钮command0 2、 在命令按钮的属性窗口中为其添加代码：如图;8;值给左边的特性，借助中间变量，可以让 a,b 的值互换。 步骤： 1、 新建一个窗体，窗体中放两个文本框和一个命令按钮，名称分别是“文本 1”、“文本 2”、 “命令 0”，（在属性窗体设置这些控件的名称，在代码程序中引用） 2、 选中命令按钮，在属性窗口中添加这个按钮的代码如下：;3、切换到窗体视图下，输入一个分钟数例如：100，单击命令按钮就可转换成 1 小时 40 分 钟。;11;5、 切换到窗体视图，在文本框 1、2 中输入两个数（例如 2，6），单击“确定”则在第三个 文本框中显示较大的数。;;例 9-11 将例 9-10 中的 if 语句改成 Select Case 表示。 步骤：1、修改命令按钮上程序代码如下：;15;（二）For …Next 循环 格式： For 循环变量=初值 to 终值 [step 增量] …… ;;例 9-16 编写一个过程，输入一个整数 n，然后求 1！+2！+…+n！，然后在命令按钮中调用 这个过程 仿例 9-15 即可。过程程序如下： Private Sub Pro916() Dim i As Integer, j As Integer, n As Integer Dim t As Long, s As Long t 用来存放阶乘数，s 用来存放阶乘的和，由于值太大，所以定义 为长整型变量。 t = 1: s = 0 n = inputbx(请输入一个整数 n：) For i = 1 To n t = 1 保证每次阶乘从 1 开始计算 For j = 1 To i t = t * j Next j s = s + t Next i MsgBox 1!+2!+...+ n != s End Sub 例 9-17 编写一个过程，从键盘输入 10 个数，输出其中的最大数和最小数 分析：本题可使用 inputbox 函数接受用户输入的数字，由于输入的数据有 10 个，所以定义 一个包含 10 个元素的数组 A（1）、A（2）、…A（10）来存放这些数字，变量 Max 的初始 值放 A（1），然后和 A（2）到 A（9）逐个比较，只要有比 A（1）大的数 Max 就存放这个 数，这样 Max 就存放出最大的数；Min 的初始值也存放 A（1），然后和 A（2）到 A（9） 逐个比较，只要有比A（1）小的数 Min 就存放这个数，这样 Min 就存放出最小的数。 步骤： 1、窗体上添加一个命令按钮，添加代码如下：(见下图);19