[计算机类试卷]国家二级(VB)机试模拟试卷63及答案与解析.doc
《[计算机类试卷]国家二级(VB)机试模拟试卷63及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级(VB)机试模拟试卷63及答案与解析.doc(33页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级( VB)机试模拟试卷 63及答案与解析 一、选择题 1 下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个 16的整数,相当于一次掷骰子。程序运行后,在 Text2文本框中输入总投掷次数(例如10000),单击 “开始投掷 “按钮则进行模拟掷骰子,并把出现 16的次数分别显示在文本框数组 Text1(从上到下各文本框的下标为 05)的各元素中,如图所示Private Sub Command1_Click() Dim a(6) Randomize n = Int(Text2.Text) For k = 1 To n n = Int(Rnd * 6) + 1 a(n)=_
2、Next k For n = 0 To 5 Text1(n).Text = a(n + 1) Next nEnd Sub该程序不完整,在横线上应填写的是 ( A) n ( B) a(n) + 1 ( C) a(n) + n ( D) a(n) + k 2 下面是一个判断并输出获得奖学金信息的程序: Private Sub Command1_Click() a% = InputBox(“请 输入主课成绩 1“) b% = InputBox(“请输入主课成绩 2“) c% = InputBox(“请输入副课成绩 “) s = (a + b + c) / 3 If s = 85 Then If a
3、= 90 And b = 90 Then Print “获得一等奖学金 “ Else Print “获得二等奖学金 “ End If Else If a = 95 Or b = 95 Then Print “获得三等奖学金 “ Else Print “不获得奖学金 “ End If End If End Sub 程序运行时,如果输入的依次是 90、 91、 72,则输出是 ( A)获得一等奖学金 ( B)获得二等奖学金 ( C)获得三等奖学金 ( D)不获得奖学金 3 编写如下程序: Private Sub Command1_Click() x = 4 n = 1 Do x = 2 * x -
4、 3 n = n + 1 Print x Loop Until x 30 Print n End Sub 在保证程序输出不变的前提下,可以把循环条件 Until x 30改为 ( A) Until x 40 ( B) Until x 20 ( C) While x 20 4 窗体上有一个 Text1文本框和一个 Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示 “密码正确 “,若密码错误,弹出信息框显示 “密码错误,请重新输入 “,但最多允许输出 3次,若还不正确,则弹出信息框显示 “密码错误,不能再输入 “,且命令按钮变为无效。
5、某人编写了如下程序: Private Sub Command1_Click() Dim num As Integer num = num + 1 If Text1.Text = “123456“ Then MsgBox “密码正确 “ ElseIf num = 3 Then Command1.Enabled = False MsgBox “密码错误,不能再输入 “ Else MsgBox “密码错误,请重新输入 “ End If End Sub 调试时发现有错误需要修改,下面正确的修改方案是 ( A)把 ElseIf num = 3 Then 改为 ElseIf num 3 Then ( B)
6、把 Command1.Enabled = False 改为 Command1.Enabled = True ( C)把 Dim num As Integer 改为 Static num As Integer ( D)把 num = num + 1 改为 num = num + 3 5 编写如下程序: Function Fun1(ByVal a As Integer, b As Integer) As Integer a = b + a b = 2 * a Fun1 = b End Function Private Sub Command1_Click() Dim x As Integer x
7、= 5 Print Fun1(Fun1(x, x - 1), x - 2) End Sub 程序运行后,单击命令按钮 Command1,输出结果为 ( A) 5 ( B) 42 ( C) 50 ( D) 68 6 下面程序的功能是:先输入一个字符串,再输入 3个字符,然后统计这 3个字符分别在字符串中出现的次数并输出 Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str = InputBox(“请输入一个字符串 “) For k = 1 To 3 prompt = “请输入要查找的第 “ “出现的次数为 “;
8、 count(k) Next k End Sub 程序不完整,在横线上应该填写的是 ( A) Mid(str, k, 1) ( B) Mid(str, j, 1) ( C) str(k) ( D) str(j) 7 窗体上有一个名称为 Line1的直线控件,并有如下程序: Dim down As Boolean, x1%, y1% Private Sub Form_Load() Line1.Visible = False down = False End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X
9、As Single, Y As Single) If Button = 1 Then down = True x1 = X : y1 = Y End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then down = False Line1.x1 = x1 : Line1.y1 = y1 Line1.x2 = X : Line1.y2 = Y Line1.Visible = True End If End Sub
10、运行程序,按下鼠标左键不放,移动鼠标到窗体其他位置处放开左键,则产生的结果是 ( A)以鼠标按下和抬起的两点为端点显示一条直线 ( B)鼠标按下时显示一条直线;鼠标抬起时直线消失 ( C)直线从鼠标按下处移动到鼠标抬起处 ( D)鼠标按下时直线消失;鼠标抬起时显示直线 8 编写如下程序: Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox(“请输入整数 “) Next j Next i For i = 0 To 2 a(i, 1) = a(i, 3) Next i F
11、or i = 0 To 2 For j = 0 To 3 Print a(i, j), Next j Print Next i End Sub 程序运行后,单击命令按钮 Command1, 并输入了 12个整数: 1, 2, 3, 4, 5,6, 7, 8, 9, 10, 11, 12,则输出结果为 ( A) 1 4 3 2 5 8 7 6 9 12 11 10 ( B) 1 4 3 4 5 8 7 8 9 12 11 12 ( C) 3 2 1 4 7 6 5 8 11 10 9 12 ( D) 3 2 3 4 7 6 7 8 11 10 11 12 9 有如下过程: Private Sub
12、 Command1_Click() Dim Name As String * 20 Open “file1.dat“ For Random As #1 Len = 20 k = 1 Do While Not EOF(1) Get #1, k, Name Print Name k = k + 2 Loop Close #1 End Sub 这一过程的功能是 ( A)读入文件 file1.dat中所有记录号为偶数的记 录并显示在窗体上 ( B)读入文件 file1.dat中所有记录号为奇数的记录并显示在窗体上 ( C)读入文件 file1.dat中记录号为 1的记录并显示在窗体上 ( D)把 Na
13、me中的数据写进文件 file1.dat中 10 设数据元素的集合 D= 1,2,3,4,5 ,则满足下列关系 R的数据结构中为线性结构的是 ( A) R= (1,2), (3,4), (5,1) ( B) R= (1,3), (4,1), (3,2), (5,4) ( C) R= (1,2), (2,3), (4,5) ( D) R= (1,3), (2,4), (3,5) 11 下列叙述中正确的是 ( A)链表结点中具有两个指针域的数据结构可以是线性结构,也可以是非线性结构 ( B)线性表的链式存储结构中,每个结点必须有指向前件和指向后件的两个指针 ( C)线性表的链式存储结构中,每个结点
14、只能有一个指向后件的指针 ( D)线性表的链式存储结构中,叶子结点的指针只能是空 12 一个栈的初始状态为空。现将元素 A,B,C,D,E依次入栈,然后依次退栈三次,并将退栈的三个元素依次入队(原队列为空),最后将队列中的元素 全部退出。则元素退队的顺序为 ( A) ABC ( B) CBA ( C) EDC ( D) CDE 13 某二叉树的中序序列为 DCBAEFG,后序序列为 DCBGFEA,则该二叉树的深度(根结点在第 1层)为 ( A) 5 ( B) 4 ( C) 3 ( D) 2 14 软件生命周期是指 ( A)软件产品从提出、实现、使用、维护到停止使用退役的过程 ( B)软件的需
15、求分析、设计与实现 ( C)软件的开发与管理 ( D)软件的实现和维护 15 某系统结构图如下图所示 该系统结构图的深度是 ( A) 1 ( B) 2 ( C) 3 ( D) 4 16 下面属于应用软件的是 ( A)学生成绩管理系统 ( B) UNIX操作系统 ( C)汇编程序 ( D)编译程序 17 将 E-R图转换为关系模式时, E-R图中的属性可以表示为 ( A)属性 ( B)键 ( C)关系 ( D)域 18 有两个关系 R与 S如下,由关系 R和 S得到关系 T,则所使用的操作为( A)并 ( B)自然连接 ( C)除法 ( D)交 19 优化数据库系统查询性能的索引设计属于数据库设
16、计的 ( A)需求分析 ( B)概念设计 ( C)逻辑设计 ( D)物 理设计 20 Visual Basic集成环境的 “工程 “菜单(部分)如图所示。为了编写全局变量和通用过程,要为当前工程创建一个新的 .bas文件,为此,应在菜单中选择的是( A)添加窗体 ( B)添加 MDI窗体 ( C)添加模块 ( D)添加类模块 21 如果在程序中直接使用了没有声明的变量,则它的数据类型是 ( A)字符串型 ( B)整型 ( C)逻辑型 ( D)变体型 22 为了判断字符串变量 ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为 True,否 则为 False
17、。下面能正确实现这一目的的表达式是 ( A) A b, a, b) c, c, IIf(a b, a, b) ( B) x = IIf(IIf(a b, a, b) c, IIf(a b, a, b), c) ( C) x = IIf(a c, IIf(a b, a, b), c) ( D) x = IIf(a b, IIf(a 10 ( D) Do Until x = 10 x = x + 1 27 下面过程定义框架中正确的是 ( A) Function fun(x As Control) End Function ( B) Function fun(ByVal a() As Integer
18、) As Long End Function ( C) Sub proc(x As Integer) As Integer End Sub ( D) Sub proc(Optional x As Long, y As Integer) End Sub 28 设有下面的类型和变量定义, Private Type Rec name As String score(5) As Integer End Type Dim student As Rec 则下面正确的语句是 ( A) student = “张三 “ ( B) student.score(2) = 75 ( C) student(3).sco
19、re = 69 ( D) score(4) = 77 29 写文件语句 Print # 与 Write # 的区别之一是 ( A) Write # 用于写二进制文件; Print # 用于写文本文件 ( B) Print # 既可以写顺序文件,也可以写随机文件; Write # 则只能写顺序文件 ( C) Print # 写到文件的每个数据项之间自动添加 “, “字符;而 Write # 没有 ( D) Write # 写到文件的每个数据项之间自动添加 “, “字符;而 Print # 没有 30 下面不响应键盘事件的对象是 ( A) 窗体 ( B)按钮 ( C)复选框 ( D)标签 31 下
20、面关于单选按钮和复选框的叙述中正确的是 ( A)单选按钮被选中则它的 Value属性为 True;复选框被选中则它的 Value属性为 True ( B)单选按钮被选中则它的 Value属性为 1;复选框被选中则它的 Value属性为 1 ( C)单选按钮被选中则它的 Value属性为 True;复选框被选中则它的 Value属性为 2 ( D)单选按钮被选中则它的 Value属性为 True;复选框被选中则它的 Value属性为 1 32 设窗体、框架、图片框( PictureBox)、图像框( Image)的名称分别是Form1、 Frame1、 Picture1、 Image1,有下面
21、4条语句: Form1.Print “VB“ Frame1.Print “VB“ Picture1.Print “VB“ Image1.Print “VB“ 其中正确的是 ( A) 和 ( B) 和 ( C) 和 ( D) 和 33 在窗体上画一个 Text1文本框和一个 HScroll1水平滚动条,然后编写以下程序并运行: Private Sub Form_Load() HScroll1.Max = Text1.Width * 2 HScroll1.Value = Text1.Width HScroll1.Width = HScroll1.Max End Sub Private Sub HS
22、croll1_Change() Text1.Width = HScroll1.Value End Sub 下面叙述中错误的是 ( A)拖动滚动条的滚动块,可以改变文本框的宽度 ( B)窗体刚显示时滚动条的宽度是文本框宽度的 2倍 ( C)文本框的宽度最多可以增加到窗体刚显示时自身宽度的 2倍 ( D)窗体刚显示时滚动块的位置在滚动条的最左边 34 在窗体上画 Text1、 Text2两个文本框,并编写如下程序: Private Sub Form_Load() Text2.PasswordChar = “$“ End Sub Private Sub Text1_Change() Text2.Te
23、xt = Text1.Text End Sub 运行程序,在 Text1文本框中输入 “ABCDEFG“,则产生的结果是 ( A)在 Text2中同步显示与 Text1同样内容 ( B)在 Text2中同步显示 “abcdefg“ ( C)在 Text2中同步显示与 Text1中字符数量相同的 “$“ ( D)在 Text1中显示 “$“,而在 Text2中不显示任何内容 35 在窗体上画一个 Timer1计时器控件和一个 Shape1形状控件,并编写如下程序 Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = Tru
24、e End Sub Private Sub Timer1_Timer() If Shape1.Shape = 1 Then Shape1.Shape = 3 Else Shape1.Shape = 1 End If End Sub 运行程序,则看到的结果是 ( A)交替显示正方形和圆形,每秒交替一次 ( B)交替显示矩形和椭圆形,每秒交替一次 ( C)显示正方形,每秒闪烁一次 ( D)显示椭圆形,每秒移动一次 36 下面可以识别功能键 F1的事件是 ( A) KeyPress事件和 KeyDown事件 ( B) KeyPress事件和 KeyUp 事件 ( C) KeyDown事件和 KeyU
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 模拟 63 答案 解析 DOC
