Visual Basic程序设计课后习题答案
VisualBasic程序设计教程第三版课后习题答案之欧阳道创编
《VB程序设计》综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
Visual_Basic程序设计与应用开发教程-高等学校文科计算机课程系列教材-龚沛曾课后习题答案
第四章一、1、（1）10x 不能做变量名。
上机验证结果：VB将10识别为行号，改成x = Sin(x) + y是为变量x赋值。
故无语法错误。
（2）Sqr函数的参数为负数。
上机验证结果：“无效的过程调用或参数”（3）赋值号左边不是变量名。
上机验证结果：“缺少子程序、函数或属性”（4）除数为0上机验证结果：“溢出”。
2、自己去教材中找3、算术表达式、关系表达式、逻辑表达式4、（1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。
（2）“10<x<20”应改为“10<x And x<20”，否则运行结果错误。
（3）else if 要连在一起，中间没有空格elseif5、设置循环次数是一个比较大的次数6、do……Loop whie 表达式7、进入任务管理器强制关闭程序8、参见教材详述9、语法错误二、1、B2、C3、B （题干有误，将第二行改成print spc(i);）4、C5、B6、D7、D8、D9、C三、（1）6（2）19（3）无限（4）10100（5）将十进制转换成二进制（6）22 484（7）求x,y的最大公约数和最小公倍数（8）and（9）or(10) sum=0(11)t*i(12)picture1.cls(13)i=1(14)text1=””(15)val(inputbox(“请输入整数”))(16) a(i)<min(17)j=i(18)max(19)min第五章一、1、（2）、（4）、（7）正确2、数组名：a数组类型：single维数：二维各维上下界：第一维上界2，下界-1；第二维上界3，下界0 列出各元素：a(-1,0) a(-1,1) a(-1,2) a(-1,3)a(0,0) a(0,1) a(0,2) a(0,3)a(1,0) a(1,1) a(1,2) a(1,3)a(2,0) a(2,1) a(2,2) a(2,3)3、4、5参见教材6、可以，用redim语句7、不行。
VisualBasic程序设计教程第版课后部分编程题参考答案(一)
VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。
而其第四版中也包含了大量课后编程题，能够帮助读者深入理解 Visual Basic 程序设计的核心内容。
本文就来为大家介绍一下这部分编程题的参考答案。
一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人，包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生，使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。
《VISUAL BASIC程序设计基础》习题参考答案
'字体变小
Form1.FontSize = Form1.FontSize - 3
Form1.Cls: Print "欢迎使用 VB"
End Sub
Private Sub Command3_Click()
'字体加粗
Form1.FontBold = True
Form1.Cls: Print "欢迎使用 VB"
Private Sub Form_Load() Text1.Text = "Visual Basic 程序设计"
End Sub Private Sub Form_Resize()
Text1.Top = 0: Text1.Left = 0
Text1.Width = Form1.ScaleWidth/2 '用 Form1.ScaleWidth 效果优于用 Form1. Width
第 2 章 程序设计基础
一、判断题 1．√ 2．× 3．× 4．× 5．√ 6．× 7．√ 8．√ 9．√ 10．×
二、选择题 1．B 2．D 3．A 4．C 5．C 6．B 7．A 8．D 9. C 10．A
三、填空题
1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False
y = Sqr(x) Else
y=0 End If Print y End Sub
程序 3．界面设计略，过程设计如下： Private Sub Form_Click()
Dim i As Integer, j As Integer For i = 1 To 9
For j = 1 To 9 Print Tab((j - 1) * 4); i * j;
Visual Basic程序设计教程 杨培添 人民邮电出版社 课后答案
Caption Caption
计算 退出
课 后 答 案 网
.khd图1 界面布局效果
然后，在代码编辑器窗口中编辑以下事件： Private Sub Command1_Click()
wConst pi = 3.1416
Dim r As Single
wr = Text1.Text Text2.Text = 4 * pi * r * r
课 后 答 案 网
2．点击按钮，根据按钮上的标签提示，完成对文本框的设置，程序运行界面如图 2.75 所示。
.com 图2.75 上机操作题运行界面（2） w Private Sub Command1_Click()
Text1.FontName = "黑体"
a End Sub
Private Sub Command10_Click()
d Form1.FontName = "幼圆" h Form1.ForeColor = RGB(0, 0, 255)
Form1.Print "Visual Basic 程序设计"
k End Sub www. 第 2 章【思考与练习】答案
一、选择题
1．B
2．B
3．A
4．B
5．C
6．A
7．C
8．B
9．D
c 三、简答题
1．简述 Visual Basic 6.0 有哪些特点。
. Visual Basic 6.0 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计
语言，可用于开发 Windows 环境下的各类应用程序。主要有以下主要特点：（1）可视化编 程；（2）面向对象的程序设计；（3）结构化程序设计；（4）事件驱动编程机制等。
Visual Basic程序设计第1章习题答案
1．什么是对象的属性，事件和方法？答：Visual Basic中的每个对象都有一组特征，这组特征称为属性，不同的对象有不同的属性。
常见的属性有标题（Caption）、名称（Name）、背景颜色（Backcolor）、字体（Font）、是否有效（Enabled）、是否可见（Visible）等。
通过修改对象的属性能够控制对象的外观和操作。
事件（Event）就是对象上所发生的事情。
在Visual Basic中，事件是预先定义好的、能够被对象识别的动作，如单击（Click）事件、双击（DblClick）事件、装载（Load）事件、鼠标移动（MouseMove）事件等，不同的对象能够识别不同的事件。
一般来说，方法就是要执行的动作。
Visual Basic中的方法跟事件过程类似，它可能是函数，也可能是过程，它用于完成某种特定功能而不能响应某个事件。
如显示窗体（Show）方法、移动（Move）方法等。
方法的引用与属性有点相似，用“控件名.方法名参数”就可以调用控件的方法。
方法可能会带有参数，多参数之间用“，”分隔，参数的具体含义，要视具体控件具体方法而定。
2．设计一个窗体，窗体上有一个命令按钮，按下此命令按钮后，窗体上会出现一行字“你已经学会了设计一个简单程序”。
设计完毕后，运行此程序，运行成功后存盘，再将其转化为exe文件并将此程序存盘。
程序界面设计如下：实现的程序代码：Private sub Command2_click()Form1.Print "你已经学会了设计一个简单程序"End sub3．单项选择题。
(1)Visual Basic工程文件的扩展名是什么？（B）A. .bmpB. .vbpC. .frmD. .bas(2) Visual Basic集成开发环境中不包括下列哪些窗口？（D）A. 工具箱窗口B. 工程资源管理器窗口C. 属性窗口D. 命令窗口(3) “一辆小客车在正常行进过程中被一辆大型货车撞坏了”，在这句话中，“客车”，“小”，“行进”和“被一辆大型货车撞坏了”分别对象Visual Basic中的哪些术语？（B）A. 对象、属性、事件、方法B. 对象、属性、方法、事件C. 属性、对象、事件、方法D. 属性、对象、方法、事件(4) 对象的特征和状态特征称为？（C）A. 事件B. 方法C. 属性D. 类(5) 下面哪一个属性用来标识对象的名称？（D）A. CaptionB. ValueC. TextD. Name(6) 下面哪一个属性用来标识对象的标题？（A）A. CaptionB. ValueC. TextD. Name4．窗体上有一命令按钮“你好”，单击此按钮，在窗体上打印出“世界杯”三个字，该文字的字体为隶书，大小为20磅。
《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案
第1章1. 按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章1～3题：按要求完成操作练习。
4． Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案
第1章1.按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption="你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption="你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex=Val(Text1.Text)Text2.Text=15*xEnd Sub第2章1～3题：按要求完成操作练习。
4．Private Sub Command1_Click()'"最大化"按钮Form1.WindowState=2'最大化End SubPrivate Sub Command2_Click()'"还原"按钮Form1.WindowState=0'还原End SubPrivate Sub Command3_Click()'"最小化"按钮Form1.WindowState=1'最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEnd Sub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。
(2) Visual Basic 的对象主要分为 和 两大类。
(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。
(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。
(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。
(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。
(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。
(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。
2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
A. LtrimB. RtrimC. TrimD. Mid（2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。
A. (0,1)B. (0,9)C. (1,10)D. (1,9)（3）数学式子sin25º写成Visual Basic 表达式是 。
A.Sin25B. Sin(25)C. Sin(25º)D. Sin(25*3.14/180)（4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。
A. 14B. 4C. 20D. 2（5）数学关系式103<≤x 表示成正确的VB 表达式为 。
A. 3<= x <10B. x >= 3 And x<10C. x>=3 Or x<10D. 3<= x And <10（6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是 。
A. 123456B. 123445C. 8D. 6（7）表达式Len("123程序设计ABC")的值是 。
A. 10B. 14C. 20D. 17（8）表达式LenB("123程序设计ABC")的值是 。
A. 10B. 14C. 20D. 17（9）下面正确的赋值语句是 。
A. x+y=30B. y=x+30C. y=π*r*rD. 3y=x+1（10）为了给x ，y ，z 三个变量赋初值1，正确的赋值语句是 。
A. x=1: y=1: z=1B. x=1, y=1, z=1C. x=y=z=1D. x,y,z=1（11）赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g 中的值是 。
A. “12334”B. 123C. 12334D. 157（12）赋值语句g = 123 & Mid("123456", 3, 2)执行后，变量g 中的值是 。
A. “12334”B. 123C. 12334D. 157（13）如果x 是一个正实数，对x 的第3位小数四舍五入的表达式是 。
A. 0.01 * Int(x + 0.005)B. 0.01 * Int(100 * (x + 0.005))C. 0.01 * Int(100 * (x + 0.05))D. 0.01 * Int(x + 0.05)（14）下列哪组语句可以将变量a ，b 的值互换 。
A. a=b: b=aB. a=a+b: b=a-b: a=a-bC. a=c: c=b: b=aD. a=(a+b)/2: b=(a-b)/2（15）下列四个字符串进行比较，最小的是 。
A. “9977”B. “B123”C. “Basic”D. “DATA”（16）下列逻辑表达式中，其值为True 的是 。
A. “b” > “ABC”B. “THA T” > “THE”C. 9 > “H”D. “A” > “a”（17）表达式a+b=c 是 。
A. 赋值表达式B. 字符表达式C. 算术表达式D. 关系表达式（18）在下列表达式中，非法的是 。
A. a=b+cB. a>b+cC. a ≠b>cD. a<b+c（19）语句Print Format (“HELLO”, “<”) 的输出结果是 。
A. HELLOB. helloC. HeD. he（20）MsgBox 函数的返回值的类型是 。
A. 整数B. 字符串C. 逻辑值D. 日期（21）用语句Dim A(-3 to 5) As Long 定义的数组元素个数是 。
A. 7B. 8C. 9D.10（22）用语句Dim A(3, -3 to 0，3 to 6) As Long 定义的数组元素个数是 。
A. 12B. 27C. 64D.802.9 程序阅读题（１）执行下面程序段后，变量c$的值为。
a = "学习Visual Basic Programming"b = "我们"c$ = b & "喜欢" & UCase(Mid(a, 10, 5))（２）执行下面程序后,显示的结果是。
Private Sub Form_Click()Dim x As Integerx = Int(Rnd) + 4Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "及格"Case ElsePrint "不及格"End SelectEnd Sub（３）执行下面程序段后，变量ｘ的值为。
Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i \ 5Next i（４）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub（５）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As Integerx = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1LoopPrint "x="; x; "n="; nEnd Sub（６）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub（７）以下程序的循环次数是。
For j = 8 To 35 Step 3Print j;Next j（８）执行下面程序输入４后，程序输出的结果是。
Private Sub Form_Click()x = InputBox(x)If x ^ 2 < 15 Then y = 1 / xIf x ^ 2 > 15 Then y = x ^ 2 + 1Print yEnd Sub（９）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub（10）执行下面程序后，输出的结果是。
Private Sub Form_Click()a = 100Dos = s + aa = a + 1Loop Until a > 100Print aEnd Sub(11) 执行下面程序后，输出的结果是。