vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
VB+VBA考试题型及比例:1.VBA部分占30%左右2.考试题型(选择20-25%,程序填空25-30%,程序阅读20%,编程30%)VBA——模块中的宏(Sub过程)和Function函数：设计与使用例：Sub series() '求Fibonacci数列Dim fib(1 To 30) As LongDim i As Integerfib(1) = 1fib(2) = 1For i = 3 To 30fib(i) = fib(i - 1) + fib(i - 2)Next iFor i = 1 To 30Worksheets("Sheet1").Range("A" + CStr(i)) = fib(i)Next iEnd Sub（教材P.216——上机练习2）编制函数age，从身份证号中计算出年龄。
在VBA中使用EXCEL工作表函数1.在VBA中调用工作表函数【例6-7】使用Min 工作表函数求出单元格区域“A1:C10”中的最小值。
Dim answer As Single, myR As RangeSet myR = Worksheets("Sheet1").Range("A1:C10")answer = Application.WorksheetFunction.Min(myR)MsgBox answer【例6-8】计算位于A1～A100单元格区域中的、值大于等于10且小于等于20的单元格数目。
Set iRang=Worksheets("Sheet1").Range("A1:A100")With Application.WorksheetFunctionresult=.Countif(iRange, ">=10”)- .Countif (iRange, ">”&20) End With2.在单元格中插入工作表函数Sub generate() ‘生成随机数Worksheets("sheet1").Range("A1:C10").Formula = "=Int(Rand()*90+10)"End SubVBA程序设计：常用属性、方法、事件过程对象（多级）：Application、Workbooks、*Worksheets、**Range方法：Cells(1,1)= Application.InputBox(“输入姓名：”)’清除Sheet1的全部单元格的内容Worksheets("Sheet1").Cells.ClearContents常用属性: Cells(i,j)、ActiveCellSelection、ActiveSheet、ActiveCellTarget.row、Target.columnrows.count、columns.countUsedRange、CurrentRegion引用单元格和区域Sub ApplyColor() ‘遍历Const limit = 30Dim c As RangeFor Each c In Range("AA")If c.Value > limit Then c.Interior.ColorIndex = 3 NextEnd SubSub Underline() ‘相对引用ActiveCell.Offset(1, 3).Font.Underline = xlDouble End SubSub ObjectVar() ’用Range对象引用Dim wr As RangeSet wr = Worksheets(1).Range("A1:D5")With wr.Formula = "=Rand()".Font.Bold = TrueEnd WithEnd Sub在单元格区域中循环For i = 1 To 20Set curc = Worksheets("Sheet1").Cells(i, 3)curc.Font.ColorIndex = 0If Abs(curc.Value) < 10 Then curc.Font.ColorIndex = 3Next iFor Each c In Worksheets("Sheet1").Range("A1:D10").Cells If Abs(c.Value) < 10 Then c.Font.ColorIndex = 3Next‘如果不知道循环的区域边界For Each c In ActiveCell.CurrentRegion.CellsIf Abs(c.Value) < 10 Then c.Font.ColorIndex = 3Next选定和激活单元格常用方法：选中区域Select、激活单元格ActivateActiveCell.CurrentRegion.SelectSub abc()Range("A1:B1").SelectSelection.Font.Bold = TrueEnd sub处理活动单元格：[例7-38]Sub region()Worksheets("Sheet1").ActivateActiveCell.CurrentRegion.SelectEnd Sub工作表上加控件，简单的用户窗体UserForm标签、命令按钮、文本框、列表框等常用事件（教材P.272 程序设计题）Workbook_Open()Workbook_BeforeClose()Worksheet_selectionchang()Worksheet_chang()例：Private Sub Workbook_Open( ) ‘写入一些只需执行一次的代码UserForm1.ShowEnd Sub注：对系统进行设置的代码一般不写在这里，而写入Workbook_Activate事件中。
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组件来实现多线程编程。
大学vb考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. Variable2C. variable_2D. Variable!答案：B2. Visual Basic中，以下哪个是正确的整型常量？A. 123.45B. 0x1AC. 1.2E3D. 0.1答案：B3. 以下哪个是Visual Basic中的保留关键字？A. MyVarB. DimC. VarD. MyFunction答案：B4. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub(x As Integer)D. Function MySub(x As Integer) As Integer答案：C5. Visual Basic中，以下哪个是正确的数组声明？A. Dim MyArray(10)B. Dim MyArray(0 To 10) As IntegerC. Dim MyArray() As Integer = New Integer(10)D. Dim MyArray(10) As Integer答案：B6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"End If7. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iLoopC. While i < 10Print ii = i + 1End WhileD. Do While i < 10Print ii = i + 1Loop8. 在Visual Basic中，以下哪个是正确的函数调用？A. Call MyFunction(5)B. MyFunction 5C. MyFunction(5)D. MyFunction Call 5答案：C9. Visual Basic中，以下哪个是正确的事件处理程序？A. Sub Form_Click()End SubB. Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)End SubC. Sub Form_Click(ByVal sender As Object)End SubD. Sub Form_Click(ByVal e As EventArgs)End Sub答案：B10. 在Visual Basic中，以下哪个是正确的窗体属性？A. Me.Caption = "My Form"B. Me.Text = "My Form"C. = "My Form"D. Me.Title = "My Form"答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的正确语法是：Dim ________ As Integer。
