Visual Basic程序设计课后习题答案

《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，才能接受焦点。

第四章一、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程序设计教程第版课后部分编程题参考答案(一)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 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。

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磅。

第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章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程序设计基础》教材习题参考答案第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会产生适时错误。

课后习题参考答案项目一一、简答题略二、上机题参考习题代码项目二一、选择题1.A2.A3.A4.C5.D6.D7.C8.C9.B10.A二、编程题参考习题代码二、上机题参考习题代码项目三一、选择题1.D2.A3.B4.C5.B6.C二、填空题1.n>=maxn<=mins-max-min2.55103,-23-204.955.t=1t=t*i6.i+1<=IOt=t*(i+1)i=i+1三、编程题参考习题代码四、上机题参考习题代码项目四一、选择题1C2.D3.A4.D5.D二、填空题1.247I1162. 33.12344.2475.1491625三、编程题参考习题代码四、上机题参考习题代码项目五一、选择题1.D2.C3.A4.B5.B6.D二、填空题1.functionnfacsub10proc(i)2.find=trueXmodi=0siands23.1020604.357455.126.2537.9三、编程题参考习题代码四、上机题参考习题代码项目六一、选择题1.A2.D3.A4.C5.D6.B7.B8.B9.CIO.C11.C12.D13.B14.D15.D16.C17.B18.A19.A二、判断题1.×2.×3.√4.√5.√6.×三、填空题1.tabindex02.a1ignment3.1istse1ected4.c1ear5.scro11change6.Iargechange7.mu1ti1ine8.只能在属性窗口中设置9.seistart10.1ocked四、上机题略项目七一、简答题略二、上机题参考习题代码项目八一、选择题1C2.A3.B4.D5.C6.D7.B8.C二、填空题1.mvbp2.13text1.text=M OO M text!.text3.forinputforoutputas#2noteof(1)1ineinput#1str1c1oseki11u dAtext1.texf,三、编程题略四、上机题略项目九一、选择题1C2.C3.A4.A.5.C6.A7.C8.C9.B 二、编程题略三、上机题略项目十一、简答题略二、选择题1.B2.D3.B4.D5.C三、上机题略。

VB习题答案（1-4）习题1一、选择题1. 以下叙述中，错误的是_________。

（A）一个Visual Basic 应用程序可以含有多个标准模块文件（B）一个visual Basic 工程可以含有多个窗体文件（C）标准模块文件可以属于某个指定的窗体文件（D）标准模块文件的扩展名是.bas标准模块文件（.bas）不属于任何一个窗体文件。

参考答案为C。

2. 以下叙述中错误的是_________。

（A）一个工程可以包括多种类型的文件（B）Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C）程序运行后，在内存中只能驻留一个窗体（D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样内存中可以驻留多个窗体，当前窗体只能有一个。

参考答案为C。

3. Visual Basic的窗体设计器主要是用来___________。

（A）建立用户界面（B）添加图形、图像、数据等控件（C）编写程序源代码（D）设计窗体的布局参考答案为A。

4. Visual Basic是一种结构化高级程序设计语言，它采用的是_________驱动方式。

（A）键盘（B）鼠标（C）事件（D）函数参考答案为C。

5. Visual Basic程序设计语言属于_________。

（A）面向过程的语言（B）机器语言（C）面向对象的语言（D）汇编语言参考答案为C。

6. Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该_________。

（A）进入设计模式（B）进入运行模式（C）进入中断模式（D）不用进入任何模式VB中三种模式分别为：设计模式下可以进行界面设计和代码的编写；运行模式下执行代码，接受用户的操作；中断模式下可以修改代码，但不能改变界面，这个模式下通常进行代码调试，当运行出错时，默认转到该模式下进行调试。

参考答案为C。

7. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。