VB解答
- 格式：doc
- 大小：43.50 KB
- 文档页数：11
下载文档原格式
合集下载
VB第2版习题与解答
VB习题与解答第1章了解Visual Basic1. Visual Basic 6.0有哪些主要特点？解答：主要有如下的特点：⑴面向对象的可视化设计平台；⑵事件驱动的编程机制；⑶结构化的程序设计语言；⑷开放的数据库功能与网络支持；⑸充分利用WINDOWS资源；⑹方便实用的程序向导等。
2. 如何启动Visual Basic 6.0？解答：选择【开始】│【程序】│【Microsoft Visual Basic 6.0中文版】│【Microsoft Visual Basic 6.0中文版】命令，即可启动VB。
3. Visual Basic 6.0集成开发环境中有哪些常用窗口？它们的主要功能是什么？解答：VB集成开发环境主要包含以下窗口：主窗口、工具箱、窗体窗口、工程资源管理器窗口、【属性】窗口以及【窗体布局】窗口等。
⑴主窗口：由顶部的标题栏、菜单栏和工具栏以及下面的工作区组成。
主窗口是VB 集成开发环境的主界面，VB程序的设计及调试均在此进行。
⑵工具箱：标准工具箱中含有一个指针图标和20个内部(标准)控件的图标。
除指针图标外，每一个图标代表一种控件，每个控件都是已经定义好的对象，它们有自己的属性、方法和事件。
⑶窗体窗口：窗体窗口又称为“对象窗口”或“窗体设计器”。
窗体窗口是设计用户界面的地方。
⑷工程资源管理器窗口：工程资源管理器窗口(简称工程窗口)用于显示和管理当前程序中所包含的全部文件。
⑸【属性】窗口：用于设置窗体和控件的属性，如名称、外观、位置、字体等。
⑹【窗体布局】窗口：用于指定程序运行时窗体的初始位置。
⑺代码窗口：代码窗口又称为代码编辑器，用于输入和编辑程序⑻【立即】窗口：使用【立即】窗口可以在中断状态下监视对象属性、变量或表达式的值，也可以在设计时查询表达式的值或命令的执行结果。
4. 工程资源管理器和属性窗口各有哪些组成部分？它们的主要功能是什么？解答：工程资源管理器窗口由三部分组成，自上而下分别为标题栏、工具栏和文件列表，分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。
VISUAL BASIC 程序设计(第2版)电子工业出版社 周霭如等编著 课后答案 第8章
Caption
添加记录
Command2
Caption
结束
(2)程序代码
Option Explicit
Private Type txr
num As String * 4
name As String * 8 tel As String * 8 postc As String * 6 addr As String * 14 End Type Dim zgr As txr Private Sub Form_Load() Open "d:\txrf.rec" For Random As #1 Len = Len(zgr) End Sub Private Sub Command1_Click() With zgr .num = Trim(Text1.Text) .name = Trim(Text2.Text) .tel = Trim(Text3.Text) .postc = Trim(Text4.Text) .addr = Trim(Text5.Text) End With Put #1, , zgr Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub Private Sub Command2_Click() Close #1 End End Sub
属性值
Form1
Caption
建立职工通讯录文 件
Label1
Caption
编号
Label2
Caption
姓名
Label3
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
vb错题4
A. 12
B. 6
C. 0
D. 4
解答： A
参考答案： A
16. 单选题： （1.0分）
若执行以下程序段时依次输入1，3，5，则执行结果为________。
Dim a(4) As Integer, b(4) As Integer
A. X9
B. X[9]
C. X(3.5)
D. X()
解答： D
参考答案： C
10. 单选题： （1.0分）
以下关于动态数组的说法中不正确的是________。
A. 使用ReDim语句可以改变动态数组的维数
B. 使用ReDim语句可以改变动态数组的类型
解答： D
参考答案： C
2. 单选题： （1.0分）
执行语句Dim a(3,4) As Single创建一个二维数组，数组元素的个数有____个。
A. 12
B. 4
C. 20
D. 7
解答： C
参考答案： C
D. 执行Erase A后，A数组将不存在
解答： D
参考答案： A
6. 单选题： （1.0分）
在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为C1，共有3个数组元素。在默认情况下，第一个创建的命令按钮的Index属性值为________。
A. 0
Dim i%, t
For i = 1 To 10
a(i) = i
Next i
For Each t In a
Print t;
Next t
End Sub
空1解答： 0 1 2 3 4 5 6 7 8 9 10
VB程序设计教程 习题解答
《VB程序设计教程》（第4版）习题解答单元一巩固与提高答案一、选择题1. Visual Basic 6.0分为3种版本，不属于这3种版本的是A）学习版B）专业版C）企业版D）业余版【答】D。
2. 下列方法中不能退出Visual Basic的是A）按Alt+Q组合键B）按下Alt+F组合键，然后按Esc键C）按F10键，然后按F键，再按X键D）打开“文件”菜单→“退出”命令【答】B。
3. Visual Basic集成的主窗口中不包括A）属性窗口B）标题栏C）菜单栏D）工具栏【答】A。
4. 下列操作可以打开立即窗口的是A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E【答】C。
二、填空题1. 与传统的程序设计语言相比，Visual Basic最突出的特点是____。
【答】事件驱动编程机制。
2. 如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。
【答】功能键F10或Alt键。
3. 建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考题1. 简述Visual Basic的特点。
【答】与一般的程序设计语言相比，VB具有以下特点：(1) 可视化的设计平台；(2) 面向对象的设计方法；(3) 事件驱动的编程机制；(4) 结构化的设计语言；(5) 充分利用Windows资源；(6) 开放的数据库功能与网络支持。
2. 简述Visual Basic集成开发环境的组成。
【答】VB 6.0集成开发环境除了具有标准Windows环境的标题栏、菜单栏、工具栏外，还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。
(1) 标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化∕还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了VB编程的常用命令。
vb练习1
A.List1.Clear B.Form1.Clear bo1.Cls D.Picture1.Clear
解答： B
参考答案： A
35. 单选题： （1.0分）
PictureBox、Frame、OptionButton、ListBox、TextBox、Form、ComboBox这7个对象中，具有 Caption属性的有 个。
解答： B
参考答案： A
29. 单选题： （1.0分）
Visual Basic程序设计时常用的Print、Cls属于 。
A.属性 B.打印字库 C.方法 D.事件
解答： C
参考答案： C
30. 单选题： （1.0分）
单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不 同的 中安排适当的单选按钮，即可实现。
A.可以通过Print方法在图片框中输出文本 B.清空图片框控件中图形的方法之一是加载一个空图形 C.图片框控件可以作为容器使用 D.用Stretch属性可以自动调整图片框中图形的大小
解答： A
参考答案： D
23. 单选题： （1.0分）
以下叙述中错误的是 。
A.下拉式菜单和弹出式菜单都用菜单编辑器建立 B.在多窗体程序中，每个窗体都可以建立自己的菜单系统 C.除分隔线外，所有菜单项都能接收Click事件 D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
解答： B
参考答案： A
18. 单选题： （1.0分）
设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 。
bo1.Removeitem Text bo1.Removeitem 2 bo1.Removeitem 3 bo1.Removeitem Co考答案： B
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB习题解答
作用：在对象上输出信息 对象：窗体、图形框或打印机(Printer) ，省略对象在窗体上输出。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。 无 ；，时换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定， 缺省为打印对象的左上角0，0。 注意：Print方法在Form _Load事件过程中起作用，必须设置窗体的 AutoRedraw为True。
3.常用方法
[对象.]SetFocus：是把光标移到指定的文本框对象中。
4.文本框的应用 数据过滤
例2.7 要求输入合法的数字数据。当输入结束时（按Tab键），对于 输入正确的数据，显示正确信息；对输入的非数字数据，则响铃 (Beep)、显示错误信息、清除文本框中的内容，并使焦点重新回到文 本框。 • Text2_ LostFocus 当输入结束按Tab键时，该事件激发。 • IsNumeric(Text2)：判断是否输入非数字数据。 • Text2.SetFocus：使焦点重新回到文本框。
例2.3
控件设置
默认控件名 标题 有关属性设置 Name Caption 颜色、对齐、 Form1 MousePointer=99,MouseIcon=Key04.ico 鼠标属性例 左对齐 Alignment=0， BorderStyle =1 Label1 居中 Alignment=1，BorderStyle =1 Label2 自动 AutoSize=True， WordWarp=False， BorderStyle =1 Label3 背景白 BackColor= &H00FFFFFF&， BorderStyle =0 Label4 前景红 ForeColor= &H000000FF&， BorderStyle =0 Label5
VB程序设计课后习题答案
VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Window子目录删除。
当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。
3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。
2019年VB习题及习题解答.doc
习题一一、简答题1. 简述VB的特点。
2. 安装Visual Basic系统程序应具备什么条件？3. 启动Visual Basic有几种方法？4．退出Visual Basic有几种方式？5．什么是对象？什么是类？简述它们之间的关系。
6．VB环境有哪些部分组成？7．VB有几种工作模式？8．属性窗口由哪几个部分组成？9．设置属性有哪些方法？10．简述Visual Basic应用程序的建立步骤。
11．Visual Basic应用程序中有哪些文件？12．Visual Basic的对象有哪三要素？13．VB应用程序的执行步骤是什么？14．Visual Basic应用程序中有哪几种类型的错误？二、填空题1. Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。
2. 在VB集成开发环境中，运行应用程序的方法有两种是：或。
3．Visual Basic的对象主要分为和两大类。
4. 在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。
5. 在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是和。
6. 在Visual Basic中，最基本的对象是。
7. 在Visual Basic中，默认窗体名为，默认工程名为。
8. 若用户单击了窗体Form1，则启动的事件名为。
9. 调用方法的具体调用格式为。
10．在代码中设置对象属性的格式为。
三、单项选择题1. 窗体的标题栏显示内容由窗体对象的属性决定。
A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。
A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。
A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.Private Sub Form_Click() For i = 1 To 78
If i Mod 2 <> 0 Then
s = s + 1 / (i * (i + 1) * (i + 2)) End If
Next i
Print Format(s, "###.0000") End Sub
2.Private Sub Form_Click() For i = 1 To 78
If i Mod 2 = 0 Then
s = s + (i * (i + 1) * (i + 2)) End If
Next i
Print Format(s, "####.0000") End Sub
3.Private Sub Form_Click() For i = 1 To 54
s = s + i ^ 3
Next i
End Sub
4.Private Sub Form_Click() For i = 1 To 40
s = s + ((-1) ^ (n + 1)) / (i * i) Next i
Print Format(s, "#####.0000") End Sub
5.Private Sub Form_Click() For i = 1 To 54
s = s + (2 * i + 1) / (2 * i - 1) Next i
Print Format(s, "#####.0000") End Sub
6.Private Sub Form_Click() For i = 1 To 78
s = s + (2 * i + 1) / (2 * i) Next i
Print Format(s, "#####.0000")
二．1.Private Sub Form_Click()
Dim a(1 To 20)
For i = 1 To 20
a(i) = Int(Rnd * 89 + 11)
Print a(i);
Next i
Print
For i = 1 To 19
For j = 1 To 20 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j
Next i
For i = 1 To 20
Print a(i);
Next i
Print
Print "最大值为"; a(20);
Print "最小值为"; a(1);
End Sub
2.这道题没想到怎么用删除法做，求高手解
Private Sub Form_Click()
m = 20
n = 20
kk = 1
ReDim a(m)
For i = 1 To m
a(i) = Int(Rnd * 89 + 11)
Print a(i);
Next i
Print
For i = 1 To m - 1
For j = i To m
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
Next i
For i = 1 To 20
If a(i) Mod 2 <> 0 Then Print a(i);
Next i
End Sub
3.此题有异议，求高手解
Private Sub Form_Click()
For i = 1 To 10
n = Val(InputBox("请输入数字")) a(i) = n
Print a(i);
Next i
Print
For i = 1 To 10
s = s + a(i)
Next i
m = s / 10
Print m;
Print
For i = 1 To 10
If a(i) >= m Then Print a(i);
Next i
End Sub
4.Private Sub Form_Click()
m = InputBox("请输入")
n = Len(m)
For i = 1 To n
a = Mid(m, i, 1)
s = s + Asc(a)
Next i
Print m
Print StrReverse(m)
Print s
End Sub
5.Dim a(20)
For i = 1 To 20
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
Next i
For i = 1 To 20
Print a(i);
Next i
6.Private Sub Form_Click()
Dim a(20)
For i = 1 To 20
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
For i = 1 To 20
Print a(i);
Next i
7.此题输出方法非主流，求高手正规解Private Sub Form_Click()
Dim a(20)
For i = 1 To 20
a(i) = Int(Rnd * 100)
Next i
Print
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
Next i
For i = 20 To 16 Step -1’以下是非主流输出法Print a(i);
Next i
Print
For i = 1 To 5
Print a(i);
Next i
End Sub
8.Private Sub Form_Click()
Dim a(20)
For i = 1 To 20
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
Next i
For i = 1 To 20
Print a(i);
Next i
Print
For i = 1 To 20
If a(i) Mod 2 = 0 Then a(i) = 0
Next i
For i = 1 To 20
Print a(i);
Next i
End Sub
9.Private Sub Form_Click()
Dim a(10)
Dim b(26)
n = InputBox("请输入")
m = Len(n)
For i = 1 To m
k = UCase(Mid(n, i, 1))
If k >= "0" And k <= "9" Then x = Val(k) + 1: a(x) = a(x) + 1 If k >= "A" And k <= "Z" Then y = Asc(k) - 64: b(y) = b(y) + 1 Next i
For x = 1 To 10
If a(x) > 0 Then Print ""; x - 1; "="; a(x)
Next x
For y = 1 To 26
If b(y) > 0 Then Print ""; Chr(y + 64); "="; b(y)
Next y
End Sub
10.Private Sub Form_Click()
Dim a(20)
For i = 1 To 20
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j
Next i
For i = 1 To 20
Print a(i);
Next i
Print
Print "次最小值为"; a(2);
End Sub
11。