学校： 班级： 姓
名： 座号：
一、选择题（40*3分=120分）
1．从1946年第一台计算机诞生算起，计算机的发展至今经历了（ ）4个年代。 A.低档计算机、中档计算机、高档计算机、手提计算机 B.微型计算机、小型计算机、中型计算机、大型计算机
C.电子管计算机、晶体管计算机、小规模集成电路计算机、大规模及超大规模集成电路计算机 D.组装机、兼容机、品牌机、原装机
2．计算机能直接识别并执行的语言是（ ）。 A.汇编语言 B.机器语言 C.自然语言 D.高级语言 3．计算机病毒是可以造成机器故障的（ ）。
A.一种计算机设备 B.一种计算机芯片C.一种计算机程序D.一种计算机部件 4．在计算机应用中，“计算机辅助设计”的英文缩写是（ ）。 A.CAM B.CAT C.CAD D.CAI 5.十进制数91转化为二进制数的结果为（ ）。
A.01001000 B.01011011 C.10001011 D.10100100 6．下列字符中，其ASCII码值最大的是（ ）。 A.8 B.a C.Z D.m 7．在计算机领域，媒体分为（ ）。
A.硬件媒体和软件媒体 B.信息媒体、文字媒体、图像媒体 C.动画媒体、语言媒体和声音媒体
D.感觉媒体、表示媒体、表现媒体、存储媒体和传输媒体
8．一个计算机系统的硬件一般是由（ ）这几部分构成的。 A.主机、显示器和键盘
B.CPU、键盘、鼠标和显示器 C.主机、显示器、打印机和电源
D.运算器、控制器、存储器、输入设备和输出设备 9．下列设备中，只能做输出设备的是（ ）。
A.键盘 B.鼠标器 C.磁盘存储器 D.打印机
10．在Windows 的“属性”对话框中，把一个文件设置为“隐藏”属性后，在“我的电脑”或“资源管理器”中，若想让该文件再显示出来的操作是（ ）。 A.通过“文件”菜单的“属性”命令
B.执行“查看”菜单的“选项”命令，在“选项”对话框的“查看”选现卡中进行适当的设置。
C.执行“查看”菜单的“刷新”命令 D.选择“查看”菜单的“详细资料”项
11．Windows 的桌面是一个（ ）。
A.用户文件夹 B.系统文件夹 C.系统文件 D.用户数据文件
12．如果一个窗口被最小化，此时运行其他程序，则（ ）。 A.内存不够时，会自动关闭
B.与被最小化的窗口相对应的程序终止执行
C.与被最小化的窗口相对应的程序不继续占用内存 D.与被最小化的窗口相对应的程序继续占用内存
13．在Windows 中，有些菜单选项为灰色字符显示，这意味着这些菜单（ ）。 A.对应的菜单命令无效 B.可以照常使用 C.提醒用户小心使用 D.没用
14．在Windows 应用程序窗口的右上角，可能出现的按钮组合是（ ）。 A.最小化 、还原、关闭按钮 B.最小化、最大化按钮 C.最大化、还原、关闭按钮 D.最小化、关闭按钮 15．正常情况下，使用组合键（ ）可以退出应用程序。 A.Ctrl＋Alt＋
Del B.Shift+F4 C.Alt+F4 D.Shift+Esc 16．在Windows98中，为了快速实现全角和半角状态之间的切换，应当按的键是（ ）。 A.Ctrl＋空格键 B.Ctrl＋Shift C.Shift＋空格键 D.Shift＋Alt
17．在Windows 中，用鼠标拖动（ ）可以移动整个窗口。
A.状态栏 B.标题栏 C.菜单栏 D.工作区 18．在Window 中，启动应用程序的正确方法是（ ）。
A.用鼠标指向该应用程序 B.将该应用程序窗口最小化成图标 C.将该应用程序窗口还原 D.用鼠标双击该应用程序
19．在Windows 环境下，资源管理器左边窗口中的某文件夹左边标有“＋”标记表示（ ） 。
A.该文件夹为空 B.该文件夹中包含子文件夹 C.该文件夹中只包含可执行文件 D.该文件夹中包含系统文件 20.在Visual Basic设计界面中不能隐藏的窗口是( )。
A.工程窗口 B.属性窗口 C.立即窗口 D.窗体窗口 21.以下可以构成语句的一项是 ( ) 。
A.对象名.属性 B.对象名.方法名 C.对象名.事件名 D.对象名.函数名
22.以下不是 Visual Basic 的特点的选项是( ) 。 A.可视编程 B.算法设计 C.事件驱动 D.面向对象 23.在Visual Basic中通过属性来设置字体的大小( ) 。
A.FontColor B.ClipControl C.FontSize D.ShowColor 24.确定一个窗体在屏幕上的位置的属性是________。 A、Width或Height B、Width 和Height C、Top或Left D、Top和Left
25.要使标签中的文本靠右显示，则应将其Alignment属性设置为（ ）。 A.0 B.1 C.2 D.3
26.表达式8 / 3 Mod 8 \\ 2值为（ ） A、1 B、2 C、 3 D、0 27.下列语句中正确的是 （ ）。
A.txt1.Text+txt2.Text=txt3.Text B.Command1.Name=cmdOK C.12Label.Caption=1234 D.Text1=\"123\"
28.VB表达式Int(Rnd(x)*3+1)产生区间（ ）内的随机整数 A、[1，4] B、(1，4) C、（2，3） D、[1，3] 29.语句X=X+1的正确含义是（ ）。
A.变量X的值与X+1的值相等 B.将变量X的值存到X+1中去 C.将变量X的值加1后赋给变量X D.变量X 的值为1 30.表达式X And Y > X + 1是( )
A、算术表达式 B、非法表达式 C、逻辑表达式 D、关系表达式 二、填空题（20*3分=60分）
10．除了针式打印机外，目前使用较多、打印质量较好的打印机是 。 11集文字、图形、声音、活动图像于一身的计算机系统称为 计算机。 12．Windowsxp是基于 界面的操作系统。
13．Windows 中的一个文件夹具有4种，它们是系统、存档、 和隐藏。 14．Windows 的对话框其形状是一个矩形框，其大小是 的。
15.在程序运行中,要想使可操作的按钮变得不可操作,则应将该按钮的 属性设置为FALSE。
16.只能通过属性窗口设置的属性称为____ ______。
17.VB中应用程序的开发主要是在__ ___设计器上完成的。 18.在VB中，要将窗体Form1从内存中卸载，应该使用语句 。 19.写出代数式 所对应的VB表达
式 。
20.VB表达式-2^2+2^-2+2.6 / 2对应的值为__ ___ 三、判断题（2*15=30）
1.材料、能源、信息是构成当今世界的三大要素。( ) 2.未来的计算机也无法突破冯·诺依曼结构.( )
3.计算机病毒就像生物病毒在生物体内繁殖导致生物患病一样，也会影响人的身体健 康。( )
4.计算机犯罪是利用计算机和网络作为工具进行的高科技犯罪。( ) 5.16倍速的DVD比52倍速的VCD速度还快很多。( )
6.具有多媒体功能的微机系统目前常用的CD-ROM是一种只读光盘。( )
7.世界上第一台存储程序的电子计算机是1946年诞生的ENIAC.( )
三、程序阅读（10*6分）
1、下面程序的运行结果为__ ___ 。
Private Sub Command1_Click() Dim a As Integer a=2
For i=1 To 3 Print F(a) ； Next i End Sub
Private Function F(a As Integer) b=0
Static c b=b+1 c=c+1 f=a+b+c
End Function
2、下列程序输出结果为 。 Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 P a()
For i=1 To 4 Print a(i) ， Next i End Sub
Private Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub
3、下列程序输出结果为 。 Private Sub Command1_Click() a%=10 b%=5
Change a,b Print a,b End Sub
Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub
4、下述程序的运行结果是 。 Private Sub Command1_Click() a=1.5 b=1.5
Call fun(a,b) Print a,b End Sub
Private Sub fun(x,y) x=y*y y=y+x End Sub
5、有一个按钮事件及一个Sub过程： Private Sub Command1_Click() Dim I As Integer,j As Integer I=1 Do j=1 Do
Sum=Sum+j j=j+2 Print j; Loop Until j>3 I=I+2
Loop Until I>5 Print Sum End Sub
程序运行后，单击命令按钮，输出结果为___ ____。 6、运行下列程序，单击窗体，从键盘输入50，则输出结果是 。 Private Sub Form_Click() a=Val(Inputbox(”a=”)) Select Case a
Case Is < 100: Print a+1; Case Is < 80: Print a+2; Case Is < 60: Print a+3; Case Else: Print a+4; End Select End Sub
7、有以下程序段
dim a%(1 to 8) dim b%(1 to 4)
for i=1 to 8
if i mod 2=1 then a(i)=i else a(i)=2*i+1 next i
for i=1 to 4
b(i)=a(i)+a(i+1) next i
则b（3）的值为__________ ８、设有如下通用过程：
Public sub fun(a() as integer ,x as integer) For i=1 to 5 X=x+a(i) Next End sub
在窗体上画一个名为text1的文本框和一个名为command1的命令按钮，然后编写如下事件过程：
Private sub command1_click( )
Dim arr(5) as integer ,n as integer For i=1 to 5 Arr(i)=i+i Next
Fun arr , n Text1.text=str(n) End sub
程序运行后，单击命令按钮，则在文本框中显示的内容是 9、下面程序运行后输出的结果是______。 Dim X%, Y% X=6 Y=3
X= X + Y Y= X * Y Print X; Y 10、以下程序的循环次数是______。
Private Sub Command1_Click() For j=8 To 32 Step 3 Print j; Next j End Sub
四、程序填空（10*3=30分）
1、下列VB程序是用来计算S=1!+2!+3!+........+n!的程序，请将程序补充完整。（说明：N!=1*2*3*4*......*N） Private Sub Form_Click N= Inputbox(“请输入N”) S=0
FOR I=1 TO n ______ _______ S=S+T NEXT I
PRINT “S=”；S END
SUB fact(N，T)
T=___ ___
FOR J= 1 TO ____ __ NEXT J End sub 2、找出100～999之间的所有梅花数。所谓梅花数是指该数各位的立排序前 排序后 333
方和等于其本身的整数，如153=1+5+3，则153是梅花数。 1 1 Private sub form_click( 0 20 7 For n=100 to 999
7 20 I=n mod 10
35 35 J=
K= If n=i*i*i+j*j*j+k*k*k then print n Next n End sub
4、下面的程序是用选择交换法将10个数排为升序（例如输入：1、20、7、35，输出1、7、20、35），请将程序补充完整。
Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10
a(i) = Val(InputBox(\"Enter \" & i))
Print a(i); Next i Print
For i = 1 to 10 k = i
For j = ___ _____
If _________Then ___ ____ Next j
If _ _Then b = a(i) a(i) = a(k) a(k) = b End If Next i
For i = 1 To 10 Print a(i); Next i Print End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容