vba实例教程分析和总结.docxVIP

3.1

3.1 常用输入/输出语句

结构化程序设计中使用的基本控制结构有3种：顺序结构、选择结构和循环结构。

例

例017 九九乘法表（Print方法的应用）

0．案例说明

在VB中，Print作为窗体的一个方法，用来在窗体中显示信息。但是在VBA中，用户窗体已经不支持Print方法了。

在VBA中，Print方法只能向“立即窗口”中输出程序的运行中间结果，供开发人员调试程序时使用。

语法格式

在VBA中，Print方法只能应用于Debug对象，其语法格式如下：

Debug.Print[outputlist]

参数outputlist如果省略，则打印一个空白行。

格式化分隔符有以下几种：

Spc(n)：插入n个空格到输出数据之间；

Tab(n)：移动光标到适当位置，n为移动的列数；

分号：表示前后两个数据项连在一起输出；

逗号：以14个字符为一个输出区，每个数据输出到对应的输出区。

编写代码

在VBE中，单击菜单“插入/模块”命令插入一个模块。

在模块中输入以下代码：

Submulti()

Fori=1To9Forj=1Toi

Debug.Printi;x;j;=;i*j; ;Next

Debug.Print 换行

NextEndSub

按功能键“F5”运行子过程，在“立即窗口”输出九九乘法表

例

例018 输入个人信息（Inputbox函数的应用）

1．语法格式

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

各参数的含义如下：

Prompt：为对话框消息出现的字符串表达式。其最大长度为1024个字符。如果需要在对话框中显示多行数据，则可在各行之间用回车符换行符来分隔，一般使用VBA的常数vbCrLf代表回车换行符。

Title：为对话框标题栏中的字符串。如果省略该参数，则把应用程序名放入标

题栏中。

Default：为显示在文本框中的字符串。如果省略该参数，则文本框为空。

Xpos：应和Ypos成对出现，指定对话框的左边与屏幕左边的水平距离。如果

省略该参数，则对话框会在水平方向居中。

Ypos：应和Xpos成对出现，指定对话框的上边与屏幕上边的距离。如果省略

该参数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

Helpfile：设置对话框的帮助文件，可省略。

Context：设置对话框的帮助主题编号，可省略。

2．编写代码

在VBE中，单击菜单“插入/模块”命令插入一个模块。

在模块中输入以下代码：

Subinputinfo()

Title=输入个人信息name1=请输入姓名：age1=请输入年龄：address1=请输入地址：

strName=InputBox(name1,Title)age=InputBox(age1,Title)Address=InputBox(address1,Title)Debug.Print姓名：;strNameDebug.Print年龄：;ageDebug.Print地址：;Address

EndSub

在“立即窗口”中将输出这些内容

例

例019 退出确认（Msgbox函数的应用）

0．案例说明

本例使用Msgbox函数弹出对话框，让用户选择是否退出系统。

1

1．语法格式

MsgBox函数语法格式如下：

Value=MsgBox(prompt[,buttons][,title][,helpfile,context])

该函数共有5个参数，除第1个参数外，其余参数都可省略。

表

表3-1 按钮常数值

常

量

值

说

明

只显示确定（Ok）按钮

显示确定（Ok）及取消（Cancel）按钮

显示异常终止（Abort）、重试（Retry）及忽略（Ignore）按钮

对话框中按钮的类型与数量

显示是（Yes）、否（No）及取消（Cancel）按钮

显示是（Yes）及否（No）按钮

显示重试（Retry）及取消（Cancel）按钮显示CriticalMessage图标

显示WarningQuery图标

显示WarningMessage图标

对话框中显示的图标

显示InformationMessage图标

以第一个按钮为默认按钮

以第二个按钮为默认按钮

设置对话框的默认活动按钮。活

以第三个按钮为默认按钮

线，按回车键可执行该按钮的单

以第四个按钮为默认按钮

进入该消息框，