Visual Basic程序设计第1章习题答案

第一章 VB程序设计概述习题参考答案
一、选择题
题号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
答案 A C C B A D B C C C A B C A D
题号16 17 18 19 20 21 22 23
答案 D A B B B A D B
二、填空题
1. 视图，工具箱
2. 工具栏
3. 标题栏
4. 学习版，专业版，企业版
5. 运行
三、简答题
1. 只要能运行Windows9x或Windows NT并具有140MB以上的硬盘空间即可。

2. 要再安装Visual Basic6.0。

因为安装VB6.0时，有些VB程序系统自动安装在Windows98目录下，所以一旦删除Windows98子目录，就必须再安装VB6.0。

3. 在启动VB6.0的启动封面上，能显示对应的版本。

4. 代码窗口的打开方法：
（1）热键F7 （2）“视图”—> “代码窗口”
（3）在窗体窗口中双击任一控件或窗体本身
（4）从工程窗口中选择窗体或模块后单击“查看代码”按钮。

5. 单击要操作窗口的“关闭”按钮时，则不显示该窗口；选择“视图”菜单的对应的窗口命令显示所需的窗口。

6. VB的特点：
（1）具有面向对象的可视化设计工具;
（2）事件驱动的编程机制;
（3）提供了易学易用的应用程序集成开发环境;
（4）结构化的程序设计语言;
（5）支持多种数据库系统的访问;
（6）Active技术;
（7）VB 6.0在开发环境上、网络功能等的增强;
（8）完备的help联机帮助功能。

《Visual Basic程序设计基础》教材习题参考答案第1章 Visual Basic 6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。

4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F o rm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。

表10-1 实例2各控件的主要属性设置过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。

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程序设计基础》教材习题第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个选项中，属性窗口未包含的是。

四、简单程序设计题1．建立一个简单的应用程序，其窗体界面如下，单击窗体，则在窗体上显示“欢迎使用Visual Basic ！”，反复练习建立一个Visual Basic 应用程序的步骤。

2．建立一个简单的应用程序，其窗体界面如下，单击放大按钮，则文字“你好！”放大；单击缩小按钮，则文字“你好！”缩小；单击结束按钮，则结束程序的运行。

3．建立一个简单的应用程序，其窗体界面如下，单击输入按钮，则将光标定位在第一个文本框；单击大写转小写按钮，则将文本框1中的大写字母转化为小写显示在文本框2中；单击小写转大写按钮，则将文本框1中的小写字母转化为大写显示在文本框2中。

4.编写一个替换窗体标题的程序，初始运行如图2-2-1所示。

在文本框中输入文本，再点击“替换”按钮，会将窗体的标题替换为文本框中的文本，清除文本框中的文本，并将焦点设置到文本框. 图3-1-1 习题1-1程序界面图3-1-2 习题1-2程序运行界面图3-1-3 习题1-3程序运行界面四、简单程序设计题1．解：⑴ 建立用户界面以及界面中的对象启动Visual Basic 环境，选择“标准exe ”，创建工程、窗体。

⑵ 设置各个对象的属性调整窗体Form1的大小，将窗体Form1的Caption 属性设为练习1。

⑶ 为对象事件编写程序编写窗体对象Form1的单击事件驱动程序如图3-1-1(b)所示：⑷ 保存工程保存窗体：单击菜单“文件/保存form1”，并取名为习题1；保存工程：单击菜单“文件/保存工程”，并取名为习题1。

⑸运行程序按F5功能键或菜单“运行/启动”或运行按钮，运行程序，即可得到如图3-1-图3-1-1(a) 运行效果 图3-1-1(b) 程序代码1（a）所示的运行结果。

2．解：⑴建立用户界面以及界面中的对象①启动Visual Basic环境，选择“标准exe”，创建工程、窗体。

②单击窗口左边工具箱中的"标签按钮"，此时鼠标变成十字形状，拖动鼠标，在窗体上画1个标签："Label1"。

绪论单元测试1.VB6.0包括三种版本，分别为学习版、专业版和企业版。

A:对B:错答案:A2.学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。

A:错B:对答案:B3.专业版是为专业编程者提供了一整套功能完备的开发工具。

A:错B:对答案:B4.企业版包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。

A:错B:对答案:B第一章测试1.下面选项中不能运行Visual Basic程序的操作是（）A:按F5键B:从菜单栏运行菜单中选“全编译执行”菜单命令C:双击窗体D:单击“启动”按钮图标答案:C2.Visual Basic窗体设计器的主要功能是（）A:画图B:编写源程序代码C:显示文字D:建立用户界面答案:D3.可视化编程的最大优点是（）A:不需要编写大量代码来描述图形对象B:所见即所得C:具有标准工具箱D:一个工程文件由若干个窗体文件组成答案:A4.一个工程文件可包含多种类型的文件，（）文件不包含其中。

A:窗体文件B:可执行文件C:资源文件D:工程文件答案:B5. Microsoft Visual Basic6.0包括三种版本，其中不包括（）A:专业版B:企业版C:通用版D:学习版答案:C第二章测试1.在Visual Basic中，常量12#的数据类型是（）A:长整型B:双精度浮点型C:字符串D:整型答案:B2. x是小于100的非负数，用正确的Visual Basic表达式是（）A:0<=x OR x<100B:0C:0<=x<100D: x>=0 AND x<100答案:D3.不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（）A:A B=0 AND A<>BB: A B=0 AND (A=0 OR B=0)C:(A=0 OR B=0 )AND A<>BD: A=0 AND B<>0 OR A<>0AND B=0答案:B4.Boolean 类型的数据由（）字节组成A:1B:2C:3D:4答案:B5.20.表达式X+1>X是（）A:算术表达式B:关系表达式C:字符串表达式D:非法表达式答案:B第三章测试1. Inputbox()函数的返回值类型为（）A:变体型B:字符型C:逻辑型D:数值型答案:B2.要使循环体至少执行一次，应使用（）循环A:Do–Loop while|untilB:While-wendC:For-nextD:do[while|until]-loop答案:C3.程序的基本控制结构是（）A:顺序结构、选择结构和循环结构B:For…Next结构、Do…loop结构C:单行结构和多行结构D:顺序结构、多分支结构和单分支结构答案:C4.以下Case语句中，能正确描述Y的绝对值大于7的是（）A:Case -6 To 6B: Case Not(-6 To 6)C:Case Is<-6,Is>6D:Case Abs(Y)>6答案:B5.以下Case语句含有错误的是（）A:Case Is>10 And Is<50B:Case Is>10C:Case 3,5,Is>10D:Case 0 To 10答案:A第四章测试1.如下数组声明语句，正确的是（）A: Dim A[3,4] As IntigerB:Dim A(3 4) As IntegerC:Dim A(3,4) As StringD:Dim A(N,N) As Single答案:C2.如果有声明Option base 1， Dim arr(3,3)，则该数组共有（）个元素A:9B:16C:6D:4答案:A3.以下说法不正确的是（）A:使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界B:使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化C:使用不带关键字Preserve的ReDim语句可以重新定义数组的维数D:使用不带关键字Preserve的ReDim语句可以改变数组的数据类型答案:D4.下列有关控件数组的说法中，错误的是（）A:控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组B:控件数组中每个元素的下标由控件的Index属性指定C:控件数组中的所有控件不得具有各自不同的属性设置值D:控件数组中的所有控件共享同一个事件过程答案:C5.已知有数组声明：Dim a(-1 to 3,2 to 5) as integer，引用数组元素，正确的是（）A: a(-1,5)B:a(1)C: a(0,6)D:a[-1，2]答案:A第五章测试1.假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。

第一章VB概述一．选择题二．填空题1．视图工具箱2．对象事件驱动3．代码窗体设计器4．属性方法事件5．对象的特征6．一个对象可执行的动作7．属性窗口赋值语句三．简答题1．略2．略四．编程题【属性窗口设置】Caption 这是我的第一个练习【代码窗口设置】Private Sub Form_Click()Print "我可以用Visual Basic语言编写程序了！"End Sub第二章窗体与常用控件一．选择题二．填空题1．Value2．下拉列表框3．Scroll4．LargeChange5．ASCII码6．Enabled7．ListCount8．PopupMenu9．Alt10．复选11．CommonDialog1.ShowColor 或者 ShowColor12．Flags13: 114．-15．GFED第三章VB程序设计基础一．选择题二．填空题1．Right(CStr(x) , 1) & Left(CStr(x) , 1)2．x Mod 5=0 Or x Mod 9=03．False4．CDEF5．s >= "A" And s <= "Z" Or s >= "a" And s <= "z"6． x >= 0 And x < 1007．Int(Rnd * (X - 2) + 3)8．Sqr(cos(23 * 3.14 / 180) / (x ^ 2 * Log(y)))9．-4 -5 -410．"请输入圆的半径：" "求圆的面积" 211．"圆的半径值必须介于1到10之间，请重输" 48 "求圆的面积"第四章VB控制结构一．选择题二．填空题1． 4.8 202． y = 113． 1！+2！+3！+4！+5！4． 9k5． 0n6． 27． x >= 0x > max8． 5 713 1214 119．sum=0sum+jst & k & "+"10．4111011． i + 1List1.RemoveItem j12．Combo1.List(i)=Combo1.Textflag = FalseCombo1.AddItem Combo1.Text 三．编程题1．Private Sub Form_Click()Dim x As Singlex = Val(InputBox("请输入一个x的值：")) If x <= 0 Thenfx = -1ElseIf x < 1 Thenfx = Sqr(x)Elsefx = x ^ 3 + 2End IfMsgBox ("运算结果为：" & fx)End Sub2．Private Sub Form_Click()Dim n As Integer, k As Integer, s As Stringn = Val(InputBox("请输入一个正整数："))k = 2s = n & "="DoIf n Mod k = 0 Thens = s & k & "*"n = n \ kElsek = k + 1End IfLoop Until n = ks = s & kPrint sEnd Sub3．Private Sub Form_Click()Dim s As String, i As IntegerDim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer s = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" ThenIf Val(Mid(s, i, 1)) Mod 2 <> 0 Thena = a + 1Elseb = b + 1End IfElseIf Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Thenc = c + 1ElseIf Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Thend = d + 1Elsee = e + 1End IfNext iPrint "奇数个数为："; aPrint "偶数个数为："; bPrint "大写字母个数为："; cPrint "小写字母个数为："; dPrint "其他字符个数为："; eEnd Sub4．Private Sub Form_Click()Dim n As Integer, sum As Integern = Val(InputBox("请输入一个正整数："))Do Until n = 0sum = sum + n Mod 10n = n \ 10LoopMsgBox ("各位数字之和为：" & sum)End Sub5．Private Sub Form_Click()Dim n As Long, i As Integer, L As Integern = Val(InputBox("请输入一个正整数："))L = Len(CStr(n))For i = 1 To L / 2If Mid(CStr(n), i, 1) <> Mid(CStr(n), L, 1) Then Exit ForEnd IfL = L - 1Next iIf i > L / 2 ThenMsgBox ("该数是回文数。