VB程序习题集(附答案)解析
VB编程题(附答案)汇总
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
(完整版)VB习题册答案()最终版
第一章二、1。
文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。
Esc第二章二、1。
对象框、属性显示方式、属性列表和属性解释2。
Text1。
text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。
Top和Left，Width和Height5。
用鼠标单击属性窗口的任何部分；执行“视图”菜单中的“属性窗口”命令；按F4键；单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1．答案：、ABCD，VB Programming2．答案：建立界面，设置属性、编写代码3．答案：属性窗口,运行4．答案:对象,过程5．答案:工具、选项、选项、自动语法检查6．答案：Frm，Vbp7．答案:工程8．答案：窗体模块，标准模块和类模块第四章二、1．答案：CONTT。
DE+COS（28＊3.14/180）2．答案：—3/8 +8＊INT（24。
8）3．答案：(8+6）^（4/-2)+SIN（2＊3。
14）4．答案:((x+y)+z)*80—5＊(C+D）5.答案： A6.答案:17.答案：Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。
9.答案：CDEF、1110.答案：0、abcdefghijk11.答案：25、8、2001、7、6第五章二、1．答案：Label2.Caption,Text1.Text，Text2。
Text=y2．答案：MsgBox “输入的密码为”＆Text2.Text , vbOKOnly， "登录”3．答案：25+32=574．答案：Country ＆“ “ ＆City &” “ ＆ CStr（Year(Date)）5．答案 Year(Date） &“年“ & Month(Date） &“月" & Day（Date） _ &“日，星期“＆ WeekDay （Date，vbMonday)第六章二、1．答案：AutoSize2．答案：ScrollBar MultiLine True3．答案：Text1.SetFocus4．答案：0 05．答案:Picture1.Picture=LoadPicture(“pic2.gif”）6．答案：True7．答案：Picture8．答案：Interval9．答案：Enabled10．答案：下拉组合框，简单组合框，下拉列表框 Style 0 1 2 11．答案:下拉列表框12．答案：ItemA和ItemC13．答案：VB14．答案：VB程序设计 VB Programming第七章二、1． __21 38 54__2． sum=14 sum=14 sum=10。
VB循环程序例题100道附答案解析
VB循环程序例题附答案1.素数1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。
若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。
VB编程题练习及答案
4.编写程序生成一个二维数组A(5, 5)，求两条对角线元素之和Option ExplicitPrivate Sub Command1_Click()Dim a(5, 5) As IntegerDim i As IntegerDim j As IntegerDim x As IntegerDim y As IntegerFor i = 0 To 5For j = 0 To 5a(i, j) = Int(100 * Rnd) '随机产生一个0~100的整数If i = j Then x = x + a(i, j)If i + j = 5 Then y = y + a(i, j)NextNextMsgBox "两条对角线元素之和分别是" & x & "," & yEnd Sub5.编写程序将文本框Text1中的大写字母放到文本框Text2中。
Dim n As IntegerFor i = 1 To Len(Text1)n = Asc(Mid(Text1.Text, i, 1))Text2 = Text2 & IIf(n >= 65 And n <= 90, Chr(n), "")Next6.随机生成20个两位正整数存放到Text1中，找出其中的偶数并以与找出相反的顺序存放到Text2中。
Private Sub Form_Load()RandomizeDim a(20), iText1 = ""Text2 = ""For i = 1 To 20a(i) = Int(Rnd * 90 + 10)Text1 = Text1 & a(i) & " "If a(i) Mod 2 = 0 ThenText2 = " " & a(i) & Text2End IfNextEnd Sub7.编写程序将窗体上文本框Text1中的字符串中的所有大写字母找出，并按逆输出到文本框Text2中。
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. 工程资源管理器和属性窗口各有哪些组成部分？它们的主要功能是什么？解答：工程资源管理器窗口由三部分组成，自上而下分别为标题栏、工具栏和文件列表，分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。
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+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
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历年真题答案解析共32页word资料
2019年4月一、选择题(1)D 【解析】数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。
(2)B 【解析】栈(stack)是限定只在一端进行插入与删除的线性表，这一端称为栈顶(top)，另一端称为栈底(bottom)。
栈是按照"先进后出"或"后进先出"的原则组织数据的。
栈具有记忆作用。
(3)D【解析】在最坏的情况下，冒泡排序和快速排序需要比较的次数为n(n－1)/2。
(4)C 【解析】对于长度为n的有序线性表，在最坏情况下，二分查找只需要比较log2n次，而顺序查找需要比较n次。
(5)A 【解析】在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。
(6)C 【解析】软件测试是为了发现程序中的错误。
(7)B 【解析】耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。
在程序结构中，各模块的内聚性越强，则耦合性越弱。
一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，这样有利于提高模块的独立性。
(8)D 【解析】软件指的是计算机系统中与硬件相互依存的另一部分，包括程序、数据和相关文档的完整集合。
程序是软件开发人员根据用户需求开发的、用程序设计语言描述的、适合计算机执行的指令序列。
数据是使程序能正常操纵信息的数据结构。
文档是与程序的开发、维护和使用有关的图文资料。
(9)D 【解析】数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。
数据的独立性一般分为物理独立性与逻辑独立性两级。
(10)C 【解析】层次模型是最早发展起来的数据库模型。
层次模型的基本结构是树形结构。
(11)A 【解析】当在文本框内输入了一个文字，触发了Text1_Change()事件，改变按钮的标题用的按钮的Caption属性，所以这里只需在Text1_Change()事件里写上Command1.Caption＝"计算机等级考试"即可。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序习题集(附答案)解析VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load 事件过程名为___________。
A、Form_LoadB、Form1_LoadC、frm_LoadD、Me_Load8、下列有关对象属性的说法正确的是___________。
A、对象所有的属性都罗列在属性窗口列表中B、不同对象不可能有同名属性C、不同对象的同名属性取值一定相同D、对象的某些属性既可以在属性窗口中设置，也可以在程序代码中设置9、一个对象可以执行的动作与可被对象识别的动作分别被称为___________。
A、事件、方法B、方法、事件C、属性、方法D、过程、事件10、下列有关算法的叙述中，___________是不正确的。
A、算法中执行的步骤可以无休止的执行下去B、算法中的每一步操作必须含义明确C、算法中的每一步操作都必须是可执行的D、算法必须有输出11、对象可以识别和响应的某些行为称为___________。
A、方法B、继承C、属性D、事件12、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮从窗体上消失。
A、VisibleB、EnabledC、DisabledPictureD、Default13、将文本框的___________属性设置为True 时，文本框可以输入或显示多行文本。
A、MultiLineB、ScrollBarsC、TextD、Enabled14、下面___________对象无Caption属性。
A、FormB、CommandButtonC、TextBoxD、Label15、决定控件上文字的字体、字形、大小、效果的属性是___________。
A、TextB、CaptionC、(名称)D、Font16、结构化程序设计有三种基本结构，不包括___________。
A、顺序结构B、模块结构C、选择结构D、循环结构17、一个对象所能做的事情称为对象的___________。
A、方法B、继承C、属性D、封装18、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮不能响应用户的鼠标事件。
A、VisibleB、EnabledC、DisabledPictureD、Default19、当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的___________属性设置为True。
A、AutoSizeB、WordWrapC、VisibleD、Enabled20、下面控件中，没有Caption 属性的是___________。
A、复选框B、单选按钮C、组合框D、框架21、任何控件都具有___________属性。
A、TextB、CaptionC、(名称)D、ForeColor22、窗体上有多个控件，在Form_Activate（）事件过程中添加___________语句，就可以确保每次运行程序时，都将光标定位在文本框Text1中A、Text1.Text=""B、Text1.SetFocusC、Text1.GetFocusD、Text1.Visible=True23、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是___________。
A、用鼠标右键单击此按钮B、按键盘上的Esc键C、按键盘上的回车键D、用鼠标右键双击此按钮24、如下选项中，___________不是VB提供的程序控制结构。
A、顺序结构B、选择结构C、重复结构D、树型结构程序代码基础1、数学表达式a acb b24 2-+-对应的Visual Basic表达式为__________。
A、-b + Sqr(b * b - 4 * a * c) / 2 * aB、-b + Sqr(b * b - 4 * a * c) / (2 * a)C、(-b + Sqr(b * b - 4 * a * c) )/ 2 * aD、(-b + Sqr(b * b - 4 * a * c) )/ (2 * a)2、Visual Basic中可以同时删除字符串前导和尾部空格的函数是__________。
A、LtrimB、RtrimC、TrimD、Mid3、设A=7，B=4，C=6，则表达式A Mod 3 + B ^3 / C \ 5的值为__________。
A、出错B、3C、2D、14、在Form_Click事件中执行如下语句的结果是__________。
Print Format(1236.54, "+##,##0.0%")A、123456B、+123,654.0%C、+123,6.54%D、+123,6545、语句Print "5*20"的输出结果是__________。
A、"5*20"B、出现错误信息C、5*20D、1006、窗体上放置了三个文本框，若在Text1中输入123，在Text2中输入78，在程序中执行了语句Text3 = Text1 + Text2后，则在Text3中显示__________。
A、434B、12378C、溢出D、语法错误7、表达式Val(“abcdfg123e1234”)的值为__________。
A、789B、1234C、0D、表达式错8、假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是__________。
A、BOOL ='TRUE'B、BOOL =.TRUE.C、BOOL =#TRUE#D、BOOL = True9、函数Cint、Int、Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是__________。
A、CInt(-5.59)=Int(-5.59)< Fix(-5.59)B、Int(-5.59)<CInt(-5.59)< Fix(-5.59)C、CInt(-5.59)< Fix(-5.59)<Int(-5.59)D、Int(-5.59)<Fix(-5.59)=CInt(-5.59)10、表达式Int(91*Rnd+20)的最大值是__________。
A、10B、90C、99D、11011、能正确返回正整数N的数据位数的语句是__________。
A、Len(N)B、Len(Str(N))C、Len(CStr(N))D、Len(Val(N))12、如下四个符号，可以作为VB合法变量名的是__________。
A、5_fB、_5flgC、User%sD、N113、下列表达式中运算结果为True的是__________。
A、"ABCRG" >= "abcde"B、Int(134.69) < CInt(134.69)C、78.9 / 35.77 <= 97.5 / 43、87 And -45.4 > -4.98D、Str(32.345) = CStr(32.345)14、表达式 6.5 * 5 Mod 28 \ 8的值是__________。
A、0B、1C、2D、315、能正确描述条件“A、B之一为零但不得同时为零”的VB逻辑表达式是__________。
A、A = 0 Or B = 0B、A * B = 0 And A + B <> 0C、A * B = 0 Or A + B <> 0D、A = 0 And B = 016、如下语句中，不能正常执行的是__________。
A、Print 5＋7＝100B、Print 3245343＋23233C、Print 3423/89D、Print 32765＋317、假设变量Lng为长整形变量，下面不能正常执行的语句是__________。
A、Lng=16384*2B、Lng=4*0.5*16384C、Lng=190^2D、Lng=32768*218、设a=“Visual Basic”,下面使b的值为“Basic”的语句是__________。
A、b=Left(a,8,12)B、b=Mid(a,8,5)C、b= Right(a,5,5)D、b=Left(a,8,5)19、下面所列四组数据中，全部是正确的VB常数是__________。
A、32768 1、34D2 "ABCDE" &O1767B、3276 123.56 1、2E-2 #True#C、&HABCE 02-03-2002 False D-3D、ABCDE #02-02-2002# E-2 #True#20、表达式Int(5*Rnd+10)的最小值是__________。