VB试卷
一、单项选择题（每题1分，共40分）
1. 冯.诺依曼型计算机的工作原理是_____ 【D】
A计算精度高 B量子理论
C运算速度快 D储存并自动执行程序
2. 在计算机硬件系统中,CPU的组件主要包括____ 【A】
A运算器和控制器 C控制器和储存器 C运算器和储存器 D运算器和I/O设备
3. 计算机系统中的1个字节由____位二位制数组成. 【C】
A 2 B 4 C 8 D 16
4. 在计算机系统中,管理软硬件资源的是____ 【B】
A监控系统 B操作系统 C管理系统 D应用系统 5. 在windows中,回收站里的文件占用____空间. 【D】
A内存 B光盘 C软件 D硬盘 6. 电子邮件地址的格式是____ 【C】
A用户名.主机域名 B主机域名.用户名 C 用户名@主机域名 D主机域名@用户名 7. 下列选项中,____通常作为音频文件扩展名. 【A】
A mp3 B doc C exe D txt
8. 在计算机网络分类中,LAN表示____ 【D】
A广域网 B蜂窝网 C城域网 D局域网 9. 下列选项中,___不是计算机病毒的特征. 【C】
A传染性 B破坏性 C免疫性 D隐蔽性
10.用____编写的程序不需要编译,可以再计算机上直接运行.【B】
A人工智能语言 B机器语言 C汇编语言 D高级语言 11.在Visual Basic中，合法的变量名是_____.【C】
A.3abc B.Print C.filel D.sd.k
12.若一个Visual Basic应用程序只含一个窗体模块文件和一个标准模块文件,首次保存改应用程序的正确的操作时____. 【B】 A.只保存窗体模块文件
B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模块、标准模块文件 D.只保存工程文件
13．设整型变量x=3，y=2，z=1，表达式Not x>=z or 23*z=y^3的值是_____ 【C】 A.-1 B.0 C.False D.True
14.在Visual Basic中如果要强制显示声明变量,编写代码时可在窗体模块或标准模块通用声明中加入语句____ 【A】
A.Option Explicit B.Option Compare C.Option Base 0 D.Option Base 1
15.Visual Basic基本流程控制结构不包含____ 【C】 A.分支结构 B.顺序结构 C.嵌套结构 D.循环结构 16.下列表达式不能判断x为偶数的是_____ 【D】 A.x/2=Int(x/2) B.x Mod2=0 C.Fix(x/2)=x/2 D.x\\2=0
17.随机产生区间[1,6]的一个整数的表达式为_____ 【A】
VB试卷
A．Int（Rnd*6+1） B.Int（Rnd*6） C．Int（Rnd*7） D.Int(Rnd(6)+1) 18.表达式b*b-4*a*c=0是_____。【D】
A．赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式 19.Visual Basic语句使用的续行符是空格加上 【B】 A．： B._ C.” D.~
20.Msgbox()函数返回值的类型是_____。【D】 A.日期型 B.字符型 C.逻辑型 D.整型 21.阅读下面的程序段: 【A】
x = Inputbox(“请输入第一个数”) y = Inputbox(“请输入第二个数”) Print y & x
当运行福别输入7和30时，程序输出为______。 A.307 B.37 C.73 D.730
22.设定变量A=“Microsoft Visual Basic”，B = “hardware”,_____表达式的结果是“Software”。 【D】
A.Left(A,9)+Left(B,4) B.Left(A,4)+Left(B,4) C.Mid(A,1,4)+Right(B,4) D.Mid(A,6,4)+Right(B,4)
23.将数学代数式cos3(x+y)+5e^4写成VB表达式,正确的是 。 【A】 A.Cos(x+y)^3+5*exp(4) B.Cos^3(x+y)+5*exp(4) C.Cos(x+y)^3+5*ln(4) D.Cos^3(x+y)+5*ln(4) 24.下列正确的VB赋值语句是_____。 【B】 A.a*b=20 B.a=3:b=7 C.a=12;b=15 D.a=0,b=0
25.文本框是一种____文本信息的空间。 【D】 A.不可编辑修改 B.只能输入
C．正能输出 D.可输入输出并能编辑 26．可以强行中断程序运行的操作是______. 【D】
A.按Ctrl+c键 B.按Ctrl+f键 C.按Ctrl+x键 D. 按Ctrl+Break键 27.设置滚动条控件所能表示最大值的属性是_______. 【B】
A.LargeChange B.Max C.Value D.Min 28.决定窗体标题栏内容的属性是 【B】
Ａ.Index B.Caption C.Name D.BackStyle 29.关于语句If x=1 Then y=1,下列书法正确的是_______. 【B】 A.x=1和y=1均为赋值语句 B.x=1为关系表达式，y=1为赋值语句
C.x=1和y=1均为关系表达式 D.x=1为赋值语句，y=1为关系表达式
30.要在命令按钮上显示图片，应设置其______属性和Style属性。 【C】 A.Caption B .Name C.Picture D.Appearance
31.设置时钟控件的Timer事件每0.1秒触发一次，则Interval的值应设为_______.【C】
A.1 B.10 C.100 D.1000
32.移除列表框List1的第3项”李四”，应使用______语句。 【A】
A.List1.RemoveItem 2 B.List1.RemoveItem 3
VB试卷
C.List1.RemoveItem “李四”，2 D.List1.RemoveItem “李四”，3
33.以下循环语句中，任何情况下都至少执行一次循环体的是_____. 【C】 A.Do While 条件 B.While 条件 循环体 循环体 Loop Wend
C.Do D.Do Until 条件
循环体 循环体 Loop Until Loop
34.下列叙述中正确的是______。 【B】
A.一个Sub过程至少要有一个Exit Sub 语句 B.一个Sub过程必须有一个End Sub 语句
C.可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程 D.一个Function 过程名可以获得多个返回值 35.有以下程序段 【A】
For i = 1 to 3
For j = 4 to 1 Step -1 Print i+j Next j Next i
则语句 Print i+j 的执行次数是_______.
A.12 B.13 C.14 D.15
36.下面程序执行后，窗体显示结果是______. 【B】 Option Base 1
Private Sub Form_Click() Dim a
a=Array(“Sun”,”Mon”,”Tue”,”Wed”,”Thu”,” “Fri”,”Sat”) Print a(5);Lbound(a);Ubound(a) End Sub
A.Thu 0 6 B.Thu 1 7 C.Fri 0 6 D.Fri 1 7 37.Visual basic默认的过程参数传递方式是_____. 【A】 A.按地址传递 B.按直传递 C.按属性传递 D.按名称传递 38．下列关于菜单的说法错误的是______. 【D】 A.菜单项是控件，也具有属性 B.菜单项只有Click事件 C.不能再顶层菜单加快捷键
D.在程序运行过程中，不能通过赋值语句设置菜单项的属性
39．能判断文件指针是否到达文件尾的函数是______. 【C】 A.BOF() B.LOC() C.EOF() D.LOF() 40.语句“Select * Form 学生信息 Where 性别 =‘男’”中的“*”号表示______. A. 所有表 B.所有指定条件的记录 C.所有记录 D.指定表中的所有字段
D】【 VB试卷
二、填空题（每空2分，共20分） 1 数学表达式|x+y| +
e10?ln10x?y?1 的Visual Basic表达式为
abs(x+y) + (exp(10) + log(10))/sqr(x+y+1)
2 表达式Len(Trim(Str(65.8)) + Left(\的值是_6__.
22222
3 下面程序的功能是从键盘输入一个整数m，计算并输出满足不等式1+2+3+4+??+n Private Sub Form_Click() Dim s As Integer ‘用于保存多项式的和 Dim m As Integer ,n As Integer n=0 s=__0__ ‘给s赋初值 m=Val(InputBox(“请输入一个整数”)) Do n=n+1 s=s+__n*n____ ‘计算多项式的值 Loop Until s > = m Print “满足不等式的最大的n是：”;n-1 End Sub 4 下面是一个歌唱比赛评分程序，9名评委给选手评分（满分为100分），除去一个最高分和一个最低分后，计算平局分为选手的最后得分，试填空完成程序。 Private Sub Command1_Click Dim max As Single ‘存放最高分变量 Dim min As Single ‘存放最低分变量 Dim t As Single ‘最后得分 Dim s As Single ‘总分 Dim i As Integer,n As Integer max=0 : min=100 : s=0 For i= 1 To 9 n=Val(InputBox(“输入总分”)) If n>max Then__max=n__ ‘查找最高分 If n s = s + t Next i s = _s-max-min___ ‘除去最高分和最低分后的总分 t = s / 7 Print “最高分”；max,”最低分”；min Print “最后得分”；t End Sub VB试卷 5.下面的程序是调用函数求两个整数的最大公约数和最小公倍数，试填空使得程序完整。 Private Sub Command1_Click () Dim a As Integer, b As Integer Dim c As Integer, d As Integer a = 56 : b = 32 c = __Hef(a,b)____ ‘调用函数计算最大公约数 d = a * b / c ‘计算最小公倍数 Print a ; “和”; b ; “的最大公约数是” ; c Print a ; “和”; b ; “的最小公倍数是” ; d End Sub ‘辗转相除法求两个整数最大公约数的函数 Function Hef(ByVal m As Long,ByVal n As Long) Dim r As Long, t As Long If m < n Then t = m: m = n : n = t End If r = m Mod n Do While r <>0 m = n : n = r r = ___m mod n____ Loop Hef = n End Functing 6.以下程序代码实现单击命令按钮Command1时生成并输出一个主对角线上元素值为2、其它元素值为0 的10x10阶方阵，请填空。 Option Base 1 Private Sub Command1_Click() Dim a(10,10) As Integer ‘双重循环对数组元素赋值并输出 For i = 1 To 10 For j = 1 To 10 If i = j Then __a(i,j) = 2_____ ‘对主对角线上的元素赋值 Else __a(i,j) = 0 _ End If ‘对其余元素赋值 Print a(i,j) Next j Print Next i ‘换行 End Sub 三、阅读理解题（每小题4分，共20分） 1.执行下列程序后，输出的结果是：_x=42____n=3____ Private Sub Form_Click()