VB程序设计 习题及答案第3章 顺序结构程序设计
VB教程第3章顺序结构程序设计课堂讨论
例3.2e
想一想 错在哪? 错在哪?
主页
错例三: 错例三:
例3.2f Private Sub Command1_Click() Dim t As Integer, a As Integer, b As Integer a = Text1.Text 数据类型不对! 数据类型不对! b = Text2.Text t=a 好像在窗体上没 a=b 有看到处理结果! 有看到处理结果! b=t End Sub
主页
补充题
B 1. 要在标签 要在标签Lab1上显示"计算结果", 可用 ______ 语句. 上显示" 语句. 上显示 计算结果" A. Lab1.Caption = 计算结果 B. Lab1.Caption = "计算结果 计算结果" 计算结果 C. = "计算结果 计算结果" D. = 计算结果 计算结果 18 2.下列语句序列的执行结果是__________. .下列语句序列的执行结果是 . a = Space(1) + "学习 + Space(2) + "高级语言 学习" 高级语言" 学习 高级语言 b = Trim(a) + Chr(65) Print Len(a + b) 3.运行下列程序段后,输出结果是 1 .运行下列程序段后, x=3:y=2:z=1 x=y:y=z z=x:x=y Print x
例3.2d
′"交换"按钮 交换" 交换
a = Text1.Text b Text1.Text = Text2.Text = Text2.Text t = a Text2.Text = t a = b b = t Text1.Text = a End Sub Text2.Text = b t = Text1.Text
vb第三章课后习题答案
习题一、单项选择题1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）A.PrintA=x+yB. Print"A="；x+yC. Print"A="+Str(x+y)D. Print"A="&x+y2、假定有如下的命令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）A. x的值是数值10B. 输入对话框的标题是“输入整数”C. 信息框的标题是“输入数据：10”D. 信息框中显示的是“输入的数据是：”3、有如下程序a=3;b=4PRINT b＜aEND运行后，输出的结果是( )A.4＞3B.-1C.0D.显示出错信息4、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）A. Private Sub Text1_Change()B. Private Sub Command1_Click()Command1.Caption=”计算机等级考试”Caption=”计算机等级考试”End Sub End SubC. Private Sub Form1_Click()D. Private Sub Command1_Click()Text1.Caption=”计算机等级考试”Text1.Text=”计算机等级考试”End Sub End Sub5、假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是（）A. Microsoft VisualB. MicrosoftC. BasicD. 56、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示（）A. 434B. 45678C. 溢出D. 语法错误7、执行下面的程序，单击窗体，则在窗体上显示的是（）。
vb各章习题
第一章Visual Basic程序设计概述一、选择题1.Visual Basic是一种面向对象的可视化程序设计语言，采用了___A___的编程机制。
（A）事件驱动（B）按过程顺序执行（C）从主程序开始执行（D）按模块顺序执行2.在Visual Basic中最基本的对象是___C_____，它是采用程序的基石，是其它程序的容器。
（A）文本框（B）命令按钮（C）窗体（D）标签3.多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把____D____指定为启动窗体。
（A）不包含任何控件的窗体（B）设计时的第一个窗体（C）包含控件最多的（D）命名为Form1的窗体4.有程序代码如下：Text1.Text = ＂Visual Basic＂则：Text1,Text和＂Visual Basic＂分别代表_____C___。
（A）对象，值，属性（B）对象，方法，属性（C）对象，属性，值（D）属性，对象，值5.Visual Basic是一种面向对象的程序设计语言，_____A___不是面向对象系统所包含的三要素。
（A）变量（B）事件（C）属性（D）方法6.Visual Basic的一个应用程序至少包含一个____B____文件，该文件存储窗体上使用的所有控件对象和有关的________、对象相应的________过程和________代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块7.以下不属于Visual Basic的工作模式是_____A___模式。
（A）编译（B）设计（C）运行（D）中断8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是___C_____。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是___B_____。
（A）My Documents （B）VB98 （C）\ （D）Windows10.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是________。
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
Visual_Basic程序设计课件——第三章
【例题】移动对象，程序运行时使命令按钮移到窗体 的中心位置。
TextHeight和TextWidth方法
TextHeight方法和TextWidth方法用于帮助设置坐标，作用 为返回一个文本字符串的高度和宽度值。 TextHeight方法语法格式为： [对象名].TextHeight（字符串） TextWidth方法语法格式为： [对象名].TextWidth（字符串）
Spc函数
Spc函数也可以对输出进行定位，作用是提供n个空格键。 Spc函数语法格式为：Spc（<n>） 例如：Print “a” ；Spc（10）；“b”；Spc（5）；“c” 输出：a b c 说明： 1、参数n是一个数值表达式。 2、Spc函数与其他输出项之间用分号隔开。 3、Spc函数和Tab函数的作用相似，可以相互替代，不同的是，Tab函数 从对象的左端开始计数，而Spc函数只表示输出项之间的间隔。
输出信息对话框
MsgBox函数可以弹出一个带有若干按钮的对话框，并在对话 框中显示询问消息，等待用户做出选择，并返回一个整数值， 告诉用户单击哪一个按钮。 MsgBox函数的语法格式： 变量=MsgBox（<信息内容>[，<对话框类型>[，<对话框标题 >]]） 说明： 1、信息内容是在对话框中出现的提示文本。在信息内容中 使用硬回车符（CHR（13））可以使文本换行。对话框的高度 和宽度随着信息内容的增加而增加，最多可有1024个字符。 2、对话框类型指定对话框中出现的按钮和图标，一般有3个 参数。其取值和含义如下：
CurrentX和CurrentY属性
CurrentX和CurrentY表示当前输出位置的横坐标与纵坐标。
文本属性
①字体（FontName） 格式为：FontName[=“字体类型”] ②字号 格式为：FontSize[=“点数”] 注：“点数”用来设定字体的大小，默认情况下，系统使用最小的字 号：“点数”为8。 ③斜体 格式为：FontItalic[=Boolean] 注：当Boolean值为True时，文本以斜体字输出，Boolean默认为False。 ④粗体 格式为：FontBold[=Boolean] 注：当Boolean值为True时，文本以粗体字输出，Boolean默认为False。
《Visual Basic程序设计基础》习题
《Visual Basic程序设计基础》教材习题第1章Visual Basic 6.0程序设计概述习题一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。
3．同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
4．在Visual Basic中，有一些通用的过程和函数作为方法供用户直接调用。
5．控件的属性值不可以在程序运行时动态地修改。
6．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
7．所谓保存工程，是指保存正在编辑的工程的窗体。
8．在面向对象的程序设计中，对象是指可以访问的实体。
9．决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。
10．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
11．xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。
12．事件是由Visual Basic预先定义的对象能够识别的动作。
13．事件过程可以由某个用户事件触发执行，它不能被其他过程调用。
14．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
15．同一个窗体文件只能用于一个工程中。
16．由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
17．在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
18．当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件19．“方法”是用来完成特定操作的特殊子程序。
20．“事件过程”是用来完成事件发生后所要执行的程序代码。
二、选择题1．工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．以下4个选项中，属性窗口未包含的是。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】 （1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。 （2）设置对象的属性
【步骤】
（ 1 ） 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then
vb2010第3章
Command2.Enabled = False Command1.Enabled = True End Sub
Copyright © by metc
7
VB 2010
❖3.1 顺序结构程序设计
VB 2010
2. 使用Print方法
（1）Print方法 Print方法用于在窗体（Form）、立即窗口（Debug）、图片框（Pictur eBox）或打印机（Printer）等对象 [〈对象名称〉.]Print [〈表达式列表〉][，|；]
② Spc函数。用Spc函数跳过n列。其格式如下：Spc（n）。 其中，n是在显示或打印下一个表达式之前插入的空格数。Spc函数与输出项 之间用分号隔开。 Spc函数与Tab函数的作用类似，可以互相代替。但需要注意，Tab函数从 对象的左端开始计数，而Spc只表示两个输出项之间的间隔。
Copyright © by metc
Private Sub Form_Activate（）
Text1.SetFocus
End Sub
（2）Tab键顺序
Tab键顺序是指用户按Tab键时，焦点在窗体上的控件之间移动的顺序。一般
情况下，Tab顺序由向窗体中建立控件的先后顺序确定。
设置控件的TabIndex属性可以改变控件的Tab顺序。当在窗体上建立第一个
' 计算三种家电总销售额
Label7.Caption = x
End Sub
Private Sub Command3_Click（）
' 关闭按钮的单击事件
Unload Me
' 关闭当前窗体
End Sub
Copyright © by metc
14
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第3章顺序结构程序设计
3．1 下列语句是否有错？若有，请改正。
(1) Let = 17 (2) T1$ = XYZ
(3) L*2 = K + E (4) 1A = 34 , 2A = 66
【答案】
(1) Let x = 17 或 x = 17
(2) T1$ = “XYZ”
(3) L = (K + E)/2
(4) A1 = 34 : A2 = 66
3．2 编一个对三种商品零售计价程序，商品数量由键盘输入。
A商品：每件1.25元
B商品：每件3.12元
C商品：每件11.27元
总计金额 SUM。
【参考答案】
（1）用户界面设计
图3-1 程序运行结果
（2）控件属性设置（略）
（3）程序代码设计
Private Sub Command1_Click()
Sum = 1.25 * Text1.Text + 3.12 * Text2.Text + 11.27 * Text3.Text Text4.Text = Sum
End Sub
程序运行结果如图3-1所示
3．3 小王有存款A元，年利率P，存储时间T年，试编程求本利合计。
【参考答案】
（1）用户界面设计
（2）控件属性设置（略）
（3）程序代码设计
（说明：存款按单利计算）
Private Sub Command1_Click()
a = Text1.Text
p = Text2.Text
t = Text3.Text
a = a + a * p * t
Text4.Text = a
End Sub
程序运行结果如图3-2所示：
图3-2 程序运行结果
3．4 试编写打印下面三角形图案的源程序。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Tab(15); "*"
Form1.Print Tab(14); "***"
Form1.Print Tab(13); "*****"
Form1.Print Tab(12); "*******"
Form1.Print Tab(11); "*********"
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "显示星号三角形,单击窗体开始" End Sub
程序运行结果如图3-3所示：
图3-3 程序运行结果
3．5 试编写打印下面图案的源程序。
* * * * * * * *
* *
* *
* *
* *
* * * * * * * *
【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Tab(5); "********"
Form1.Print Tab(6); "*"; Tab(13); "*"
Form1.Print Tab(7); "*"; Tab(14); "*"
Form1.Print Tab(8); "*"; Tab(15); "*"
Form1.Print Tab(9); "*"; Tab(16); "*"
Form1.Print Tab(10); "********"
End Sub
图3-4 程序运行结果
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "显示星号四边形,单击窗体开始" End Sub
程序运行结果如图3-4所示：
3．6 请编写程序，求10000以10为底的对数值。
【参考答案】
程序代码设计
Private Sub Form_Click()
Form1.Print Log(10000) / Log(10)
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "计算以10为底，10000的对数"
Form1.Print "单击窗体开始"
End Sub
图3-5 程序运行结果
程序运行结果如图3-5所示：
3．7 请编写求任意数的平方根的源程序，数由键盘输入。
【参考答案】
程序代码设计
Private Sub Form_Click()
x = Val(InputBox$("输入数据"))
Form1.Print "输入数据为"; x
Form1.Print "平方根为"; Sqr(x)
End Sub
图3-6 程序运行结果
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "求任意数的平方根"
Form1.Print "单击窗体开始"
End Sub
程序运行结果如图3-6所示：
3．8 求任意半径和高的圆柱的表面积。
【参考答案】
（1）用户界面设计
（2）控件属性设置
设置控件属性值如表3-1所示。
表3-1 控件属性设置
对象属性属性值说明
Label1 Caption 请输入圆柱体的数据标签的内容Label2 Caption 半径标签的内容Label3 Caption 高标签的内容Label4 Caption 圆柱体面积标签的内容Text1 Text 文本框的内容Text2 Text 文本框的内容Text3 Text 文本框的内容Command1 Caption 计算圆柱体的面积命令按钮的标题
（3）程序代码设计
Private Sub Command1_Click()
r = Text1.Text
h = Text2.Text
s = 2 * 3.14159 * r * h + 2 * 3.14159 * r * r
Text3.Text = s
End Sub
程序运行结果如图3-7所示。
图3-7 程序运行结果
3．9 编写程序，将摄氏温度转换为华氏温度。
二者之间的关系是：
F = 32 + 1.8C
其中F是华氏温度，C是摄氏温度。
【参考答案】
（1）用户界面设计
（2）控件属性设置
设置控件属性值如表3-2所示。
表3-2 控件属性设置
对象属性属性值说明
Label1 Caption 请输入摄氏温度标签的内容
Text1 Text 文本框的内容
Text2 Text 文本框的内容
Command1 Caption 转换为华氏温度命令按钮的标题
（3）程序代码设计
Private Sub Command1_Click()
C = Text1.Text
Text2.Text = 32 + 1.8 * C
图3-8 程序运行结果
End Sub
程序运行结果如图3-8所示：
3．10 编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。
【参考答案】
（1）用户界面设计
（2）控件属性设置（略）
（3）程序代码设计
Private Sub Command1_Click()
Text1.Text = UCase$(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase$(Text1.Text)
End Sub
程序运行结果如图3-9所示：
图3-9 程序运行结果。