下载文档原格式
vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。
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试题及答案1. 题目：使用编写一个程序，实现对一个整数数组的排序。
答案：```Module Module1Sub Main()Dim arr As New Integer() {5, 2, 9, 1, 5, 6}Console.WriteLine("原始数组:")PrintArray(arr)Array.Sort(arr)Console.WriteLine("排序后的数组:")PrintArray(arr)Console.ReadKey()End SubSub PrintArray(arr As Integer())For Each i As Integer In arrConsole.Write("{0} ", i)NextConsole.WriteLine()End SubEnd Module```2. 题目：编写一个程序，计算并输出一个数的阶乘。
答案：```Module Module1Sub Main()Dim number As Integer = 5Dim factorial As Long = Factorial(number)Console.WriteLine("{0} 的阶乘是 {1}", number, factorial)Console.ReadKey()End SubFunction Factorial(n As Integer) As LongIf n = 0 Or n = 1 ThenReturn 1ElseReturn n * Factorial(n - 1)End IfEnd FunctionEnd Module```3. 题目：使用创建一个程序，该程序可以计算一个圆的面积。
答案：```Module Module1Sub Main()Dim radius As Double = 5.0Dim area As Double = Math.PI * radius * radiusConsole.WriteLine("半径为 {0} 的圆的面积是 {1}", radius, area)Console.ReadKey()End SubEnd Module```4. 题目：编写一个程序，实现简单的字符串反转。
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
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试题及答案选择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考试试卷VB考试试卷一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a = 5C. Dim a As IntegerD. Dim a As String = "Hello"2. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function3. VB中的数组声明方式是：A. Dim numbers(1 To 10)B. Dim numbers As Integer(1 To 10)C. Dim numbers(10)D. Dim numbers As Array = New Integer(10)4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If5. VB中，以下哪个是正确的函数定义方式？A. Function Add(x, y) As IntegerB. Function Add(x, y) = x + yC. Function Add(x, y) = Return x + yD. Function Add(x, y) = x + y End Function...（此处省略其他选择题）二、填空题（每空2分，共20分）1. 在VB中，使用________关键字来声明常量。
2. VB中的________结构用于执行一系列动作，直到满足某个条件。
3. 要声明一个包含10个整数的数组，可以使用________。
4. 当需要在VB中调用另一个窗体时，可以使用________方法。
5. VB中的________属性用于设置控件的可见性。
...（此处省略其他填空题）三、简答题（每题10分，共20分）1. 简述VB中的事件驱动编程的概念及其重要性。
2. 解释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. 问题：在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A解析：在Visual Basic中，关键字Dim用于声明变量。
Sub用于定义一个子程序，Function用于定义一个函数，而End用于标记程序或过程的结束。
2. 问题：下列哪个选项是Visual Basic中合法的数组声明？A. Dim myArray(10)B. Dim myArray(10) As IntegerC. Dim myArray As IntegerD. Dim myArray(10, 10) As Integer答案：D解析：选项A和B声明了一个一维数组，但是没有指定数组的类型，这是不合法的。
选项C声明了一个单一的整数变量，而不是数组。
选项D正确地声明了一个二维整数数组。
3. 问题：在Visual Basic中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim答案：B解析：UCase函数用于将字符串中的所有字符转换为大写字母。
LCase函数用于将字符串转换为小写，StrComp用于比较两个字符串，而Trim用于移除字符串两端的空格。
4. 问题：在Visual Basic中，如何使用If语句来检查一个变量是否大于10？A. If x > 10 ThenB. If x = 10 ThenC. If x <= 10 ThenD. If x < 10 Then答案：A解析：If语句用于条件判断，选项A正确地使用了比较运算符">"来检查变量x是否大于10。
选项B检查是否等于10，选项C检查是否小于等于10，选项D检查是否小于10。
5. 问题：在Visual Basic中，下列哪个循环结构用于在满足特定条件时重复执行代码块？A. Do...LoopB. For...NextC. While...WendD. With...End With答案：C解析：While...Wend循环结构用于在条件为真时重复执行代码块。
vb考试试题VB考试试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. intC. Integer8D. int82. VB中的哪个关键字用于声明变量？A. defineB. declareC. dimD. var3. 下列哪个语句可以正确地在VB中打印输出？A. print "Hello, World!"B. console.write("Hello, World!")C. msgbox "Hello, World!"D. output "Hello, World!"4. VB中哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox5. 在VB中，以下哪个是正确的条件语句？A. if (x > 10)B. if x > 10C. if (x > 10) thenD. if x > 10 then6. VB中哪个函数用于获取当前日期？A. Now()B. Date()C. Today()D. GetCurrentDate()7. 在VB中，以下哪个是正确的循环结构？A. do-whileB. for-eachC. while-doD. repeat-until8. VB中哪个属性用于设置控件的可见性？A. VisibleB. ShowC. DisplayD. Hide9. 在VB中，以下哪个事件用于响应按钮点击？A. OnClickB. OnSelectC. OnPressD. OnActivate10. VB中哪个关键字用于定义函数？A. functionB. defC. procD. method二、简答题（每题5分，共30分）1. 简述VB中的事件驱动编程的概念。
2. 描述VB中数组的声明和使用方式。
山东省高校计算机等级考试VB考试样题一、单项选择题：（每题1分，共30分）1、启动VB后可进入“新建工程”对话框，以下说法中有错误的是：（）。
A、选择“新建”选项页，是创建一个新的工程或应用程序。
B、选择“现存”选项页，是将某个工程或程序保存到磁盘上。
C、选择“最新”选项页，是打开最近存储的工程或应用程序。
D、“新建”选项页下列出了VB6.0所能建立的应用程序类型。
2、以下窗体名中哪个是合法的窗体名（）。
A、_aformB、3frmC、f_1D、frm 53、VB在线帮助中，在Visual Basic界面的任何上下文相关部分按（）键，可以显示出有关该部分的帮助信息。
A、F1B、F2C、F3D、F44、以下标识符中，不合法的是（）。
A、AbcB、studentC、2abD、age5、以下选项中哪个不是常量的表示形式（）。
A、234B、“ABC”C、 falseD、 ABC6、在VB6.0中，语句Dim M1#,Abc,Xyz As Single定义的M1、Abc 和Xyz的类型分别是（）。
A、双精度、可变类型、单精度B、双精度、单精度、单精度C、双精度、整数型、整数型D、双精度、整数型、单精度7、数学式子sin25o写成Visual Basic表达式是（）。
A、 sin25B、 sin(25)C、 sin(25o)D、 sin(25*3.14/180)8、表达式Left(“Visual”,3)+Lcase(“AB”)的值是（）。
A、 visABB、 VisABC、 VisabD、 ualab9、程序：Option base 1Dim a(0 to 6) as integer, b(11) as integer不会出现下标越界错误的是（）。
A、 Print a(7)B、 Print a(0)C、 Print b(0)D、 Print b(12)10、关于ReDim语句，说法正确的是（）。
A、 ReDim语句可以对已定义的固定数组重新声明B、可以对同一个动态数组多次使用ReDim语句重新定义其大小C、 ReDim语句可以在过程外出现D、一般情况下，ReDim语句可以改变动态数组的数据类型11、当一个工程中含有多个窗体时,它的启动窗体（）。
A、只能是正在编辑的窗体B、只能是最后一个添加的窗体C、只能是第一个添加的窗体D、可以在”工程属性”对话框中指定12、在文本框的属性中，用于设定文本框最多可接受字符数的属性是（）。
A、AutosizeB、PasswordcharC、 TextD、 Maxlength13、可使图片框根据图片调整大小，需将下列哪一属性设置为True （）。
A、PictureB、AutoSizeC、StretchD、AutoRedraw14、以下哪一个选项不是列表框的属性（）。
A、CaptionB、TextC、NameD、Style15、定时器的唯一事件是（）。
A、DbClickB、ClickC、TimerD、Change16、何时发生LostFocus事件（）。
A、对象得到输入内容B、对象输出内容时C、对象得到焦点时D、对象失去焦点时17、设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是（）。
A、把Caption属性设置为&OpenB、把Caption属性设置为O&penC、把Name属性设置为&OpenD、把Name属性设置为O&pen18、在窗体上建立通用对话框需要添加的控件是（）。
A、 Data控件B、 From控件C、 CommonDialog控件D、 VBComboBox控件19、用InputBox函数设计的对话框，其功能是（）。
A、只能接收用户输入的数据，但不会返回任何信息B、能接收用户输入的数据，并能带回用户输入的信息C、能用于接收用户输入的信息，不能用于输出任何信息D、专门用于输出信息20、下列语句正确的是（）。
A、 If A ≠ B Then Print "A不等于B"B、 If A<>B Then Printf "A不等于B"C、 If A<>B Then Print "A不等于B"D、 If A ≠ B Print "A不等于B"21、下列程序段的执行结果为（）。
Dim t(10)For k=2 To 10t(k) =11 - kNext kx=6Print t(x)A、 2B、 3C、 4D、 522、以下关于过程的4种描述中，错误的是（）。
A、过程可以被反复调用，从而避免重复编程，缩短开发周期B、过程能够独立完成特定的功能，可以提高程序的模块化和可读性C、函数过程，不能返回值，主要完成某种操作D、过程的创建要遵从严格的语法，必须有开始和结束语句23、以下对KeyPress事件的描述正确的一项是（）。
A、 KeyPress事件有两个参数B、 KeyPress事件识别的是键盘上的物理键C、 KeyPress事件一般优先于KeyDown事件触发D、 KeyPress事件能区分同一键的大小写状态。
24、通常用于保存成批处理的大量数据，且一般不进行个别数据修改的文件类型是（）。
A、顺序文件B、随机文件C、二进制文件D、 Word文件25、有固定长度记录结构的文件类型是（）。
A、顺序文件B、随机文件C、二进制文件D、 Word文件26、常见的数据库管理系统不包括（）。
A、层次数据库B、星型数据库C、网状数据库D、关系数据库27、SQL语言的中文全称叫（）。
A、关系语言B、结构化语言C、查询语言D、结构化查询语言28、ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（）。
A、 CommandB、 ConnectionC、 RecordsetD、 Field29、程序员在代码窗口中输入程序代码时所出的错误叫作（）错误。
A、编辑B、编译C、运行D、逻辑30、Vb中不属于三种程序模式的是（）。
A、设计模式B、运行模式C、中断模式D、编辑模式二、综合选择题（每题2分，共10分）1、在窗体上添加一个命令按钮Command1，然后编写如下代码：Private Sub Command1_Click()Dim a&,b&a= InputBox("请输入第一个数")b= InputBox("请输入第二个数")Print b + aEnd Sub程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是（）。
A、66666B、5432112345C、1234554321D、出错2、Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i As Integer,j As integerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext iText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（）。
A、15B、14C、13D、123、设窗体上有一个文本框Text1,要求只能显示信息，不能输入，应设置属性（）。
A、Text1.MaxLength = 0B、Text1.Enabled = FalseC、Text1.Visible = FalseD、Text1.Width = 04、假定程序中有如下语句：answer=MsgBox("第一个字符串"，vbAbortRetryIgnore，"第二个字符串")if answer>=4 then answer=answer+2 else answer=answer-2执行该语句后，将显示一个信息框，此时如果按回车键，则answer的值为（）。
A、“第二个字符串”B、1C、6D、75、有如下过程：Private sub mysub(a as integer,b as integer)a=a+2:b=b+3print a,bEnd subPrivate sub Form_click()Dim x%,y%x=2:y=6call mysub(x,y)print x,yEnd sub当单击窗体时，在窗体上最后一行输出的x，y的值分别是（）和（）。
A、2 6B、4 9C、0 0D、8 5三、判断题：（每题1分，共10分）1、事件驱动的编程机制就是使对象的某一个事件对应一段代码，又称事件过程，通过操作引发某个事件来驱动事件过程完成某种特定功能。
（）2、VB语言的最小单位是字符。
（）3、VB中有两种形式的数组：静态数组和动态数组。
（）4、图片框和图像框都可用于显示图形。
（）5、定时器运行时是不可见的，故可以放在窗体的任何位置。
（）6、弹出式菜单又称快捷菜单。
（）7、嵌套的For语句中，循环变量可以重名。
（）8、对文件操作，常按以下三步执行：打开文件、读写文件和关闭文件。
（）9、关系数据库以二维表的形式来存放数据。
（）10、本地窗口只能显示本过程的变量信息。
（）四、基本操作题（每题10分，共20分）1.基本操作题一新建一“标准EXE”工程文件，在名称为Form1的窗体上画一个名称为Text1的文本框，其高、宽分别为400、2000。
请在属性框中设置适当的属性满足以下要求：1）Text1的字体为“黑体”，字号为“四号”，内容为“计算机考试”；2）窗体的标题为“输入”，不显示最大化按钮和最小化按钮。
运行后的窗体如图一所示。
注意：不添加任何代码，存盘时必须存放在考生考号文件夹下的T4-1文件夹内，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
2.基本操作题二新建一“标准EXE”工程文件，在名称为Fom1的窗体上建立一个名称为Op1的单选按钮数组，它包含3个单选按钮，其标题分别为“选项一”、“选项二”和“选项三”，下标分别为0、1和2。
初始状态下，“选项二”为选中状态。
运行后的窗体如图二所示。
注意：不编写任何代码。
存盘时必须存放在考生考号文件夹下的T4-2文件夹内，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图一基本操作题一图示图二基本操作题二图示五、简单应用题（每题10分，共20分）1. 简单应用题一打开考生考号文件夹下的T5-1文件夹下的工程文件vbsj3.vbp，在名称为Form1的窗体上已经添加一个名为lblClock的标签控件和一个名称为timeClock的计时器控件；请将标签控件lblClock的Caption属性设为空串，BorderStyle属性设为1，再设置timeClock的适当属性，并编写适当的事件过程，使得在运行时，每隔一秒种在标签中显示的数字从1开始自动加1。
