君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb实验报告2
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口第一篇:vb二级试题VB 考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。A：SelStart B：SelLength C：SelText D：Text 参考答案：C 2、在窗体上画一个文本框，其名称为 Text1，为了在程序运行后隐藏该文本框，应当使用的 语句为：______。A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False 参考答案：D 3、对于语句 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 为赋值语句 参考答案：D 4、以下变量名中，______是不符合 Visual Basic 的命名规范的。A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A 5、MsgBox 函数返回值的类型是__________。A：数值或字符串 B：字符串 C：变体 D：整型数值 参考答案：D 6、VB 一共有设计、运行和中断三种模式，要使用调试工具应该______。A：进入中断模式 B：进入运行模式 C：进入设计模式 D：不用进入任何模式 参考答案：A 7、设 a=6，则执行 x=IIF(a&5,-1,0) 后，x 的值为______。A：-1 B：6 C：0 D：5 参考答案：A 8、可以同时删除字符前导和尾部空白的函数是______。A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C 9、以下语句的输出结果是______。Print Format$(&32548.5&,&000,000.00&)
A：32,548.5 参考答案：C
B：32548.5
C：032,548.50
D：32,548.50
10、设有如下声明： Dim X As Integer 如果 Sgn(X)的值为-1，则 X 的值是______。A：等于 0 的整数 B：大于 0 的整数 C：整数 D：小于 0 的整数 参考答案：D 11、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是______。参考答案： 15# 15 #15 #15 12、执行下面的程序段后，S 的值为______。s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i 参考答案：9 13、下列表达式有错误,正确的写法应该是______。[(a+b)+c]/80-5÷ (d+e) 参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e） 14、表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为__________ 参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0 15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数 字的平均值，输出结果。请填空。
Private Sub Form_click() Dim x, y As Single Dim z As Integer x = InputBox(&Enter a score&) Do while x&=0 y=y+x z=z+1 x = InputBox(&Enter a score&) Loop If z = 0 Then z=1 End If y = ______ Print y End Sub 参考答案：y/z VB 考试二 1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。A：ListIndex B：ListCount C：Count D：Index 参考答案：B 2、在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干 城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确 实现上述功能的程序是______。A：Private Sub List1_Click() Label1.Caption=List1.Text End Sub B：Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub C：Private Sub List1_Click() Label1.Name=List1.Text End Sub D：Private Sub List1_Click() Label1.Caption=List1.ListIndex End Sub 参考答案：A 3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。A：Listindex B：Index C：List D：Tabindex 参考答案：A
4、为了清除列表框中的所有内容，应使用的方法是：______。A：Clear B：Remove C：RemoveItem D：Cls 参考答案：A 5、在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应 使用的循环语句为______。A：For i=1 To List1.ListCount …… NEXT B：For i=0 To List1.Count-1 …… NEXT C：For i=0 To List1.ListCount-1 …… NEXT D：For i=1 To List1.Count …… NEXT 参考答案：C 6、设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。A： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4 参考答案：A 7、设执行以下程序段时依次输入 1、3、5，执行结果为______。Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(&请输入数据&)) b(3 - K) = a(K + 1) Next K Print b(K) A： 0 B： 3 C： 5 D： 1 参考答案：D
8、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是______。A： 1 2 3 456 789 B： 2 3 4 345 456 C： 1 4 7 258 369 D： 1 2 3 246 369 参考答案：A 9、用下面的语句所定义的数组的元素个数是：______。Dim arr(3 To 5,-2 to 2) A：24 B：12 C：15 D：20 参考答案：C 10、下列______语句可以为动态数组分配实际元素个数。A：static 语句 B：Dim 语句 C：public 语句 D：ReDim 语句 参考答案：D 11、假定程序中有以下语句： answer = MsgBox(&String1&,,&String2&,&String3&,2) 执行该语句后，将显示一个信息框，此时如果单击&确定&按钮，则 answer 的值为：______。A：String3 B：String2 C：String1 D：1 参考答案：D
12、设有语句 x=InputBox(&输入数值&,&0&,&示例&) 程序运行后，如果从键盘上输入数值 10 并按回车键，则下列叙述中正确的是______。A：0 是默认值 B：变量 X 的值是字符串&10& C：在 InputBox 对话框标题栏中显示的是&示例& D：变量 X 的值是数值 10 参考答案：B 13、以下程序段运行的结果是：______。Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A：20 B：7 C：8 D：35 参考答案：D 14、设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为：______。x= IIF((a&b) And (c&d),10,20) A：300 B：20 C：30 D：10 参考答案：B 15、 要将一个组合框设置为简单组合框 （Simple Combo） 则应将其 Style 属性设置为______。， A：0 B：1 C：3 D：2 参考答案：B VB 考试三 1、设组合框 Combo1 中有 3 个项目，则以下能删除最后一项的语句是______。
A：Combo1.RemoveItem Combo1.Listcount B：Combo1.RemoveItem 2 C：Combo1.RemoveItem 3 D：Combo1.RemoveItem Text 参考答案：B 题分：6 2、在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function Func(ByVal x As Integer, y As Integer) y=x*y If y & 0 Then Func = x Else Func = y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=3 b=4 c = Func(a, b) Print &a=&; a Print &b=&; b Print &c=&; c End Sub 程序运行后，单击命令按钮，其输出结果为：______。A：a= 3 b= 4 c= 12 B：a= 13 b= 12 c= 12 C：a= 3 b= 4 c= 3 D：a= 3 b= 12 c= 3 参考答案：D 题分：6 3、单击命令按钮时，下列程序代码的执行结果为______。Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10 m = m / 10
End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 34 Call Procl(x, y) P y End Sub A： 12 3 B： 2 3 C： 12 34 参考答案：D 题分：6
4、以下关于函数过程的叙述中，正确的是______。A：在函数过程中，过程的返回值可以有多个 B：函数过程形参的类型与函数返回值的类型没有关系 C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D：如果不指明函数过程参数的类型，则该参数没有数据类型 参考答案：B 题分：6 5、以下说法错误的是______。A：函数过程可以带参数 B：子过程没有返回值 C：函数过程没有返回值 D：子过程可以带参数 参考答案：C 题分：6 6、在窗体上画一个命令按钮（名称为 Command1） ，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量 b 的值是：______。A：2 B：1 C：0 D：3 参考答案：B 题分：6 7、假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String
Str1 = InputBox(&请输入一个字符串&) Str2= Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串&abcdefg&则单击&确定&按钮后 在窗体上的输出结果为______。A：GFEDCBA B：ABCEDFG C：gfedcba D：abcdefg 参考答案：A 题分：6 8、Sub 过程与 Function 过程最根本的区别是______。A：两种过程参数的传递方式不同 B：Function 过程可以有参数，Sub 过程不可以 C：Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以 D：Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值 参考答案：D 题分：6 9、在代码中定义了一个子过程： Sub P(a,b) ... End Sub 下面______调用该过程的格式是正确的。A：Call P B：Call P 10,20 C：P(10,20) D：Call P(10,20) 参考答案：D 题分：6 10、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X, Y End Sub 程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为______。A： 15 15 B： 15 6 C： 15 16
D： 5 6 参考答案：B 题分：6 11、设有以下循环结构 Do 循环体 Loop While&条件& 则以下叙述中错误的是______。A：循环体中可以使用 Exit Do 语句 B：&条件&可以是关系表达式、逻辑表达式或常数 C：若&条件&是一个为 0 的常数，则一次也不执行循环体 D：如果&条件&总是为 True，则不停地执行循环体 参考答案：C 题分：6 12、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s=0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示是______。A：7 B：6 C：8 D：9 参考答案：A 题分：6 VB 考试四 1、某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer,max As Integer For k=1 To 10 a(k)=InputBox(&输入一个整数&) Next k max=0 For k=1 To 10
If a(k)&max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误 的，程序需要修改。下面的修改中可以得到正确运行结果的是______。A：把 max=a(k)改为 a(k)=max B：把 If a(k)&max Then 改为 If a(k)&max Then C：把第 2 个循环语句 For k=1 To 10 改为 For k=2 To 10 D：把 max=0 改为 max=a(10) 参考答案：D 2、设有语句：Open &d:\Test.txt& For Output As #1，以下叙述中错误的是______。A：执行该语句后，就可以通过 Print#语句向文件 Test.txt 中写入信息 B：用该语句建立的文件的文件号为 1 C：该语句打开 d 盘根目录下一个已存在的文件 Test.txt，之后就可以从文件中读取信息 D：若 d 盘根目录下无 Test.txt 文件，则该语句创建此文件 参考答案：C 3、工程中有 2 个窗体，名称分别为 Form1、Form2，Form1 为启动窗体，该窗体上有命令按 钮 Command1。要求程序运行后单击该命令按钮时显示 Form2，则按钮 Click 事件过程应该 是______。A：Private Sub Command1_Click() Form2.Load End Sub B：Private Sub Command1_Click() Form2.Visible End Sub C：Private Sub Command1_Click() Load Form2 End Sub D：Private Sub Command1_Click() Form2.Show End Sub 参考答案：D 4、在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a
a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。A：12 B：1234 C：34 D：4321 参考答案：B 5、设在窗体中有一个名称为 List1 的列表框，其中有若干个项目（如图） 。要求选中某一项 后单击 Command1 按钮，就删除选中的项，则正确的事件过程是______。A：Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub B：Private Sub Command1_Click() List1.Clear End Sub C：Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub D：Private Sub Command1_Click() List1.RemoveItem End Sub 参考答案：C 6、窗体上有一个名称为 Frame1 的框架（如图） ，若要把框架上显示的&Frame1&改为汉字& 框架&，下面正确的语句是______。A：Frame1.Caption=&框架& B：Frame1.Name=&框架& C：Frame1.Text=&框架& D：Frame1.Value=&框架& 参考答案：A 7、设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件
File1.jpg，能实现此功能的语句是______。A：Call LoadPicture(&File1.jpg&) B：Picture1.Picture=LoadPicture(&File1.jpg&) C：LoadPicture(&File1.jpg&) D：Picture1.Picture=&File1.jpg& 参考答案：B 8、在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则 以下正确的属性设置语句是______。A：Timer1.Interval=50 B：Timer1.Interval=5 C：Timer1.Interval=0.5 D：Timer1.Interval=500 参考答案：D 9、在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写 如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter=&All Files(*.*)|*.*|Text Files& &_ &(*.txt)|*.txt|Executable Files(*.exe)|*.exe& CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个&打开&对话框，此时在&文件类型&框中显示的是 ______。A：Text Files(*.txt) B：AllFiles(*.*) C：Executable Files(*.exe) D：不确定 参考答案：C 10、在窗体上画一个名称为 Command1 命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = &ABCD& For n = 1 To 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD
BCD ABCD 则在______处填入的内容为。A：Left(c,n) B：Right(c,n) 参考答案：B
C：Mid(c,n,n)
D：Mid(c,n,1)
11、在窗体上画一个名称为 Label1、标题为&VisualBasic 考试&的标签，两个名称分别为 Command1 和 Command2、 标题分别为&开始&和&停止&的命令按钮， 然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示。编写如下程序： Private Sub Form_Load() Timer1.Enabled=False End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left&Width Then Label1.Left = Label1.Left + 20 Else Label1.Left=0 End If End Sub 程序运行后，单击&开始&按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。A：单击&停止&按钮后再单击&开始&按钮，标签从停止的位置继续移动 B：标签的移动方向为自右向左 C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D：标签按指定的时间时隔移动 参考答案：B 12、执行下列语句 strInput=InputBox(&请输入字符串&,&字符串对话框&,&字符串&) 将显示输入对话框。此时如果直接单击&确定&按钮，则变量 strInput 的内容是______。A：&请输入字符串& B：空字符串 C：&字符串& D：&字符串对话框& 参考答案：C 13、假定在图片框 Picture1 中装入了一个图形，为了清除该图形（不删除图片框） ，应采用 的正确方法是______。A：执行语句 Picture1.Picture =&&
B：执行语句 Picture1.Picture = LoadPicture (&&) C：选择图片框，然后按 Del 键 D：选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键 参考答案：B 14、在窗体上画一个命令按钮和一个文本框，名称分别为 Command1 和 Text1，然后编写如 下程序： Private Sub Command1_Click() a=InputBox(&请输入日期（1～31）&) t=&旅游景点：& _ & IIf ( a & 0 And a &= 10,&长城&,&&) _ & IIf ( a &10 And a &= 20,&故宫&,&&) _ & IIf ( a & 20 And a &= 31,&颐和园&,&&) Text1.Text = t End Sub 程序运行后，如果从键盘上输入 16，则在文本框显示的内容是______。A：旅游景点：长城颐和园 B：旅游景点：长城故宫 C：旅游景点：颐和园 D： 旅游景点：故宫 参考答案：D 15、若变量 a 未事先定义而直接使用（例如：a=0） ，则变量 a 的类型是______。A：Variant B：String C：Boolean D：Integer 参考答案：A 16、有如下程序： ： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 && 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A：30 B：12 C：24 D：18 参考答案：B 17、以下能从字符串&VisualBasic&中直接取出子字符串&Basic&的函数是______。A：String B：Mid C：Left D：Instr
参考答案：B 18、设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项 内容的是______。A：List1.ListIndex B：List1.List C：List1.Text D：List1.Index 参考答案：C 19、设 a=5,b=10，则执行 c = Int((b - a) * Rnd + a) + 1 后，c 值的范围为______。A：6~10 B：6~9 C：5~10 D：5~9 参考答案：A 20、在窗体上有 1 个名为 Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则 在程序中应使用的语句是______。A：Cd1.Action=2 B：Cd1.ShowSave=True C：Cd1.Action=1 D：Cd1.ShowSave=0 参考答案：A 21、下面可以正确定义 2 个整型变量和 1 个字符串变量的语句是______。A：Dim a As Integer,b,c As String B：Dim a%,b$,c As String C：Dim n,m As Integer,s As String D：Dim x%,y As Integer,z As String 参考答案：D 22、在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框 的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(&Enter an integer&) b = InputBox(&Enter an integer&) Text1.Text = b + a End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内 容是______。A：出错 B：18 C：810 D：108 参考答案：D 23、在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令 按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName =&& CommonDialog1.Filter=&All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt& CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=&VBTest& CommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是______。A：在该对话框中指定的默认文件类型为文本文件(*.Txt) B：在该对话框中指定的默认文件名为空 C：该对话框的标题为 VBTest D：该对话框被设置为&打开&对话框 参考答案：A 24、 设在窗体 Forml 上有一个列表框 Listl， 其中有若干个项目。要求单击列表框中某一项时， 把该项显示在窗体上，正确的事件过程是______。A：Private Sub List1_Click() Print Form1.Text End Sub B：Private Sub Form1_Click() Print List1.Text End Sub C：Private Sub List1_Click() Print List1.Text End Sub D：Private Sub Form1_Click() List1.Print List1.Text End Sub 参考答案：C 25、在窗体上从左到右有 Text1、Text2 两个文本框（见图） ，要求运行程序时在 Text1 中输 入 1 个分数后按回车键，则判断分数的合法性，若分数为 0～100 中的 1 个数，则光标移到
Text2 中；否则光标不动，并弹出对话框&分数错&。下面程序中正确的是______。A：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的 ASCII 码是 13 a=Val(Text1) If a&0 And a&100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox(&分数错&) End If End If End Sub B：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的 ASCII 码是 13 a=Val(Text1) If a&=0 Or a&=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox(&分数错&) End If End If End Sub C：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的 ASCII 码是 13 a=Val(Text1) If a&=0 And a&=100 Then Text2.SetFocus Else Text1.SetFocus:MsgBox(&分数错&) End If End If End Sub D：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then ' 回车符的 ASCII 码是 13 a=Val(Text1) If a&=0 And a&=100 Then Text1.SetFocus Else Text2.SetFocus:MsgBox(&分数错&) End If End If End Sub
参考答案：C 26 、假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命 令按钮后，能使打开的对话框的标题为&New Title&的事件过程是______。A：Private Sub Command1_Click() CommonDialog1.DialogTitle = &New Title& CommonDialog1.ShowPrinter End Sub B：Private Sub Command1_Click() CommonDialog1.DialogTitle = &New Title& CommonDialog1.ShowColor End Sub C：Private Sub Command1_Click() CommonDialog1.DialogTitle = &New Title& CommonDialog1.ShowOpen End Sub D：Private Sub Command1_Click() CommonDialog1.DialogTitle = &New Title& CommonDialog1.ShowFont End Sub 参考答案：C 27、在窗体上画一个通用对话框，程序运行后，通过 ShowOpen 方法显示&打开&对话框，要 求在该对话框的&文件类型&栏中只显示扩展名为 DOC 的文件，则对通用对话框的 Filter 属 性的正确设置是：______。A： &(*.DOC)*.DOC& B： &(*.DOC)|(.DOC)& C： &(*.DOC)|*.DOC& D： &(*.DOC)||*.DOC& 参考答案：C 28、以下说法中正确的是______。A：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 B：任何时候都可以通过执行&工具&菜单中的&菜单编辑器&命令打开菜单编辑器 C：任何时候都可以通过单击标准工具栏上的&菜单编辑器&按钮打开菜单编辑器 D：只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 参考答案：A 29、为了暂时关闭计时器，应把计时器的某 个属性设置为 False，这个属性是______。A：Timer B：Visble C：Enabled D：Interval 参考答案：C 30、某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的 属性设置为 Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 2 秒在标 签上显示一次系统当前时间。
Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是______。A：通过属性窗口把计时器的 Enabled 属性设置为 False B：把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time C：通过属性窗口把计时器的 Interval 属性设置为 2000 D：把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=Time$ 参考答案：C 31、若设置了文本框的属性 PasswordChar=&$&，则运行程序时向文本框中输入 8 个任意字符 后，文本框中显示的是______。A：无任何内容 B：1 个&$& C：8 个&*& D：8 个&$& 参考答案：D 32、在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序： Private Sub Form_Load() Command2.Enabled = False Check1.Value = 1 End Sub
刚运行程序时，看到的窗体外观是______。A： B： C： D： 参考答案：D 33、要使两个单选按钮属于同一个框架，正确的操作是______。A：先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 B：其他选项方法都正确 C：先画一个框架，再在框架中画两个单选按钮 D：先画两个单选按钮，再画框架将单选按钮框起来 参考答案：C 34、在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写 如下事件过程 Private Sub Form_Load()
List1.AddItem &Item1& List1.AddItem &Item2& List1.AddItem &Item3& End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = &AAAA& End Sub 程序运行后，单击命令按钮，其结果为______。A：把列表框中原有的最后一项改为&AAAA& B：把字符串&AAAA&添加到列表框的最后（即&Item3&的后面） C：把字符串&AAAA&添加到列表框中，但位置不能确定 D：把字符串&AAAA&插入到列表框的最前面（即&Item1&的前面） 参考答案：B 35、在窗体上画 1 个命令按扭（名称为 Command1）和 1 个文本框（名称为 Text1） ，然后编 写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is&=10,Is&=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按扭，则以下叙述中正确的是______。A：先执行 y=x*x，再执行 y=-x B：执行 y=-x C：执行 y=x*x D：程序出错 参考答案：C 36、以下不能输出&Program&的语句是______。A：Print Left(&VBProgram&,7) B：Print Right(&VBProgram&,7) C：Print Mid(&VBProgram&,3) D：Print Mid(&VBProgram&,3,7) 参考答案：A
37、窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Command1 的命令按钮。要求程序运 行时，单击命令按钮，就可把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到 文件原有内容之后。下面能够正确实现上述功能的程序是______。A：Private Sub Command1_Click() Open &out.txt& For Append As #1 Print #1,Text1.Text Close #1 End Sub B：Private Sub Command1_Click() Open &out.txt& For Output As #1 Print #1,Text1.Text Close #1 End Sub C：Private Sub Command1_Click() Open &out.txt& For Input As #1 Print #1,Text1.Text Close #1 End Sub D：Private Sub Command1_Click() Open &out.txt& For Random As #1 Print #1,Text1.Text Close #1 End Sub 参考答案：A 38、设有如图所示窗体和以下程序： Private Sub Command1_Click() Text1.Text=&Visual Basic& End Sub Private Sub Text1_LostFocus() If Text1.text&&&BASIC& Then Text1.Text=&& Text1.SetFocus End If End Sub 程序运行时，在 Text1 文本框中输入&Basic&（如图所示） ，然后单击 Command1 按钮，则产 生的结果是______。A：文本框中为&Basic&，焦点在文本框中 B：文本框中无内容，焦点在文本框中 C：文本框中为&Basic&，焦点在按钮上 D：文本框中为&Visual Basic&，焦点在按钮上
参考答案：B 39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为______。A：Unload B：Load C：Show D：Hide 参考答案：D 40、某人创建了 1 个工程，其中的窗体名称为 Form1；之后又添加了一个名为 Form2 的窗 体，并希望程序执行时先显示 Form2 窗体，那么，他需要做的工作是______。A：把 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex 属性设置为 2 B：在 Form1 的 Load 事件过程中加入语句 Load Form2 C：在 Form2 的 Load 事件过程中加入语句 Form2.Show D：在工程属性对话框中把&启动对象&设置为 Form2 参考答案：D 41、CommonDialog 控件可以显示______种对话框。A：4 种 B：5 种 C：7 种 D：6 种 参考答案：D 42、现有语句：y=IIf(x&0,xMod3,0) 设 x=10，则 y 的值是______。A：语句错误 B：1 C：3 D：0 参考答案：B 43、假定有下表所列的菜单结构： 标题 显示 大图标 小图标 名称 appear bigicon smallicon 层次 1（主菜单） 2（子菜单） 2（子菜单）
要求程序运行后，如果单击菜单项&大图标&，则在该菜单项前添加一个&√&。以下正确的事 件过程是______。A：Private Sub bigicon_Click() Me.appear.bigicon.Checked = True End Sub B：Private Sub bigicon_Click() bigicon.Checked = False
End Sub C：Private Sub bigicon_Click() bigicon.Checked = True End Sub D：Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub 参考答案：C 44、函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能 正确实现上述功能的代码的是______。A：Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function C：Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function D：Function F1(b As Integer) If b Mod 2 && 0 Then Return 0 Else Return 1 End If End Function 参考答案：C 45、要使一个文本框可以显示多行文本，应设置为 True 的属性是______。A：MultiLine B：Enabled
C：MaxLength D：Width 参考答案：A 46、以下关于图片框控件（PictureBox）的说法中，错误的是______。A：用 Stretch 属性可以自动调整图片框中图形的大小 B：清空图片框控件中图形的方法之一是加载一个空图形 C：图片框控件可以作为容器使用 D：可以通过 Print 方法在图片框中输出文本 参考答案：A 47、以下有关数组定义的语句序列中，错误的是______。A：Static arr1(3) arr1(1)=100 arr1(2)=&Hello& arr1(3)=123.45 B：Option Base 1 Private Sub Command3_Click() Dim arr3(3) As Integer …… End Sub C：Dim arr2() As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox(&输入:&) ReDim arr2(size) …… End Sub D：Dim n As Integer Private Sub Command4_Click() Dim arr4(n) As Integer …… End Sub 参考答案：D 48、用 Write 和 Print 语句向文件中写入多个数据的差别在于______。A：Print 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 B：Print 语句自动在数据项之间插入逗号 C：Write 语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D：Write 语句不会自动在数据项之间插入逗号 参考答案：C
49、以下语句用于打开一个顺序文件 Open &C:\MyFile.txt& For OutPut 但该语句的一个重要 错误是没有______。A：指定打开文件名 B：指定文件号 C：指定打开方式 D：指定文件类型 参考答案：B 50、设有如下语句： Dim a,b As Integer c=&VisualBasic& d=#7/20/2005# 以下关于这段代码的叙述中，错误的是______。A：c 中的数据是字符串 B：b 被定义为 Integer 类型变量 C：a 被定义为 Integer 类型变量 D：d 中的数据是日期类型 参考答案：C
第一篇:vb二级试题二级 Visual Basic 语言程序设计标准预测试卷五 一、选择题(每小题 2 分，共 70 分) 下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题 卡相应位置上，答在试卷上不得分。(1)下面各项中不属于软件生存期中开发阶段的是 A)需求分析 B)程序设计 C)概要设计 D)软件测试 (2)下面描述中属于软件测试目的的是 A)改正程序中的错误 B)发现程序中的错误 C)表明程序没有错误 D)验证程序的可靠性 (3)下述各描述中不属于白盒测试法概念的是 A)至少执行一次模块中的所有独立路径 B)执行边界条件下的所有循环 C)所有判断的每一分支至少执行一次 D)执行边界条件下的所有接口 (4)下列叙述中错误的是 A)软件不是自然界的有形物体，是一种逻辑实体 B)软件是程序、数据及相关文档的集合 C)软件在运行、使用期间不存在磨损、老化问题 D)软件的运行仅对计算机硬件具有依赖性 (5)与所使用的计算机无关的是数据的 A)物理结构 B)逻辑结构 C)存储结构 D)逻辑和物理结构， (6)将 6 个数据进行冒泡排序，在最坏情况下需要比较的次数是 A)15 B)5 C)6 D)30
(7)设有如图所示的二叉树
则对该二叉树中序遍历的结果是 A)FCADBEG B)ACBDFGE C)ABDCGEF D)ACBDFEG (8)下列说法正确的是 A)一个关系可以有多个候选键(码) B)一个关系只有一个候选键(码) C)一个关系所有属性是候选键(码) D)一个关系所有属性都不是候选键(码) (9)用树形结构来表示实体之间联系的模型称为 A)关系模型 B)层次模型 C)网状模型 D)数据模型 (10)一个人有一个身份证号码，一个身份证号码对应一个人。实体“人”和实体“身 份证号码”存在的联系是 A)一对一 B)一对多 C)多对多 D)无定义 (11)在窗体上画一个名称为 Commandl 的命畎磁ィ?缓蟊嘈慈缦鲁绦
颍?BR& 程序运行时，三次单击命令按钮 Command1 后，窗体上显示的结果为 A)15 16 B)15 6
C)15 15 D)5 6 (12)设 a=3，b=5，则以下表达式值为真的是 A)a&=b And b&10 B)(a&b)Or(b&0) C)(a&0)Eqv(b&0) D)(-3+5&a)And(b&O) (13)设有语句 x=InputBox(”输入数值”，“0”，“示例”)程序运行后，如果从键盘 上输入数值 10 并按回车键，则下列叙述中正确的是 A)变量 x 的值是数值 10 B)在 InputBox 对话框标题栏中显示的是”示例” C)0 是默认值 D)变量 X 的值是字符串“10” (14)设 a=“VisualBasic”，下面使 b=“Basic”的语句是 A)b=Left(a，8，12) B)b=Mid(a，8，5) C)b=Right(a，5) D)b=Left(a，8，5) (15)从键盘上输入两个字符串，分别保存在变量 str1、str2 中。确定第二个字符串在 第一个字符串中起始位置的函数是 A)Left B)Mid C)String D)Instr (16)在窗体上有一个文本框控件，名称为 TxtTime；一个计时器控件，名称为 Timer1， 要求每一秒钟在文本框中显示一次当前的时间。程序为：
在下划线上应填入的内容是 A)Time B)False C)True D)Timer (17)在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体” 和“黑体”；一个复选框，名称为 Check1，标题为“粗体”；一个文本框，名称为 Text1， Text 属性为“改变文字字体”。要求程序运行时，“宋体”、“单选按钮”和“粗体”复 选框被选中(窗体外观如图所示)，则能够实现上述要求的语句序列是 A)Option1.Value=True Check1.Value=False
B)Option1.Value=True Check1.Value=True C)Option2.Value=False Check1.Value=True D)Option1.Value=True Check1.Value=1
(18)为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的 一个属性设置为 True，这个属性是 A)Value B)Default C)Cancel D)Enabled (19)在窗体卜画一个图片框 Picture1 和命今按钮 Command1，然后编写如下程序，
程序运行后，如果单击命令按钮，则在图片框中显示的内容是 A)BBCCCDDDDEEEEE B)AABBBCCCCDDDDD C)BB CCC DDDD EEEEE D)AA BBB CCCC DDDDD (20)在窗体上画两个名称分别为 Label1、Label2 的标签和一个名称为 Command1 的命 令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在两个标签上显示的值分别是 A)15 和 1 B)27 和 3 C)195 和 3 D)600 和 4 (21)在窗体上画二个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮， 然后 编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是 A)2 B)3 C)4 D)5 (22)在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮， 然后 编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是 A)12 B)13 C)14 D)1 5
(23)在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：
程序运行后，单击命令按钮，窗体上显示的是 A)1 2 3 2 4 6 3 6 9 B)2 3 4 3 4 5 4 5 6 C)1 4 7 2 5 8 3 6 9 D)1 2 3 4 5 6 7 8 9 (24)设有如下程序：
程序运行后，单击窗体，则在窗体上显示的是 A)3 4 5 6 B)4 5 6 7 C)6 5 4 3 D)7 6 5 4 (25)在窗体上画一个命令按钮，名称为 Commandl。程序运行后，如果单击命令按钮， 则显示一个输入对话框， 在该对话框中输入一个整数， 并用这个整数作为实参调用函数过程 F1。在 F1 中判断所输入的整数是否是奇数，如果是奇数，过程 F1 返回 1，否则返回 0。能 够正确实现上述功能的代码是
(26)在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框， 然后 编写如下程序：
程序运行后，如果单击命令按钮，则在文本框中显示的内容是 A)0 B)14 C)z D)Str(z) (27)以下叙述中错误的是 A)在 KeyUp 和 KeyDown 事件过程中，从键盘上输入 A 或 a 被视作相同的字母(即具有相同的 KeyCode) B)在 KeyUp 和 KeyDown 事件过程中， 将键盘上的“1”和右侧小键盘上的“1”视作不同的数 字(具有不同的 KeyCode) C)KeyPress 事件中不能识别键盘上某个键的按下与释放 D)KeyPress 事件中可以识别键盘上某个键的按下与释放 (28)以下叙述中正确的是 A)在同一窗体的菜单项中，不允许出现标题相同的菜单项 B)在菜单的标题栏中，”&”所引导的字母指明了访问该菜单项的访问键 C)程序运行过程中．不可以重新设置菜单的 Visible 属性 D)弹出式菜单不在菜单编辑器中定义 (29)设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时显示该菜单项， 应使用的语句是 A)menu1.Enabled=True B)menu1.Enabled=False C)menu1.Visible=True D)menu1.Visible=False (30)以下叙述中错误的是 A)在程序运行时，通用对话框控件是可见的 B)在同一个程序中， 用不同的方法(如 ShowOpen 或 ShowSave 等)打开的通用对话框具有不同 的作用 C)调用通用对话框控件的 ShowOpen 方法。只是打开一个对话框供用户操作，并不是直接打 开在该通用对话框中指定的文件。D)调用通用对话框控件的 ShowColor 方法， 可以打开颜色对话框来源:阳光学习网-计算机二 级考试
(31)以下叙述中错误的是 A)一个工程中只能有一个 Sub Main 过程 B)窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 C)窗体的 Hide 方法和 Unload 方法的作用完全相同 D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 (32)以下叙述中正确的是 A)一个工程中只能包含一个窗体文件 B)在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用 C)在设计 Visual Basic 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁 盘文件 D)全局变量不需要在标准模块中定义 (33)设在工程中有一个标准模块，其中定义了如下记录类型
在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1＿Click 时，在 顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是
(34)以下叙述中正确的是 A)一个记录中所包含的各个元素的数据类型必须相同 B)随机文件中每个记录的长度是可变的
C)随机文件中每个记录的长度是固定不变的 D)使用 Input#语句可以从随机文件中读取数据 (35)目录列表框的 Path 属性的作用是 A)显示当前驱动器或指定驱动器上的目录结构 B)显示当前驱动器或指定驱动器上的某目录下的文件名 C)显示根目录下的文件名 D)显示该路径下的文件 二、填空题(每空 2 分，共 30 分) 填空题( 请将正确答案分别写在答题卡中序号为【1】至【15】的横线上，答在试卷上不得分。(1)软件的模块独立性是由内聚性和【1】来度量的。(2)软件测试的方法通常分为自盒测试方法和黑盒测试方法，其中 【2】测试方法是检 查程序是否符合它的功能说明。(3)软件集成测试的依据是【3】 。(4)关系数据模型的三要素是数据结构、关系操作和【4】 。(5)在 E-R 图中，用【5】表示实体之间的联系。(6)在窗体上画两个标签，其名称分别为 Label1 和 Labet2，Caption 属性分别为“数 值”及空白； 然后画一个名称为 Hscroll1 的水平滚动条， Min 的值为 0， 其 Max 的值为 125。程序运行后，如果单击滚动条两端的箭头，则在标签 Label2 中显示滚动条的值，如图所示。请在【6】处填入适当的内容，将程序补充完整。
(7)在窗体上画一个名称为 Commandl 的命令按钮和一个名称为 Text1 的文本框。程序 运行后，Command1 为禁用(灰色)。当向文本框中输入任何字符时，命令按钮 Command1 变为 可用。请在【7】处填入适当的内容，将程序补充完整。
(8)以下程序的功能是： 从键盘上输入若干个学生的考试分数， 当输入负数时结束输入， 然后输出其中的最高分数和最低分数。请在【8】和【9】处填入适当的内容，将程序补充完 整。
(9)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
程序运行后，在文本框中显示的内容是【10】 ，而在图片框中显示的内容是【11】 。(10)在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序：
程序运行后，单击命令按钮，输出结果为【12】 。(11)为了改变计时器控件的时间间隔，应该修改该控件的【13】属性。(12)在窗体上画一个名称为 Lablel 的标签和一个名称为 List1 的列表框。程序运行后， 在列表框中添加若干列表项。当选中列表框中的某个项目时，在标签 Label1 中显示所选中
的项目，如图所示。请在【14】和【15】处填入适当的内容，将程序补充完整。
标准预测试卷五答案及解析 一、选择题 (1)A【解析】在软件开发阶段中，包括系统设计(也称概要设计)、详细设计、编码和测试。系统设计的任务是划分出构成系统的各物理元素(如程序、文件、数据库、人工过程与文档 等)以及设计出软件的结构(如确定模块及模块问的关系)。详细设计的任务是对系统作出精 确的描述， 以便在编码阶段可直接将这一描述用程序设计语言编制成程序。除了应该保证程 序的可靠性外，此阶段最重要的目标是要保证将来的程序易读、易理解、易测试、易修改和 易维护。因此，结构程序设计技术就成为实现上述目标的基本保证，并且也是详细设计的逻 辑基础。编码是将系统设计与详细设计阶段中的结果翻译成用某种程序设计语言书写的程 序。由上所述，需求分析不属于开发阶段的任务。(2)B【解析】软件测试的目标是在精心控制的环境下执行程序，以发现程序中的错误， 给出程序可靠性的鉴定。测试不是为了证明程序是正确的， 而是在设想程序有错误的前提下 进行的，其目的是设法暴露程序中的错误和缺陷。有人将测试的挑剔性总结为以下三点： ①测试是程序执行的过程，目的在于发现错误； ②一个好的测试在于能发现至今未发现的错误； ③一个成功的测试是发现了至今未发现的错误。由于测试的这一特征，一般应当避免由开发者测试自己的程序。测试只能说明程序有错，而 不能证明程序无错， 希望通过有限次的测试就能发现程序中的所有错误是不可能的， 即完全 测试是不可能的。由此可知，选项 A、C、D 都不属于软件测试目的。(3)D【解析】 白箱测试用例的设计准则有：语句覆盖，分支覆盖，条件覆盖和组合条 件覆盖。语句覆盖准则是企图用足够多的测试用例，使程序中的每个语句都执行一遍，以便 尽可能多地发现程序中的错误。分支覆盖准则也称为判定覆盖准则。它要求通过足够多的测 试用例，使程序中的每个分支至少通过一次。条件覆盖准则是通过执行足够多的测试用例，
使每个判定中的每个条件都能取到两种不同的结果(“真”与“假”)。组合条件覆盖准则要 求通过足够多的测试用例，使每个判定中各条件的各种可能组合至少出现一次。由此可知， 选项 D)不属于白盒测试法概念。(4)D【解析】软件的运行不仅对计算机硬件具有依赖性，如果是应用软件，还依赖于 操作系统等系统软件。因此，选项 D 是错误的，而其他三个选项是正确的。(5)B【解析】数据的存储结构(即物理结构)是逻辑结构在计算机中的表示，因此，数 据的存储结构(即物理结构)与所使用的计算机无关。而数据的逻辑结构与计算机无关， 是客 观存在的。(6)A【解析】对长度为 n 的线性表进行冒泡排序，在最坏情况下需要 n(n-1)／2 次比 较，现线性表的长度为 6，在最坏情况下需要比较的次数为 6(6-1)／2=15。(7)D【解析】按照二叉树中序遍历的方法：在访问根结点、遍历左子树与遍历右子树 这三者中，首先遍历左子树，然后访问根结点，最后遍历右子树；并且，在遍历左、右子树 时，仍然先遍历左子树，然后访问根结点，最后遍历右子树。对本题中的二叉树进行中序遍 历的结果应是 ACBDFEG。(8)A【解析】一个关系可以有多个候选键(码)，但不能所有属性都是或都不是候选键 (码)。(9)B【解析】用树形结构来表示实体之间联系的模型称为层次模型。(10)A【解析】一个人有一个身份证号码，一个身份证号码对应一个人。则实体“人” 和实体“身份证号码”之间存在一对一联系。(11)B【解析】X 的初始化为 0，将 Y=1 和 x=0 代入表达式，第 1 次得 X=5，Y=6。每单 击一次，X 增加 5，由于又执行 Y=1，所以 Y 的值又是 5。可知答案为 B。(12)B【解析】从 A 判下来，到 B 得到 True，选择 B。注意 C 项 Eqv 两边同时为 False 或 True 时，表达式才为真。其实，找到一个表达式值为真的，就不可能再有符合条件的， 无需再费时间。(13)D【解析】InputBox 函数接受的是字符串，选择 D。A 和 D 是矛盾的一对，也就完 全可以排除 B 和 C。(14)C【解析】Left 函数只有两个参数，所以排除 A 和 D。C 项能正确输出“Basic”， 但 B 项的输出是“asic”。应该为 Mid(a，7，5)。(15)D【解析】A 和 B 肯定不是，C 是复制字符串。Instr(str1，str2)才是确定第二个 字符串在第一个字符串中起始位置的函数。注意把它分成“In”和“str”， 含义非常明显。(16)A【解析】把时间赋给文本框，所以为 A。
(17)D 【解析】 0ptionl 的属性 Value 是布尔类型， Checkl 是整数(0、 和 2)。而 1 Checkl 有三个状态：不选、选中和灰色。正确的答案是 D。(18)C【解析】选择与 Esc 含义等同的 Cancel，即 C。(19)C 【解析】 因为输出格式不是输出在同一排， 所以答案只能在 c 和 D 中挑选。ASCIl 为 66 的是字符 B，0 T0 1 计数两次，首先连续输出两个 B，所以选项 C 是正确的答案。(20)B【解析】所给 4 个选项中，第一个标签上的值是不同的，所以计算时不要管 n 的 值。X 的值分别为 3、9、27，29&20 结束循环。输出与 27 组成一对的是 B。(21)B【解析】本题只能计算当 i&1 所循环的次数。注意 i 在循环体内被强行加 3，到 For 循环时．还要再加步长 1，这相当于
因此，n=3。选择 B。(22)A【解析】直接由表达式求和： array1(2，3)=2+3=5 array1(3，4)=3+4=7 7+5=12，选择 A。(23)D【解析】由 a(1，j)(j=0，1，2)可知第一行为：12 3。a(2，1)=1*3+1=4，由此 可确定答案为 D。(24)B【解析】数组下标从 0 开始，a(3)=4。从 4 处正向输出得 45 6 7。(25)B【解析】函数过程不能使用 Return 语句，这就排除了 A 和 B。如果是偶数．过程 F1 返回 0，所以紧接 Then 语句下面的 F=0，即 8 是正确的。(26)B【解析】SunPl 的参数 c 是采用传址方式，返回 c=7+7=14，选择 B。(27)D 【解析 1KeyPress 事件的参数是 KeyAscii， 所以能够识别键盘上某个键的按下与 释放。(28)B【解析】在同一窗体的菜单项中，不允许出现标题相同的菜单项的；程序运行 过程中，可以重新设置菜单的 Visible 属性；弹出式菜单也在菜单编辑器中定义。B 是正确 的叙述：在菜单的标题栏中，“＆”所引导的字母指明了访问该菜单项的访问键。(29)C【解析】显示是将属性 Visual 设置为 True，选择 C。(30)C【解析】在程序运行时，通用对话框控件是不可见的。(31)C【解析】 窗体的 Hide 方法和 Unload 方法的作用并不完全相同。Hide 方法隐藏 但不卸载；Unload 方法是将窗体卸载。其他 3 项的叙述是正确的。
(32)C【解析】一个工程中可以包含多个窗体文件；在一个窗体文件中用 Private 定义 的通用过程不能被其他窗体调用；全局变量必须在标准模块中定义。正确的叙述是 C 项。(33)D【解析】写文件只能在 B 和 D 中选择，Write 语句不能一次写一整条记录，只能 一个元素一个元素的写，所以选择 D。(34)C【解析】B 和 C 矛盾，答案应是其中之一。随机文件中每个记录的长度是固定的， 正确答案是 C。其实，一个记录中所包含的各个元素的数据类型可以不同，Input#语句也不 可以从随机文件中读取数据。(35)A【解析】 目录列表框的 Path 属性的作用是显示当前驱动器或指定驱动器上的目 录结构。重点是抓住目录结构，目录结构涉及驱动器和目录列表。二、填空题 (1)【1】耦合性 【解析】软件的模块独立性是由内聚性和耦合性来度量的。(2)【2】黑盒 【解析】软件测试的方法通常分为白盒测试方法和黑盒测试方法，其中 黑盒测试方法是检查程序是否符合它的功能说明。(3)【3】概要设计说明书 【解析】软件集成测试的依据是概要设计说明书。(4)【4】完整性约束 【解析】关系数据模型的三要素是数据结构、关系操作和完整性 约束。(5)【5】菱形框 【解析】 在 E-R 图中，用菱形框表示实体之问的联系。(6)【6】Value 【解析】产生 Hscroll1 的事件，显示该控件的属性值 Value。可以想 象：滑块改变位置，引起值的变化，从而联想到 Value 的变化。(7)【7】True 【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从 而触发 Change 事件，事件处理程序将命令按钮激活即可。这通过设置 Command1.Enabled 的属性值为真来实现。(8)【8】x&=0 【9】x&=amin 或 xX 或 amin&=X 【解析】填[81 是要考虑允许学生成绩为 0，所以选择 x&=0。填空【9】的思路有两种。一 般是根据上面的算法， 顺理成章地选择 X 作为做操作数。虽然选择 x&=amin 或 xx 比 amin&=X 效率高。尽管都可以实现程序功能， 但建议考生选择算法效率高， 并且可读性好的 x&IAMIN。& P& (9)【10】VisualBasic【11】级等级考试 【解析】程序运行使文本框内出现“Visual Basic”，这又触发 Textl_Change()事件，这 个事件的处理程序调用 Picturel 的 Print 方法，将字符串输出到图片框，从而在图片框内 输出字符串“二级等级考试”。(10)【12】250 【解析】If 第一个参数由(X&y and x&Z)的值决定。如果比较的结果过 真，取 A 的值，否则取 B 的值。& P&
(11)【13】Interval【解析】 计时器控件的时间间隔是内部(Inter)设置的值(val)。(12)【14】Load【15】List1.Text 或 List1 或 Form1.List1.Text 或 Me.List1.Text 或 Form1.Listl 或 Me.List1【解析】程序运行后，在列表框中添加若干列表项，显然应使 用 Form_Load()事件。注意选中列表框中的某个项目，产生 Click 事件即可完成预定功能， 不一定非要产生 DblClick 事件。填写的方法很多，因为 List1 前面可以显式地指定 Form1 或 Me(Me 一般用来显式地指定自己)， 这在考题中常以这些面貌出现以便考查考生的知识点， 但考生答题时，应尽量选择简单的。不过，虽然 Listl 最简单，但仍然建议填 List1.Text。Text 是最后选定的表项的文本。
第一篇:vb二级试题2013 年 3 月全国计算机等级考试二级 VB 笔 试试卷(附参考答案) 一、选择题（每题 2 分，共 70 分）
（1）下列叙述中正确的是( ) A)对长度为 n 的有序链表进行查找，最坏情况下需要比较次数为 n B)对长度为 n 的有序链表进行对分查找， 最坏情况下需要比较次数为 （n/2） C)对长度为 n 的有序链表进行对分查找， 最坏情况下需要的比较次数 （log2n） D)对长度为 n 的有序链表进行对分查找， 最坏情况下需要的比较次数 （nlog2n） （2）算法的时间复杂是指( A)算法的执行时间 C)算法程序中的语句或指令条数 基本运算次数 （3）软件按功能可以分为：应用软件、系统软件和支持软件（或工 具软件） ，下面属于系统软件的是( A)编辑软件 B)操作系统 ) D）浏览器 ) B)算法所处理的数据量 D)算法在执行过程中所需要的
C)教务管理系统 )
（4）软件（程序）调试的任务是( A)诊断和改正程序中的错误 错误 C)发现并改正程序中的所有错误
B)进肯能多的发现程序中的
D)确定程序中错误的性质
（5）数据流程图（DFD 图）是( A)软件概要设计的工具 C)机构化方法的需求分析工具 工具
) B)软件详细设计的工具 D)面向对象方法的需求分析
（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细 设计属于( A)定义阶段 ) B)开发阶段 C)维护阶段 D)上述三个阶段
（7）数据库管理系统中负责数据模式定义的语言是 A）数据定义语言 B）数据管理语言 C）数据操纵语言 D）数据控制语言 （8）在学生管理的关系数据库中，存取一个学生信息的数据单 位是 A）文件 B）数据库 C）字段 D）记录 （9）数据库设计中，用 E-R 图来描述信息结构但不涉及信息在 计算机中的表示，它属于数据库设计的 A）需求分析阶段 B）逻辑设计阶段
C）概念设计阶段 D）物理设计阶段 （10）有两个关系 R 和 T 如下：
则由关系 R 得到关系 T 的操作是 A）选择 B）投影 C）交 D）并 （11）在 VB 集成环境中要结束一个正在运行的工程，可单击工 具栏上的一个按钮，这个按钮是
（12）设 x 是整型变量，与函数Ⅱf(x&0,-x,x)有相同结果的代数式 是
A）|x| B）-|x| C）x D）-x （13）设窗体文件中有下面的事件过程： Private Sub Command1_Click（） Dim s a%=100 Print a End Sub 其中变量 a 和 s 的数据类型分别是 A）整型，整型 B）变体型，变体型 C）整型，变体型 D）变体型，整型 （14）下面哪个属性肯定不是框架控件的属性 A）Text B）Caption C）Left D）Enabled （15）下面不能在信息框中输出“VB”的是 A）MsgBox &VB&
B）x=MsgBox（&VB&） C）MsgBox（&VB&） D）Call MsgBox &VB& （16）窗体上有一个名称为 Option1 的单选按钮数组，程序运行 时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Option1_C1ick（Index As Integer） ? End Sub 下面关于此过程的参数 Index 的叙述中正确的是 A）Index 为 1 表示单选按钮被选中，为 O 表示未选中 B）Index 的值可正可负 C）Index 的值用来区分哪个单选按钮被选中 D）Index 表示数组中单选按钮的数量 （ 17 ） 设 窗 体 中 有 一 个 文 本 框 Text1 ， 若 在 程 序 中 执 行 了 Text1.SetFocus，则触发 A）Text1 的 SetFocus 事件 B）Text1 的 GotFocus 事件 C）Text1 的 LostFocus 事件 D）窗体的 GotFocus 事件 （18）VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若 光标在 Text1 文本框中，则每输入一个字母 A）这 3 个事件都会触发
B）只触发 KeyPress 事件 C）只触发 KeyDown、KeyUp 事件 D）不触发其中任何一个事件 （19）下面关于标准模块的叙述中错误的是 A）标准模块中可以声明全局变量 B）标准模块中可以包含一个 Sub Main 过程，但此过程不能被设 置为启动过程 C）标准模块中可以包含一些 Public 过程 D）一个工程中可以含有多个标准模块 （20）设窗体的名称为 Form1，标题为 Win，则窗体的 MouseDown 事件过程的过程名是 A）Form1_MouseDown B）Win_MouseDown C）Form_MouseDown D）MouseDown_Form1 （21）下面正确使用动态数组的是 A）Dim arr() As Integer ? ReDim arr(3,5) B）Dim arr() As Integer ? ReDim arr(50)As String
C）Dim arr() ? ReDim arr(50) As Integer D）Dim arr(50) As Integer ? ReDim arr(20) （22）下面是求最大公约数的函数的首部
Function gcd(ByVal x As Integer, ByVal y As Integer) As Int eger 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是 A）Print gcd(8,12)，gcd(12,16)，gcd(16,8) B）Print gcd(8,12,16) C）Print gcd(8)，gcd(12)，gcd(16) D）Print gcd(8,gcd(12,16)) （23）有下面的程序段，其功能是按图 1 所示的规律输出数据 Dim a(3,5) As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j); Next
Print Next 若要按图 2 所示的规律继续输出数据， 则接在上述程序段后面的 程序段应该是 A）For i=1 To 5 For j=1 To 3 Print a（j,i）; Next Print Next B）For i=1 To 3 For j=1 To 5 Print a（j,i）; Next Print Next C）For j=1 To 5 For i=1 To 3 Print a（j,i）; Next Print Next
D）For i=1 To 5 For j=1 To 3 Print a（i,j）; Next Print Next （24）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有 以下程序 Private Sub Commandl_Click（） Dim n If Text1.Text&&&23456& Then n=n＋1 Print &口令输入错误& & n & &次& End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确 认口令”命令按钮，若输入的口令不是“123456” ，则在窗体上显示 输入错误口令的次数。但上面的程序实际显示的是右图所示的效果， 程序需要修改。下面修改方案中正确的是 A）在 Dim n 语句的下面添加一句：n=O B） Print &口令输入错误& & n & &次&改为 Print &口令输入 把 错误& +n+&次&
C） Print &口令输入错误& & n & &次&改为 Print &口令输入 把 错误&&Str(n)&&次& D）把 Dim n 改为 Static n （25）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示 鼠标的位置坐标。下面能正确实现上述功能的事件过程是 A ） Private Sub P1_MouseMove
（ Button AS Integer,Shift As Integer,X As Single, Y As Sing le） Print X,Y End Sub B ） Private Sub P1_MouseDown
（ Button AS Integer,Shift As Integer,X As Single, Y As Sing le） Picture.Print X,Y End Sub C ） Private Sub P1_MouseMove
（ Button AS Integer,Shift As Integer,X As Single, Y As Sing le） P1.Print X,Y End Sub D ） Private Sub Form_MouseMove
（ Button AS Integer,Shift As Integer,X As Single, Y As Sing
le） P1.Print X,Y End Sub （26）计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出π 的近似值： Private Sub Comand1_Click（） PI＝1 Sign＝1 n=20000 For k=3 To n Sign=-Sign/k PI=PI+Sign/k Next k Print PI*4 End Sub 运行后发现结果为 3.22751，显然，程序需要修改。下面修改方 案中正确的是 A）把 For k=3 To n 改为 For k=1 To n B）把 n=20000 改为 n= C）把 For k=3 To n 改为 For k=3 To n Step 2 D）把 PI=1 改为 PI=0 （27）下面程序计算并输出的是
Private Sub Comand1_Click（） a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a&=0 Print s End Sub A）13+23+33+?+103 的值 B）10!+?+3!+2!+1!的值 C） （1+2+3+?+10）3 的值 D）10 个 103 的和 （28）若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer Caption As String End Type Dim arr（5） As rec 则下面的输出语句中正确的是 A）Print arr.Code(2),arr.Caption(2) B）Print arr.Code,arr.Caption
C）Print arr(2).Code,arr(2).Caption D）Print Code(2),Caption(2) （29）设窗体上有一个通用对话框控件 CD1，希望在执行下面程 序时，打开如图所示的文件对话框 Private Sub Comand1_Click（） CD1.DialogTitle=&打开文件& CD1.InitDir=&C:\& CD1.Filter=& 所 有 文 件 |*.*|Word 文 档 |*.doc| 文 本 文 件 |*.Txt& CD1.FileName=&& CD1.Action=1 If CD1.FileName=&&Then Print&未打开文件& Else Print&要打开文件&& CD1.FileName End If End Sub 但实际显示的对话框中列出了 C:\下的所有文件和文件夹， “文 件类型”一栏中显示的是“所有文件” 。下面的修改方案中正确的是 A）把 CD1.Action=1 改为 CD1.Action=2 B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本 文件”
C）在语句 CD1.Action=1 的前面添加：CD1.FilterIndex=3 D）把 CD1.FileName=&&改为 CD1.FileName=&文本文件& （30）下面程序运行时，若输入 395，则输出结果是 Private Sub Comand1_Click（） Dim x% x=InputBox(&请输入一个 3 位整数&) Print x Mod 10,x\100,(x Mod 100)\10 End Sub A）3 9 5 B）5 3 9 C）5 9 3 D）3 5 9 （31）窗体上有 List1、List2 两个列表框，List1 中有若干列 表项（见图） ，并有下面的程序： Private Sub Comand1_Click（） For k=List1.ListCount-1 To 0 Step -1 If List1.Selected（k） Then List2.AddItem List1.List（k） List1.RemoveItem k End If Next k End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是 A）在 List2 中插入了“外语”“物理”两项 、 B）在 List1 中删除了“外语”“物理”两项 、 C）同时产生 A）和 B）的结果 D）把 List1 中最后 1 个列表项删除并插入到 List2 中 （32）设工程中有 2 个窗体： Form1、Form2，Form1 为启动窗 体。Form2 中有菜单。其结构如表。要求在程序运行时，在 Form1 的 文本框 Text1 中输入口令并按回车键（回车键的 ASCII 码为 13）后， 隐藏 Form1，显示 Form2。若口令为“Teacher” ，所有菜单项都可见； 否则看不到“成绩录入”菜单项。为此，某人在 Form1 窗体文件中编 写如下程序： Private Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii=13 Then If Text1.Text=&Teacher& Then Form2.input.visible=True Else Form2.input.visible=False End If End If Form1.Hide Form2.Show
End Sub 程序运行时发现刚输入口令时就隐藏了 Form1，显示了 Form2， 程序需要修改。下面修改方案中正确的是 A）把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中 B）把 Form1.Hide、Form2.Show 两行移到 2 个 End If 之间 C） If KeyAscii=13 Then 改为 If KeyAscii=&Teaeher& Then 把 D）把 2 个 Form2.input.Visible 中的“Form2”删去 （33）某人编写了下面的程序，希望能把 Text1 文本框中的内容写到 out.txt 文件中 Private Sub Comand1_Click（） Open &out.txt& For Output As #2 Print &Text1& Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是 A）把 Print &Text1&改为 Print #2,Text1 B）把 Print &Text1&改为 Print Text1 C）把 Print &Text1&改为 Write &Text1& D）把所有#2 改为#1 （34）窗体上有一个名为 Command1 的命令按钮，并有下面的程 序： Private Sub Comand1_Click（）
Dim arr（5） As Integer For k=1 To 5 arr（k）=k Next k prog arr（） For k=1 To 5 Print arr（k） Next k End Sub Sub prog（a（） As Integer） n=Ubound（a） For i=n To 2 step -1 For j=1 To n-1 if a（j）&a（j+1） Then t=a（j）:a（j）=a（j+1）:a（j+1）=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是 A）12345 B）54321
C）01234 D）43210 （35）下面程序运行时，若输入“Visual Basic Programming” ，则 在窗体上输出的是 Private Sub Comand1_Click（） Dim count（25） As Integer, ch As String ch=Ucase（InputBox（&请输入字母字符串&） ） 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 m&count（k） Then m=count（k） End If Next k Print m End Sub A）0
B）1 C）2 D）3 二、填空题 （1） 一个队列的初始状态为空。现将元素 A,B,C,D,E,F,5,4,3,2,1 依次入队，然后再依次退队，则元素退队的顺序为 【1】 。
（2）设某循环队列的容量为 50，如果头指针 front=45（指向队 头元素的前一位置） ，尾指针 rear=10（指向队尾元素） ，则该循环队 列中共有 【2】 个元素。（3）设二叉树如下：
对该二叉树进行后序遍历的结果为
（4）软件是 【4】 、数据和文档的集合。（5）有一个学生选课的关系，其中学生的关系模式为：学生（学 号，姓名，班级，年龄） ，课程的关系模式为：课程（课号，课程名， 学时） ，其中两个关系模式的键分别是学号和课号，则关系模式选课
可定义为：选课（学号， 【5】
，成绩） 。
（6）为了使复选框禁用（即呈现灰色） ，应把它的 value 属性设 置为 【6】 。（7）在窗体上画一个标签、一个计时器和一个命令按钮，其名 称分别为 Labl1、Timer1 和 Command1，如图 1 所示。程序运行后， 如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消 失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（） Label1.Caption=&欢迎& Timer1.Enabled=False Timer1.Interval= End Sub Private Sub Timer1_Timer（） Label1.Visible= End Sub Private Sub command1_Click（） 【9】 End Sub （8）有如下程序： Private Sub Form_Click（） n=10 i=0 【8】 【7】
Do i=i+n n=n-2 Loop While n&2 Print i End Sub 程序运行后，单击窗体，输出结果为 【10】 。
（9）在窗体上画一个名称为 Command1 的命令按钮。然后编写如下程 序： Option Base 1 Private Sub Command1_Click（） Dim a（10） As Integer For i=1 To 10 a（i）=i Next Call swap （ For i=1 To 10 Print a（i）; Next End Sub Sub swap（b（） As Integer） n=Ubound（b） 【11】 ）
For i=1 To n / 2 t=b（i） b（i）=b（n） b（n）=t 【12】 Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存 放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，??。请填空。（10）在窗体上画一个文本框，其名称为 Text1，在属性窗口中 把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过 程： Private Sub Form_Click（） Open &d:\test\smtext1.Txt& For Input As #1 Do While Not 【13】 Line Input #1, aspect$ Whole$=whole$+aspect$+Chr$（13）+Chr$（10） Loop Text1.Text=whole$ 【14】 Open &d:\test\smtext2.Txt& For Output As #1
Print #1, 【15】 Close #1 End Sub 运行程序，单击窗体，将把磁盘文件 smtext1.txt 的内容读到内 存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。
2010 年 3 月全国计算机等级考试 二级 VB 笔试试卷答案
选择题 1-5 6-10 ADBAC BADBA
11 (D) 12(B) 13(C) 14(A) 15(D) 16 (C) 17(B) 18(A) 19(B) 20(A) 21 (A) 22(D) 23(A) 24(D) 25(C) 26 (C) 27(A) 28(C) 29(C) 30(B) 31 (C) 32(B) 33(A) 34(B) 35(D)
填空题 （1）A,B,C,D,E,F,5,4,3,2,1 （2）15 （3）EDBGHFCA （4）程序 （5）课号 (6)【6】2 (7) [7] 500 (8) [8] Not label1.visible (9) [9] Timer1.Enabled=Ture (10) [10] 28 (11) [11] a()或 a (12) [12] n=n-1 (13) [13] EOF(1) (14) [14] Close#1 (15) [15] Text1.Text 或 text1
《》出自:链接地址：/show/j1DnvzVn16sYGjoU.html