Sub S1() x =1 S2
End Sub Sub S2() y=10
Form1.Show End Show
Model2的代码如下: Sub Main() S1
End Sub
其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是 A.Form1→Model1→Model2 B.Model1→Model2→Form1 C.Model2→Model1→Form1
D.Model2→Form1→Model1 转贴于:计算机二级考试_考试大 二、填空题 (每空2分,共30分)
请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。 (1)设有如下程序段:
a$=\ b$=Mid(a$,InStr(a$,\
执行上面的程序段后,变量b$的值为【1】 。 (2)以下程序段的输出结果是【2】 。 num =0
While num<=2 num = num + 1 Wend Print num
(3)窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后,将把1~100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能的程序,请填空。
Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then 【3】 End If Next End Sub
Private Sub Command1_Click() Sum = 0
For i = 0 To 【4】 Sum = Sum + 【5】
Next
Text1.Text = Sum End Sub
(4)本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。 Private Sub Command1_Click() Randomize
n = CInt(Text1.Text) n1 = 0 n2 = 0
For I = 1 To 【6】 r = Int(Rnd*2)
If r = 【7】 Then n1 = n1 + 1 Else
n2 = n2 + 1 End If Next
Text2.Text = n1 Text3.Text = n2 End Sub (5)阅读程序:
Option Base 1
Private Sub Form_Click() Dim a(3)As Integer
Print \输入的数据是:\ For i = 1 To 3
a(i)=InputBox(\输入数据\ Print a(i); Next Print If a(1) t = a(1) a(1)= a(2) a(2)= 【8】 End If
If a(2)>a(3)Then m = a(2)
ElseIf a(1)>a(3)Then m = 【9】 Else
m = 【10】
End If
Print \中间数是:\ End Sub
程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。 (6)在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。请填空。 Private Sub Command1_Click() Sum = 0
For i = 0 To 4
Sum = Sum + 【11】 Next
【12】 = Sum End Sub
(7)在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。 Option Base 1
Dim a(3,2)As Integer
Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 2 【13】 = i + j Next j Next i End Sub
Private Sub Command2_Click() For j = 1 To 3 For i = 1 To 2 s = s + 【14】 Next i Next j
Text1.Text = 【15】
End Sub 转贴于:计算机二级考试_考试大
2004年9月全国计算机等级考试二级VB语言笔试试题答案
一、选择题 ((1)—(20)每小题2分,(21)—(30)每小题2分,共70分)
(1) B (2) C (3) A (4) A (5) C
(6) D (7) D (8) B (9) A (10) B
(11) D (12) A (13) C (14) C (15) D
(16) A (17) B (18) B (19) D (20) D
(21) B (22) D (23) C (24) B (25) C
(26) A (27) A (28) B (29) D (30) C
二、填空题 (每空2分,共30分)
【1】\
【2】 3
【3】list1.additem i
【4】 list1.listcount-1
【5】 list1.list(i)
【6】 n
【7】 1
【8】 t
【9】 a(3)
【10】 a(1)
【11】 label1(i).caption
【12】label2.caption
【13】a(i,j)
【14】a(j,i)
【15】s 转贴于:计算机二级考试_考试大VV06年9月二级VB语言笔试试题及答案 发布时间:11-04 页 数:5页
上一篇:06年四月全国等级考试二级VB语言考前密卷(一)
下一篇:02年9月二级VB语言笔试试题及答案
--------------------------------------------------------------------------------
(1)下列选项中不符合良好程序设计风格的是 ( ) 。 A.源程序要文档化
B.数据说明的次序要规范化 C.避免滥用 goto 语句
D.模块设计要保证高耦合、高内聚
(2)从工程管理角度,软件设计一般分为两步完成,它们是 ( ) 。 A.概要设计与详细设计 B.数据设计与接口设计 C.软件结构设计与数据设计 D.过程设计与数据设计
(3)下列选项中不属于软件生命周期开发阶段任务的是 ( ) 。 A.软件测试 B.概要设计 C.软件维护 D.详细设计
(4)在数据库系统中,用户所见的数据模式为 ( ) 。 A.概念模式 B.外模式 C.内模式 D.物理模式
(5)数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和 ( ) 。 A.编码设计 B.测试阶段 C.运行阶段 D.物理设计
(6)设有如下三个关系表:
下列操作中正确的是 ( ) 。 (7)下列叙述中正确的是 ( ) 。
A.一个算法的空间复杂度大,则其空间复杂度也必定大 B.一个算法的空间复杂度大,则其时间复杂度必定小 C.一个算法的时间复杂度大,则其空间复杂度必定小 D.上述三种说法都不对
(8)在长度为 64 的有序线性表中进行顺序查找,最坏情况下需要比较的次数为 A.63 B.64 C.6 D.7
(9)数据库技术的根本目标是要解决数据的 ( ) 。 A.存储问题
) 。 (