VB讲义(5)

（6）可变型：Empty （7）对象型：Nothing 6． 不能连续赋值：

例：Dim a As Integer,b As Integer,c As Integer

a=b=c=1 错误 a=1: b=1:c=1 正确

7． 交换两个变量中的数据： 例：a=b:b=a 错误

t=a:a=b:b=t 正确，t是中间变量

注意：VB中的数字和只包含数字的字符串可以方便地互换类型，例： （1）隐式转换：

Private Sub Command1_Click( ) Dim x As Integer,y As String

y = “100.23” ：x = y ‘隐式转换 Print x End Sub

（2）显式转换：字符型 -> 数值型，利用Val函数：

Private Sub Command1_Click( ) Dim x As Integer Text1.Text = “100.23”

x = Val(Text1.Text) ‘显式转换 Print x End Sub

（3）显式转换：数值型 -> 字符型，利用Str函数：

Private Sub Command1_Click( ) Dim x As Integer x = 100.23

Text1.Text = Str(x) ‘显式转换 Print Text1.Text End Sub

例4-1 交换两个变量中的数据

4.1.3 注释（块注释）、暂停、结束语句

1． 注释语句：非执行语句，增强程序的可读性

(1) 格式1：Rem 注释语句 (2) 格式2：‘注释语句（常用）

(3) 块注释：视图-> 工具栏 -> 编辑 -> 设置注释块、解除注释块 2． 暂停语句：Stop

暂停程序的运行，但不关闭所有已打开的文件，相当于在程序代码中设置断点，主要用于调试程序。 3． 结束语句：End 停止程序的运行，关闭所有已打开的文件。还可以用来结束一些模块的操作。

例：Private Sub Command2_Click( )

End

End Sub

例4-2：统计票额总张数最少的付款方案

4.1.4 输入函数InputBox

在一对话框中显示提示，等待用户输入内容，并返回包含文本内容的字符串。 1． 格式：

InputBox (prompt [, title] [, default] [, xpos, ypos] [, helpfile, context] ) (1) prompt：对话框的消息提示文字，可包含回车Chr（13）、换行Chr（10）字符。

(2) title：对话框的标题，标题省略取默认值“工程1”。 (3) default：文本框的默认输入信息。 2． InputBox函数的返回值是字符型的。 3． 每运行一次InputBox函数只能给一个变量赋值。 总结：输入数据的方法： (1) 在程序代码中直接指定：

优点：代码简单 缺点：缺少灵活性

(2) 利用TextBox文本框输入数据：

优点：可以输入任意值

缺点：要添加多个文本框，界面复杂 (3) 利用InputBox函数输入数据：

优点：界面简单，可以输入任意值 缺点：代码复杂，参数较多

4.1.5 消息函数和语句MsgBox

在一对话框中显示消息，等待用户单击按钮，并返回1-7之间的一个整数。 1． MsgBox函数：

(1) 格式：MsgBox (prompt [, buttons] [, title] [, helpfile, context] ) A. prompt：对话框的消息提示文字。 B. buttons： 1) 组合值，每组只能取一个数字，数字间用“+”连接。 2) 进行相加（只有唯一的分解方式）。

3) 使用VB常数。（表4-1） 4) 方式1）和方式3）可以结合起来使用。 5) 把“+”换成“Or” 例：3 + 32 + 0

vbYesNoCancel + vbQuestion + vbDefaultButton1 vbYesNoCancel + 32 + vbDefaultButton1

C. title：对话框的标题，标题省略取默认值“工程1”。

(2) MsgBox函数的返回值是整型的：1-7（表4-2） 例：Private Sub Form_Load( ) Dim a As Integer Show

a=MsgBox(\请你选择:\参数组合举例\ If a=6 Then

Unload Form1 Form2.Show End If

If a=7 Then

Unload Form1 Form3.Show End If

If a=2 Then End End If

End Sub 2． MsgBox语句：

仅仅用于显示一些简单的信息而不需要返回值。

格式：MsgBox prompt [, buttons] [, title] [, helpfile, context] 参数含义：同上

不用写小括号，没有返回值，可以单独作为一个语句来使用。

4.1.6 数据输出

输出到屏幕或打印机的方法有多种，本节主要提供与Print配合使用的几个函数。 Print的缺省输出：从窗体的第1行第1列开始输出。 Tab函数：

格式：Tab(n)，参数n是绝对列数值。 Tab函数与表达式之间用分号分隔。

如果当前行的当前打印位置大于n，则Tab将打印位置移动到下一行的第n列上。 如果n小于1，则Tab将打印位置移动到该行的第1列。

如果n大于输出行的宽度，则Tab函数用以下公式计算下一个打印位置：

n Mod 行宽。 例：Print \姓名\年龄\职务\单位\

Spc函数：

从当前位置跳过n个空格的位置，格式为： Spc(n)，参数n是相对列数值。

Spc函数与表达式之间用分号分隔。

如果n小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。 如果n大于输出行的宽度，则Spc函数用以下公式计算下一个打印位置：当前打印位置+（n Mod 行宽）。

n的取值在0~32767

Space函数：

格式：Space(n)，输出n个空格

注：Spc函数与Space函数作用相同，但Space函数可以使用字符串运算符&和+。 总结：输出行的控制：Print后面不跟表达式，只输出一行空行。 输出列的控制：用Tab、Spc或Space函数调整。 作业：上机编程调试习题四中第一大题的第13小题

4.1.7 输出到打印机

1． 直接输出：

格式：Printer.Print [表达式]

只能打印文本信息，不能打印图形图像信息。 可结合Printer对象的以下属性、方法一起使用： (1) Page属性：用来设置页码，默认缺省值为1。 (2) NewPage方法：强制打印机跳到下一页打印。 (3) EndDoc方法：用来结束文件的打印。 2． 窗体输出：

格式：[窗体.]PrintForm

既将信息输出到窗体，又将信息输出到打印机。?

Sends a bit-by-bit image of a Form object to the printer. 预览作用

(1) [窗体.]AutoRedraw=True

(2) 可以打印窗体上的文本、任何可见的控件及图形信息。 附：方法与函数的区别：

(1) 方法可以单独作为语句使用，函数不可以。 (2) 方法没有返回值，函数有返回值。 (3) 方法的格式：[对象.]方法 [参数列表]

函数的调用格式：函数名（[参数列表]）

(4) 方法是隶属于某一个对象的，函数存在于VB自带的函数库。

4.2 选择结构程序设计

特点：根据指定的条件进行判断，根据判断的结果在两条分支或多条分支路径中选取其中的一条执行。

4.2.1 行IF语句

格式1：If 条件 Then 语句组1

格式2：If 条件 Then 语句组1 Else 语句组2 语句组中的多个语句之间用冒号分隔。

┋ False 条件 True 语句组1 语句组2 True 条件 False 语句组1 ENDIF的下一条语句 语句组2

例4-4：求绝对值，行IF语句的使用。

4.2.2 块IF语句

格式3：If 条件 Then 格式4：If 条件 Then

语句组1 语句组1 End If Else

语句组2

End If 1． Else必须单独一行。

2． If?End If必须成对出现。行If语句中不需要End If。

3． 最好采用缩进形式。

4． 如果语句组1、语句组2中含有多条语句时，最好使用块If语句。 5． 块IF语句的嵌套，例4-5

4.2.3 IF语句的嵌套ElseIf语句

格式：If 条件1 Then 语句组1

ElseIf 条件2 Then 语句组2 ??

ElseIf 条件n Then 语句组n Else

语句组n+1 End If

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB讲义(5)在线全文阅读。