VB程序设计基础(4)
VB第4章
数据输入输出
例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控制结构
《VB程序设计》第四章第七节 Sub Main过程与快速提示窗体
《VB程序设计》第四章第七节Sub Main过程与快速提示窗体第七节Sub Main过程与快速提示窗体1.通过Sub Main过程启动应用程序当应用程序启动时不加载任何窗体，可以通过在标准模块中创建一个Sub Main的子过程（不能在窗体模块中创建Sub Main的子过程），然后在Sub Main的过程中编写启动时要执行的代码，每个工程只能有一个Sub Main的子过程。
设置Sub Main过程为启动对象的方法是从“工程”菜单中，选取“工程属性”命令，在“工程属性”属性页中选“通用”选项卡，然后从“启动对象”框中选定“Sub Main”。
当工程中含Sub Main子过程时，应用程序装载窗体之前总是先执行Sub Main子过程。
通常用在需要先装入数据文件或需要显示一个登录对话框以确认用户的身份，或者需要根据数据文件的内容决定显示哪个宙体，或者应用程序就没有窗体。
例如，根据GetUserStatus函数的值来决定是显示窗体frmMain还是frmHello窗体，程序代码如下：Sub Main（）Dim intStatus As IntegerIntStatus=GetUserStatusIf intStatus=1 Then ′根据状态显示某个启动窗体FrmMain.ShowElseFrmHello.ShowEnd ifEnd Sub2.启动时的快速显示如果应用程序在启动时有一个漫长的执行过程，可以在启动时给出一个快速显示窗体，它通常显示的是应用程序名、版权信息和简单的位图等内容。
例如，启动VB时所显示的窗体就是一个快速显示。
当启动时，快速显示能吸引用户的注意，造成应用程序装载很快的错觉，当需要从数据库中装入大量数据或者要装入一些大型位图时使用快速显示。
当启动完成并装入第一个窗体时使快速显示卸载。
VB提供了一些常用的窗体模板，其中有一个“展示屏幕”，可以在这个模板的基础上创建快速显示窗体，创建快速显示的方法：①选择“工程”菜单中的“添加窗体”命令，出现如图4-7-1所示的界面。
VB-第4章-VB语言基础
注意:为了与字符串型常量相区分，所以用＃将日期常量括起来
VB语言基础
13
业，精于勤，荒于嬉
业，精于勤，荒于嬉
（5）符号常量
常量在程序中也可以用符号表示 目的是为了…… 代表常量的符号称为“常量名” 常量名的命名规则是： 1、不超过255个字符 2、只能由字母、数字和下划线组成并且首字符必须是字母的字符串 3、常量中字母大小通杀（不区分大小写）。 比如： Const PI As single=3.14159 ‘声明了常量PI，代表3.14159，单精度型 Const MAX As Integer=&O144 ‘声明了常量MAX，代表八进制数144，整型 Const COUNT#=45.67 '声明了常量COUNT，代表45.67，双精度型
业，精于勤，荒于嬉
4、可以用（Const ）语句来定义符号常量。 5、可以在常量的后面加上类型说明符以显示常量 的类型，可以用（ $ ）表示字符串型常量。 6、下列是合法的VB变量名的是（A） A：a2 B：2a C：int sum D：2*a 7、下列各项不是VB基本数据类型的是（A） A：Char B:String C:Integer D:Double
Private Sub Command1_Click() Dim liming As string End Sub Private Sub Command2_Click() Dim liming As string End Sub
VB语言基础
19
业，精于勤，荒于嬉
窗体/模块级变量
业，精于勤，荒于嬉
VB语言基础
10
业，精于勤，荒于嬉
业，精于勤，荒于嬉
3）理解数值的范围
VB程序设计教程 习题解答
《VB程序设计教程》（第4版）习题解答单元一巩固与提高答案一、选择题1. Visual Basic 6.0分为3种版本，不属于这3种版本的是A）学习版B）专业版C）企业版D）业余版【答】D。
2. 下列方法中不能退出Visual Basic的是A）按Alt+Q组合键B）按下Alt+F组合键，然后按Esc键C）按F10键，然后按F键，再按X键D）打开“文件”菜单→“退出”命令【答】B。
3. Visual Basic集成的主窗口中不包括A）属性窗口B）标题栏C）菜单栏D）工具栏【答】A。
4. 下列操作可以打开立即窗口的是A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E【答】C。
二、填空题1. 与传统的程序设计语言相比，Visual Basic最突出的特点是____。
【答】事件驱动编程机制。
2. 如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。
【答】功能键F10或Alt键。
3. 建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考题1. 简述Visual Basic的特点。
【答】与一般的程序设计语言相比，VB具有以下特点：(1) 可视化的设计平台；(2) 面向对象的设计方法；(3) 事件驱动的编程机制；(4) 结构化的设计语言；(5) 充分利用Windows资源；(6) 开放的数据库功能与网络支持。
2. 简述Visual Basic集成开发环境的组成。
【答】VB 6.0集成开发环境除了具有标准Windows环境的标题栏、菜单栏、工具栏外，还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。
(1) 标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化∕还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了VB编程的常用命令。
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
第四章vb计算机
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
vb4VB语言基础
为了使变量 bj 在两个事件过程中都起作用， 在两个事件过程中都起作用， 必须在窗体级说明这一变量。 必须在窗体级说明这一变量。 声明” 在“通用_声明”栏对变量说明： 通用 声明 栏对变量说明： Dim bj As Single
Dim bj As Single Private Sub ml1_Click() bj = InputBox("请输入你的本金数！", "输入框", 0) bq2.Caption = bj End Sub Private Sub ml2_Click() For t = 1 To 10 i = bj * 0.125 bj = bj + i Next t bq4.Caption = Format(bj, "####.00") End Sub
2. 字符串函数
Len(字符串 字符串) 字符串 求字符串的长度 Lcase(字符串 字符串) 字符串 将字符串中的所有字母变成小写 Ucase(字符串 字符串) 字符串 将字符串中的所有字母变成大写 Ltrim$(字符串 字符串) 字符串 去除字符串左边的空格 Rtrim$(字符串 字符串) 字符串 去除字符串右边的空格 Left$(字符串 n) 取字符串左边 个字符 字符串, 取字符串左边n个字符 字符串 Right$(字符串 n) 取字符串右边 个字符 字符串, 取字符串右边n个字符 字符串 Mid$(字符串 字符串,p,n) 从p位置开始向右取字符串的 个字符 位置开始向右取字符串的n个字符 字符串 位置开始向右取字符串的 Space$(n) 产生n个空格 产生 个空格 String$(n, 字符串 返回由字符串中首字符组成的 个字符的字符串 字符串) 返回由字符串中首字符组成的n个字符的字符串 InStr([起始位置 字符串 字符串 在串 中找串 若找到 返回 起始位置],字符串 字符串2) 中找串2, 起始位置 字符串1,字符串 在串1中找串 若找到,
VB4
如果表达式的值为非零或True执行语句块1，否则执行语句块2。
例4-2 编写一医生工作站的登录检验程序，运行界面如图4－3。对登录名 （医生工号）和密码的规定如下： （1）医生工号不超过6位数字，密码为6位字符，密码输入时显示为“*”。 本题假设密码为“cljuan”。 （2）当医生工号输入非数字字符，密码不正确时，显示相关信息。 （3）若单击“重试”按钮，则清除原来输入的内容，焦点定位在原输入文
Private Sub Command1_Click() Dim x, y Picture1.Cls x = Val(Text1.Text) „将文本转换为数值型后赋值给变量x，y y = Val(Text2.Text) IF x < 90 And y < 60 Then Picture1.Print "血压偏低" ElseIF x <= 140 And y <= 90 Then Picture1.Print "血压正常" ElseIF x < 160 And y < 95 Then Picture1.Print "临界高血压" Else Picture1.Print "高血压" End IF End Sub Private Sub Command2_Click() End End Sub
Dim Boolean b b=21 btrue
5)变量为字符型，表达式为非字符型时，表达 式的结果自动转换为字符型后赋值给变量
Dim s as String s=123 s”123”
使用赋值语句时应注意：
以下的赋值语句均是错误的:
5=x+y 常量在左边 x+y=5 表达式在左边 Sin(x)=x+y
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
整数的运算速度快，而且比其他数据类型占据的内存少。
精选PPT
5
4.1 数据类型
整型数又分为整数和长整数： 整数Integer
以2个字节(16位)的二进制数存储，取值范围为 -32,768~32,767。 长整数Long
以4个字节(32位)的二进制数存储，取值范围为 -2,147,483,648~2,147,483,647。
（1）整型数
整型数是不带小数点和指数符号的数，在机器内部以二进制补 码形式表示。正数的补码和它的二进制形式(即源码)相同；负 数的补码为该数的绝对值的二进制形式取反加1。
例如，整型数4,-4分别以下面的形式存放：（最高位为符号位， 其中0为正，1为负）
4 00000000 00000100
-4 11111111 11111100
1位，指数占8位，其余23位表示尾数，还有一个附加的隐含位。
其负数的取值范围为-3.402823E+38 ~ -1.401298E-45，正数
的取值范围为1.401298E-45 ~ 3.402823E+38。
表示形式为： ±n.nE±m 其中n.n是尾数，m是指数（以10
为底的幂）
例：-123.4E-3或-123.4e-3，相当于-0.1234
1.2345E3或1.2345e3，相当于1234.5
精选PPT
9
4.1 数据类型
双精度Double 以8个字节(64位)存储，可以精确到15到16位十进制数。其 中符号占1位，指数占11位，其余52位表示尾数，还有一个 附加的隐含位。 表示形式为： ±n.nD±m 其中n.n是尾数，m是指数（以 10为底的幂）
Private Sub Form_Load()
Dim a As Integer
ቤተ መጻሕፍቲ ባይዱ
a = 32767
a=a+1
MsgBox a
End Sub
精选PPT
8
4.1 数据类型
（2）浮点数
浮点数也称实数，是带有小数部分的数值。分为单精度浮点数
和双精度浮点数。
单精度Single
以4个字节(32位)存储，可以精确到7位十进制数。其中符号占
号表示，即："ABD""XYZ“
精选PPT
3
4.1 数据类型
VB中的字符串分为两种：变长字符串和定长字符 串。
变长字符串的长度是不确定的，可以从0~231（约 21亿）个字符。
定长字符串含有确定个数的字符，最大长度不超 过216（65535）个字符。
精选PPT
4
2.数值型
4.1 数据类型
数值型数据分为整型数和浮点数两类。
例：123.4567D3或123.4567d+3，相当于123456.7
精选PPT
10
4.1 数据类型
（3）货币型Currency
货币数据类型通常用于表示钱款。以8个字节(64位)存储，精 确到小数点后面4位（小数点前面有15位）。在小数点后4位 以后的数字将被舍去。其取值范围为-922,337,203,685, 477.5808 ~ -922,337,203,685,477.5807 浮点数中的小数点是“浮动”的，小数点可以出现在数的任 何位置，而货币型数据的小数点是固定的，因此称为定点数据 类型。
“#”符号括起来。
例如：下面的几种日期型数据的格式都是合法的：
#9/1/2009# 或 #2009-09-01#
#September 1,2009#
#08:30:00 AM#
#2002-5-4 14:30:00 PM#
3.布尔型Boolean
布尔型数据是一个逻辑值，用2个字节存储，它只取两个 值：True/False。布尔型变量的默认值为False。
将逻辑数据转换成整型时：True为-1，False为0；其它数 据转换成逻辑数据时：非0为True, 0为False。
例如，下面的代码定义一个布尔型变量，并输出该变量： Dim mybln As Boolean mybln=3 MsgBox mybln
第4章 VB程序设计基础
本章内容及要求：
4.1 数据类型 4.2 常量和变量 4.3 变量的作用域 4.4 常用内部函数 4.5 字符处理与字符串函数 4.6 运算符与表达式
精选PPT
1
4.1 数据类型
数据是信息在计算机内的表现形式，也是程序处 理的对象。VB提供了系统定义的基本数据类型，还 允许用户定义自己的数据类型。
精选PPT
11
4.1 数据类型
（4）字节型Byte
以1个字节(8位)的无符号二进制数存储，其取值范围为 0~255。
注：在实际应用中，应根据需要使用数据类型。能用整型 就不要用浮点型或货币型；如果要求的精度不高，则应使用单 精度变量。这样不仅节省内存空间，而且可以提高处理速度。
精选PPT
12
4.1 数据类型
精选PPT
13
4.1 数据类型
4.日期型Date
日期型数据占用8个字节，以浮点数形式存储。小数点左
边的数值表示日期(距离1899-12-30的天数)，小数点右边的数
值表示时间。
日期型数据的日期表示范围：100年1月1日～9999年12
月31日，时间表示范围：0:00:00~23:59:59。日期常数必须用
精选PPT
6
4.1 数据类型
思考：为什么16位整数Integer的取值范围为-32,768~32,767？
二进制 00000000 00000000 00000000 00000001 00000000 00000010 00000000 00000011
…… 01111111 11111111 10000000 00000000 10000000 00000001 10000000 00000010
精选PPT
2
4.1 数据类型
一、基本数据类型
1.字符串型String
字符串是一个字符序列，由ASCII字符组成。字符串通常 要用双引号括起来。
例如： “Hello！” "湖南省衡阳市"
“8888”
"***”
“”
‘空字符串
““
‘有一个空格的字符串
若字符串中有双引号，例如ABD“XYZ，则用连续两个双引
…… 11111111 11111110 11111111 11111111
十进制
0
1
2
3
……
32767
-32768
-32767
-32766
……
-2
-1
精选PPT
7
4.1 数据类型
注意：16位整数Integer如果超出了这个取值范围 （-32,768~32,767），数据便会溢出。请看下面的代 码：