1、二级 VISUAL+BASIC-90 及答案解析(总分：97.00，做题时间：90 分钟)一、选择题(总题数：35，分数：68.00)1.算法的时间复杂度是指_。（分数：2.50）A.算法的执行时间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的基本运算次数2.以下数据结构属于非线性数据结构的是 _。（分数：1.00）A.队列B.线性表C.二叉树D栈3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10
2、)As Integer For i=1 To 3 For j1 To 3 a(i,j)(i-1)*3+j Print a(i,j)； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是_。（分数：1.00）A.1 2 32 4 63 6 9B.2 3 43 4 54 5 6C.1 4 72 5 83 6 9D.1 2 34 5 67 8 94.下列关于函数过程的叙述中，正确的是_。（分数：2.50）A.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.函数过程形参的类型与函数返回值的类型没有关系D.当数组作为函数过
3、程的参数时，既能以传值方式传递，也能以引用方式传递5.在窗体上画一个命令按钮，然后编写如下事件过程，结果为_。 Private Sub Command1_Click() MsgBox Str(123+321) End Sub（分数：2.50）A.字符串“123+321”B.字符串“444”C.数值“444”D.空白6.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。 Private Sub Command1_Click() Dim count(25)As Integer，ch As String ch=UCase(InputBox(“请输入字母
4、字符串“) For k=1 To Len(ch) n=Asc(Mid(ch，k，1)-Asc(“A“) If n=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If mcount(k)Then m=count(k) End If Next k Print m End Sub（分数：1.00）A.0B.1C.2D.37.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 HeightC.Top 或 LeftD.Top 和 Left8.窗体上有一个 Text1
5、 文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是_。（分数：2.50）AABBCCDD9.在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，在属性窗口中把窗体的 KeyPreview 属性设置为 True，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text
6、=“ Text2.Text=“ Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End Function （分数：1.00）49.软件测试的主要和重要的测试方法是通过测试数
7、据和 _ 1_ 的设计来实现。 （分数：2.00）下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 SubPR() Randomize Dim a(10) For j=1 To 10 a(i)=Int( 15 ) If 16 Then k=k+1 Print a(j) Next j Print Print k/10 Fnd Sub（分数：4.00）二级 VISUAL+BASIC-90 答案解析(总分：97.00，做题时间：90 分钟)一、选择题(总题数：35，分数：68.00)1.算法的时间复杂度是指_。（分数：
8、2.50）A.算法的执行时间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的基本运算次数 解析：解析 算法的时间复杂度是指算法在执行过程中所需要的基本运算次数。2.以下数据结构属于非线性数据结构的是 _。（分数：1.00）A.队列B.线性表C.二叉树 D栈解析：解析 线性表、栈和队列等数据结构所表达和处理的数据以线性结构为组织形式。栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一端称为栈顶，另一端称为栈底。一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚被插入的元素。所以栈又称后进先出表(Last In Fi
9、rst Out)：队列可看作是插入在一端进行，删除在另一端进行的线性表，允许插入的一端称为队尾，允许删除的一端称为队头。在队列中，只能删除队头元素，队列的最后一个元素一定是最新入队的元素。因此队列又称先进先出表(First In First Out)。3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j1 To 3 a(i,j)(i-1)*3+j Print a(i,j)；
10、 Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是_。（分数：1.00）A.1 2 32 4 63 6 9B.2 3 43 4 54 5 6C.1 4 72 5 83 6 9D.1 2 34 5 67 8 9 解析：解析 程序共有两层循环，每执行完一次内循环，则打印换行，当外层循环执行第一次时，a(i,j)(i-1)*3+j 相当于 a(1,j)j，由此判断选项 A，D 可能正确，当外层循环执行第二次时，a(i,j)(i-1)*3+j，相当于 a(2,j)3+j，由此可判断选项 D 为正确答案。4.下列关于函数过程的叙述中，正确的是_。（分数：2
11、.50）A.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.函数过程形参的类型与函数返回值的类型没有关系 D.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递解析：解析 本题考查过程定义。在 VB 中出现的变量，如果没有声明类型，那么为变体型。VB 中可以通过调用函数过程得到返回值，一个函数过程只能有一个返回值，如果需要改变主调过程的参数，可以进行传址方式调用函数。VB 数组参数中不存在传址调用，函数的参数和返回值类型之间没有任何关系。5.在窗体上画一个命令按钮，然后编写如下事件过程，结果为_。 Private Sub Command1_C
12、lick() MsgBox Str(123+321) End Sub（分数：2.50）A.字符串“123+321”B.字符串“444” C.数值“444”D.空白解析：解析 考查 MsgBox 语句与 str 函数的用法。Msgbox 语句产生的内容为字符串，所以排除选项C、D；str 函数是将常量、变量或表达式的值转换为字符串格式。6.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。 Private Sub Command1_Click() Dim count(25)As Integer，ch As String ch=UCase(Input
13、Box(“请输入字母字符串“) For k=1 To Len(ch) n=Asc(Mid(ch，k，1)-Asc(“A“) If n=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If mcount(k)Then m=count(k) End If Next k Print m End Sub（分数：1.00）A.0B.1C.2D.3 解析：解析 根据题中的程序代码可知，ch 为输入字符串的大写状态，第一个 For。循环是依次取出字母，n 为取出字母与“A”字符的 ASCII 码差值，然后再赋给数组 coun
14、t()；第二个 For 循环是找出数组count()中的最小值，因此，最后窗体上输出的结果为 3，即选项 D。7.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 Height C.Top 或 LeftD.Top 和 Left解析：解析 Height 和 Width 这两个属性用来指定窗体或窗体的高度和宽度，其单位为 twip。8.窗体上有一个 Text1 文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub
15、程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是_。（分数：2.50）AABBCCDD 解析：解析 KeyPress 事件执行时，其中的 KeyAscii 参数是所按键的 ASCII 码，按下“A”键，KeyAscii 的值为 65，在过程中 65+3=68，即 A 字符后面的第 3 个字符的 ASCII 码值，即字符“D”，因此在文本框中回显“D”。9.在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，在属性窗口中把窗体的 KeyPreview 属性设置为 True，然后编写如下程序： Dim S1 As String,S2 As
16、String Private Sub Form_Load() Text1.Text=“ Text2.Text=“ Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 s1; “s2 =“; s2 End Sub Function Fun( a( ) As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t * a(i) Next Fun=t End F
17、unction （分数：1.00）解析：s1=24 s2=360解析 程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=i；b(i)=i，且数组 a的上下界分别为 1 和 4，数组 b 的上下界分别为 3 和 6；接着将数组 a 作为参数调用 Fun 过程，在 Fun 过程中，定义了两个变量 t 及 i，i 作为循环语句 For 的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)，即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积；同理程序将数组 b 作为参数传递给 Fun 过程后返回数组 b 中各元素的积，运行程序结束
18、后，输出结果为：s1=24 s2=360。49.软件测试的主要和重要的测试方法是通过测试数据和 _ 1_ 的设计来实现。 （分数：2.00）解析：测试实例解析 进行软件测试时，应精心设计测试实例和选择测试数据，以对系统进行全面测试。下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。 SubPR() Randomize Dim a(10) For j=1 To 10 a(i)=Int( 15 ) If 16 Then k=k+1 Print a(j) Next j Print Print k/10 Fnd Sub（分数：4.00）解析：(Rnd*99)+1解析：a(i) mod 5解析 产生 10 个小于 100(不含 100)的随机正整数，需要用到随机函数 Rnd，Rnd 函数是随机生成一个小于 1 的正数随机数，所以根据题意，填入代码为(Rnd+99)+1，而后面加上 1 是为了能保证取到 99。根据题意可知，k 表示 a(i)中 5 的倍数的个数，只有当 a(i)mod 5=0 时，k=k+1。
