计算机二级VB第9单元.docx

1、计算机二级VB第9单元1.以下合法的Visual Basic标识符是( ) A.ForLoop B.Const C.9abc D.a#x2.当一个复选框被选中时，它的Value属性的值是( ) A.3 B.2 C.1 D.03.表达式5Mod3+35*2的值是( ) A.0 B.2 C.4 D.64.设x=4,y=8,z=7,以下表达式的值是( )xz) Or z10,100,-100) f.Show f.Caption=yEnd Sub运行以上程序，正确的结果是( ) A.Form1的Caption属性值为100 B.Form2的Caption属性值为-100 C.Form1的Caption

2、属性值为-100 D.Form2的Caption属性值为10011.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer,y1 As Integer) x1=x1+2 y1+y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是( ) A.10 5 B.12 5 C.10 7 D.12 712.设

3、有如下程序：Option Base 1Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox(输入数据) If n10 Then Call GetArray(a,n) End IfEnd SubPrivate Sub GetArray(b0 As Integer,n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd0*100) If b(i)/2=b(i)2 Then j=j+1 c(j)=b(i) End If Ne

4、xt Print jEnd Sub以下叙述中错误的是( ) A.数组b中的偶数被保存在数组c中 B.程序运行结束时，在窗体上显示的是c数组中元素的个数 C.GetArray过程的参数n是按值传送的 D.如果输入的数据大于10，则窗体上不显示任何信息13.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3)End Sub程序运行后，单击命令按钮，则

5、在窗体上显示的内容是( ) A.4 B.5 C.6 D.714.阅读程序：Option Base 1Private Sub Form_Click() Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Enxt i Print SumEnd Sub程序运行后，单击窗体，输出结果为( ) A.13 B.14 C.27 D.1515.在窗体上画一个名称为File1的文件列表框，并编写如下程序：Private Sub Fil

6、e1_DblClick() x=Shell(File1.FileName,1)End Sub以下关于该程序的叙述中，错误的是( ) A.x没有实际作用，因此可以将该语句写为：Call Shell(File1.FileName,1) B.双击文件列表框中的文件，将触发该事件过程 C.要执行的文件的名字通过File1.FileName指定 D.File1中显示的是当前驱动器、当前目录下的文件16.在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod

7、 20 Then a=a-1 End If a=a+1 Next j Next i Print aEnd Sub程序运行后，单击命令按钮，输出结果是（ ） A.0 B.2 C.3 D.417.执行以下程序段a$=abbacddcbaFor i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X & Y & z)Next iPrint z输出结果为( ) A.ABA B.BBABBA C.ABBABA D.AABAAB18.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Priva

8、te Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)x Then Print a(i); Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是( ) A.1 2 B.1 2 3 C.3 4 5 D.4 519.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Mode12组成。Model1代码如下：Public x As IntegerPublic y As

9、 IntegerSub S1() x=1 S2End SubSub S2() y=10 Form1.ShowEnd SubModel2的代码如下：Sub Main() S1End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是( ) A.Form1Model1Model2 B.Model1Model2Form1 C.Model2Model1Form1 D.Model2Form1Model120.数据的存储结构是指( ) A.存储在外存中的数据 B.数据所占的存储空间量 C.数据在计算机中的顺序存储方式 D.数据的逻辑结构在计算机中的表示21.下列关于栈的描述中错误的

10、是( ) A.栈是先进后出的线性表 B.栈只能顺序存储 C.栈具有记忆作用 D.对栈的插入与删除操作中，不需要改变栈底指针22.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( ) A.冒泡排序为n/2 B.冒泡排序为n C.快速排序为n D.快速排序为n(n-1)/223.对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为( ) A.log2n B.n/2 C.n D.n+124.下列对于线性链表的描述中正确的是( ) A.存储空间不一定是连续，且各元素的存储顺序是任意的 B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C.存储空间必须连

11、续，且前件元素一定存储在后件元素的前面 D.存储空间必须连续，且各元素的存储顺序是任意的25.下列对于软件测试的描述中正确的是( ) A.软件测试的目的是证明程序是否正确 B.软件测试的目的是使程序运行结果正确 C.软件测试的目的是尽可能多地发现程序中的错误 D.软件测试的目的是使程序符合结构化原则26.为了使模块尽可能独立，要求( ) A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强27.下列描述中正确的是( )

12、 A.程序就是软件 B.软件开发不受计算机系统的限制 C.软件既是逻辑实体，又是物理实体 D.软件是程序、数据与相关文档的集合28.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( ) A.数据与程序独立存放 B.不同的数据被存放在不同的文件中 C.不同的数据只能被对应的应用程序所使用 D.以上三种说法都不对29.用树形结构表示实体之间联系的模型是( ) A.关系模型 B.网状模型 C.层次模型 D.以上三个都是30.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令

13、按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( ) A.Private Sub Text1_Change() Command1.Caption=计算机等级考试End Sub B.Private Sub Command1_Click() Caption=计算机等级考试End Sub C.Private Sub Form1_Click() Text1.Caption=计算机等级考试End Sub D.Private Sub Command1_Click() Text1.Text=计算机等级考试End Sub31.设a=5,b=4,c=3,d=2，下列表达式的值是( )32*b

14、 Or a=c And bc Or cd A.1 B.True C.False D.232.设a=MicrosoftVisualBasic，则以下使变量b的值为VisualBasic的语句是( ) A.b=Left(a,10) B.b=Mid(a,10) C.b=Right(a,10) D.b=Mid(a,11,10)33.假定有如下的窗体事件过程：Private Sub Form_Click() a=Microsoft Visual Basic b=Right(a,5) c=Mid(a,1,9) MsgBox a,34,b,c,5)End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏

15、中显示的信息是( ) A.Microsoft Visual B.Microsoft C.Basic D.534.设a=a, b=b, c=c, d=d,执行语句x=IIf(ad),A,B)后,x的值为( ) A.a B.b C.B D.A35.为了使命令按钮（名称为Command1）右移200，应使用的语句是( ) A.Command1.Move-200 B.Command1.Move 200 C.Command1.Left=Command1.Left+200 D.Command1.Left=Command1.Left-2001.设有如下程序段：a$=BeijingShanghaib$=Mid

16、(a$,InStr(a$,g)+1)执行上面的程序段后，变量b$的值为_【1】_。2.以下程序段的输出结果是_【2】_。num=0While num=2 num=num+1WendPrint num3.某二叉树中度为2的结点有18个，则该二叉树中有_【1】_个叶子结点。4.在面向对象方法中，类的实例称为_【2】_。5.诊断和改正程序中错误的工作通常称为_【3】_。6.在关系数据库中，把数据表示成二维表，每一个二维表称为_【4】_。7.问题处理方案的正确而完整的描述称为_【5】_。8.以下语句的输出结果是_【6】_。Print Int(12345.6789*100+0.5)/1009.在窗体上画

17、一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub From_Click() Text1.Text=VB程序设计End SubPrivate Sub Text1_Change() Picture1.PrintVB ProgrammingEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是_【7】_，而在图片框中显示的内容是_【8】_。10.阅读下面的程序：Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=True Counter=5 Do Do While Counter0

18、 Print sEnd Sub以上程序的功能是_【10】_。程序运行后，单击窗体，输出结果为_【11】_。12.设有如下程序：Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=_【12】_ For i=2 To 8 If arr1(i)Min Then_【13】_ Next i Print最小值是：;MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出

19、该数组中各元素的最小值。请填空。13.在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click() Opend:testsmtext1.txtFor Input As #1 Do While Not_【14】_ Line Input #1,aspect whole=whole+aspect+Chr(13)+Chr(10) Loop Text1.Text=whole Close #1 Opend:testsmtext2.txtFor Output As #1 Pr

20、int #1,_【15】_ Close #1End Sub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。1-10 ACBDABBDDB11-20 DCBCADBDCD 21-30 BDCACBDDCA31-35 BBCDC_1_Shanghai_2_3_1_19_2_对象_3_程序调试_关系_5_算法_6_11345.68_7_VB程序设计 _8_VB Programming_9_10_10_计算1到8的和。 _11_输出结果为36_12_arr1 (0) _13_Min=arr1 (i)

21、_14_EOF（1） _15_Text1.Text1.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() x=InputBox(请输入一个整数) Print x+Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为( ) A.123 B.456 C.579 D.1234562.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗中把计时器的Interval属性设置为100，Enabled属性设置为False。程序运行后，如果单击

22、命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click() Timer1._End SubPrivate Sub Timer1_Timer() Text1.Text=TimeEnd Sub在_处应填入的内容是( ) A.Enabled=True B.Enabled=False C.Visible=True D.Visible=False3.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是( ) A.选择图片框，然后按Del键 B.执行语句Picture1.Picture=

23、LoadPicture() C.执行语句Picture1.Picture= D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键4.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是( ) A.Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd Sub B.Private Sub List1_Click()Label1.Name=List1.ListIndexEnd Sub C.Private Sub List1_Click()Label1.Name=List1.TextEnd Sub D.Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub5.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer,x As Integer For i=1 To 6 If i=1 Then x=i If i=4 Then x=x+1 Else x=x+2 End If Next i Print xEnd Sub