vb4
VB程序设计教程 第四版 课后答案
vb课后习题答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、 DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6． Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、 11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、 ASCII、1、24、 public、通用、Dim、Static、Private、Static5、 &、+、+6、 Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC（3）5．25 （4）27）16 （8）“-459.65” （9）510、（4）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1． 500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
VB4又称胆碱
胆碱是少数能穿过“脑血管屏障”的物质之一。这个“屏障”保护脑部不受日常饮食的改变的影响。但胆碱可通过此“屏障”进入脑细胞，制造帮助记忆的化学物质。胆碱似乎可以乳化胆固醇，避免胆固醇积蓄在动脉壁或胆囊中。
效用 控制胆固醇的积蓄；帮助传送刺激神经的信号，特别是为了记忆的形成而对大脑所发出的信号；有防止年老记忆力衰退的功效（每天服用1～5g）； 因为有促进肝脏机能的作用，可帮助人体的组织排除毒素和药物； 有镇定作用；有助于治疗老年痴呆症。 缺乏症
可能引起肝硬化、肝脏脂肪的变性、动脉硬化，也可能是引起老年痴呆症（Alzheimer，s disease）的原因。富含胆碱的食物 蛋类、动物的脑、动物心B4：又称胆碱。胆碱和肌醇（另一种维生素B）一起合作来进行对脂肪与胆固醇的利用；
胆碱是少数能穿过“脑血管屏障”的物质之一。这个“屏障”保护脑部不受日常饮食的改变的影响。但胆碱可通过此“屏障”进入脑细胞，制造帮助记忆的化学物质。胆碱似乎可以乳化胆固醇，避免胆固醇积蓄在动脉壁或胆囊中。
效用 控制胆固醇的积蓄；帮助传送刺激神经的信号，特别是为了记忆的形成而对大脑所发出的信号；有防止年老记忆力衰退的功效（每天服用1～5g）； 因为有促进肝脏机能的作用，可帮助人体的组织排除毒素和药物； 有镇定作用；有助于治疗老年痴呆症。 Nhomakorabea缺乏症
可能引起肝硬化、肝脏脂肪的变性、动脉硬化，也可能是引起老年痴呆症（Alzheimer，s disease）的原因。富含胆碱的食物 蛋类、动物的脑、动物心脏与肝脏、绿叶蔬菜、啤酒酵母、麦芽、大豆卵磷脂。脏与肝脏、绿叶蔬菜、啤酒酵母、麦芽、大豆卵磷脂。
VB第4章KD_cy
比较x，y的大小，将大数放在变量max中。
格式一：If x>y Then max＝x
else max＝y
End if
格式二：If x>y Then max＝x else max＝y
2015/4/28
Visual Basic Programming
多分支If语句-If的嵌套
If e1 Then A1组语句
2015/4/28
Visual Basic Programming
简单算法举例
【例1】求1×2×3×4×5。 最原始方法： 步骤1：先求1×2，得到结果2。 步骤2：将步骤1得到的乘积2乘以3，得到结果6。 步骤3：将6再乘以4，得24。 步骤4：将24再乘以5，得120。 这样的算法虽然正确，但太繁。
2015/4/28
Visual Basic Programming
例5-2的程序代码使用本结构语句实现
Private Sub Command1_Click()
Dim x As Integer
x = Val(text1.Text)
Select Case x
Case Is < 1
Text2.text = "这是小于1的数"
4. If语句的嵌套 上面学习了If语句的基本形式，可以通过这些基本形式加以复合， 获得更为复杂的If结构，称为If语句的嵌套。一般形式如图4-17 所示。图4-18为在Else块中嵌套If结构的形式。可根据实际情况 选择采用何种结构。
图4-17 If语句复合结构的一般形式
2015/4/28
图4-18在Else块中嵌套If结构的形式
Case c1 A组语句
Case c2
(1)具体取值(用逗号分隔的一组数 据)：如：3，5，7.2等；
维生素b4的功能主治是什么
维生素B4的功能主治是什么简介维生素B4，也称为腺硫胺，是一种水溶性维生素。
它在人体中的功能非常重要，能够发挥多种作用，是维生素B族中不可或缺的一员。
功能主治维生素B4在人体内扮演着重要的角色，具有以下功能主治：1.能量代谢：维生素B4参与机体的能量代谢过程，促进碳水化合物、脂肪和蛋白质的新陈代谢，帮助身体更有效地利用营养物质，提供能量。
2.神经系统支持：维生素B4对神经系统的正常功能发挥重要作用。
它可以促进神经细胞的正常生长和发育，维护神经系统的健康。
缺乏维生素B4可能导致神经系统问题，如神经炎和神经衰弱。
3.胆碱合成：维生素B4是胆碱的前体物质，与其他化合物一起参与胆碱的合成过程。
胆碱是一种重要的神经递质，对神经传递和学习记忆功能起着至关重要的作用。
4.血液健康：维生素B4通过参与红细胞的生成和维护红细胞的完整性来促进血液健康。
它能够帮助维持正常的红细胞数量和血红蛋白水平，预防贫血等血液病。
5.心血管保护：维生素B4在心血管系统中发挥重要作用。
它有助于降低血液中的胆固醇水平，预防动脉粥样硬化的发生。
同时，它还对心脏的正常收缩和心血管健康状态起着保护作用。
6.抗氧化作用：维生素B4具有一定的抗氧化作用，可以中和体内的自由基，减少对细胞的损伤，有助于维持身体的整体健康。
食物来源维生素B4主要存在于以下食物中：•肉类：猪肝、牛肝、羊肉等•蛋类：鸡蛋、鹌鹑蛋等•果蔬类：豌豆、番茄、土豆等•谷物类：全麦面粉、糙米等供给量和安全性目前尚无明确的维生素B4的参考摄入量（RDA）确定，但一般来说，多样化的饮食能够满足机体对维生素B4的需求。
合理的饮食结构和选择含维生素B4丰富的食物是获得足够维生素B4的重要途径。
维生素B4一般不会引起中毒或过量症状，因为它主要以水溶性形式存在于体内，多余的维生素B4会随尿液排出。
缺乏症状由于维生素B4的研究尚不充分，目前尚无严重的缺乏症状与维生素B4的不足直接相关。
注意事项1.建议遵循医生或营养师的指导，不要滥用维生素B4补充剂。
VB实验4MDI窗体及工具栏
第9页
二、预备知识
目的和要求 预备知识
上一页 下一页 退出
（4）在工具栏中插入 按钮并设置图标等属性
选择工具栏“属性页” 对话框中的“按钮”选 项卡, 单击“插入按钮” 按钮, Visual Basic就 会在工具栏上显示一个 空白按钮, 如图所示。 重复此步骤插入多个按 钮。
第10页
二、预备知识
退出
第12页
二、预备知识
目的和要求 预备知识
上一页 下一页 退出
5．工具栏常用方法 Add方法
在工具栏上添加按钮，语法格式如下: <工具栏名>.Button.Add <索引>[,<关键字>,<标题 >,<样式>,<图像>]
Remove方法 删除工具栏上的按钮，语法格式如下:
<工具栏名>.Button.Remove <索引>
Visual Basic允许用户创建自己的工具栏，工 具栏为用户提供了应用程序中最常用的菜单命令 的快速访问方法，进一步增强应用程序的菜单界 面。
创建工具栏，需要使用ActiveX控件中的工具栏 （Toolbar）控件和图像列表（ImageList）控件。 在Visual Basic标准工具箱里没有ActiveX控件， 用时必须添加。添加过程如下:
为MDI应用程序创建工具栏，用工具栏上的按钮 来访问子窗体。
第14页
三、实验内容
目的和要求 预备知识
上一页 下一页
• 实验4-1 • 实验4-2 • 实验4-3
退出
第15页
目的和要求 预备知识
上一页 下一页 退出
实验4-1
【题目】
运用菜单方式访问MDI窗体的子窗体。编制一 个应用程序, 包含一个MDI多文档界面窗体, 并包 含“诗歌欣赏”、“日期显示”及“字效设置”三 个子窗体。在MDI窗体中每次只能显示一个子窗 体, 并运用菜单项选择子窗体的显示。
vb4
25. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do U4;)
a=Val(a)
b=InputBox("请输入B的值")
Private Sub Command1_Click()
Dim x As Integer, n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+l
Loop
Textl．Text=Str(x)
Text2．Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是：
13. 123321
14. 321456
15. Change
16. BBBB
17. Picturel．Picture=LoadPicture("c:\moon.jpg")或Picturel=LoadPicture("c:\moon.jpg")
18. MousePointer
TIMER
I
4. ITALIC
Bold
End
99. 五编程题1. SUM=0
S=1
FOR I=1 TO 100
SUM=SUM+S/I
S=-S
NEXT I
PRINT “SUM=“；SUM
2. Private Sub Form_Load()
Text1.PasswordChar = "*"
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)。
4.2.1使用 4.2.1使用Print方法示例 使用Print方法示例
【举例】 举例】 Private Sub Command1_Click() a = 2: b = 3: c = 6 Print a, b, c, "stud" Print a; b; c; "stud" Print "a="; 2 Print Print "b="; 3 End Sub
12 VB程序设计与数据库应用
4.4 输出：MsgBox函数与MsgBox语 输出：MsgBox函数与 函数与MsgBox语 句
功能：创建信息提示对话框，同时将用户在对话框中的选择传输给程序。 功能：创建信息提示对话框，同时将用户在对话框中的选择传输给程序。 就是说， 就是说，有一个返回值给应用程序 提示信息) 格式1 MSGBOX(提示信息 格式1： MSGBOX(提示信息) 格式2 格式2： MsgBox(提示信息 对话框类型,对话框标题) MsgBox(提示信息,对话框类型,对话框标题) 提示信息, 提示信息： 提示信息： 字符串或字符串变量,用于显示对话框中的提示信息。 字符串或字符串变量,用于显示对话框中的提示信息。 对话框类型： 对话框类型： 整数或符号常量,以指定对话框中的按钮和图标的种类、 整数或符号常量,以指定对话框中的按钮和图标的种类、默认值 对话框标题： 对话框标题： 设置标题信息的字符串，若缺省，则标题为“工程1 设置标题信息的字符串，若缺省，则标题为“工程1”。
10
VB程序设计与数据库应用
4.3 输入函数InputBox 输入函数InputBox
【举例】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如 举例】 鸡兔同笼”问题。鸡有2只脚，兔有4只脚， 果已知鸡和兔的总只数h 总脚数为f 果已知鸡和兔的总只数h，总脚数为f。问鸡和兔各有多少 只？ 【分析】设笼中鸡有X只，兔有Y只，则 分析】设笼中鸡有X 兔有Y X+Y=H 2X+4Y=F 即 X=(4*H-F)/2 X=(4*HY=(FY=(F-2*H)/2 【要求】总的只数和脚数用InputBox函数输入 要求】总的只数和脚数用InputBox函数输入
11
VB程序设计与数据库应用
【设计步骤】 设计步骤】 [ 1、界面设计 、 2、代码设计 、 Private Sub Command1_Click() Dim h As Integer, f As Integer h = Val(InputBox("鸡和兔的总只数 "请输入 "0")) 鸡和兔的总只数", 请输入 请输入", 鸡和兔的总只数 f = Val(InputBox("鸡和兔的总脚数（偶）", "请输入 "0")) 鸡和兔的总脚数（ 请输入", 鸡和兔的总脚数 请输入 x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label1.Caption = "笼中鸡兔总只数为 & h & "总脚数为 & f 笼中鸡兔总只数为" 总脚数为" 笼中鸡兔总只数为 总脚数为 Label2.Caption = "笼中鸡为 & x & "兔为 & y 笼中鸡为" 兔为" 笼中鸡为 兔为 End Sub
15
VB程序设计与数据库应用
按钮默认值 0 第一个按钮为默认值 256 第2个按钮为默认值 59 第3个按钮为默认值 768 第4个按钮为默认值 4096 系统强制返回 例如： 例如： msgbox(“确定要删除吗 msgbox(“确定要删除吗？”,1+32+256,“删除”） 确定要删除吗？ ,1+32+256,“删除 删除” Msgbox “输入错误！请重新输入”,1+16,”错误” “输入错误 请重新输入”,1+16,”错误 输入错误！ 错误”
End Sub
7 VB程序设计与数据库应用
4.2.1 与Print方法有关的函数 Print方法有关的函数
2．Spc(n)
与 Tab 函数类似 ， 用于跳过 n 个空格输出 . 不同之处在于 Tab函数类似 用于跳过n 个空格输出. 函数类似， Tab(n)是绝对定位 把光标移动到离窗体左边界n个字符的地方， 是绝对定位， Tab(n)是绝对定位，把光标移动到离窗体左边界n个字符的地方， Spc(n)是相对定位 表示从当前光标位置开始移动n 是相对定位， 而Spc(n)是相对定位，表示从当前光标位置开始移动n个字符的 位置。 位置。 Private Sub Form_Click() Print Spc(30); "Thirty spaces later. . ." Print "Thirty"; Spc(30); " spaces later. . ." End Sub
17 VB程序设计与数据库应用
MsgBox函数的应用 MsgBox函数的应用
要求：单击窗体， 要求：单击窗体，出现提示框 在窗体的Click事件中编写代码 在窗体的Click事件中编写代码： 事件中编写代码： Private Sub Form_Click() a = MsgBox("确定删除文件吗?", 1 + 32, "msgbox示例") MsgBox("确定删除文件吗 确定删除文件吗?", "msgbox示例 示例") End Sub
3
VB程序设计与数据库应用
代码： 代码： Private Sub Command1_Click() A = Text1.Text B = Text2.Text T=A A=B B=T Text1.Text = A Text2.Text = B End Sub VB程序设计与数据库应用
4.2 输出：使用Print方法输出数据 输出：使用Print方法输出数据
第四章 数据的输入输出
赋值语句
使用标签和文本框
Print方法 Print方法
Inputbox函数 Inputbox函数 Msgbox函数和语句 Msgbox函数和语句
1
VB程序设计与数据库应用
4 .1赋值语句 .1赋值语句
格式： 格式： 变量名= 变量名=表达式 功能：将算表达式的值赋给变量或某个带有属性的对象。 功能：将算表达式的值赋给变量或某个带有属性的对象。 说明:(1) 变量名＞为变量或属性的名称。 说明:(1) ＜变量名＞为变量或属性的名称。 (2) 赋值语句中 “=”是赋值号,与数学中的等号意义不同。 是赋值号,与数学中的等号意义不同。 (3) 先计算表达式的值，然后将结果赋给“=”左边的变量。 先计算表达式的值，然后将结果赋给“ 左边的变量。 例如： 例如： VB程序设计 Text1.Text = “VB程序设计”
18
VB程序设计与数据库应用
MsgBox语句 MsgBox语句
如果MsgBox函数不需要返回值，可以省略圆括号， 如果MsgBox函数不需要返回值，可以省略圆括号，则 函数不需要返回值 变形为MsgBox语句 语句。 变形为MsgBox语句。 格式： 格式： MsgBox 提示信息,对话框类型,对话框标题 提示信息,对话框类型, Private Sub Form_Click() MsgBox "确定删除文件吗?", 1 + 32, "msgbox示例" "确定删除文件吗 确定删除文件吗?", "msgbox示例 示例" End Sub
功能：在窗体、图形对象或打印机等对象中输出信息. 功能：在窗体、图形对象或打印机等对象中输出信息. 格式：对象名称．Print 表达式表 [,|;] [,|; 格式：对象名称． 说明: 说明: (1) 如果“对象名称” 省略，则在当前窗体上输出。 如果“对象名称” 省略，则在当前窗体上输出。 (2) “表达式表” 可以任意类型的表达式 表达式表” (3) ，和;的区别 (4) 不带表达式的Print方法表示输出一空行 不带表达式的Print方法表示输出一空行 例如： 例如： Form1.Print Form1.Print 2, 3.4, #3/17/2006#, “studdent”
9 VB程序设计与数据库应用
4.3 输入函数InputBox 输入函数InputBox
功能： 功能： 产生一个对话框，等待用户输入数据， 产生一个对话框，等待用户输入数据，并返回所输入的文本 格式为： 格式为： InputBox (信息提示，对话框标题，默认内容） (信息提示 对话框标题，默认内容） 信息提示， 例如： 例如： r = InputBox("请输入半径：", "计算圆的面积", "1") InputBox("请输入半径 请输入半径： "计算圆的面积 计算圆的面积",
14 VB程序设计与数据库应用
图标种类 16 显示critical message 图标， 显示critical 图标， 32 显示warning query 图标？ 显示warning 图标？ 48 显示！ 显示！ 64 显示information message图标 显示information message图标
19
VB程序设计与数据库应用
MsgBox函数的应用 MsgBox函数的应用
Private Sub Form_Click() choice = MsgBox("数据已经修改，是否保存？", _ 数据已经修改，是否保存？ 数据已经修改 vbYesNoCancel + vbQuestion + vbDefaultButton1, "提示 提示") 提示 If choice = vbYes Then MsgBox "正在保存 正在保存…" 正在保存 End If If choice = vbNo Then MsgBox "不保存退出 不保存退出" 不保存退出 End If End Sub