vb试题库--刘永逸(部分整理)
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
vb考试试题及答案
vb考试试题及答案1. 介绍VB语言特点VB（Visual Basic）是一种基于事件驱动的可视化编程语言，最早由微软公司于1991年推出。
以下是VB语言的特点：简单易学：VB语言采用自然语言和图形化的界面，减少了繁杂的语法和代码编写，使得初学者能够迅速掌握。
可视化设计：VB提供了强大的可视化设计功能，开发者可以通过拖拽控件、设置属性等直观的方式创建用户界面。
面向对象编程：VB具备面向对象的编程特性，支持封装、继承和多态等概念，可以更好地组织和管理代码。
强大的控件库：VB拥有丰富的控件库，开发者可以通过调用这些控件实现各种功能，如按钮、文本框、列表框等。
易于与其他技术集成：VB能够与其他微软技术集成，如数据库、Office套件和网络等，方便开发者进行相关应用的开发。
2. VB考试试题1) VB语言中的变量命名规则是什么？2) VB中的条件语句有哪些？请列举并示例。
3) 如何在VB中实现错误处理？4) VB中如何定义函数和子过程？它们之间有什么区别？5) VB中常用的数据类型有哪些？请简要介绍。
6) 如何在VB中连接数据库，并执行相关操作？3. VB考试答案1) VB语言中的变量命名规则是以下几点：- 变量名由字母、数字和下划线组成，但不能以数字开头。
- 变量名区分大小写。
- 变量名不能与VB的关键字相同。
- 变量名应具有描述性，方便代码维护。
2) VB中的条件语句包括以下几种：- If语句：根据条件判断执行不同的代码块。
示例：```If condition Then' 执行语句块Else' 执行其他语句块End If```- Select Case语句：根据表达式的值选择执行对应的代码块。
示例：```Select Case expressionCase value1' 执行语句块1Case value2' 执行语句块2Case Else' 执行其他语句块End Select```3) 在VB中，可以使用Try...Catch...Finally块来实现错误处理。
历年vb题目整理(带答案)
1、算法描述：求的1~100之间所有偶数的和'注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码'Function func()(1) i As Integer dimfunc = (2)0For i = 2 To 100 Step (3)2func = func + iNext iEnd Function2、操作要求: 顺序查找单词“name”：输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。
Sub main()Dim i As IntegerDim buzai As Boolean'定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句Dim (1) d(1 To 10) As String'输入10个单词，在for语句后完善i的初始值与终值For i =(2) 1 to 10'输入每个单词给数组元素，在赋值号左侧添加变量(3) = InputBox("Please input word " & i) d(i)Next ibuzai = Truei = 0While buzai = True And i < 10'顺序查找单词，数组下标增1，在赋值号右侧添加表达式i =(4) i+1'判断数组元素是否为单词"name",在if语句后添加判断条件If (5) Then d(i) = "name"buzai = FalseEnd IfWendIf buzai = False ThenMsgBox "在数组中的位置为：" + Str(i)ElseMsgBox "不在数组中"End IfEnd Sub3、小王今年26岁，资助了一名贫困大学生，'他想从明年开始每年比上一年多资助一名贫困大学生。
VB试题库及答案
VB试题库及答案最新VB题库及答案⼀、选择题第1部分1、在窗体（名称为Form1）上画⼀个名称为Text1的⽂本框和⼀个名称为Command1的命令按钮，然后编写⼀个事件过程。
程序运⾏后，如果在⽂本框中输⼊⼀个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是A、Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End SubB、Private Sub Command1_Click()Caption = "计算机等级考试"End SubC、Private Sub Form_Click()Text1.Caption = "计算机等级考试"End SubD、Private Sub Command1_Click()Text1.Text = "计算机等级考试"End Sub2、在⼀⾏内写多条语句时，每个语句之间⽤（）符号分隔。
A、 ,B、：C、.D、；3、下⾯（）是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y4、下⾯（）是合法的字符常量。
A、 ABC$B、“ABC”C、‘ABC’D、 ABC5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。
A、14B、 4C、20D、26、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是A、b=Left(a,10)B、b=Mid(a,10)C、b=Right(a,10)D、b=Mid(a,11,10)7、设a="a"，b="b"，c="c"，d="d"，执⾏语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为A、"a"B、"b"C、"B"D、"A"8、在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输⼊⼀个整数")Print x + Text1.TextEnd Sub程序运⾏时，在⽂本框中输⼊456，然后单击窗体，在输⼊对话框中输⼊123，单击“确定”按钮后，在窗体上显⽰的内容为A、123B、456C、579D、1234569、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从⾼到低的顺序是（）。
完整word版VB程序设计试题题库及答案
VB程序设计笔试题题库选择题1下列常量中，是Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682下面选项中（）是字符连接运算符•（A ）A、&B、AndC、%D、M od3 下面关于VB的集成开发环境（IDE ）的叙述中，不正确的是（B ） oA、IDE是设计、调试、运行VB程序的工具。
B、用户不能随意关闭IDE中的窗口。
C、”窗体设计”窗口是用来设计应用程序界面（窗体）的。
D、打开/关闭各窗口的命令主要在IDE的”视图”菜单中。
4 len（"程vb 序设计”）=（C）。
A、5B、2C、6D、105表达式15 Mod4 +13\5 *2 的值是DA、7B、0C、2D、46 赋值语句A=123 +Mid$（“ 123456”，3,2）执行后，A= （ A ）。
A、157B、12334C、123D、”12334”7在一个语句内写多条语句时，用来分隔每条语句的符号是（C ）・A、，B、；C、:D、、8将逻辑型数据转换成整型数据时，转换规则是( D ) oA、将True转换为1 ,将False转换为0B、将True转换为1 ,将False转换为-1C、将True转换为0 ,将False转换为-1D、将True转换为-1 ,将False转换为09表达式2+3*4A5-SIN(X+1)/2中最先进行的运算是(D ).A、SINB、4A5C、3*4D、x+110 如果x=2 ,则表达式x+1 >2 Or sin(x)>0.9 And 3>x+3 的值(B ) oA、不能计算B、TrueC、5D> False11随机产生［10, 50］之间整数的正确表达式是( D )。
A、Round( Rnd*50)B、Int(Rnd*40+10)C、Round( Rnd*51)D> 10+Int(Rnd*41)12每建立一个窗体，工程管理器窗口中就会增加一个(C ).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(l))产生的随机整数的闭区间是( B ).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14下列数据类型中，占用内存最小的是（D）・A、IntegerB、SingleC> BooleanD> Byte15 VisualBasic 是一种（ B ）程序设计语言.A、过程式B、非过程式C、机器D、低级16函数Int（10*Rnd）是在（A）范围内的整数・A、[0,9]B、[0,1]C、[1,9]D、[1,10]17以下合法的一组VisualBasic 用户标识符是(C )A、S um 和8abcB、a#x 和PiC、F orLoop 和TotalD、C onst 和Do While18函数Len(Str(Val(n123.4n))) 的值为(B ).A、5B、6C、8D、1119Int(198.555*100+0.5)/100 的值为( B )A、199.6B、198.56C、200D、19820以下各表达式中，计算结果为0的是(A ). A、FIX(12.4)+FIX(-12.6)B、C INT(12.4)+CINT(-12.6)C、I NT(12.4)+INT(-12.6)D、F IX(13.6)+FIX(-12.6)21MsgBox（）的正确语法是（D ）。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
vb考试题库及答案大一
vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。
VB试题(选择、填空)
一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。
（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。
（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。
（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。
（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。
（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。
（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
在Command1_Click()中能完成这个功能的命令为___D___。
（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。
（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
pn en question291sum=d+dd+ddd+……+ddd..d(d为1-9的数字)。
例如：3+33+333+33 481百钱百鸡问题。
用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱951根据以下公式pi/2=1+1/3+1/3*2/5+1/3*2/5*3/7+1/3*2/5*3/7*4/ 451根据整型参数m的值，计算公式t=1-1/(2*2)-1/(3*3)-…-1/(m*m) 801猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将981回文数是指正读和反读都一样的正整数。
例如3773是回文数。
求出271计算1000以内，既能被6整除又能被8整除的数的个数。
程序中有两161计算s=2!+4!+6!+8!。
程序中有两行有错误。
改正错误，使它能输671将50元兑换成5元、2元和1元的方法(每种面额不能为0)的种数。
程111将50元兑换成5元、2元和1元的方法的种数（每种面额不能为0）。
81解百马百瓦古题。
大、小马和马驹共100匹，共驮100片瓦。
大马一561求[10，1000]之间的所有完数之和。
各真因子之和（不包括自身）381求[200,300]之间的有奇数个不同因子的最大整数。
程序中有两行131求[1,5000]内能被5整除的前若干个偶数之和，直到和大于50000为351求[10,1000]之间满足除以7余5、除以5余3、除以3余1的所有整数91求[3，500]内所有素数之和。
程序中有一行错误，改正错误，使它71求[3-1000]之间最大的五个素数之和。
程序中有两行有错误。
改正991求[3333，6666]之间所有能被5和7整除的数的个数。
程序中有错误311求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。
751求[351,432]之间既不能被3整除,又不能被8整除的数的个数。
程序1001求[444,666]之间最大的素数是多少？程序中有错误。
改正错误，611求1~100之间的所有整数的平方和。
程序中有错误。
改正错误，使891求1～100中, 两个不同的数之和能被3或7整除的“数对”的对数 661求1～200之间能被7整除的数的平方和。
程序有错误。
改正错误，181求1~210之间所有整数的立方和并输出结果。
程序中有两行有错误811求1~55的平方根的和。
（保留小数点两位）程序中有错误。
改正错241求1~60之间的所有整数的平方和。
程序中有两行有错误。
改正错误861求100～200之间的素数个数，程序中有错误。
改正错误，使它能输831求10的阶乘，程序中有错误。
改正错误，使它能输出正确的结果。
221求1到400间，同时能被3和7整除的数的个数。
程序中有两行有错误771求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500 421求1到500间，同时能被5和9整除的数的个数。
程序中有两行有错误501求200到500间，能被13整除但不能被17整除的数的个数。
程序中有231求3000以内能被17或23整除的正整数的个数。
程序中有两行有错误341求m＝50时，表达式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值。
要求391求S=1+1/2+1/3+……+1/100，程序中有两行错误。
改正错误，使它51求s=1+3+5+7+...直到s>3000为止。
程序中有两行有错误。
改正错211求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之471求满足以下条件的（a，b，c）的组数： （1） 1/(a^2)+1/( 321求能被7整除且至少有一位数字为9的三位数的个数。
程序中有两行151求平方和小于2000的最大自然数。
程序中有两行有错误。
改正错误371求区间[500，2500]中按递增顺序的第25个素数。
程序中有两行有21求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位191求数列2,4,8,16,32,…前若干项之和。
当和大于9000时，终止求和571求数列2/1，3/2，5/3，13/8，……的前10项之和。
程序中有错误401求这样的一个三位数，其个位数不大于2。
若将个位数移动到百位411求整数2310的所有质因子（即所有为素数的因子）之和。
程序的I 641求字符串"87IM&2345kjwdssdcf"中数，字母字符的ASCII码之和。
541求字符串“This is my Basic”所有字符的ASCII码之和。
程序中621若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如531若一个四位正整数是另一个正整数的平方，且各位数字的和是一个901设某四位数的千位数字与十位数字的和等于百位数字与个位数字的171输出1~100中所有整数的平方和。
程序中有错误。
改正错误，使它11统计1~1000中能被3整除的数的个数。
程序中有两行有错误。
改正711我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增581一个两位数的正整数，如果将其个位数与十位数字对调所生成的数851一个数出现在该数的平方数的右边，称这个数为“同构数”。
例如251已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其121有一个三位数满足下列条件: (1)三位数字各不相同; (2)此数等于source answer Private Sub Form_Click() Dim d As Integer,864197523 Private Sub Command1_Click() s = 0 cock = 3 Private Sub Command1_Click() Print Format( 3.140578 Private Sub Command1_Click() Print Forma0.365016 Private Sub Form_Click() Dim day As Intege3070 Private Sub Command1_Click() Dim a As Inte50 Private Sub Command1_Click() Dim n As Inte41 Private Sub Command1_Click() Dim k As Int41066 Private Sub Command1_Click() Dim x As Inte80 Private Sub Command1_Click() For x = 1 To 106 Private Sub Form_Click() s = 0 dm = 1 Do W6 Private Sub Command1_Click() Sum = 0 For x524 Private Sub Command1_Click() For x = 300 T289 Private Sub Command1_Click() Dim x As Inte50500 Private Sub Command1_Click() Dim x As Inte9 Private Sub Command1_Click() sum = 0 For x21534 Private Sub Command1_Click() n = 0 sum = 04919 Private Sub Command1_Click() Dim n As Inte95 Private Sub Command1_Click() Dim c As Inte661 Private Sub Command1_Click() Dim c As Inte47 Private Sub Command1_Click() Dim x As Inte661 Private Sub Command1_Click() Dim x As Inte328350 Private Sub Form_Click() Dim n As Integer,2121 Private Sub Command1_Click() Dim x As Inte377986 Private Sub Command1_Click() Dim s As Inte490844025 Private Sub Command1_Click() Dim x As Inte275.43 Private Sub Command1_Click() Dim s As inte73810 Private Sub Form_Click() Number = 0 For x 21 Private Sub Command1_Click() Print fun(10)3628800 Private Sub Form_Click() Dim count As Inte19 Private Sub Command1_Click() Dim x As Inte550 Private Sub Command1_Click() Dim count As 11 Private Sub Command1_Click() Dim count As 21 Private Sub Command1_Click() Dim x As Inte299 Private Sub Command1_Click() Dim t As Sing0.3749 Private Sub Command1_Click() sum1 = sum 5.187388 Private Sub Command1_Click() Dim i As Inte3025 Private Sub Command1_Click() n = 0 For i =5 Private Sub Command1_Click() s = 0 For c =2 Private Sub Command1_Click() Dim count As 36 Private Sub Form_Click() Dim x As Integer 18 Private Sub Command1_Click() n = 0 For x =659 Private Sub Command1_Click() Dim count As 45 Private Sub Command1_Click() Dim s As Inte16382 Private Sub Form_Click() Dim i As Integer,16.47991 Private Sub Command1_Click() For i = 0 To 102Private Sub Command1_Click() s = 0 k = 228 Private Sub Command1_Click() alpha = 0 st 1113 Private Sub Command1_Click() sum = 0 s = "1436 Private Sub Command1_Click() Dim N As Inte4 Private Sub Command1_Click() For x = 1000 1521 Private Sub Command1_Click() Dim a As Inte1078289 Private Sub Command1_Click() Dim x As Inte328350 Private Sub Command1_Click() Dim count As 333 Private Sub Command1_Click() Dim p As Long9 Private Sub Form_Click() Dim x As Integer,8 Private Sub Command1_Click() For x = 1 To 7 Private Sub Command1_Click() Dim N As Inte296 Private Sub Command1_Click() Dim x As Inte4。