VB二级考试模拟试题3.doc

VB试卷一、单项选择题（每题1分，共40分）1. 冯.诺依曼型计算机的工作原理是_ A计算精度高 B量子理论C运算速度快 D储存并自动执行程序2. 在计算机硬件系统中,CPU的组件主要包括_ A运算器和控制器 C控制器和储存器C运算器和储存器 D运算器和I/O设备3. 计算机系统中的1个字节由_位二位制数组成. A 2 B 4 C 8 D 164. 在计算机系统中,管理软硬件资源的是_ A监控系统 B操作系统 C管理系统 D应用系统5. 在windows中,回收站里的文件占用_空间. A内存 B光盘 C软件 D硬盘6. 电子邮件地址的格式是_ A用户名.主机域名 B主机域名.用户名C 用户名主机域名 D主机域名用户名7. 下列选项中,_通常作为音频文件扩展名. A mp3 B doc C exe D txt8. 在计算机网络分类中,LAN表示_ A广域网 B蜂窝网 C城域网 D局域网9. 下列选项中,_不是计算机病毒的特征. A传染性 B破坏性 C免疫性 D隐蔽性10.用_编写的程序不需要编译,可以再计算机上直接运行. A人工智能语言 B机器语言 C汇编语言 D高级语言11.在Visual Basic中，合法的变量名是_. A.3abc B.Print C.filel D.sd.k12.若一个Visual Basic应用程序只含一个窗体模块文件和一个标准模块文件,首次保存改应用程序的正确的操作时_. A.只保存窗体模块文件 B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块、标准模块文件 D.只保存工程文件13设整型变量x=3，y=2，z=1，表达式Not x=z or 23*z=y3的值是_ A.-1 B.0 C.False D.True14.在Visual Basic中如果要强制显示声明变量,编写代码时可在窗体模块或标准模块通用声明中加入语句_ A.Option Explicit B.Option Compare C.Option Base 0 D.Option Base 115.Visual Basic基本流程控制结构不包含_ A.分支结构 B.顺序结构 C.嵌套结构 D.循环结构16.下列表达式不能判断x为偶数的是_ A.x/2=Int(x/2) B.x Mod2=0C.Fix(x/2)=x/2 D.x2=017.随机产生区间1,6的一个整数的表达式为_ AInt（Rnd*6+1） B.Int（Rnd*6）CInt（Rnd*7） D.Int(Rnd(6)+1)18.表达式b*b-4*a*c=0是_。A赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式19.Visual Basic语句使用的续行符是空格加上 A： B._ C.” D.20.Msgbox()函数返回值的类型是_。A.日期型 B.字符型 C.逻辑型 D.整型21.阅读下面的程序段: x = Inputbox(“请输入第一个数”)y = Inputbox(“请输入第二个数”)Print y & x 当运行福别输入7和30时，程序输出为_。A.307 B.37 C.73 D.73022.设定变量A=“Microsoft Visual Basic”，B = “hardware”,_表达式的结果是“Software”。 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.将数学代数式cos(x+y)+5e4写成VB表达式,正确的是 。 A.Cos(x+y)3+5*exp(4) B.Cos3(x+y)+5*exp(4)C.Cos(x+y)3+5*ln(4) D.Cos3(x+y)+5*ln(4)24.下列正确的VB赋值语句是_。 A.a*b=20 B.a=3:b=7C.a=12;b=15 D.a=0,b=025.文本框是一种_文本信息的空间。 A.不可编辑修改 B.只能输入C正能输出 D.可输入输出并能编辑26可以强行中断程序运行的操作是_. A.按Ctrl+c键 B.按Ctrl+f键 C.按Ctrl+x键 D. 按Ctrl+Break键27.设置滚动条控件所能表示最大值的属性是_. A.LargeChange B.Max C.Value D.Min28.决定窗体标题栏内容的属性是 .Index B.Caption C.Name D.BackStyle29.关于语句If x=1 Then y=1,下列书法正确的是_. A.x=1和y=1均为赋值语句 B.x=1为关系表达式，y=1为赋值语句C.x=1和y=1均为关系表达式 D.x=1为赋值语句，y=1为关系表达式30.要在命令按钮上显示图片，应设置其_属性和Style属性。 A.Caption B .Name C.Picture D.Appearance31.设置时钟控件的Timer事件每0.1秒触发一次，则Interval的值应设为_.A.1 B.10 C.100 D.100032.移除列表框List1的第3项”李四”，应使用_语句。 A.List1.RemoveItem 2 B.List1.RemoveItem 3C.List1.RemoveItem “李四”，2 D.List1.RemoveItem “李四”，333.以下循环语句中，任何情况下都至少执行一次循环体的是_. A.Do While 条件 B.While 条件 循环体 循环体 Loop WendC.Do D.Do Until 条件 循环体 循环体 Loop Until Loop34.下列叙述中正确的是_。A.一个Sub过程至少要有一个Exit Sub 语句B.一个Sub过程必须有一个End Sub 语句C.可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程D.一个Function 过程名可以获得多个返回值35.有以下程序段 For i = 1 to 3 For j = 4 to 1 Step -1 Print i+j Next jNext i则语句 Print i+j 的执行次数是_.A.12 B.13 C.14 D.15 36.下面程序执行后，窗体显示结果是_. 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 737.Visual basic默认的过程参数传递方式是_. A.按地址传递 B.按直传递 C.按属性传递 D.按名称传递38下列关于菜单的说法错误的是_. A.菜单项是控件，也具有属性B.菜单项只有Click事件C.不能再顶层菜单加快捷键D.在程序运行过程中，不能通过赋值语句设置菜单项的属性39能判断文件指针是否到达文件尾的函数是_. A.BOF() B.LOC() C.EOF() D.LOF()40.语句“Select * Form 学生信息 Where 性别 =男”中的“*”号表示_. A. 所有表 B.所有指定条件的记录C.所有记录 D.指定表中的所有字段二、填空题（每空2分，共20分）1 数学表达式|x+y| + 的Visual Basic表达式为 2 表达式Len(Trim(Str(65.8) + Left(Good, 2)的值是_ _.3 下面程序的功能是从键盘输入一个整数m，计算并输出满足不等式12+22+32+42+n2 = mPrint “满足不等式的最大的n是：”;n-1End Sub4 下面是一个歌唱比赛评分程序，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=0For i= 1 To 9 n=Val(InputBox(“输入总分”) If nmax Then_ _ 查找最高分 If nmin Then min=n 查找最低分s = s + t Next is = _ _ 除去最高分和最低分后的总分t = s / 7Print “最高分”；max,”最低分”；minPrint “最后得分”；tEnd Sub5.下面的程序是调用函数求两个整数的最大公约数和最小公倍数，试填空使得程序完整。Private Sub Command1_Click ()Dim a As Integer, b As IntegerDim c As Integer, d As Integera = 56 : b = 32c = _ _ 调用函数计算最大公约数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 LongIf m n Then t = m: m = n : n = t End If r = m Mod n Do While r 0m = n : n = r r = _ _Loop Hef = n End Functing6.以下程序代码实现单击命令按钮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 _ _ 对主对角线上的元素赋值Else _ _End If 对其余元素赋值Print a(i,j)Next j Print Next i 换行End Sub 三、阅读理解题（每小题4分，共20分）1.执行下列程序后，输出的结果是：_ _ Private Sub Form_Click() Dim x As Integer, n As Integer x = 1: n = 0 Do x = x * (x + 1) n = n + 1 Loop While x A(j) then t=A(i) : A(i)=A(j) : A(j)=t End If Next jNext iFor i=1 to 6 Print A(i);Next iEnd Sub四.编程题(共20分)1.编写程序求解三角形面积.要求用InputBox函数输入三角形的三条边长,如给定三条边长不能构成三角形,则输出错误信息,否则利用海伦公式计算并输出三角形面积.(6分) 提示:构成三角形的必要条件是,三角形的任意两边之和大于第三边.计算三角形面积的海伦公式是