高二第二学期期中考试VB试题一、选择题（每题2分，20题，共40分。
每题只有一个答案，请将最合适的答案填在题前的括号内，不选、选错、多选均不得分。
）( )1、以下不属于Visual Basic系统的文件类型的是：A．.frm B．.cls C．.bat D．.vbp( )2、Visual Basic 是一种可视化、面向对象的程序设计语言，采取( )的编程机制。
A．按模块顺序执行B．从主程序开始执行C．事件驱动D．按过程顺序执行( )3、使用Visual Basic编程，我们把工具箱的工具称为：A．事件B．工具C．控件D．窗体( )4、下面（）是合法的变量名。
A．x_yz B．123ab C．integer D．x-y( )5、表达式16/4-2^5*8 Mod 5\2 的值为（）A．14 B．4 C．20 D．2( )6、Visual Basic程序可以多条语句书写在一行，各语句之间的分隔符是：A．：（冒号）B．；（分号）C．□（空格）D．*（星号）( )7、在Visual Basic 中最基本的对象是（）,它是应用程序的基石，它是其他控件的容器。
A．命令按钮B．文本框C．窗体D．标签( )8、下面定义窗体级变量a的语句中错误的是：A、Dim a%B、Private a%C、Private a As IntegerD、Static a%( )9、文本框没有（）属性A、EndabledB、VisibleC、BackColorD、Caption( )10、要把一个命令按钮设置成不可见，应设置Visible属性值为（）A．True B．False C．Default D．Cancel( )11、计时器控件中要求每隔0.1秒触发一次Timer事件，那么计时器控件的Interval 属性应该设置为（）A. 1B.10C. 100D. 1000( )12、若要使逻辑表达式x>y And y<z 结果为True,则x、y、z的取值应为下列选项中的：A. x=3、y=3、z=4 B. x=2、y=1、z=2C. x=1、y=3、z=2D. x=2、y=2、z=2A( )13、假定Lbk1是列表框，下面表示删除列表框第二项的语句是A．List1.RemoveItem 2 B．List1.RemoveItem 1C．Lbk1.RemoveItem 2 D．Lbk1.RemoveItem 1( )14、表达式Val(-17.8)+Abs(17.8)的值是：A．0 B．0.8 C．-0.2 D．-34.8( )15、决定窗体标题栏显示内容的属性是：A．Text B．Name C．Caption D．BackStyle( )16、为了使用窗体输出，使Print方法在Form_Load事件中起作用，必须设置窗体的___属性A．AutoReDraw B．BackColor C．Moveable D．Caption( )17、删除列表框中指定的项目所使用的方法是：A．Move B．Remove C．Clear D．RemoveItem( )18、拖动滚动条中的滑块将触发滚动条的___事件。
A．Load B．Scroll C．Change D．Click( )19、下列程序段的执行结果是（）a=3b=1For I= 1 to 3f=a+ba=bb=fPrint f;Next IA．4 3 6 B．4 5 9 C．6 3 4 D．7 2 8( ) 单击命令按钮时，下列代码的执行结果为（）Public Sub Procl ( n As Integer,ByVal m As Integer)n=n Mod 10m=m\10End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=23:y=65Call Procl(x,y)Print x;yEnd SubA、3 65B、23 65C、3 60D、0 65二、判断题（每题1空，10小题，共10分。
请在你认为正确的题前的括号内打“√”，错误的要“×”，不做、做错均不得分）（）1、双击工具箱中的控件，将在窗体中心自动绘制一个默认大小的控件。
（）2、标准模块是程序中的一个独立容器，包含全局变量，Function(函数)过程、Sub 过程（子过程）和窗体模块。
（）3、方法是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
（）4、Visual Basic中，Double类型的数据由4 个字节组成。
（）5、今天是2010年12月5日，但小明误将系统时间设置为2010年11月5日，若此时在这台计算机上运行Month(Date)语句，得到的结果为11。
（）6、在Visual Basic 中，要使一个窗体不可见，但不从内存释放，应使用UnLoad语句。
（）7、如果用左键单击窗体，则触发窗体的Click事件，如果用右键单击窗体，则不会触发Click事件。
（）8、图像框中的Stretch属性为True时，其作用是图形自动调整大小以适应图像控件。
（ ）9、单击滚动条的滚动箭头时，产生的事件是Change 。
（ ）10、If 条件式 Then 语句中的“条件式”只能是关系表达式。
三、填空题（每空2分，15个空，共30分。
请将最合适的答案填在题中的横线上，不填、填错均不得分。
）1、为了把一个Visual Basic 应用程序装入内存，只要装入__________文件即可。
2、如果打开了不需要的菜单或对话框，可以用__________键关闭。
3、通过__________模块可以根据需要建立自己的对象。
4、在Visual Basic 中，A%=2.5执行后，变量A%的值是__________。
5、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是__________。
6、用来产生[15,39]之间的随机整数的Visual Basic 表达式是__________。
7、代数式yx y x +++221的Visual Basic 语言表达式是__________。
8、可以用于检查一个窗体是否隐藏的属性是__________。
9、对象的属性、方法使用有所不同，Form1.Cls 是__________的使用。
10、若在C:\123文件夹下有一个图片文件mm.jpg ，要设置其为窗体Form1的背景图片，则应使用语句为__________。
11、定时器事件之间的间隔通过__________属性设置。
12、当文本框的Text 属性被修改时，会发生__________事件。
13、组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和下拉式组合框，若要设置为简单组合框，则应把Style 属性设置为_________。
14、下面程序的输出结果为__________。
x = 9 ^ 2 Mod 4 ^ 3 / 2 ^ 3Print "x="; x15、For/Next 循环的步长为________时可以省略。
四、程序分析题（5分）1、下面一段程序的功能是：Dim a As Integer, b As Integera=10:b=12a=a+bb=a-ba=a-bPrint a,b五、读程序，写结果（每题5分，2小题，共10分）1、下面程序执行后，单击命令按钮按钮Command1后，窗体上显示的结果为：Private Sub Command1_Click()Dim Str1 As String, Str2 As StringStr1="University"Str2=String(3,Str1)Str1=Mid(Str1,4)Print Str1,Str2End Sub2、运行下面的程序后，第三次单击命令按钮Command1后，在窗体上显示的结果为：Private Sub Form_Click()Static count%Clscount = count + 1Print "单击窗体"; count; "次"End Sub六、程序改错题（每题5分，2小题，共10分）（先写出错误的语句，在错误的语句后写出正确的语句。
不得在原程序上修改，不得增加、删除语句，也不得更改程序结构）1、如下图所示，在窗体Form1的左侧的列表框为List1，右侧的列表框为List2，List1中已经有一些项目，当双击左侧List1中一个项目时，此项目从List1中删除，添加到List2中。
程序有错误，请改正之。
（2处错误）Private Sub Form1_Load()List1.AddItem "北京"List1.AddItem "天津"List1.AddItem "上海"List1.AddItem "深圳"List1.AddItem "杭州"List1.AddItem "重庆"End SubPrivate Sub List1_Click()List2.AddItem List1.List(List1.ListIndex)List1.RemoveItem List1.TextEnd Sub2、程序运行后，要输出如图所示的图形，请改正之。
（2处错误）Private Sub Command1_Click()Dim i As IntegerDim s As Strings = "123"For i = 1 To 3Print Right(s, i)Next iEnd Sub七、程序填空题（每空5分，3个空，共15分）1、在窗体上有一个列表框List1，有一个标签Label1和一个文本框Text1，在List1中添加若干列表项，列表项的内容形式为：省份简称+省会城市，例如，冀石家庄。
现在单击列表框某项，使单击的列表项的省份简称显示在标签Label1中，省会城市显示在文本框Text1中，请补充程序。
Private Sub Form_Load()List1.AddItem "冀石家庄"List1.AddItem "豫郑州"List1.AddItem "鲁济南"List1.AddItem "晋太原"List1.AddItem "鄂武汉"List1.AddItem "湘长沙"List1.AddItem "京北京"List1.AddItem "津天津"End SubPrivate Sub List1_Click()Label1.Caption = __________Text1.Text = __________End Sub2、计算表达式：s=1+2+3+...+100，请补充程序。