下载文档原格式
vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？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"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。
vb试题解析及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A解析：在VB中，Dim关键字用于声明变量。
2. 下列哪个选项是VB中的合法变量名？A. 2numberB. number2C. $numberD. number$答案：B解析：在VB中，变量名必须以字母开头，并且不能包含空格或特殊字符。
3. 在VB中，以下哪个数据类型用于存储字符串？A. IntegerB. StringC. DoubleD. Boolean答案：B解析：String数据类型用于存储字符串。
4. VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A解析：CInt函数用于将字符串转换为整数。
5. 在VB中，以下哪个语句用于结束一个循环？A. ContinueB. ExitC. BreakD. Loop答案：B解析：Exit语句用于立即结束循环。
6. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A解析：Label控件用于显示文本。
7. 在VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A解析：Click事件用于响应鼠标单击。
8. VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. PropertyD. Const答案：B解析：Sub关键字用于定义过程。
9. 在VB中，以下哪个数据类型用于存储日期？A. DateB. TimeC. DateTimeD. Currency答案：C解析：DateTime数据类型用于存储日期和时间。
10. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. Val答案：A解析：Sum函数用于计算两个数的和。
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期末考试试题及详细答案一、选择题（每题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中的事件和委托的区别。
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＝"计算机等级考试"即可。
vb考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案：C3. 以下哪个是VB中的流程控制语句？A. IfB. ForC. NextD. All of the above答案：D4. 在VB中，如何声明一个整型变量？A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案：A5. VB中的“Print”方法用于做什么？A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案：B6. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. DateD. Object答案：D7. VB中的“Select Case”语句用于什么？A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案：B8. 在VB中，如何将一个变量的值赋给另一个变量？A. x = yB. x := yC. x = y = zD. x = (y)答案：A9. VB中的“Do While”循环在什么条件下执行？A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案：A10. 在VB中，以下哪个不是集合（Collection）的方法？A. AddB. RemoveC. CountD. Find答案：D二、多选题（每题3分，共15分）1. VB中，哪些是合法的变量名？A. _nameB. 2nameC. name$D. name答案：A, D2. 在VB中，哪些是合法的常量声明？A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案：A, C, D3. VB中，哪些是合法的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案：A, C, D4. 在VB中，哪些是合法的函数调用？A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案：A, B, C, D5. VB中，哪些是合法的循环控制语句？A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案：A, B, C, D三、判断题（每题1分，共10分）1. VB中，所有变量都必须在使用前声明。
vb语言试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. FunctionC. SubD. If答案：A2. VB中用于循环的关键字是？A. ForB. NextC. DoD. Loop答案：A3. 在VB中，以下哪个函数用于将字符串转换为大写？A. StrCompB. UCaseC. LCaseD. Trim答案：B4. VB中的“=”符号用于什么？A. 赋值B. 比较C. 调用函数D. 定义变量答案：A5. VB中，以下哪个控件用于创建文本框？A. TextBoxB. ComboBoxC. ListBoxD. CheckBox答案：A二、填空题（每题2分，共10分）1. VB中的________函数用于获取当前日期。
答案：Date2. 在VB中，________关键字用于声明一个子程序。
答案：Sub3. VB中，________关键字用于声明一个函数。
答案：Function4. VB中，________函数用于计算字符串的长度。
答案：Len5. VB中，________函数用于将一个数值转换为字符串。
答案：Str三、判断题（每题2分，共10分）1. VB中的变量名区分大小写。
（）答案：错误2. VB中，数组的索引从1开始。
（）答案：正确3. VB中，可以使用“=”符号进行比较。
（）答案：错误4. VB中，可以使用“&”符号进行字符串连接。
（）答案：正确5. VB中，所有的函数都必须声明为Function。
（）答案：正确四、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户输入、系统消息等）触发，而不是按照预先定义的顺序执行。
2. 请解释VB中的“声明”和“定义”的区别。
答案：在VB中，“声明”是指告诉编译器变量的类型，而“定义”则是指为变量分配内存空间。
VB试卷（4）一、单项选择题（每题1分，总共20分）1、用一个对象来表示：“一只白色的足球被踢进球门”，那么，白色、足球、踢、进球门分别是（）。
（A）属性、对象、方法、事件（B）属性、对象、事件、方法（C）对象、属性、方法、事件（D）对象、属性、事件、方法2、要设置标签控件字体的大小，应设置其（）属性。
（A）Height（B）Width （C）Caption （D）Font3、使文本框获得“焦点”的方法是（）。
（A）LinkSend（B）Move （C）SetFocus （D）Refresh4、当设置文本框的ScrollBars=Both 而文本框确没有显示出滚动条，原因是（）。
（A）文本框中没有内容（B）文本框的MultiLine=False（C）文本框的Locked=True （D）文本框的MultiLine=True5、表达式16/4-2^5*8/4 Mod 5\2 = ( )。
（A）14（B）4 （C）20 （D）26、随机产生[10，50] 之间整数的正确表达式是（）。
（A）Round( Rnd*51) （B）Int(Rnd*40+10)（C）Round( Rnd*50) （D）10+Int(Rnd*41)7、赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（）。
（A）”12334”（B）123 （C）12334 （D）1578、Val (“123ab”)=（）。
（A）0（B）123 （C）1230 ( D ) 不能转换9、在VB中，要想在一行写多条语句，那么语句之间要用（）号分隔。
（A），（B）：（C）、（D）；10、下面哪个程序不能正确显示1！，2！，3！，4！的值_______________。
（A）for i=1 to 4 （B）for i=1 to 4n=1 for j=1 to ifor j=1 to I n=1n=n*j n=n*jnext j next jprint n print nnext i next i（C）n=1 （D）n=1 : j=1for j=1 to 4 do while j<5n=n*j n=n*jprint n print n : j=j+1next j loop11、数组的下标取值类型为（）。
vb考试题及答案解析一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. FunctionC. SubD. Class答案：A2. 下列哪个选项是Visual Basic中的保留字？A. MainB. IfC. ElseD. My答案：B3. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. StrB. ValC. ChrD. Asc答案：B4. 以下哪个控件用于在Visual Basic中显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox5. 在Visual Basic中，如何表示“或”逻辑运算？A. AndB. OrC. NotD. Xor答案：B6. Visual Basic中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A7. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A8. Visual Basic中，以下哪个关键字用于循环结构？A. ForB. WhileC. DoD. All of the above答案：D9. 在Visual Basic中，以下哪个函数用于获取当前系统时间？B. DateC. TimeD. Timer答案：A10. 以下哪个选项是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
答案：Dim2. 如果需要在Visual Basic中创建一个自定义函数，应该使用________关键字。
vb考试题及答案解析一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. 如果一个变量被声明为Static，那么它的生命周期是？A. 仅在过程调用期间B. 直到程序结束C. 直到应用程序结束D. 直到模块结束答案：B3. 在Visual Basic中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. AbsD. Round答案：A4. Visual Basic中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B5. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. KeyDown答案：A6. Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A7. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：A8. Visual Basic中，以下哪个控件用于显示下拉列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B9. 在Visual Basic中，以下哪个函数用于将字符串转换为数字？A. ValB. StrC. ChrD. Asc答案：A10. Visual Basic中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、判断题（每题1分，共10分）1. Visual Basic是一种面向对象的编程语言。
（正确）2. 在Visual Basic中，所有变量都必须在使用前声明。
二、选择题1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select * Form student 中的*表示 B 。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 C 。
A、EnabledB、CaptionC、Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。
A、CaptionB、NameC、Text D、Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。
A、CaptionB、NameC、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。
A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 A 。
Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、VBHello!VBB、VBHello!VBC、VBD、VBHello! VBHello!VB9、语句Print "The answer is:";20/4-2的结果为 B 。
A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 B 。
A、ImageB、PictureC、ComboBox D、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是 D 。
A.ShowB.HideC.LoadD.UnLoad12、以下选项中，不是Visual Basic控件的是 A 。
A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。
A.代码窗口B．工具箱C．项目（工程）窗口D．属性窗口14、可决定窗体的左上角是否有控制菜单的属性是 A 。
A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle15、设有如下语句：Strl＝InputBox（"输人"，""，"练习"）从键盘上输人字符“示例”后，Strl的值是 D 。
A．“输入”B．“”C．“练习”D．“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。
A. Form1_ClickB.Form_ClickC. Frm1_ClickD. Me_Click17、窗体的hide属性的含义是 A 。
A.隐藏B.展现C.装入 D.卸载18、若要设置定时器控件的定时时间，需设置的属性是 C 。
A．Enabled B．Value C．Interval D．Text19、能够改变复选框中背景颜色的属性是 C 。
A．Value B．FontColor C．BackColor D．Font20、窗体能响应的事件是 B 。
A．ActiveForm B．Load C．DriveD．Change三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。
)1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
X2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
X3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。
X4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。
X6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。
8、工程文件的扩展名是.vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
X11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
X13、ImageList 是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
X16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex 值为10。
X17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。
X19、如果在一行中输入多条语句，各语句之间用使用；分隔。
X20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写出程序运行结果1、Private Sub Form_Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub运行程序，第一次单击窗体：55第二次单击窗体：1102、Private Sub Form_Click()Print "*"; Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序运行结果：* 2 515 307516 3280五、编程题（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。
请填空：Private Sub Form_load( )Picture1.picture =loadPicture(“c:\pic\ball.ico”)Timer1 .Interval=200End SubPrivate Sub Timer1_Timer( )Static x , y As Integerx=x+100y=y+100Picture1.Move x , yEnd Sub（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。
请填空：Private Sub Command1_Click()Dim x As Integer, N%Dim Counter As Integerrandomize TimerFor N=1 To 50X=Rnd()* rnd()*41+60If x Mod 6 =2 ThenPrint xCounter= Counter+1End ifNext NPrint CounterEnd Sub卷2第一部分：客观题一、单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）A、 DimB、 PublicC、PrivateD、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）A、工程资源管理器窗口B、工具箱窗口C、属性窗口D、代码窗口3、若要使某可见控件获得焦点，可使用（）方法来实现。
Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value4、下列不可作为VB变量名的是（）A、ABT1B、AlphaC、ABCD、4*Delta5、表达式 5 Mod 3+3\5*2的值是（）A、 0B、 6C、4D、 26、下列语句中，正确的赋值语句是（）A、 i + j = 10B、 2i = jC、 j = i + jD、 i * j = 07、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nA、 2B、 6C、 10D、 148、当用户在窗体上单击鼠标时，不会触发的事件是（）Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick9、下列为整型变量的是（）A、 x!B、 x#C、x$D、 x%10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit DoB、Exit LoopC、Exit ForD、Stop11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）A、x Mod 2 =1 Or y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0D、x Mod 2 =1 And y Mod 2 =112、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。
Dim a(3, -2 To 1, 5) As IntegerA、60B、75C、120D、1313、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（）A、Text1.MaxLength=0B、Text1.Width=0C、Text1.Visible=FalseD、Text1.Enabled=False14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（）A、Picture属性中的图形B、DownPicture属性中的图形C、DisablePicture 属性中的图形D、不显示图形15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是（）A、 10 5B、 12 5C、 10 7D、 12 716、执行以下程序段，输出结果为（）Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、 ABAB、ABBABAC、 BBABBAD、AABAAB17、以下（）语句可表示[50,100]之间的随机数。
