VB经典例题13道(附答案)

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个数，输出中间数。

第一章二、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。

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练习题及答案VB（Visual Basic）是一种面向对象的编程语言，被广泛应用于软件开发中。

通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。

本文将提供一些VB练习题及其答案，帮助读者巩固VB编程技巧。

题目一：计算器程序设计一个简单的计算器程序，要求能够进行基本的加、减、乘、除运算。

解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“Calculator”。

首先，在窗体上添加一些按钮来表示数字和运算符。

然后，添加一个用于显示运算结果的文本框控件。

接下来，为数字按钮和运算符按钮分别添加点击事件处理程序。

在点击数字按钮时，将按钮对应的数字追加到文本框中。

在点击运算符按钮时，根据按钮的内容判断并执行相应的运算。

最后，通过运用VB的计算表达式功能和控件之间的交互，实现基本的加减乘除运算。

题目二：学生成绩管理设计一个程序用于管理学生成绩，要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。

解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“StudentGrade”。

首先，设计一个学生类（Student），包括学号、姓名、各科目成绩等属性。

然后，创建一个用于存储学生信息的集合（如数组或集合类）。

接下来，在窗体上添加文本框、按钮等控件，用于输入学生信息和进行相关操作。

通过按钮点击事件处理程序，实现以下功能：1.输入学生信息：获取文本框中的学生信息，并创建一个新的学生对象，将其添加到学生信息集合中。

2.查询学生成绩：根据学生学号或姓名等关键信息，在学生信息集合中查找对应学生，并显示其成绩信息。

3.计算学生平均成绩：遍历学生信息集合，计算每个学生的平均成绩，并显示在窗体上。

通过以上步骤，可以实现一个简单的学生成绩管理系统。

题目三：数据排序设计一个程序用于对一组数字进行排序，要求能够实现升序和降序排列。

解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“DataSorting”。

2005年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＝"计算机等级考试"即可。

V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。

vb习题（含答案）⼀、单项选择题（50道⼩题，共50分）1、VB程序中，通常不会产⽣错误提⽰的是( )。

（1分）A、编译错误B、逻辑错误C、运⾏时错误D、实时错误2、在设计阶段，双击窗体上任⼀空⽩处，打开的窗⼝是( )。

（1分）A、⼯程资源管理器窗⼝B、代码窗⼝C、⼯具箱窗⼝D、属性窗⼝3、下列说法中，正确的说法是( )。

（1分）A、窗体名称和该窗体⽂件名必须⼀致B、窗体名称和该窗体⽂件名可以不相同C、窗体名称和该窗体⽂件名不能使⽤汉字D、窗体名称不能使⽤汉字、但该窗体⽂件名能使⽤汉字4、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。

（1分）A、F9B、F8D、F55、以下( )控件可作为容器使⽤。

（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、将窗体的BoderStyle属性设置为( )可使窗⼝不显⽰标题栏。

（1分）A、0B、1C、2D、57、⽂本框没有( )属性（1分）A、TextB、NameC、CaptionD、BorderStyleA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D A B C D23、下列( )是不合法的常量。

（1分）A、100B、10E02D、10e0.524、下列对变量的定义中，定义X为变体型变量的是( )。

（1分）A、Dim X as DoubleB、Dim XC、Dim X!D、X%=2325、设有如下变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达⽅式是( )。

（1分）A、TextDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TextDate=date("1/1/2002")D、TestDate=Format("m/d/yy","1/1/2002")26、在⽴即窗⼝中运⾏以下语句，a="Beijing" :b="ShangHai" :Print a,b对其输出结果的描述中，正确的是( )。

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 = 0For j = 2 To Sqr(i)If 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填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。

其中，最完整的是______。

答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。

答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。

答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。

答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。

答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。

答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。

答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。

答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。

目录一、填空题 (2)二、选择题 (5)三、程序填空 (18)四、阅读程序写结果 (25)五、编程题 (31)六、历年全国计算机二级等级考试真题(附答案) (33)2006年4月全国计算机等级考试二级VB笔试试卷 (33)2005年9月全国计算机等级考试二级VB笔试试卷 (43)2005年4月全国计算机等级考试二级VB笔试试卷 (50)2004年9月全国计算机等级考试二级VB笔试试卷 (57)一、填空题1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。

2、VB 集成发环境窗口，它包括了数个独立的窗口。

除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。

3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。

4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。

5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。

6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。

7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。

8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。

9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。

10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。

11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。

12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体.13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。