VB中输入输出语句

8
3.2.1 声明变量
• 变量是在程序运行过程中其值可以变化的量
• 使用变量前，一般必须先声明变量名和其类 型，以确定为它分配多大的存储单元
– 语法：
Dim 变量名 As 类型
– 例如：
Dim strMyName As String Dim nAge As Integer
• 可以用一个声明语句声明多个同类型的变量
2022年9月17日星期六 14
3.3 运算符与表达式
3.3.1 赋值语句 3.3.2 运算符 3.3.3 表达式
2022年9月17日星期六
15
3.3.1 赋值语句
• 赋值语句是任何程序设计中最基本的语句
– 它的作用是把右边表达式的值赋给左边的变量 – Visual 使用赋值号“=”来赋值 – 语法：
3.1415926 34567888
4字节 8字节 16字节
负值取值范围为–3.402 823E+38～–1.401 298E–45 正值取值范围为1.401 298E–45～3.402 823E+38
负数取值范围为–1.797 693 134 862 31E+308～ –4.940 656 458 412 47E–324 正值取值范围为4.940 656 458 412 47E–324～ 1.797 693 134 862 31E+308
– 例如：
Dim A, B As Integer
2022年9月17日星期六
9
3.2.2 变量的命名规则
• 变量名命名规则：
– 必须以字母或汉字开头，不能以数字或其他字 符开头
– 变量名中其他字符可以是字母、汉字、数字或 下划线组成，不允许是空格、句号或其他标点 符号，长度不超过255个字符

VB
一、输入和输出
（一）、输入：
（Dim a As Integer Dim a%）→ 1. Private Sub Command1_Click() a = 6: b = 6 print a print b End Sub
定义变量a的类型
注意：同一行连续写时，需要用“：”隔开。
2. Private Sub Command1_Click() a = Val(text1.Text): b = Val(text2.Text) Print a; b End Sub 3. Private Sub Command1_Click() a = Val(InputBox(“ ")) b = Val(InputBox(“ ")) MsgBox (a): MsgBox (b) End Sub
注意：关于各函数用法详见书47页2.6节。
三、相关知识
1. F8 调试检查语句对错
2. “ ‘注释”注释（绿色）VB不可读
注意：在使用时一定要注意操作过程中是否拉了文本框 控件。
3. Private Sub Command1_Click() a = 9: b = 6 Print a, b End Sub
“，”代表同一行 隔8个字符输出
பைடு நூலகம்注意:
Private Sub Command1_Click() a = 6: b = 6 print a “print a后没有任何 print b 符号”代表换行输出 End Sub
(二)、输出：
1. Private Sub Command1_Click() a = Val(InputBox("")) b = Val(InputBox("")) MsgBox (a): MsgBox (b) End Sub

数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构

(3) Enabled属性:该属性决定控件是否对用户产生的事件 作出响应 (4) Visible属性 该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和Left属性：Height和Width属性 确定控件的高度和宽度，Top和Lelf属性确定控件在窗体中 的位置
X Top Left Width Y
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1
练习使用信息框
设计一个如下所示的提示框：
A = MsgBox("非法数据！" + Chr(13) +Chr(10)+ "是否继续？", vbYesNo + vbCritical, "提示信息")
Buttons参数值= 1+64 或 vbOKCancel+ vbInformation
Buttons参数的设置
3.说明哪一个是缺省按钮
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 符号常量 缺省的活动按钮
0
256 512
VbDefaultButton1
VbDefaultButton2 VbDefaultButton3
2. Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n列。
例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"
输出结果是(1个汉字占2个位置)：

└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩

Yyyy
H M S tttt A/P,a/p
四位数显示年份（0100~9999）
显示小时（0~23），个位前不加0 在h后显示分（0~59），个位前不加0 显示秒（0~9），个位前不加0 显示完整时间（小时、分和秒）默认格式为 hh:mm:ss 12小时的时钟，中午前A或a，中午后P或p
q
hh mm ss AM/PM Am/pm
vbInformation
参数3 默认按钮
值 0 256 521
常 量 vbDefaultButton1 vbDefaultButton2
说 明 指定默认为第1按钮
指定默认为第2按钮 指定默认为第3按钮
vbDefaultButton3
函数的返回值 值 1 2 3 4 5 6 7 常 量 vbOK vbCancel 说 明 确定按钮 取消按钮 终止按钮 重试按钮 忽略按钮 是 否
说明： ①参数n为数值表达式，其值为一整数，它是下一个 输出位置的列号，表示在输出前把光标（或打印 头）移到该列。通常最左边的列号为1，如果当前 的显示位置已经超过n，则自动下移一行。 ②在VB中，对参数n的取值范围没有具体限制。当n 比行宽大时，显示位置为n Mod行宽；如果n<1， 则把输出位置移到第一列。 ③当在一个Print方法中有多个Tab函数时，每个Tab 函数对应一个输出项，各输出项之间用分号隔开。
E-
数值型格式实例：
Private Sub Form_Click() Print Format(123.45, "0000.000") Print Format(123.45, "0.0")
Print Format(123.46, "0.0")

3-2 例3-2运行界面 程序代码如下: Private Sub Command1_Click() Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture Picture3.Picture = LoadPicture() End Sub 其中 ,Picture3.Picture=LoadPicture （）语句的作用是在 Picture3 图片框中使用 LoadPicture 函数装入一个空图片。 3.1.2. InputBox 函数 InPutBox函数是提供从键盘输入数据的函数。 该函数在执行过程中会产生一个对话框,等待用户在 该对话框中输入数据,并返回所输入的内容。 格式:InputBox（提示信息[,对话框标题][,默认内容][,x坐标位置][,y坐标位置]）。 功能:提供一个简单的对话框,供用户输入信息。 几点说明: (1)提示信息:必选项,为字符串表达式,在对话框中作为提示用户操作的信息。 （2）对话框标题:可选项,为字符串表达式,用于对话框标题的显示。如果省略,则把应用程序名作 为对话框的标题。 （3） 默认内容:可选项,为字符串表达式,在没有输入前作为缺省内容显示在输入文本框中,如果省
第3章
学习内容
输入输出的概念 赋值语句 InputBox函数 Print语句及输出格式 与Print语句相关的函数 Print的其他方法和属性 字形 MsgBox函数和MsgBox输入与输出
学习目标
掌握 Print方法以及 InputBox函数和MsgBox函数的一般用法,了解与打印机输出有关的属性和方 法。
3.2 数据输出
程序运行后,应将执行的结果显示给用户,这就需要进行数据的输出操作。在Visual Basic中,一般 使用Print语句、MsgBox函数和MsgBox以及其他方法和属性,例如,使用文本框、标签等实现输出操 作。 3.2.1 Print 语句 在程序中使用Print语句可将文本字符串、变量值或表达式值在窗体、图形对象或打印机上输出。 1.Print语句的格式和用法 格式:[对象名.]Print[[表达式表],|；] Print语句的格式和功能与BASIC语言中的Print语句类似,都可用来输出操作。 几点说明: (1)对象名:可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）,也可以是立即窗 口（Debug）。如果省略了“对象名”,则系统默认在当前窗体上输出。 例如: Print“学习 Visual Basic” ‘在当前窗体上显示“学习 Visual Basic字符串”。 Picturel.Print“学习 visual Basic6.0” ‘在当前窗体的 Picturel图片框内显示“学习 Visual Basic6. 0”字符串。 Printer.Print“学习 visual Basic6.0” ‘在 Printer（打印机）上打印输出“学习 Visual Basic6.0”。 Debug.Print“学习 Visual Basic6.0” ‘在立即窗口中输出“学习 Visual Basic6.0”。 (2)表达式表:可以是一个变量名或多个变量名,也可以是一个表达式或多个表达式。 表达式可以是 数值表达式或字符串表达式。当输出对象为数值表达式时,打印输出该表达式的值,当输出对象为 字符串表达式时,打印输出该字符串的原样。如果省略“表达式表”,则输出一个空行。 例如: a=23.56:b=127:C=189 Print a ‘在当前窗口输出变量 a的值 Print ‘输出一个空行 Print “欢迎来到vb世界！” ‘输出引号内的“欢迎来到vb世界！”字符串 (3)当输出多个表达式或变量时,各表达式或变量之间需要使用分隔符（“,”、“；”或空格,英 文状态输入）间隔。其中,逗号（“,”）分隔:按标准格式（分区格式）输出,即各数据项占12位 字符；分号（“；”）或空格分隔:按紧凑格式输出,当输出数值型数据时,在该数值前留一个符号 位,数值后留一个空格,当输出字符串时,前后都不留空格。例如: A=23.56:b=127:C=189 Print a,b,c,“Print的标准格式” Print Print a； b； c；“Print的紧凑格式”

4.2.3 用户交互函数和过程
1. InputBox函数
变量名=InputBox[$](<提示信息>[，<标题>][，<缺省>] [，<x坐标>][，<y坐标>] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值。
例如，要在屏幕上显示如下的对话框:
例如：有下列语句如下: Dim x% x= Val(InputBox(“请输入一个数”, “输入框”, 100)) 语句执行后打开如下对话框。
4.4 循环结构
1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量＝初值 to 终值 [Step 步长] 语句块 循环变量得初 [Exit For] 循环体 值 语句块 循环变量在终值 Next 循环变量 内
语句块
F
T
>0 初值<终值 =1 时,可省略 步长 <0 初值>终值 =0 死循环
For i =1 To 10 For j=1 To 20 … Next i Next j
For i =1 To 10 For i=1 To 20 … Next i Next i
4.4.5 几种循环语句比较
For....to Next 循环类型 循环控制条 件 当型循环 Do while/until.... Loop 当型循环 do .... Loop While/until... 直到循环 条件成立/不成立 执行循环 在 DO 之前
注意：只要在一个分支内嵌套，不出现交叉，满足结构
规则，其嵌套的形式将有很多种，嵌套层次也可以任意多。 对于多层IF嵌套结构中，要特别注意IF与Else的配对关系，
一个Else必须与IF配结，配对的原则是：在写含有多层嵌套

其他方法与属性
Textheight与textwidth方法 语法格式：[对象.]textheight 返回字符串的高度 [对象.]textwidth 返回字符串的宽度 分析：根据在vb中的默认字体大小，求出”microsoft”高度，并乘以6 作为下一个print位置的纵坐标，把横坐标设置为0，因此字符串 microsoft visual basic 6在第七行第一列显示，接下来显示字符串 的高度与宽度。 注意:在字符串中含有回车（asc码13）、换行（asc码10）字符时， 字符串的高度随之增加，回车换行如下所示： Chr(13)+chr(10) 字符串有几个回车换行其高度增加几倍。 例子：使输出字符串居中显示
Msgbox函数说明
1、msgbox函数的第二个参数的第三类数值用来确定默认活动按钮。 2、msgbox函数的显示信息最多不超过1024个字符，所显示的信息 自动换行，并能自动调整大小。如果由于格式要求换行则必须加 回车换行符。 3、在应用程中，msgbox函数的返回值通常用来作为继续执行程序的 依据，根据返回值决定后面的操作。
数据的输入输出
数据输出-print方法
print 方法 可以在窗体上显示文本字符串和表达式的值，并可在其他 图形对象上或打印机上输出信息。格式： [对象名称.]print[表达式][,|;] 说明： 1、对象名称可以是窗体、图片框或打印机，也可以是立即窗口。如 果省略对象名称则在当前窗体上输出。 2、表达式可以是一个或多个表达式，可以是数值表达式或字符串。 3、当输出多个表达式或字符串时个表达式用分隔符（逗号，分号或 空格）隔开。 4、print 具有计算和输出双重功能，对于表达式先计算后输出。 5、一般情况下每执行一次print方法都要自动换行。若需要在同一行 上输出，可以在末尾加上一个分号或逗号。