计算机对口升学VB综合测试卷

高三年级计算机VB试卷（八）

一、单项选择题

1．电子计算机的最早应用领域是（ ） A、数据处理 B、数值计算 C、工业控制 D、文字处理

2. 把计算机高级语言写的程序转换可执行程序要经过的过程叫做（ ） A、汇编和解释 B、编辑和连接 C、编译和连接 D、解释和编译

3．如果删除一个非零无符号二进制偶整数后的一个0，则此数的值为原数的（ ） A、4倍 B、2倍 C、1/2 D、1/4

4. 下列关于计算机病毒的叙述中，正确的是（ ） A、反病毒软件可以查、杀任何种类的病毒 B、计算机病毒是一种被破坏了的程序

C、反病毒软件必须随着新病毒的出现而升级，提高查杀病毒的功能 D、感染过计算机病毒的计算机具有对该病毒的免疫性

5. 计算机的系统总线是计算机各部件间传递信息的公共通道，它分为（ ） A、数据总线和控制总线 B、地址总线和数据总线 C、地址总线和控制总线 D、地址总线、数据总线和控制总线

6.某计算机的内存容量为256MB，硬盘容量为40GB，硬盘容量是内存容量的（ ） A、200倍 B、160倍 C、120倍 D、100倍 7.在微机系统中，麦克风属于（ ）

A、输入设备 B、输出设备 C、放大设备 D、播放设备 8.当电源关闭后，下列关于存储器的说法中，正确的是（ ） A、存储在RAM中的数据不会丢失 B、存储在ROM中的数据不会丢失 C、存储在软盘中的数据会全部丢失 D、存储在硬盘中的数据会丢失

9.已知英文小写字母a的ASCII码为十六进制数61H，则英文小写字母d的ASCII码为（ ） A、62H B、63H C、64H D、65H

10.字长是CPU的主要技术性能指标之一，它表示的是（ ）

A、CPU的计算结果的有效数字长度 B、CPU一次能处理的二进制数据位数 C、CPU能表示的最大的有效数字位数 D、CPU能表示的十进制整数的位数

11.在16*16点阵的汉字字库中，存储一个汉字的字模信息需要（ ）个字节 A、256 B、16 C、32 D、64 12.UPS的中文译名为（ ）

A、稳压电源 B、不间断电源 C、高能电源 D、调压电源 13.在Windows XP中获得联机帮助的热键是（ ） A、F1 B、ALT C、F8 D、ESC

14.在Windows XP中，在已打开的多个窗口间进行切换，需使用按键（ ） A、ALT+TAB B、TAB C、CTRL+TAB D、ESC

15.在中文Windows XP资源管理器左窗格中，磁盘或文件夹图标左侧小方框内的+标记，表示磁盘或文件夹包含（ ）

A、子文件夹 B、被删除的文件 C、被写保护的文件 D、被设置为隐蔽的文件

16.关于中文Word 2003常用工具栏上的打印按钮，下列说法中正确的是（ ） A、可以选择不同的打印机型号 B、可以设置不同的打印范围 C、可以设置打印份数 D、点击后即直接打印

17.在WORD文档中，选定一个多行多列的表格后按DEL键，则（ ） A、表格中的第一行被删除 B、表格中的第一列被删除 C、整个表格被删除 D、表格中的内容被删除 18.在Word2003中，剪贴板最多可存放的剪贴内容为（ ） A、1项 B、12项 C、24项 D、6项

19.要想在Word窗口中显示某工具栏，应使用的菜单是（ ）。 A、工具 B、格式

C、视图 D、窗口

20. 在Word2003中，以下不能单独选定整个表格的操作是( ) A. 单击表格左上角的“全部选定”控钮。

B．先将光标定位在表格内部，然后使用“表格”菜单“选择”/“表格”命令 C. 在表格左侧选定栏连续三击鼠标

D. 先将光标定位在表格内部，然后使用“表格”菜单“选择”/“行”命令，再使用“选择”/“列”命令。

21. 在VB中，确定一个控件在窗体上的位置的属性是（ ） A．Width或Height B．Width和Height

高三对口VB试题 第1页，共6页

C．Top或Left D．Top和Left 22.在VB 中，数组元素的下标（ ） A.只能是常数 B. 只能是变量 C.可以是表达式 D.不能是表达式

23.在Word2003文档中，选中“使用通配符”，在“多”与“体”之间只有一个字符，将所有“多”与“体”之间字符都替换为“媒”，最优的方法是（ ） A．查找“多?体”，替换成“多媒体”

B．查找“多×体”，替换成“多媒体” C．分别查找中间字符，替换成“媒” D．查找“多*体”，替换成“多媒体”

24．在Word2003编辑状态下，编辑化学反应方程式Fe+2HCl＝FeCl2+H2↑,必须使用的

命令是（ ）

A．编辑-查找 B．字体-下标 C．插入-图示 D．格式-段落 25．在VB 中，以下可以产生两位随机整数的表达式是( ) A. Int(Rnd*90+10) B. Int(Rnd*99+10) C. Int(Rnd*89+10) D. Int(Rnd*99- Rnd*10) 26.下列语句执行后，产生的信息框的标题是（ ） Dim s As String s = MsgBox(“ABCD”,,”EFGH,””,5)

（A）ABCD （B）无标题 （C）EFGH （D）程序出错

27.语句Print Format$(12345,”#######”);Format$(12345,”###”)的输出结果是（ ） （A）12345□□12345 （B）1234512345 （C）12345□123 （D）□□12345123

28.执行语句Print Format(1234.567, “##,##0.00”)后，输出结果是（ ） （A）1234.57 （B）1,234.57 （C）1,234.567 （D）1,234.56 29.关于保存一个VB的应用程序，下列说法中正确的是（ ） （A） 只要保存窗体文件即可 （B） 只要保存工程文件即可

（C） 分别保存工程文件和标准模块文件

（D） 分别保存工程文件、窗体文件以及其它需要保存的文件

30.在使用End语句时，如果执行了下面的过程，其结果是（ ） Sub Command1_Click( ) End End Sub

（A）

（B） （C） （D） 对程序没有什么影响

只关闭当前程序，对变量等没有影响 中止当前程序，重置所有变量

中止当前程序，重置所有变量，关闭所有数据文件

31.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是

A.1 B. -1 C. 0 D. 2

32.为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，将该菜单控件的（ ）属性设置为一个连字符（-）即可。 （A）Name （B）Caption （C）ShortCut （D）Text

33.执行语句Open \后，对文件Tel.dat中的数据能够执行的操作是

（A）只能写，不能读 （B）只能读，不能写 （C）既可以读，也可以写 （D）不能读，不能写

34.在程序运行期间，若改变滚动条中滚动块的位置，则触发的事件是（ ） （A）GotFocus （B）Change （C）Move （D）Scroll 35.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 （A）Combo1.RemoveItem Text

（B）Combo1.RemoveItem Combo1.Listcount （C）Combo1.RemoveItem 2 （D）Combo1.RemoveItem 3

36.InputBox函数有6个参数，其中不能省略的参数项是（ ）

（A）Default参数 （B）Title参数 （C）Xpos，Ypos参数 （D）Prompt参数 37.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 （A）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （B）不能把标准模块设置为启动模块

（C）如果工程中含有Sub Main过程，则程序一定首先执行该过程 （D）任何时刻最多只有一个窗体是活动窗体

38.将变量k四舍五入保留2位小数的表达式是（ ）

（A）Int((k+0.5)*100)/100 （B）Int(k*100)/100+0.5

（C）Int(k*100+0.5)/100 （D）Int(k*(100+0.5))/100

39.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click( ) a = Text1.Text Select Case n Case 1 To 20

x = 10 Case 2,4,6 x = 20

高三对口VB试题 第2页，共6页

Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ）

（A）10 （B）20 （C）30 （D）40 40.在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer

Name As String * 20 End Type

Private Sub Command1_Click( ) Dim MaxSize , NextChar , MyChar

Open “D:\\Vb2003Ks\\Ks78.Dat ” For Binary As #1 MaxSize = LOF ( 1 )

For NextChar = MaxSize To 1 Step -1 Seek # 1 , NextChar

MyChar = Input ( 1 , # 1 ) Next NextChar Print EOF ( 1 ) Close # 1 End Sub

程序运行后，单击命令按钮，其输出结果为（ ）

（A）True （B）False （C）Null （D）0 二、判断题

1.CIH是一种恶性病毒。 （ ）

2.如果鼠标突然失灵，要结束一个正在运行的程序可作组合键Ctrl+F4。 （ ）

3.在Windows xp中，当某一个应用程序窗口处在最大化状态时，利用鼠标指针拖动的方法，既可以改变窗口大小，又可以移动窗口的位置。 （ ）

4.剪贴板中的信息断电后丢失，而回收站的信息断电后不会丢失。 （ ）

5.在Word 2003的查找替换操作中，可以指定查找文字的格式，但不可以指定替换文字的格式。 （ ）

6.在Word 2003中，绿色波浪线表示有拼写错误。（ ）

7.在Word 2003中，只有在页面视图中，才会同时出现水平标尺和垂直标尺。（ ） 8.在Word 2003中，使用“文件”菜单的“关闭”命令可以退出Word环境。（ ） 9.在VB中，计时器控件的大小不可以改变。( )

10. 在VB中，要使输入文本框的字符始终显示“#”，则应修改其PassWordChar属性为“#”。（ ） 三、填空题（本题共5个小题，每小题2分，共10分）

1.下面三类存储器：软盘、硬盘和光盘中存储速度最快的是________存储器。 2.十进制数88转换为二进制数为_____________________。

3.计算机病毒按寄生方式分为引导型病毒、_______________和混合型病毒。

4.在Windows XP的“资源管理器”窗口中，如果要显示出系统属性或隐藏属性的文件或 文件夹，可以选择 菜单中的“文件夹选项”进行设置。

5.在Windows XP中，若要将一个文件设置为“只读”，则可以选中该文件，单击鼠标右键，然后在弹出菜单中选__________菜单项。

6.在word2003中，快速选定整篇文档的快捷键是___________。

7.在Word2003编辑状态下，按______键可以激活扩展选取，按_____键退出扩展状态。 8.在word2003中，＿＿＿＿视图中可以编辑页眉页脚。

9.在Word2003编辑状态下，剪切操作的快捷键是________________。

10.在Word2003中，要同时关闭或保存打开的多个文档，需按住 键。 四、程序分析（本大题共1小题，共5分，读程序并分析结果）

1.认真阅读下面程序，写出程序的功能：____________________________________

Private Sub Form_Activate() Dim i As Integer, t As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = i Print a(i); Next i Print t = a(10)

For i = 10 To 2 Step -1

高三对口VB试题 第3页，共6页

a(i) = a(i - 1) Next i a(1) = t For i = 1 To 10 Print a(i); Next i End Sub

五、写出下列程序的运行结果 1.

Private sub command1_click()

M =65: a$ =”A” Print tab(10); a$ For i =1 to 3 M=m+1

A$ = chr$(m) +a$ +chr$(m) Print tab(10-i); a$ Next i End sub

2.在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load( ) List1.AddItem “123 ” List1.AddItem “456 ” List1.AddItem “369”

List1.AddItem “789 ” Text1.Text = “ ” End Sub

Private Sub List1_DblClick( ) a = List1.Text

Print a + Text1.Text End Sub

程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果是 3.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=0

For i=1 to 3 x=1

For j=1 to 4 x=2

For k=1 to 5 x = x + 2 Next k Next j Next i Print x End Sub

程序运行后，单击命令按钮，输出结果为

4.阅读下面的Visual Basic程序，程序运行后sum的值是 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim num As Integer Dim sum As Integer sum = 0: a(0) = 1 For i = 0 To 10 For j = 1 To 9

num = 1 + Int(91 * Rnd)

If num = a(i) Then a(j) = num: sum = sum + a(j) Else j = j - 1 Next j

If j = 10 Then Exit For Next i Print sum End Sub

六、程序改错

1.以下程序的功能是利用折半查找算法进行查找 ，程序有三处错误，请改正。 Option Explict Option base 1 Private sub From_Click() Dim num%,bot%,top% mid% Dim flag as Boolean Dim a( )

A=array(12,18,23,29,35,46,51,69,82,95,) Num=val(inputbox(“请输入待查找的数”)) Bot=1 Top=10

高三对口VB试题 第4页，共6页

Flag=true

Do while flag=true Md =(bot+top) mod 2 If num

If num>a(mid) then Bot=mid+1

End if

If num=a(mid) then Flag= true Loop

If flag =false then Print “已找到”；Num Else

Print “未找到 End if

End sub ”

2.以下程序的功能是将一个以32位二进制数形式表示的IP地址，转换为由4个用“.”分隔的十进制数的形式(每8位二进制数对应一个十进制数)。例如：11011011001010100111111000000101可转换为219.42.126.5。程序有三处错误，请改正。 Option Explicit

Private Sub Command1_Click()

Dim IPb As String, IPd As String, i As Integer Dim st(4) As String * 8 IPb = Text1.text For i = 1 To 4

st(i) = Mid(IPb, 1, 8) IPb = mid(IPb, 32 - i * 8) IPd = IPd & b2d(st()) & \ Next i

Text2 = Left(IPd, Len(IPd) - 1) End Sub

Private Function b2d(s As String) As String

Dim i As Integer, k As Integer, n As Integer Dim sum As Integer n = Len(s) For i = 1 To n

k = Val(Mid(s, i, 1))

sum = sum + k Next i

b2d = CStr(sum) End Function

七、程序填空题。

1.窗体中有一列表框(名称List1)，一文本框(名称Text1)，一命令按钮(名称Command1)。窗体启动时的Load事件代码已给出。当每次单击开始命令按钮时将把列表框中选择的条目内容添加到数组，并把列表框中选择的条目删除，然后把数组中的元素值添加到文本框中（如图,图中上方控件为列表框，下方控件为文本框）。请在空白位置写出正确的内容。

Private Sub Form_Load() List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \ End Sub

Private Sub Command1_Click() Static a(6) As Integer Dim i As Integer Static j As Integer

For i =_____________ To 0 Step -1 If List1.Selected(i) Then a(j) = Val(List1.List(i)) j = j + 1

List1.RemoveItem i Exit For End If Next i

Text1.Text = \

For i = 0 To ________________ Text1.Text = Text1.Text & a(i) & \ Next i End Sub 2.下面程序的功能是找出由两个不同的数学组成的回文平方数，程序界面见下图： OPtion Explicit

Private Sub Command_Click()

Dim a(0 to 9) as Integer, i as Long ,flg as Boolean Dim l as Long,j as integer,sum as integer

高三对口VB试题 第5页，共6页