vb习题及参考答案
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
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程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
VB习题及答案
一．选择题1．GBK字符集共有_____C_____个汉字。
A、6000多B、10000多C、20000多D、30000多2．美国标准信息交换码（ASCII码）中，共有128个字符，包括___B____个可打印字符和32个控制字符。
A、52B、96C、116D、1013．在计算机中，西文字符最常用的编码是__C___。
A、原码B、反码 C 、ASCII码D、补码4．下列四个选项中，按照其ASCII码值从小到大排列的是___A_____。
A、数字、英文大写字母、英文小写字母B、数字、英文小写字母、英文大写字母?C、英文大写字母、英文小写字母、数字D、英文小写字母、英文大写字母、数字5．下列字符中，其ASCII编码值最大的是__B____。
A、9B、DC、AD、空格6．中文标点符号“。
”在计算机中存储时占用___B__个字节。
A、1B、2C、3D、47．GBK是汉字内码的一种扩充规范，下面叙述中错误的是 B 。
A、它共有20000多个汉字B.、它使用双字节表示，字节的最高位均为0C.、它与GB2312保持向下兼容D、它不但有简体字，也有繁体字】8．汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 D 。
A、BCD码B、ASCII码C、区位码D、机内码9．在下列汉字编码标准中，不支持繁体汉字的是 A 。
A、GB2312B、GBKC、BIG5D、GB1803010．在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字，其原因不可能是 A 。
A、计算机显示器的分辨率不支持该汉字的显示B、汉字显示程序不能正常工作C、操作系统当前所支持的汉字字符集不含该汉字D、汉字输入软件出错11．将字符信息输入计算机的方法中，目前使用最普遍的是 A 。
？A、键盘输入B、笔输入．C、语音输入Ｄ、印刷体识别输入12．汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应 C 。
A、必须易学易记B、可输入字数多C.、易学易记，效率要高D、重码要少，效率要高13．MP3音乐采用______C_____编码方法。
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
vb常用控件习题(含答案)
1.下列控件中没有Caption属性的是。
A)框架B)列表框C)复选框D)单选按钮2.复选框的Value属性为1时，表示。
A)复选框未被选中B)复选框被选中C)复选框内有灰色的勾D)复选框操作有误3．用来设置斜体字的属性是。
A)FontItalicB)FontBoldC)FontNameD)FontSize4.将数据项“China”添加到列表框Listl中成为第二项应使用语句。
A)List1.AddItem“China”,1B)List1.AddItem“China”,2C)List1.AddItem1,“China”D)List1.AddItem2,“China”5.引用列表框Listl最后一个数据项，应使用语句。
A)List1.List(List1.ListCount)B)List1.List(ListCount)C)List1.List(List1.ListCount-1)D)List1.List(ListCount-1)6.假如列表框Listl有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句。
A)List1.AddItem3,“China”B)List1.AddItem“China”,List1.ListCount-1C)List1.AddItem“China”,3D)List1.AddItem“China”，List1.ListCount7．执行了下面的程序后，列表框中的数据项有。
PrivateSubForm_Click()Fori=1to6List1.AddItemiNextiFori=1to3List1.RemoveItemiNextiEndSubA)1，5，6B)2，4，6C)4，5，6D)1，3，58.如果列表框List1中没有选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是。
A)移去第一项B)移去最后一项C)移去最后加入列表中的一项D)以上都不对9.如果列表框List1中只有一个项目被用户选定，则执行Debug.PrintList1.Selected(List1.ListIndex)语句的结果是。
vb练习题(含答案)
___B___ 。
A ． 设计流程和编写代码
B． 设计界面和编写代码
C． 设计算法和编写代码
D． 设计程序和编写代码
44．在 VB 6.0 中， 12345& 的数据类型是（ B）
A ． 整数型
B ． 长整数型 C． 字符常数 D． 双精度常数
45．在 VB6.0 中，语句 Dim M1#,Abc,Xyz As Single 定义的 M1 、 Abc 和 Xyz 的类型分别是（ D ）
19、若要执行下列程序段后窗体上显示＂红＂字，则
x 可取的值为：
Select case int(x/10)
case2,4,6,8
print" 黄 "
case1,3,5,7,9
print" 绿 "
case else
print" 红 "
end select
(A)27
(B)38
(C)10
(D)5( 对 )
(A) 必须是字母开头，不能是数字或其他字符
(B) 不能是 VB 的保留字
(C) 可以包含字母、数字、下划线和标点符号 (对 )
(D) 不能超过 255 个字符
15、以下变量名中， ______是不符合 VisualBasic 的命名规范的。
(A)Abc901
(B)_mnu_Open_234( 对 )
A. 字符串类型
B. 日期类型
C. 逻辑类型
D. 指针类型
8、表达式 Left( “Visual ”,3)+Lcase( “AB ”)的值是？（ C）
A. visAB
B. VisAB
C. Visab
D. ualab
期末VB练习题含答案
计算机与程序设计基础（VB）练习题一．单选题（每小题1分，共27分）1.根据冯·诺依曼1946年提出的计算机的程序存储原理而设计了现代的计算机。
下面的说法正确的是_________。
A．计算机能够智能地自动编制好程序，并执行B．计算机内的程序和数据，都是用十进制数表示C．计算机内的程序和数据，都是用二进制表示的D．笔记本电脑不是冯•诺依曼结构的计算机2.计算机硬件主要由运算器、_________、存储器、输入设备及输出设备等构成。
A．屏幕B．控制器C．键盘D．打印机3.断电会使存储数据丢失的存储器是_________。
A．ROM B．U盘C．硬盘D．RAM4.下列存储器中读写速度最快的存储器是_________。
A．光盘B．内存储器C．硬盘D．高速缓冲存储器5.1MB = _________。
A．1000B B．1024B C．1000KB D．1024KB6.下列设备中，属于计算机输入设备的是_________。
A．鼠标B．音箱C．打印机D．显示器7.下面的_________不是操作系统。
A．Java B．Mac OS C．Linux D．Windows8.下面4个不同进制的数中，最小的是_________。
A．（200）10B．（11000111）2C．（306）8D．（C9）169.十进制数125所对应的八进制数为_________。
A．177 B．157 C．161 D．17510.二进制数10110110所对应的十六进制数为_________。
A．C6 B．D6 C．B6 D．E611.下面不属于对象的基本特征的是_________。
A．属性B．事件C．方法D．函数12.以下能在窗体的标题栏显示“窗体”的语句是_________。
A． = "窗体" B．Form1.Title = "窗体"C．Form1.Text = "窗体" D．Form1.Caption = "窗体"13.下列可作为变量名的是_________。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题一一、判断题1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建工程时系统会自动将窗体标题设置为Form1。
5．控件的属性值不能够在程序运行时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可用性的属性是Enabled属性。
7．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存窗体或模块文件。
8．单击“启动”菜单项将窗体装入内存时，一定触发窗体的Load事件。
9．“事件过程”是用来完成事件发生后所要执行的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选用Load事件。
二、选择题1．工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、方法C、事件D、函数3．在设计模式双击窗体将显示的窗口是A、工程窗口B、工具箱C、代码窗口D、属性窗口4．VB中运行程序的快捷键是A、F2B、F5C、Alt+F3D、F85．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的文件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic 9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，至少会产生何种文件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建一个工程，单击窗体时，在窗体上显示“欢迎使用Visual Basic程序”。
VB程序设计练习题及参考答案
Visual Basic程序设计练习题1．Visual Basic是一种面向对象的可视化程序设计语言，采取了A的编程机制。
A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行2．在Visual Basic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。
A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把B 指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的D．命名为Frm1的窗体4．若有程序代码如下：text1.text="Visual Basic"则：text1，text和"Visual Basic" 分别代表C。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值5．Visual Basic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素。
A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是C。
A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是B。
A．My Documents B．VB98 C．\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9．若要使命令按钮不可操作，要对A属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有D属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是B属性。
A．Text B．Name C．ForeColor D．Caption 12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下D语句是正确的。
VB教材习题_参考答案1-6章
Visual Basic程序设计教程（李杰主编清华大学出版社 2011.2）习题答案习题2参考答案2.2 单选题1、B2、C3、A4、D5、A6、B7、D8、C9、B 10、D2.3 填空题1、事件驱动2、Cancel3、Name4、Private Sub Form1_Click()5、运行程序6、代码窗口7、Text1.Text = "我是一个学生"8、LostFocus()事件9、Label1.Caption = "请输入用户名"Label1.ForeColor = vbGreen10、(Text1.Text)*22.4 事件练习题1、①该事件的对象是标签Label1，单击标签触发该事件。
②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。
③Label1.AutoSize = True语句使标签的大小自动随文字的多少而改变。
2、程序运行后，单击命令按钮，在Text1文本框显示"知音海外版"，在Text2文本框显示"计算机世界"。
3、单击“显示文本框”命令按钮触发的事件过程Private Sub Command1_Click()Text1.Visible = TrueText1.ForeColor = vbRedText1.Text = "VB程序设计"End Sub单击“隐藏文本框”命令按钮触发的事件过程Private Sub Command2_Click()Text1.Visible = FalseEnd Sub习题3参考答案3.2 单选题1 C2 C3 D4 B5 B6 B7 B8 C9 D3.3填空题1.REM(或‘) _ ：2 双引号（“”）#3 $ %4 UCASE()5.(log(1+d*d)-exp(2))^(5/2) [ 还有一种理解方式：(log(1+d*d)-e*e)^(5/2)]6. &O113 &H4B习题4参考答案4.2 单选题BDCBD4.3 填空题1.MsgBox("是否删除？ ", vbOkCancel + vbQuestion, "删除")2.The Length of 12345=53. 变量或表达式4. 15. loop4.4 程序设计题1.Private Sub Command1_Click()If Text1.Text = "asdf" ThenMsgBox "密码正确！"ElseMsgBox "密码错误", vbRetryCancel, "错误"End IfEnd Sub2. < 题目中的“连续产生n*n个字母”应该改为“连续产生n个字母”> Private Sub Command1_Click()Dim n%, y%, i%n = Val(Text1.Text)If n > 10 Or n<=0 ThenMsgBox "数据超界！"Text1.Text=””Text1.SetFocusElsey = Int((90 - 65 + 1) * Rnd) + 65For i = 1 To nPrint Chr(y + i)Next iEnd IfEnd Sub3．Private Sub Form_Click()Dim a!, b!, c!, x1!, x21, d!a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cIf d >= 0 Thenx1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Print x1; X2ElsePrint "没有实根"End IfEnd Sub4.Private Sub Form_Click()Dim i%, j%, s%, n%,q%n = InputBox("enter n:")q = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jq = q + sNext iPrint qEnd Sub5.Private Sub Form_Click()Dim i%, j%, n%, k%n = 0For i = 1 To 3For j = 1 To 3For k = 1 To 3Print i & j & k,n = n + 1If n Mod 5 = 0 Then PrintNext kNext jNext iPrintPrint "n="; nEnd Sub6.Private Sub Form_Click()Dim i%, j%, n%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i ^ 3 + j ^ 3 + k ^ 3 Then Print n,Next kNext jNext iEnd Sub习题5参考答案5.2 单选题1 A2 B3 C4 C5 D6 D7 A8 C9 D 10 A 11 A 12 B 5.3 填空题1．False2．Caption3．0 ListCount-14．Print List1.List(3)5．Combo1.ReMoveItem 36．LargeChange7．Timer8．5009．Shape10．Borderstyle5.4 程序设计题1．Dim op1, op2, result As SingleDim operator As IntegerPrivate Sub Command1_Click(Index As Integer)If Index >= 0 And Index <= 10 ThenIf txt1.Text = "" Thentxt1.Text = CStr(Index + 1)Elsetxt1.Text = txt1.Text + CStr(Index + 1) End IfEnd IfIf Index >= 12 And Index <= 15 Thenop1 = CDbl(txt1.Text)operator = Indextxt1.Text = ""End IfIf Index = 11 Thenop2 = CDbl(txt1.Text)Select Case operatorCase 12result = op1 + op2Case 13result = op1 - op2Case 14result = op1 * op2Case 15result = op1 / op2End Selecttxt1.Text = CStr(result)End IfEnd SubPrivate Sub Command2_Click()op1 = 0op2 = 0result = 0txt1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub2．Private Sub chkBold_Click()If chkBold.Value = vbChecked ThenTxt1.FontBold = TrueElseTxt1.FontBold = FalseEnd IfEnd SubPrivate Sub chkUnderline_Click()If chkUnderline.Value = vbChecked Then Txt1.FontUnderline = TrueElseTxt1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Opt18_Click()Txt1.FontSize = 18End SubPrivate Sub Opt22_Click()Txt1.FontSize = 22End Sub3．Private Sub Form_Load()List1.AddItem "上海"List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "广东"List1.AddItem "辽宁"List1.AddItem "陕西"List1.AddItem "河南"List1.AddItem "深圳"List1.AddItem "四川"List1.AddItem "重庆"End SubPrivate Sub List1_DblClick()For i = 0 To 9If List1.ListIndex = i ThenList2.AddItem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub4．Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”，0，“倒计时”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（m Mod 60,“00”）n2=Format（m \ 60）Mod 60,“00：”）n3=Format（m \ 3600）,“00：”）Text1.Text=n3&n2&n1End Sub习题6参考答案6.1单选题1.C2.C3.B4.B5.B6.D7.B8.B9.A 10.A6.2 填空题1.Option Base 12.变体类型3.preserve (注意：教材上面写成perserve, 教材错误)4.Variant变体类型5.96.相同，索引号7.1）.通过复制粘贴的方式创建控件数组2）.在设计时候添加多个同类型的类型控件，然后通过“属性”窗口将这些控件的名称改为相同，并把Index属性设为不同的下标值。
VB习题(含答案)
: E
nd Sub, 单击命令按钮，先后在两个输入对话框中输入 123 和 321，窗体显示的内容是( A、444 B、123321
)。（1 分）
C、123+321 32、执行语句 MsgBox "AAA", 2, "BBB" A、AAA
D、出错信息 后，所产生的消息框的标题是( B、BBB )。（1 分）
D、属性窗口
A、窗体名称和该窗体文件名必须一致
B、窗体名称和该窗体文件名可以不相同
C、窗体名称和该窗体文件名不能使用汉字
D、窗体名称不能使用汉字、但该窗体文件名能使用汉字 )得到帮助。（1 分）
4、Visual Basic 有完备的 Help 联机帮助功能，可以通过按下功能键( A、F9 B、F8
C、F1 5、以下( A、Label )控件可作为容器使用。（1 分）
End Sub,运行时，单击按钮，输出结果是( B、6 18
)。（1 分）
C、12 36、若有 k
6 = 10，则循环结构 Do Until k < 0: k =
D、12 k -
18 )。（1 分）
1: Loop 中的循环体执行次数是(
A、9
B、10
C、11 37、下列语句中，不能实现循环 100 次的是( A、N=0:Do: N=N+1: Loop Until N>=100 )。（1 分）
D、-6
B、exit
C、end 43、要从 For … Next 循环中退出循环，应使用(
D、sub )语句。（1 分）
A、Exit
B、Exit For
C、Continue
D、Stop Loop )。（1 分）
vb程序设计书习题和参考答案
b = "cdef"
e = Right(a, 3)
f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3.请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim i As Integer, j As Integer
2．用Dim c(2 to 5) As Integer语句定义的数组占用个字节的内存空间。
A、4 B、8 C、6 D、10
3．以下是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9}
4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为维数组，共有个元素，第一维下标从到，第二维下标从到。
6.窗体模块的文件扩展名是
A、.exe B、.bas C、.frx D、frm
7
A、FontName B、FontSize C、FontBold D、FontItalic
8.设置窗体的字号用
A、FontName B、FontSize C、FontBold D、FontItalic
2．编程，输入x值，按下式计算并输出y值。
3．计算下式的和，变量x与n的数值用输入对话框输入。
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
习题四
一、选择题
1．窗体通用部分的语句“Option Base1”，决定本窗体中数组下标界。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
vb课后练习答案习题解答（2）
vb课后练习答案习题解答（2）第2章基本数据类型与表达式2．1 填空题1．程序设计语言中（）是语言的最基本符号，（）是具有语法意义的最小语法单位。
答案：字符、单词2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。
答案：标识符3．整型数据占（）字节的内存空间。
长整型数据占（）个字节的内存空间。
单精度浮点型数据占（）个字节的内存空间。
双精度浮点型数据占（）个字节的内存空间。
日期型数据占（）个字节的内存空间。
答案：2、4、4、8、84．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据.答案：整、单精度浮点、货币5．符号常量在某一过程中说明，则该符号常量只能在（）内有效。
答案：该过程内6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。
答案：07．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。
答案：末尾8．为了使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（）语句。
答案：Option Explicit9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。
答案：函数运算、算术运算、关系运算、逻辑运算10．把1234.567的小数部份四舍五入转换为整数，可使用函数（）。
答案：Cint(1234.567)11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。
答案：Int(x / 100 + 0.5) * 10012．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。
答案：Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013．设X为数值变量，求X的常用对数可使用的表达式是（）。
答案：Log(X)/Log(10)14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、选择题1.2. 中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。
下列代码哪组正确？（假设已经定义变量ch） BA. ch = Char(Mid(“this is a test”,0,1))B. ch = CChar(Mid(“this is a test”,0,1))C. ch = Char(Mid(“this is a test”,1,1))D. ch = CChar(Mid(“this is a test”,1,1))3. Textbox控件限制用户输入字符长度的属性为:CA. CharacterCasingB. LengthC. MaxLengthD. AutoSize4. 过程changeName中执行下列代码后，字符串firstName的值是什么？ADim firstName as String = “Tom”Dim secondName as String = firstNamesecondName &= “Jerry”A. TomB. JerryC. Tom JerryD. Tom & Jerry5. 执行下列语句后，控制台输出什么结果ADim res as Integer = CType(“123.45”,Integer)Console.Writeln(res)A. 123B. 12345C. 0D. res6. 在中，无返回值的过程称为____A____过程A. SubB. FunctionC. PropertyD. Main7. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_____C____。
Public Module MyModule……Sub ShowHelpInfo(String info)MessageBox.Show(info)End Sub……End ModuleA. 仅在MyModule中可以使用B. 在本项目中可以使用C. 在本解决方案中可以使用D. 在派生模块中可以使用8. 下列程序在控制台上的输出结果为_____B____。
Public Function MyFunc(i as Integer)If i > 0 ThenReturn 100ElseReturn "hello"End IfEnd FunctionPublic Shared Sub Main()Dim x As EmployeeConsole.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1)))End SubA. Integer,StringB. String,IntegerC. Object,ObjectD. String,String9. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为____C____。
Class testPublic Sub MyFunc(ByVal i As Integer)i = i * 2End SubEnd ClassSub Main()Dim x As new testDim i As Integer = 100x.MyFunc(i)End SubA. 0B. 2C. 100D. 20010. 在调试中，可以使用Visual 的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。
BA．局部变量窗口 B.监视窗口 C.快速监视窗口 D.自动窗口11. 已知数组arr进行以下定义：Dim arr() as Integer = {1,1,1,1,1}过程MySub定义如下：Sub MySub(ByVal ar() As Integer, ByRef x As Integer)Dim i As IntegerFor i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar的下标上限ar(i) = xNextx = 0End Sub则执行下列语句后，数组arr和变量data中的内容是什么？ CDim data As Integer = 2MySub(arr, data)A. arr={2,2,2,2,2} data=2B. arr={1,1,1,1,1} data=2C. arr={2,2,2,2,2} data=0D. arr={1,1,1,1,1} data=012. 表达式CInt(True)的值为A. FalseB. TrueC. 1D. -113. 执行下列语句后，变量x的值为______B______Dim x as Integer = 0x = 3/2A. 0B. 1C. 2D. 314. 下列布尔表达式的值为_____A_______。
True and True Xor True and FalseA. TrueB. FalseC. OrElseD. AndAlso15. 下列表达式的值为_____A_______。
True and 100+10*3<12^2A. TrueB. FalseC. 130D. 14416. 分析下列程序，当运行结束后，在控制台上的输出是什么？APublic Function Increment(ByRef value as Integer) AS Integervalue += 1return valueEnd FunctionPublic Sub Main()Dim n1 as Integer = 1Dim n2 as Integer = 1Dim result as BooleanIf n1=0 AndAlso Increment(n2)=1 Thenresult = TrueElseresult = FalseEnd IfConsole.Writeln(“n1=”& n1 & “,n2=”&n2)End SubA. n1=1,n2=1B. n1=0,n2=2C. n1=1,n2=2D. n1=0,n2=117. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。
则应使用下列哪种Do Loop循环语句？AA. Do Until expression ⋯⋯LoopB. Do ⋯⋯Loop Until expressionC. Do While expression ⋯⋯LoopD. Do ⋯⋯Loop While expression18. 在使用OpenFileDialog对话框控件时，希望通过对话框只查找C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？BA. “C++程序文件:*.CPP;C++头文件:*.H”B. “C++程序文件|*.CPP|C++头文件|*.H”C. “C++程序文件\*.CPP\C++头文件\*.H”D. “C++程序文件->*.CPP;C++头文件->*.H”19. TextBox控件的PasswordChar属性的作用是CA. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息B. 该属性是String类型，表示输入的隐藏信息的实际内容C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息D. 该属性在中未使用20. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。
取消该功能，需要将TextBox控件的_______属性设置为False? CA. ScrollBarsB. AcceptReturnsC. WordWrapD. AutoSize21. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求：B1、前面必须带$符号；2、金额最多为999999元，且每3位用逗号分割,高位不保留0；3、整数部分对10元取整，即个位必须为0；4、小数部分保留2位,必须为0 。
金额数字的例子如：123,450.00。
根据该要求，则控件的Mask属性应为A. $999,99#.00B. $999,990.00C. $###,##0.00D. $###,##9.0022. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？AA. IsNumericB. IsNothingC. IsIntegerD. IsNumber23. 类MyClass的定义如下：BPublic Class MyClass1Private data as String则关键字Private在类的定义中的作用是：A. 限定成员变量data只在本模块内部可以使用；B. 限定成员变量data仅在类MyClass的成员方法中可以访问；C. 限定成员变量data仅仅可在类以及子类的成员方法中访问D. 限定类MyClass仅在本模块中可以使用24. 在中，一般使用关键字_____A___来标示重载方法。
A. OverloadsB. OverridesC. ShadowsD. Public25. 对于语句Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发 DA. 语法错误B. 编译错误C. 逻辑错误D. 运行时错误26. 当程序出现逻辑错误后，可以使用___C_____工具来隔离并改正代码中的逻辑错误？A. 命令行下的Debug.exeB. 汇编工具C. Visual 的调试工具D. 任何一种语言的调试工具27. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在中称为CA. 语法错误B. 运行时错误C. 逻辑错误D. 不明错误28. 在调试程序时，Visual 的“自动窗口”可以查看当前行语句以及其前、后各__C___语句中的变量，并可以修改其值。
A. 1行B. 2行C. 3行D. 4行29. Win窗体设计时，应该为工具栏的___B______事件编写事件处理程序，以响应用户点击工具栏的按钮？A. ClickB. ButtonClickC. KeyDownD. MouseDown30. Win窗体的工具栏对象为ToolBar1。
为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的____C_____属性A. AppearanceB. ImageListC. ButtonsD. ShowToolTips31. Win窗体的工具栏对象为ToolBar1。