二级VB笔试模拟试题及答案2

《二级VB笔试模拟试题及答案2》由会员分享，可在线阅读，更多相关《二级VB笔试模拟试题及答案2（9页珍藏版）》请在金锄头文库上搜索。

1、全国高等学校（安徽考区）计 算 机 水 平 考 试 试 卷 B（二级 Visual Basic 语言）一、单项选择题（每题 1 分，共 40 分）1计算机硬件系统中最核心的部件是 1 。 A）内存储器 B）输入/输出设备 C）CPU D）硬盘2计算机最早的应 用领域是 2 。A）科学计算 B）图形处理 C）过程控制 D）人工智能3下列属于文字处理软件的是 3 。A）Windows B）Word C）PowerPoint D）Excel4在计算机系统内部，所有数据都是采用 4 表示。A）十六进制 B）十进制 C）八进制 D）二进制5在 Windows 系统中，下面文件命名合法的是 5 。A）A*

2、.DOC B）AB.DOC C）A?.DOC D）A.DOC6计算机可以播放 DVD 等音像制品, 主要运用的是 6 技术。A）多媒体 B）人工智能 C）数据库 D）数据挖掘7将文件从 FTP 服务器传输到本地计算机的过程称为 7 。A）上传 B）浏览 C）查找 D）下载8下列 IP 地址中，错误的是 8 。A）219.231.10.155 B）192.168.5.1 C）219.260.20.12 D）192.10.6.7 9下列关于计算机病毒的叙述中，正确的是 9 。 A）加密文件不会感染计算机病毒 B）系统软件不会感染计算机病毒C）有防火墙的计算机系统也会感染病毒D）压缩的文件不会感染计

3、算机病毒10计算机能直接运行的是 10 。A）目标程序 B）机器语言程序 C）汇编语言程序 D）高级语言程序11下列选项中是 Visual Basic 的合法变量名的是 C 。A）1_abc B）abc-1 C）abc_1 D）abc.112对正整数 X、Y，有下列表达式，不能判断 X 能被 Y 整除的是 C 。A）X/Y=Int(X/Y) B）X Mod Y =0 C）XY=Fix(X/Y) D）XY=X/Y13下面可以正确定义 2 个整形变量和一个字符型变量的语句是 B 。A）Dim x, y As Integer, n As String B) Dim x%, y As Integer,

4、 n As StringC) Dim x%, y$, n As String D) Dim x As Integer, y, n As String14下面表达式中， A 的运算结果与其他三个不同。A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.515将任意一个正的两位整数 N 的个位数与十位数对换的表达式为 A。A） （N-Int(N/10)*10）*10+Int(N/10) B）N-Int(N)/10*10+Int(N)/10C）Int(N/10)+(N-Int(N/10) D）(N-Int(N/10)*10+Int(N/10)

5、16执行语句 s = Mid(VisualBasic,1,6)后，s 的值是 A 。A) Visual B) Basic C) 6 D) 1117表达式 5 Mod 3+35*2 的值是 B 。A）0 B）2 C）4 D）618选拔性别 S 是女，身高 T 超过 1.6 米且体重 W 小于 62.5 公斤的人，表示该条件的表达式为 C 。A) S=女 And T=1.6 And W1.7 Or W1.6 And W=62.519可以强行中断程序运行的操作是 DA) 按 Ctrl+C 键 B) 按 Ctrl+Z 键C) 按 Ctrl+V 键 D) 按 Ctrl+Break 键20在默认条件下有数

6、组声明语句：Dim A(2, -2 to 2, 3)，则数组 A 包含 D 个元素。A) 200 B) 120 C) 75 D) 60 21已设置数组元素下标从 1 开始，下列程序段运行时会提示出错，出错的原因是 C 。a = Array(1, 2, 3, 4)For i = 4 To 1 Step -1Print a(i)Next iPrint a(i)A）第三行，数组元素 a(i)下标越界 B）第一行，数组没定义，不能直接赋值C）第五行，数组元素 a(i)下标越界 D）第二行，循环语句格式不对22下列语句不合法的是 D。A）x = 1: y = 2 B）Print x; y; C）Prin

7、t x, y, D）x=1;y=223当 0z) Or z=8 B）x=7 D）x Max ThenMax = (7) End ifNext iPrint 最大值是：; MaxEnd Sub6. 下列程序的功能是计算 （N 是偶数） ，试填空22213(1)sum 完成以下程序。Private Sub Command2_Click()Dim S As DoubleDim I As Integer, N As IntegerDim C As IntegerS = 0: I = 1: C = 1N = Val(InputBox(请输入大于零的偶数 N：)DoS = S + C * I * IC =

8、 (8) 正负号切换I = (9) 循环变量增加Loop While (10) 循环结束条件End Sub三、阅读理解题（每小题 4 分，共 20 分）1执行下列程序后，输出的结果是： (1) Private Sub Form_Click()Dim x As Integerx = 10Select Case xCase Is = 10Print x & xCase 7, 8, 9Print x + xCase 0 To 6Print xEnd SelectEnd Sub 2执行下列程序后，输出的结果是： (2) Private Sub Form_Click()Dim i As IntegerD

9、im t As Stringst = For i = 1 To 12 字符串逐字符处理If i Mod 3 = 0 Thenst = Mid(Visual Basic, i, 1) + stEnd IfNext iPrint stEnd Sub 3执行下列程序后，输出的结果是： (3) Private Sub Form_Click()Dim s As Integer, n As Integers = 0n = 1 Dos = s + n * nIf s 50 ThenExit Do 强制跳出循环End Ifn = n + 1 循环变量自增Loop Until n 6Print sEnd Sub

10、 4执行下列程序后，输出的结果是： (4) Option Base 1Private Sub Form_Click()Dim a(4, 4) As IntegerDim i As Integer, j As IntegerDim count As Integer, s As Integercount = 1For i = 1 To 4 给二维数组赋值并累加特殊位置的元素值For j = 1 To 4a(i, j) = count count = count + 1If i = 1 Or i = 4 Or j = 1 Or j = 4 Thens = s + a(i, j)End IfNext

11、jNext iPrint sEnd Sub 5执行下列程序后，E 盘下 tdata.txt 文件中的内容是： (5) Private Sub Form_Click()For i = 1 To 5s = s + fun(i)Next iOpen e:tdata.txt For Output As #1 打开顺序文件Print #1, sClose #1End SubPrivate Function fun(ByVal i As Integer) As IntegerStatic aa = a + 1fun = a * iEnd Function 四、编程题（共 20 分）1编写一个 Functi

12、on 函数 fun，求解如下分段函数的值（x 为实型变量的函数形参） （6 分）Y=-x x102编写程序，利用随机函数产生 10 个10，100 之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。 （7 分）3假定在 E 盘下有一文件 data.dat，其内容为三个点的坐标，内容样式如下每一行的前 1 个数据表示点的横坐标 x，后一个数据表示点的纵坐标 y。编写程序读取文件中的数据，并判断该三点能否构成三角形。 （7 分）提示：利用任意两边之和大于第三边来判定三角形。边长 L= ，其中（x 1,y1）及（ x2,y2）为两点坐标。2211()()xyVisual B

13、ASIC 程序设计（语种代号：211） （B）卷参考答案及评分标准一、单项选择题（每题 1 分，共 40 分）1 - 5 CABDB 6-10 ADCCB 11-15 CCBAA 16-20 ABCDD21-25 CDCAA 26-30 BAADD 31-35 ACBDB 36-40 ABCDD二、填空题（每空 2 分，共 20 分）1 (x+y)3*(t+u)2/t/(x-y) 6 62 x=-7.5 7 arr1(i)3 y mod 4=0 and y mod 100 a(i) Then min = a(i)Next iPrint 最大及最小数之差为; max - min 参考程序 2：（

14、排序计算）Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next iFor i = 0 To 8For j = i + 1 To 9 If a(i) l3 And l2 + l3 l1 And l1 + l3 l2 ThenMsgBox (文件中三点能构成三角形)ElseMsgBox (文件中三点不能构成三角形)End If程 序 正 确 得 7 分 ，其 中 ：正 确 使 用 文 件 打 开 语 句 得2 分文 件 数 据 正 确 读 取 得 2 分求 边 长 表 达 式 正 确 得 1 分三 角 形 判 定 表 达 式 正 确 得1 分输 出 语 句 正 确 使 用 得 1 分注：其他解法可参照给分