1、二级 VISUAL+BASIC 笔试-317 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.18，有如下语句，执行后该段语句的循环次数是( )。Dims,i,j as integerFori=1 to 3Forj=3 to 1 Step-1s=i*jNextjNexti（分数：2.00）A.9B.10C.3D.42.若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口设置 ( )。（分数：2.00）A.Text 属性值为，B.Caption 属性值为。C.password 属性值为空D.Passwordchar 属性
2、值为*3.以下( )不能存入在资源文件里。（分数：2.00）A.独立的字符串B.位图C.声音文件D.事件过程4.保存新建的工程时，默认的路径是( )。（分数：2.00）A.MyDocumentsB.VisualBasic98C./D.Windows5.对如下二叉树（分数：2.00）A.B.C.D.6.下列程序的运行结果是( )。PriVate Sub Form_CUCk()Dimk As Integern=5m=1k=1Dom=m+2k=k+1Loop Until knPrintmEnd Sub（分数：2.00）A.1B.12C.11D.327.当一个对象(如窗体或图片框)被移动或改变大小之后
3、，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发( )事件来完成图形的重画工作。（分数：2.00）A.PaintB.LoadC.ClickD.Active8.下列成员中不属于主窗口的是( )。（分数：2.00）A.最大化按钮B.状态栏C.系统菜单D.工具栏9.下列各选项中，不是可视化编程方法特点的是( )。（分数：2.00）A.不必运行程序就能看到所要做的界面B.采用面向对象驱动事件的机制C.使用工程的概念来建立应用程序D.将代码和数据集成到一个独立的对象中去10.有如下函数过程：FunctiOngyS(By Val X As Integer，ByValy
4、 As Integer)As IntegerDOWhiley0reminder=x ModyX=yy=reminderLoopgys=xEnd FunctiOn以下是调用函数的事件过程，该程序的运行结果是，( )。PriVate Sub Command7_Click()Dima As IntegerDimb As Integera=100b=25x=gys(a，B.PrintXEnd Sub（分数：2.00）A.0B.25C.50D.10011.有如下程序，输出结果为( )。Private Sub Form_Activate()Dimaa=Array(1,2,3,4,5)Fori=LBound
5、(a)To UBound(a)a(i)=i*a(i)NextiPrinti，LBound(a)，UBound(a)，a(i)End Sub（分数：2.00）A.4 0 4 25B.5 0 4 25C.不确定D.程序出错12.下面程序执行时，输出的结果是( )。Private Sub Form_Click()DimiASInteger,j As Integeri=10Doi=i+jforj=10 toistep-3i=i+jnextjLoop Whilei50Printi;jEnd Sub（分数：2.00）A.50 10B.50 9C.57 10D.59 913.设有如下关系表：R S TA B
6、 C A B C A B C1 1 2 3 1 3 1 1 22 2 3 2 2 33 1 3则下列操作中正确的是( )。（分数：2.00）A.T=RSB.T=RUSC.T=RSD.T=R/S14.一个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 mdlFunc 的标准模块。假定在Form1、Form2 和 mdlFunc 中分别建立了自定义过程，其定义格式为：Form1 中定义的过程：Private Sub frmFunctionl()End SubForm2 中定义的过程：Public Sub fimFunction2()End SubmdlFunc 中定义的过程：
7、Public Sub mdlFunction()End Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 ( )。（分数：2.00）A.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2 和 mdlFunction 过程能够在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有 mdlFunction 过程能够被工程中各个窗体或模块调用15.下列( )语句可以将变量 A、B 的值互换。（分数：2.00）A.A=B：B=AB.A=A+B；B=A-B：A=A-BC.A=C：C=B：B=AD.A=(A+B)/2：
8、B=16.已知一棵二叉树前序遍历和中序遍历分别为 ABDEGCFH 和 DBGEACHF，则该二叉树的后序遍历为( )。（分数：2.00）A.GEDHFBCAB.DGEBHFCAC.ABCDEFGHD.ACBFEDHG17.下列对文件分类的划分正确的是( )。（分数：2.00）A.文件分为程序文件和数据文件B.文件分为有结构文件和无结构文件C.文件分为流式文件和记录文件D.文件分为顺序文件和随机文件18.在窗体上绘制一个文本框，然后编写如下事件过程：Private Sub Form_Click()x=InputBox(“请输入一个整数“)Print x+Text1.TextEnd Sub程序运
9、行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确定”按钮后，在窗体上显示的内容为( )。（分数：2.00）A.123B.456C.579D.12345619.英文缩写 OLE 的含义是( )。（分数：2.00）A.面向对象程序设计B.对象链接C.对象嵌入D.对象链接与嵌入20.设有语句Open“c:/Test.Dat“For Ouput As #1”则以下叙述错误的是( )。（分数：2.00）A.该语句打开 C 盘根目录下一个已存在的文件 Test.DatB.该语句在 C 盘根目录下建立一个名为 Test.Dat 的文件C.该语句建立的文件的文件号为 1D.执行
10、该语句后，就可以通过 Pfint#语句向文件 Test.Dat 中写入信息21.如果将 PassWord Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MulfiLine 属性值为 TrueB.文本框的 Locbcd 属性值为 TrueC.文本框的 MulfiLine 属性值为 FalseD.文本框的 Lochcd 属性值为 False22.设在窗体上有两个命令按钮，其中一个命令按钮的名称为 cmda,则另一命令按钮的名称可能是( )。（分数：2.00）A.cmdcB.cmdbC.cmdaD
11、.Commandl23.若要使某命令按钮获得控制焦点，可使用的方法是( )。（分数：2.00）A.LostFocusB.SetFocusC.PointD.Value24.关于 ExitFor 的使用说明正确的是( )。（分数：2.00）A.ExitFor 语句可以退出任何类型的循环B.一个循环中只能有一个这样的语句C.ExitFor 表示返回 For 语句去执行D.一个 For 循环中可以有多条 ExitFor 语句25.在列表框中当前被选中的列表项的序号是由下列( )属性表示的。（分数：2.00）A.ListB.IndexC.ListlndexD.False26.运行时，当用户向文本框输入新
12、的内容，或在程序代码中对文本框的 Text 属性进行赋值从而改变了文本框的 Text 属性时，将触发文本框的( )事件。（分数：2.00）A.ClickB.DblClickC.GotFocusD.Change27.若整型变量 a 的值为 2、b 的值为 3，则下面程序段执行后整型变量 c 的值为( )。If a5 ThenIf b4 Thenc=a-b Elsec=b-aElseIf b3 Thenc=a*b Elsec=aMod6End If（分数：2.00）A.2B.-1C.1D.628.假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksNalTle As Stri
13、ng*10TelNum As String*20End Type要求当执行事件过程 ComlBandl_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是( )。（分数：2.00）A.Ptivate Sub Commandl_Click()DimB As BooksOpen“c:/Person.txt“For Output As#1B.Name=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”)Whte#1，B.Name,B.TelNumClose#1End SubBPrivate Sub Commandl_Cri
14、ck()DimB As BooksOpen“C:/Person.txt“ForInput As#1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”)Prin(#1，B.Name,B.Te1NumClose#1End SubC.Private Sub Conullandl_CHCk()DimBAs BooksOpen“c:/Person.txt“For Ouputut As#1Name=hputBox(“输入姓名”)Temum=InputBox(“输入电话号码”)Whte#1，BClose#1End SubD.Privam Sub Commnandl
15、_Click()DimBAsBookOpen“C:/Person.txt“For Input As#1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1，B.Name，B.TelNumClose#1End Sub29.下列语句正确的是( )。（分数：2.00）A.If AB Then Print“A 不等于 B“B.If AB Then Printf“A 不等于 B“C.If AB Then Print“A 不等于 B“D.If AB Print“A 不等于 B“30.以下叙述中错误的是( )。（分数：2.00）A.在 KeyPress
16、 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符31.求一个三位正整数 N 的十位数的正确方法是( )。（分数：2.00）A.Int(N/10)-Int(N/100)*10B.Int(N/10)-Int(N/100)C.N-Int(N/100)*100D.Int(N-Int(N/100)*100)32.以下叙述中错误的是( )。（分数：2.00）A.一个工程
17、中可以包含多个窗体文件B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用C.窗体和标准模块需要分别保存为不同类型的磁盘文件D.用 Dim 定义的窗体层变量只能在该窗体中使用33.下列程序段的执行结果为( )，n=0Fori=1 To 3Forj=5 To 1Step-1n=n+1Nextj，iPrintn;j;I（分数：2.00）A.12 0 4B.15 04C.12 3 1D.15 3134.以下关于 Visual Basic 特点的叙述中，错误的是( )。（分数：2.00）A.Visual Basic 是采用事件驱动编程机制的语言B.Visual Basic 程序既可以
18、编译运行，也可以解释运行C.构成 Visual Basic 程序的多个过程没有固定的执行顺序D.VisualBasic 程序不是结构化程序，不具备结构化程序的三种基本结构35.有以下程序：Option Base 1Dimair()As IntegerPrivate Sub Form_Click()Dimi As Integer,j As IntegerReDimalt(3，2)Fori=1 To 3Forj=1 To 2alt(i，j)=i*2+jNextjNextiReDimPreservearr(3，4)Forj=3 To 4alt(3，j)=j+9NextjPrint arr(3，2)；
19、arr(3，4)End Sub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.8 13B.0 13C.7 12D.0 0二、填空题(总题数：14，分数：30.00)36.程序模块文件是一个 1 文件，它不属于任何窗体。（分数：2.00）填空项 1:_37.耦合和内聚是评价模块独立性的两个主要标准，其中 1 反映了模块内各成分之间的联系。（分数：2.00）填空项 1:_38.VB 有两种类型的数组：固定大小的 1 和在运行时可以改变的动态数组。（分数：2.00）填空项 1:_39.组合框是组合了文本框和列表框的特性而组成的一种控件。 1 风格的组合框不允许用户输入列表框中没有的项。
20、（分数：2.00）填空项 1:_40.问题处理方案的正确而完整的描述称为_。（分数：2.00）填空项 1:_41.冒泡排序算法在最好的情况下的元素交换次数为 1。（分数：2.00）填空项 1:_42.关系式 X-或 X5 所对应的布尔表达式是 1。（分数：2.00）填空项 1:_43.使用代码从 VB6.0 列表框删除所有项目，使用的方法是 1。（分数：2.00）填空项 1:_44.假定有一个名为 pic2.gif 的图形文件，要在运行期间把该文件装入一个图片框(Picturel)，应执行的语句是 1。（分数：2.00）填空项 1:_45.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的
21、 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中，例如，若在 Tcxt1 中输入的是 abDfdb，则单击 Commandl 按钮后Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command_Click()DimSring,s As String,s As String,c As StringStr=UCase(Text1)S=“C=“Z“WhileC=“A“If In Ster(str,c)=0 Th
22、ens=_End Ifc=Chr$(Asc(c)-1)WendIf S“ThenText1=SEnd IfEnd Sub（分数：2.00）填空项 1:_46.下列程序的执行结果是_。m1=1m2=1Do Whilem26m1=m1*m2m2=m2+1LoopPrintm1（分数：2.00）填空项 1:_47.要想在文本框中显示垂直滚动条，必须把 1 属性设置为 2，同时还应把 Mulfiline 属性设置为 True。（分数：2.00）填空项 1:_下面程序运行的结果为111 1221 22 2331 32 33 34请在画线处填上适当的内容使程序完整。Private Sub Form_Cli
23、ck()Call 13 End SubPrivate Sub Pl6()End SubPrivate Sub p16()ForI=1 to 4Forj=1 to Ia= 14 Print Tab(j-1)*5+1)；a；NextjPrintNextIEnd Sub（分数：4.00）填空项 1:_填空项 1:_48.在 Windows95/98 下，使用 Visual Basic6.0 至少需要 1 的内存。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-317 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.18，有如下
24、语句，执行后该段语句的循环次数是( )。Dims,i,j as integerFori=1 to 3Forj=3 to 1 Step-1s=i*jNextjNexti（分数：2.00）A.9 B.10C.3D.4解析：2.若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口设置 ( )。（分数：2.00）A.Text 属性值为，B.Caption 属性值为。C.password 属性值为空D.Passwordchar 属性值为* 解析：3.以下( )不能存入在资源文件里。（分数：2.00）A.独立的字符串B.位图C.声音文件D.事件过程 解析：4.保存新建的工程时，默认的
25、路径是( )。（分数：2.00）A.MyDocumentsB.VisualBasic98 C./D.Windows解析：5.对如下二叉树（分数：2.00）A.B.C.D. 解析：6.下列程序的运行结果是( )。PriVate Sub Form_CUCk()Dimk As Integern=5m=1k=1Dom=m+2k=k+1Loop Until knPrintmEnd Sub（分数：2.00）A.1B.12C.11 D.32解析：7.当一个对象(如窗体或图片框)被移动或改变大小之后，或当一个覆盖该对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发( )事件来完成图形的重画
26、工作。（分数：2.00）A.Paint B.LoadC.ClickD.Active解析：8.下列成员中不属于主窗口的是( )。（分数：2.00）A.最大化按钮B.状态栏 C.系统菜单D.工具栏解析：9.下列各选项中，不是可视化编程方法特点的是( )。（分数：2.00）A.不必运行程序就能看到所要做的界面B.采用面向对象驱动事件的机制C.使用工程的概念来建立应用程序 D.将代码和数据集成到一个独立的对象中去解析：10.有如下函数过程：FunctiOngyS(By Val X As Integer，ByValy As Integer)As IntegerDOWhiley0reminder=x Mo
27、dyX=yy=reminderLoopgys=xEnd FunctiOn以下是调用函数的事件过程，该程序的运行结果是，( )。PriVate Sub Command7_Click()Dima As IntegerDimb As Integera=100b=25x=gys(a，B.PrintXEnd Sub（分数：2.00）A.0B.25 C.50D.100解析：11.有如下程序，输出结果为( )。Private Sub Form_Activate()Dimaa=Array(1,2,3,4,5)Fori=LBound(a)To UBound(a)a(i)=i*a(i)NextiPrinti，LB
28、ound(a)，UBound(a)，a(i)End Sub（分数：2.00）A.4 0 4 25B.5 0 4 25C.不确定D.程序出错 解析：12.下面程序执行时，输出的结果是( )。Private Sub Form_Click()DimiASInteger,j As Integeri=10Doi=i+jforj=10 toistep-3i=i+jnextjLoop Whilei50Printi;jEnd Sub（分数：2.00）A.50 10B.50 9C.57 10 D.59 9解析：13.设有如下关系表：R S TA B C A B C A B C1 1 2 3 1 3 1 1 22
29、 2 3 2 2 33 1 3则下列操作中正确的是( )。（分数：2.00）A.T=RSB.T=RUS C.T=RSD.T=R/S解析：14.一个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 mdlFunc 的标准模块。假定在Form1、Form2 和 mdlFunc 中分别建立了自定义过程，其定义格式为：Form1 中定义的过程：Private Sub frmFunctionl()End SubForm2 中定义的过程：Public Sub fimFunction2()End SubmdlFunc 中定义的过程：Public Sub mdlFunction()End
30、Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是 ( )。（分数：2.00）A.上述三个过程都可以在工程中的任何窗体或模块中被调用 B.frmFunction2 和 mdlFunction 过程能够在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有 mdlFunction 过程能够被工程中各个窗体或模块调用解析：15.下列( )语句可以将变量 A、B 的值互换。（分数：2.00）A.A=B：B=AB.A=A+B；B=A-B：A=A-B C.A=C：C=B：B=AD.A=(A+B)/2：B=解析：16.已知一棵二叉树前序遍历和中序遍
31、历分别为 ABDEGCFH 和 DBGEACHF，则该二叉树的后序遍历为( )。（分数：2.00）A.GEDHFBCAB.DGEBHFCA C.ABCDEFGHD.ACBFEDHG解析：17.下列对文件分类的划分正确的是( )。（分数：2.00）A.文件分为程序文件和数据文件B.文件分为有结构文件和无结构文件C.文件分为流式文件和记录文件D.文件分为顺序文件和随机文件 解析：18.在窗体上绘制一个文本框，然后编写如下事件过程：Private Sub Form_Click()x=InputBox(“请输入一个整数“)Print x+Text1.TextEnd Sub程序运行时，在文本框中输入 4
32、56，然后单击窗体，在输入对话框中输入 123，单击“确定”按钮后，在窗体上显示的内容为( )。（分数：2.00）A.123B.456C.579D.123456 解析：19.英文缩写 OLE 的含义是( )。（分数：2.00）A.面向对象程序设计B.对象链接C.对象嵌入D.对象链接与嵌入 解析：20.设有语句Open“c:/Test.Dat“For Ouput As #1”则以下叙述错误的是( )。（分数：2.00）A.该语句打开 C 盘根目录下一个已存在的文件 Test.Dat B.该语句在 C 盘根目录下建立一个名为 Test.Dat 的文件C.该语句建立的文件的文件号为 1D.执行该语句
33、后，就可以通过 Pfint#语句向文件 Test.Dat 中写入信息解析：21.如果将 PassWord Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MulfiLine 属性值为 True B.文本框的 Locbcd 属性值为 TrueC.文本框的 MulfiLine 属性值为 FalseD.文本框的 Lochcd 属性值为 False解析：22.设在窗体上有两个命令按钮，其中一个命令按钮的名称为 cmda,则另一命令按钮的名称可能是( )。（分数：2.00）A.cmdcB.cmdbC.c
34、mdaD.Commandl 解析：23.若要使某命令按钮获得控制焦点，可使用的方法是( )。（分数：2.00）A.LostFocusB.SetFocus C.PointD.Value解析：24.关于 ExitFor 的使用说明正确的是( )。（分数：2.00）A.ExitFor 语句可以退出任何类型的循环B.一个循环中只能有一个这样的语句C.ExitFor 表示返回 For 语句去执行D.一个 For 循环中可以有多条 ExitFor 语句 解析：25.在列表框中当前被选中的列表项的序号是由下列( )属性表示的。（分数：2.00）A.ListB.IndexC.Listlndex D.False
35、解析：26.运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的 Text 属性进行赋值从而改变了文本框的 Text 属性时，将触发文本框的( )事件。（分数：2.00）A.ClickB.DblClickC.GotFocusD.Change 解析：27.若整型变量 a 的值为 2、b 的值为 3，则下面程序段执行后整型变量 c 的值为( )。If a5 ThenIf b4 Thenc=a-b Elsec=b-aElseIf b3 Thenc=a*b Elsec=aMod6End If（分数：2.00）A.2 B.-1C.1D.6解析：28.假定在工程文件中有一个标准模块，其中定义了如下
36、记录类型Type BooksNalTle As String*10TelNum As String*20End Type要求当执行事件过程 ComlBandl_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是( )。（分数：2.00）A.Ptivate Sub Commandl_Click()DimB As BooksOpen“c:/Person.txt“For Output As#1 B.Name=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”)Whte#1，B.Name,B.TelNumClose#1End
37、 SubBPrivate Sub Commandl_Crick()DimB As BooksOpen“C:/Person.txt“ForInput As#1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”)Prin(#1，B.Name,B.Te1NumClose#1End SubC.Private Sub Conullandl_CHCk()DimBAs BooksOpen“c:/Person.txt“For Ouputut As#1Name=hputBox(“输入姓名”)Temum=InputBox(“输入电话号码”)Whte#1，BClose#1
38、End SubD.Privam Sub Commnandl_Click()DimBAsBookOpen“C:/Person.txt“For Input As#1Name=InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1，B.Name，B.TelNumClose#1End Sub解析：29.下列语句正确的是( )。（分数：2.00）A.If AB Then Print“A 不等于 B“B.If AB Then Printf“A 不等于 B“C.If AB Then Print“A 不等于 B“ D.If AB Print“A 不等于 B“解析：3
39、0.以下叙述中错误的是( )。（分数：2.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键 C.KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符解析：31.求一个三位正整数 N 的十位数的正确方法是( )。（分数：2.00）A.Int(N/10)-Int(N/100)*10 B.Int(N/10)-Int(N/100)C.N-Int(N/100)*100D.Int(N-Int(N
40、/100)*100)解析：32.以下叙述中错误的是( )。（分数：2.00）A.一个工程中可以包含多个窗体文件B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用 C.窗体和标准模块需要分别保存为不同类型的磁盘文件D.用 Dim 定义的窗体层变量只能在该窗体中使用解析：33.下列程序段的执行结果为( )，n=0Fori=1 To 3Forj=5 To 1Step-1n=n+1Nextj，iPrintn;j;I（分数：2.00）A.12 0 4B.15 04 C.12 3 1D.15 31解析：34.以下关于 Visual Basic 特点的叙述中，错误的是( )。（分数：2.
41、00）A.Visual Basic 是采用事件驱动编程机制的语言B.Visual Basic 程序既可以编译运行，也可以解释运行C.构成 Visual Basic 程序的多个过程没有固定的执行顺序D.VisualBasic 程序不是结构化程序，不具备结构化程序的三种基本结构 解析：35.有以下程序：Option Base 1Dimair()As IntegerPrivate Sub Form_Click()Dimi As Integer,j As IntegerReDimalt(3，2)Fori=1 To 3Forj=1 To 2alt(i，j)=i*2+jNextjNextiReDimPre
42、servearr(3，4)Forj=3 To 4alt(3，j)=j+9NextjPrint arr(3，2)；arr(3，4)End Sub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.8 13 B.0 13C.7 12D.0 0解析：二、填空题(总题数：14，分数：30.00)36.程序模块文件是一个 1 文件，它不属于任何窗体。（分数：2.00）填空项 1:_ （正确答案：纯代码性质）解析：37.耦合和内聚是评价模块独立性的两个主要标准，其中 1 反映了模块内各成分之间的联系。（分数：2.00）填空项 1:_ （正确答案：内聚）解析：38.VB 有两种类型的数组：固定大小
43、的 1 和在运行时可以改变的动态数组。（分数：2.00）填空项 1:_ （正确答案：静态数组）解析：39.组合框是组合了文本框和列表框的特性而组成的一种控件。 1 风格的组合框不允许用户输入列表框中没有的项。（分数：2.00）填空项 1:_ （正确答案：下拉式列表框）解析：40.问题处理方案的正确而完整的描述称为_。（分数：2.00）填空项 1:_ （正确答案：算法 或 程序 或 流程图）解析：41.冒泡排序算法在最好的情况下的元素交换次数为 1。（分数：2.00）填空项 1:_ （正确答案：0）解析：42.关系式 X-或 X5 所对应的布尔表达式是 1。（分数：2.00）填空项 1:_ （正
44、确答案：x=-5 or x=5）解析：43.使用代码从 VB6.0 列表框删除所有项目，使用的方法是 1。（分数：2.00）填空项 1:_ （正确答案：Clear）解析：44.假定有一个名为 pic2.gif 的图形文件，要在运行期间把该文件装入一个图片框(Picturel)，应执行的语句是 1。（分数：2.00）填空项 1:_ （正确答案：Picturel.Picture=LoadPicture(“pic2.gif“)）解析：45.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在
45、文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中，例如，若在 Tcxt1 中输入的是 abDfdb，则单击 Commandl 按钮后Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command_Click()DimSring,s As String,s As String,c As StringStr=UCase(Text1)S=“C=“Z“WhileC=“A“If In Ster(str,c)=0 Thens=_End Ifc=Chr$(Asc(c)-1)WendIf S“ThenText1=SEnd IfE
46、nd Sub（分数：2.00）填空项 1:_ （正确答案：S+C 或 s&c）解析：46.下列程序的执行结果是_。m1=1m2=1Do Whilem26m1=m1*m2m2=m2+1LoopPrintm1（分数：2.00）填空项 1:_ （正确答案：120）解析：47.要想在文本框中显示垂直滚动条，必须把 1 属性设置为 2，同时还应把 Mulfiline 属性设置为 True。（分数：2.00）填空项 1:_ （正确答案：Scrollbars）解析：下面程序运行的结果为111 1221 22 2331 32 33 34请在画线处填上适当的内容使程序完整。Private Sub Form_Click()Call 13 End SubPrivate Sub Pl6()End SubPrivate Sub p16()ForI=1 to 4Forj=1 to Ia= 14 Print Tab(j-1)*5+1)；a；NextjPrintNextIEnd Sub（分数：4.00）填空项 1:_ （正确答案：p16）解析：填空项 1:_ （正确答案：(I-1)*10+j）解析：48.在 Windows95/98 下，使用 Visual Basic6.0 至少需要 1 的内存。（分数：2.00）填空项 1:_ （正确答案：16MB）解析：
