下载文档原格式
Visual Basic程序设计综合练习一．选择题1．VB程序设计的完整步骤是（）。
（A）可视化程序设计（B）代码程序设计（C）可视化程序设计和代码程序设计（D）界面设计2．要求改变窗体的标题时，应当在属性窗口中改变（）的属性。
（A）Caption( B )Name( C )Text( D )Label3．下列变量命名正确的是（）。
（A）vb+1( B )myfile( C )page@2( D )cmd..14．窗体能响应的事件是（）。
（A）ActiveForm( B )Drive( C )Load( D )Change5．在事件中，Private表示（）。
（A）此过程可以被其它的过程调用（B）此过程只可以被本窗体模块中的其它过程调用（C）此过程不可以被任何其它的过程调用（D）此过程只可以被本工程的其它过程调用6．当执行以下的过程时，Lb1Result的标签框内将显示（）。
Private Sub cmdIt_Click( )Dim I,RR=0For I=1 to 5 Step 1R=R+INextLb1Result.Caption=Str$(R)End Sub( A )字符串15（B）整数15（C）字符串5（D）整数57．若要求从文本框中输入密码时在文本框中只显示*号，则应在此文本框的属性窗口中设置（）。
（A）Text属性值为*（B）Caption属性值为*（C）Password属性值为空（D）Passwordchar属性值为*8．（）控件可自动设置滚动条。
（A）复选框（B）框架（C）文本框（D）标签框9．（）属性能将文本框控件隐藏起来。
（A）Clear( B )Visible( C )Hide( D )New10．能够改变复选框中背景颜色的属性是（）。
（A）Value( B )FontColor( C )BackColor( D )Font11．往列表框中添加一个条目，应使用列表框的()方法。
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试卷一、单项选择题(每题2分,共40分)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来实现。
A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。
A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。
A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。
A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。
A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。
A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。
A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。
A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。
A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。
vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。
（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。
（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。
（对）4. Visual Basic中的数组下标总是从0开始。
（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。
而对象是类的实例，具有类定义的属性和方法，并可以进行操作。
四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
vb试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 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二级测试题一、选择题1．文本框控件中将Text的内容全部显示为所定义的字符的属性项是（）A．PasswordChar B．需要编程来实现C．Password D．以上都不是2．不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A．用Tab键 B．用鼠标C．用方向键 D．不能实现3．如果没有在列表框中选择项目，且列表框的MultiSelect属性值为默认值（0~None），则执行语名List1.RemoveItem List1.ListIndex的结果是（）A．删除列表框的最后一项 B．删除列表框的第一项C．出错 D．删除列表框中的最后添加的一项4．下列对象中没有焦点属性的是（）A．命令按钮控件 B．窗口控件C．文本框控件 D单选框控件5．不具有输入数据功能的控件是（）控件A．文本框 B．选项按钮 C．列表框 D．窗体6．常用控件的Style属性值是（）A．字符常量 B．逻辑常量D．数值常量 D．日期常量7．以下关于复选框的说法，正确的是（）A．一个窗体上的所有复选框一次只能有一个被选中B．一个容器中的所有复选框一次只能有一个被选中C．在一个容器中的复选框可以同时有多个被选中D．无论是在容器中还是在窗体中，都可以同时选中多个复选框8．要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（）A．P1.Cls B．P1.picture=LoadPicture(“”)C．P1.Print”” D．P1.piture””9．要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（）属性A．Picture B．Alignment C．Border D．Align10．下列赋值语句正确的是（）A． Text1.text=Text.text+Text2.textB． =+C． Text1.Caption=T ext1.Caption+T ext2.CaptionD． Text1.Enable=Text1.Enable+Text2.Enable11．引用列表框的最后一项应使用（）A．List1.List(List1.ListCount-1) B．List1.List(List1.ListCount)C．List1.List(ListCount) D．List1.List(ListCount-1)12．要清除组合框Combol中的所有内容，可以使用（）语句A．Combo1.Cls B．Combo1.Clear C．Combo1.Delete D．Combo1.Remove 13．列表框控件中的列表内容是通过（）属性设置的A．Name B．Caption C．List D．Text14．可以用作其它控件容器的控件有（）A．窗体控件，列表控件，图像控件 B．窗体控件，文本框控件，框架控件C．窗体控件，框架控件，图片框控件 D．窗体控件，标签控件，图片控件15．组合框控件是将（）组合成一个控件A．列表框控件和文本框控件 B．标签控件和列表框控件C．标签控件和文本框控件 D．复选框控件和选项按钮控件16．要在命令按钮控件上显示图像应（）A设置Picture属性 B．实现不了C．先将Type设置为1，然后再设置Picture属性 D．以上都不对17．要在图片框P1中打印字符串“How Are You”，应使用语句（）A．Picture1.Print=“ How Are You”B．P1.Picture=LoadPicture(“How Are You”)C．P1.Print“How Are You” D．Print “How Are You”18．将字符串“hello”添加到列表框的最后，可使用（）请语句。
一，选择题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结构。
vb概述测试题及答案一、单项选择题（每题2分，共20分）1. VB的全称是什么？A. Visual BasicB. Visual C++C. Visual FoxProD. Visual Pascal答案：A2. VB是一种面向对象的编程语言吗？A. 是B. 否答案：B3. VB的运行环境是什么？A. Windows操作系统B. Linux操作系统C. MacOS操作系统D. 以上都不是答案：A4. VB中，哪个关键字用于声明变量？A. DimB. LetC. ConstD. Static答案：A5. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. DoD. 以上都是答案：D6. VB中，以下哪个函数用于计算字符串的长度？A. LenB. StrLenC. LengthD. Size答案：A7. VB中，哪个关键字用于定义子程序？A. FunctionB. SubC. ProcedureD. Method答案：B8. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. If...Then...End IfD. 以上都是答案：C9. VB中，哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A10. VB中，哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：B二、填空题（每题2分，共20分）1. VB是一种由微软公司开发的_______语言。
答案：事件驱动2. VB程序的基本单位是_______。
答案：模块3. VB中，用于定义常量使用的关键字是_______。
答案：Const4. VB中，用于定义数组的关键字是_______。
答案：Dim5. VB中，用于输出信息到立即窗口的函数是_______。
vb考试试题及答案一、选择题1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Option答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVarB. var2C. 123variableD. my$Var答案：C3. VB中，下列哪个选项是正确的条件语句？A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案：A4. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 在VB中，下列哪个选项是正确的循环结构？A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案：D二、填空题1. 在VB中，声明一个整型变量并赋值为100的语句是：________。
答案：Dim myVar As Integer = 1002. VB中，用于输出信息到立即窗口的函数是：________。
答案：Debug.Print3. VB中，用于暂停程序执行的函数是：________。
答案：Sleep4. VB中，用于获取当前日期的函数是：________。
答案：Date5. VB中，用于将字符串转换为整型的函数是：________。
答案：CInt三、简答题1. 简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。
2. 描述VB中如何实现多线程编程。
答案：在VB中，可以使用Thread类或BackgroundWorker组件来实现多线程编程。
一、选择题（1-30 题每小题1分，共30分,31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”,正确的语句是：aA．Form1。
Caption=“正在复制文件…”B．Form1。
Title=“正在复制文件…”C．Form1。
Text=“正在复制文件…”D．Form1.名称=“正在复制文件…”如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：aA．1000B．100C．10D．13、下列关于控件的基本操作中,错误的是A）当控件处于活动状态时,可以对控件进行缩放B）在设计阶段不能移动控件C) Visual Basic 6.0 允许对画好的控件进行复制和删除D）可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是：A) ①②③B）①③②C) ③②①D）③①②5、为使文本框只能显示不能输入,即只读，应设置文本框的属性是：cA．MaxLength设置为0B．Cancel设置为TrueC．Locked设置为True D．Read设置为True6、InputBox函数返回值的类型为。
BA．数值B．字符串C．变体D．数值或字符串（视输入的数据而定)7、为了把焦点移到某个指定的控件，所使用的方法是：AA．SetFocus B．Visible C．ReFresh D．GetFocus8、函数String（3，”str”)的功能是：bA．把数值型数据转换成字符串B．返回有3个字符串组成的字符串C．从字符串中第3个字符D．从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后,Visual Basic将显示的窗口是：cA．项目（工程)窗口B．工具箱C．代码窗口D．属性窗口10、用于获得字符串s最左边4个字符的函数是：aA．Left(s，4）B．Left（1,4）C．LeftStr(s）D．LeftStr（3，4）11、以下程序段的输出结果是：da=Sqr（3）b=Sqr(2）c=a>bPrint cA．-1 B．0 C．False D．True12、用下面语句定义的数组的元素个数是：cDim A （—4 to 6) As IntegerA．6 B．7 C．11 D．913、若x=—5，执行If x Then x=0 Else x=1的结果为：dA．实时错误B．编译错误C．x=1 D．x=0列程序段的循环结构执行后，i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA．25 B．10 C．11 D．因为y的初值不知道，所以不确定15、可以用作其他控件容器的控件有: cA．窗体、列表框、图像框B．窗体、文本框、框架C．窗体、框架、图片框D．窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是：dA．For …Next B．For Each …NextC．Do …Loop D．While …End17、下列可以打开立即窗口的操作是:DA．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G18、下列可作为Visual Basic变量名的是A）A_3 B）4A C）?xy D）Integer19、设a=8,b=5，执行语句Print a>b后，窗体上显示的是A）True B)False C）1 D）出错信息20、以下能够触发文本框Change事件的操作是A）文本框失去焦点B) 文本框获得焦点C) 设置文本框的焦点D）改变文本框的内容21、列表框图标的英文名称是A）ListBox B)ComboBoxC）Frame D)CommonDialog22、下列类型说明符中表示整型的是A) ％B) ！C) $ D) &23、执行下列语句a$ = "abcdefg”：Print Len(a＄)后,在窗体上输出的结果是A） 1 B） 2 C）7 D) 1424、文本框不具有的属性是A) Caption B）text C) left D)font25、设a=6，则执行x=IIf（a〉5，1,2)后,x 的值为：A）1 B)2 C)5 D）026、语句Print 5/4＊6\5 Mod 2的输出结果是A) 0B) 1C）2 D）327、滚动条控件的largeChange属性所设置的是A）滚动条所能表示的最小值B）滚动条所能表示的最大值C）单击滚动条中滚动框前面或后面的部位时，Value属性增加或减小的增量值D）单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA．共享一个事件过程的B．只共享一个Click事件过程的C．共享该控件的所有事件过程D．各自有自己的部分事件过程有如下的记录类型Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA．student。
vb试题及答案VB(Visual Basic)是一种常用的编程语言，被广泛应用于Windows 平台的软件开发中。
本文将提供一些关于VB的试题以及对应的答案，供读者学习和参考。
一、选择题1. VB是以下哪种类型的编程语言？a) 面向对象编程语言b) 过程式编程语言c) 自然语言d) 并发编程语言答案：b) 过程式编程语言2. VB最初是由哪家公司开发的？a) 微软b) Applec) IBMd) Sun Microsystems答案：a) 微软3. 下列哪个是VB的集成开发环境（IDE）？a) Visual Studiob) Eclipsec) Xcoded) NetBeans答案：a) Visual Studio4. VB中的变量声明关键字是？a) varb) dimc) intd) string答案：b) dim5. VB中用于循环执行一段代码的控制结构是？a) for loopb) while loopc) do-while loopd) switch-case答案：c) do-while loop二、填空题1. 编写一个VB代码片段，实现将两个数相加并输出结果的功能。
答案：```Dim num1 As Integer = 5Dim num2 As Integer = 3Dim result As Integerresult = num1 + num2Console.WriteLine("相加结果为：" & result)```2. VB中的条件分支语句是________。
答案：if-then语句3. VB中的数组索引是从______开始的。
答案：04. VB中的函数返回值可以使用关键字______指定。
答案：Return5. VB中用于定义一个子过程的关键字是______。
答案：Sub三、简答题1. 请解释VB中的“Option Explicit”语句的作用。
一、选择题（将答案写在答题卡内）1．在Visual Basic中，Len("ABab河北")的值是（）A．4 B. 6 C. 8 D.122．在Visual Basic中，当窗体被装载时触发的事件是（）A．Unload B.Click C.Load D.DblClick3．Visual Basic中决定对象是否可见的属性是（）A．Enabled B．See C. Name D.Visible4．在Visual Basic中，语句Mid("ABCDEFG", 2, 3) = "123"的输出结果是（）A. FalseB. True C．A123EFG D. 1235．下面Visual Basic表达式不合法的是（）A. "12"+12B. "ab"+"12"C."ab"+12D.Now+16．若要使命令按钮不可操作，要对()属性进行设制。
A.EnabledB.VisibleC.BackColorD.Caption 7．VisualBasic是一种面向对象的可视化程序设计语言，采取了()的编程机制。
A.事件驱动B.按过程顺序执行C.从主程序开始执行D.按模块顺序执行8．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()。
A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口9．语句Abs(-6^2)+Int(-6^2)的输出结果是()。
A.0B.1C.-1D.-7210．String(6,"124abc")的值是()。
A.124abcB.111111C.124D.abc11．设a=2,b=3,c=4,d=5，表达式a>b AND c<=d的值是()。
A.TrueB.FalseC.-1D.112．函数CINT(4.5)的值是（）A.1B.2C.3D.413．用于去掉字符串右边的空格的函数是A.Ltrim( )B.Rtrim( )C.Left( )D.Instr( )14．设置控件背景颜色的属性名称是（）A.LtrimB.BackcolorC.CaptionD.Load15．应用程序设计完成后，应将程序保存，保存的过程是（）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件16．任何控件都具有的属性是（）A．Text B．Caption C．Name D．Forecolor17．决定控件上文字的字体、字形、大小及效果的属性是（）A．Text B．Caption C．Name D．Font18．在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A．Index B．Tabindex C．Tabstop D．Enabled19．命令按钮的标题文字由（）属性来设置。
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
最佳答案我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！一、单项选择题（共10分）1．在代码中引用一个控件时，应使用控件的（）属性。
A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。
A．x+a <= b-y B．x > 0 AND y < 0C．a = b OR x>y D．x+y > a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。
A．（10，80）B．（10，81）C．[10，80] D．[10，81]4．函数Sgn(3.1416)的返回值是（）。
A．-1 B．0 C．1 D．以上都不对5．67890属于（）类型数据。
A．整型B．单精度浮点数C．货币型D．长整型6．下列变量名中正确的是（）。
A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（）。
A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。
A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为（）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式。
2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。
3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式。
4．函数Len(“abcdef”)的返回值是。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为。
8．要强制显式声明变量，使用__________语句完成。
9．在VB中，用户定义常量使用语句，声明变量使用语句。
三、将下列数学表达式转换为VB表达式。
（6分）1．a2+2ab+b2 __________________________2．__________________________3．8exln10 __________________________4．2sin(450)cos(450) _______________________________5．___________________________________________6．___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。
（）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（）3．保存工程时，窗体文件和工程文件的文件名不能相同。
（）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（）5．同一过程中，数组和简单变量可以同名。
（）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（）7．代码Const Number1=15：Number1=10合法。
（）8．允许将块If-Then语句结构中的所有语句都写在一行上（）9．定义数组语句Dim a(b) As Integer 是正确的（）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）五、根据题意，将下列程序补充完整。
（16分）1．产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()Dim a(1 To 20) As IntegerRandomizei = 0Do While i < 20i = i + 1a(i) = ( )If （）ThenPrint a(i);End IfIf i = 10 Then Print a(i)If i > 10 Then Print a(i);LoopEnd Sub2．打印九九乘法表Private Sub command1_click()For i = 1 To 9For j = 1 To 9Print （）Next jPrint（）End Sub3．判断一个数是否素数Private Sub command1_click()x = InputBox("请输入一个整数")flag = 1For i = 2 To （)If x Mod i = 0 Thenflag = 0End IfNext iIf （）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()（）f(1) = 1 : f(2) = 1List1.AddItem f(1) : List1.AddItem f(2)For i = 3 To 15f(i) = （)List1.AddItem f(i)Next iEnd Sub六、写出下面程序的输出结果。
（每题3分，共18分）1．Private Sub command1_click()x = InputBox("enter x") ' x 的输入值为-8Select Case Sgn(x) + 2Case 1Print "y="; x ^ 2 + 1Case 2Print "y="; x - 4Case 3Print "y="; x ^ 3 + 100End SelectEnd Sub2．Private Sub command1_click()Dim a, b, c, d, e As Stringa = "Zheng Zhou"b = "Zhong Yuan Gong Xue Yuan"c = a + " " + bd = Left(a, 1) + Mid(a, 7, 1)e = Left(b, 1) + Mid(b, 12, 1)Print cPrint d; eEnd Sub3．设有Sub过程：Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6End Sub则如下程序段的运行结果是:Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y = 2: z = 3Print x, y, zCall p1(x, y)Print x, y, zEnd Sub4．Private Sub command1_click() k = 0For i = 1 To 3k = k + 1a = i * i * kPrint a;Next iEnd Sub5．Private Sub command1_click() Dim a(5, 5) As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = i * 2 + jPrint a(i, j);Next jPrintNext iEnd Sub6．设有Function过程:Private Function f1(b, a)a = a * a:b = b * bf1 = a - bEnd Function则如下程序段的运行结果是什么？Private Sub command1_click()a = 4:b = 3a = f1(a, b)Print aEnd Sub七．编程题（共30分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；其他学生做第1、2、3、4 小题。
1．给出一个百分制的成绩，要求输出成绩的相应等级。
（7分）90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
2．求n!,n由键盘输入。
（7分）3．产生20个[0，99] 之间的随机整数，并按从小到大的顺序输出。
（8分）4．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。
（8分）VB试题答案及评分标准一、单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D6．D 7．A 8．B 9．D 10．B二、填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=01、对象3．LEFT(“Visual Basic 6.0”,6)4．65．False6．Autosize7．：8．Option Explict 9．Const Dim三、将下列数学表达式转换成VB表达式（每题1分，共6分）1、a^2+2*a*b+b^22、x^(1/3)*y^(1/4)3、8*exp(x)*log(10)4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(x^2+y^2+z^2)6、log(1+abs((a+b)/(a-b)))四、判断题（每题1分，共10分）1．×2．√ 3．×4．√ 5．×6．√ 7．×8．×9．×10．√五、根据题意，将下列程序补充完整（每空1分，共10分）1．（1）int(rnd*91)+10 （2）I<102．（1）i*j （2）next i3．（1）int(sqr(x))或者x-1 （2）flag=14．（1）dim f(15) as integer （2）f(I-1)+f(I-2)六、写出下面程序的输出结果（每题4分，共24分）1、y=652、Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 34 2 34．1 8 275．3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 156．-7七、编写程序1. private sub command1_click()dim x as integer,grade as string 1分x=text1.text 1分select case x 4分case 90 to 100grade=”A”case 80 to 89grade=”B”case 70 to 79grade=”C”case 60 to 69grade=”D”case is<60grade=”E”case elsemsgbox “请重新输入”end selectprint “该学生成绩为”+grade 1分end sub2．Private Sub command1_click()Dim n as integer,f as long 1分n=text1.text 1分f=1for I=1 to n 3分f=f*Inext Itext2.text=f 2分end sub3．Private Sub Command1_Click()Dim a(1 To 20) As Integer ' 1分RandomizeFor i = 1 To 20 2分a(i) = Int(Rnd * 100)Print a(i);NextPrintFor i = 1 To 19 3分For j = i + 1 To 20If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 20 2分Print a(i);Next iEnd Sub4．Private Sub Command1_Click()Dim a(1 To 6, 1 To 6) As Integer ' 1分Dim aver As SingleRandomizeFor i = 1 To 6 3分For j = 1 To 6If i = j Or i + j = 7 Thena(i, j) = 1Elsea(i, j) = Int(Rnd * 30)End IfPrint a(i, j);Next jPrintNext iPrintMax = 0: Min = 30 4分For i = 1 To 6s = 0For j = 1 To 6s = s + a(i, j)Next javer = s / 6If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next iPrint row_max, row_minEnd Sub5．Private Sub Command1_Click()Dim i As Integer, c As IntegerDim s As IntegerFor i = 1 To 100 4分s = s + iIf i Mod 17 = 0 Then c = c + 1Next iPrint "1+2+...+100="; s 2分Print "能被17整数的数据有"; c; "个" 2分End Sub6．Private Sub Command1_Click()Dim x As Integerx = InputBox("x=") 1分Print x;Max = x: Min = x: s = x 2分For i = 2 To 10 3分x = InputBox("x=") ：Print x;s = s + xIf x > Max Then Max = xIf x < Min Then Min = xNext iPrint s / 10 1分Print Max, Min 1分End Sub。
