1、二级 VISUAL+BASIC-18-2 及答案解析(总分：66.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：62.00)1.以下能正确定义数据类型 TelBook 的代码是 _。 A. Type TelBook Name As String*10 TelNum As Integer End Type B. Type TelBook Name As String*10 TelNun As Integer End TelBook C. Type TelBook Name String*10 TelNum Integer End Type TelBook D. Typedef
2、TelBook Name String*10 TelNum Integer End Type（分数：1.00）A.B.C.D.2.下面程序的输出结果是U /UPrivate Sub Command1_Click()ch$=“ABCDEF“proc chPrint chEnd SubPrivate Sub proc(ch As String)S=“ “For k=Len(ch) To 1 Step-1s=sMid(ch,k,1)Next kch=sEnd Sub A.ABCDEF B.FEDCBA C.A D.F（分数：2.00）A.B.C.D.3.设在窗体上有一个文本框，然后编写如下的事件过程
3、：PriVate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=H71altdown%=(Shift And Alt)0f2down%=(KevCode=Kev_F2)If altdown% And f2down% ThenText1.Text=“abl“End IfEnd Sub程序运行后，清除文本框中原有内容，如果按Shift+F2组合键，则在文本框中显示的是U /U。 A.Alt+F2 B.abl C.随机出几个数 D.不发生变化（分数：2.00）A.B.C.D.4.以下对文件
4、分类的划分不正确的是U /U。 A. 文件分为程序文件和数据文件 B. 文件分为有结构文件和无结构文件 C. 文件分为 ASCII 文件和二进制文件 D. 文件分为顺序文件和随机文件（分数：2.00）A.B.C.D.5.在 Visual Basic 中，下拉式组合框和下拉式列表框的区别是：_允许在编辑区输入文本；_只能从下拉列表框中选择项目，不允许输人文本。 A. 下拉式组合框，下拉式列表框 B. 下拉式列表框；下拉式组合框 C. 下拉式组合框、下拉式列表框；下拉式列表框 D. 下拉式组合框、下拉式列表框；下拉式组合框（分数：1.00）A.B.C.D.6.要建立一个随机文件记录学生的信息，如下
5、定义了学生的记录类型，由学号、姓名、5 门课程成绩(百分制)组成，下列的定义正确的是U /U。 A. Type stu no As Integer name As String score(1 To 5)AS Single End Type B. Type stu no As Integer name As String*10 score()As Single End Type C. Type stu no As Integer name As String*10 score(1 To 5)As single End Type D. Type stu no As Integer name As
6、 String score()As Single End Type（分数：2.00）A.B.C.D.7.通常情况下，垂直滚动条的值是 A. 由下往上递增 B. 由上往下递增 C. 由左到右递增 D. 由右到左递增（分数：2.00）A.B.C.D.8.下列程序段的执行结果为a=6For k=1 To 0a=a+kNextPrint k;a A. -1 6 B. -1 16 C. 1 6 D. 11 21（分数：1.00）A.B.C.D.9.在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_ClickU /UDim arrDim Start As
7、Integer， Finish As IntegerDim Sum As Integerarr = Array(12， 4， 8， 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / FinishText1.Text = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是_。 A. 40 B. 10 C. 12 D. 16（分数：2.00）A.B.C.D.10.设有两个串 p 和 q，求 q 在 p 中首次出现位置的运算称为
8、U /U A.连接 B.模式匹配 C.求子串 D.求串长（分数：2.00）A.B.C.D.11.以下有关数组定义的语句序列中，错误的是 A. Static arrl(3) arr1(1)=100 arrl(2)=“Hello“ arrl(3)=123.45 B. Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) End Sub C. Option Base 1 Private Sub Command3_Click() Dim ar
9、r3(3)As Integer End Sub D. Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub（分数：2.00）A.B.C.D.12.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dimarrayl(10，10)As IntegerDimi As Integer,j As IntegerFori=1 To 3Forj=2 To 4arrayl(i，j)=i+jNextj
10、NextiText1.Text=axvayl(2，3)+arrayl(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是U /U。 A.15 B.14 C.13 D.12（分数：2.00）A.B.C.D.13.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf jSqr(i) Then Print iNex
11、t iEnd Sub该事件过程的功能是 _。 A. 输出 n 以内的奇数 B. 输出 n 以内的偶数 C. 输出 n 以内的素数 D. 输出 n 以内能被 j 整除的数 （分数：1.00）A.B.C.D.14.For-Next 循环的初值、终值与步长U /U。 A.只能是具体的数值 B.只能是表达式 C.可以是数值表达式 D.可以是任何类型的表达式（分数：2.00）A.B.C.D.15.已知一棵二叉树前序遍历和中序遍历分别为 ABDEGCFH 和 DBGEACHF，则该二叉树的后序遍历为 A. GEDHFBCA B. DGEBHFCA C. ABCDEFGH D. ACBFEDHG（分数：2.
12、00）A.B.C.D.16.若在 Shape 控件内以 FillStyle 属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 BackStyle 属性填充，则应 _。 A. 将 Shape 控件的 FillStyle 属性设置为 2-7 间的某个值，Backstyle 属性设置为 1 B. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 1 C. 将 Shape 控件的 FillStyle 属性设置为 2-7 间的某个值，BackStyle 属性设置为 0 D. 将 Shape 控件的 FillS
13、tyle 属性设置为 0 或 1，BackStyle 属性设置为 0（分数：1.00）A.B.C.D.17.标签控件能够显示文本信息，文本内容只能用U /U属性来设置。 A.Alignment B.Caption C.Visible D.Borderstyle（分数：2.00）A.B.C.D.18.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click ()Dim a As Integer, b As Integer, c As Integera = 1: b = 2: c = 3Print fun2 (c, b, A)
14、End SubPrivate Function funl (x As Integer, y As Integer, z As Integer)fun1 = 2 * x + y + 3 * zEnd FunctionPrivate Function fun2(x As Integer, y As Integer, z As Integer)fun2 = fun1(z, x, y)+ xEnd Function程序运行后，单击命令按钮，则窗体上显示的内容是 A. 7 B. 14 C. 17 D. 30（分数：1.00）A.B.C.D.19.一个工程中含有窗体 Form1、Form2 和标准模块 M
15、odell，如果在 Form1 中有语句 Public X As Integer，在 Modell 中有语句 Public Y As Integer。则以下叙述中正确的是 _。 A. 变量 X、Y 的作用域相同 B. Y 的作用域是 Modell C. 在 Form1 中可以直接使用 X D. 在 Form2 中可以直接使用 X 和 Y （分数：1.00）A.B.C.D.20.图像框和图片框在使用时的不同之处是U /U。 A.图片框比图像框占内存少 B.图像框内还可包括其他控件 C.图片框有 Stretch 属性而图像框没有 D.图像框有 Stretch 属性而图片框没有（分数：2.00）A.
16、B.C.D.21.以下语句的输出结果是_。Print Format$(“123.58“,“#,#.00“) A. 123.58 B. 123.00 C. ,123.58 D. 0,123.58（分数：2.00）A.B.C.D.22.线性表若采用链式存储结构时，要求内存中可用存储单元的地址 U /U A. 必须是连续的 B. 部分地址必须是连续的 C. 一定是不连续的 D. 连续不连续都可以（分数：2.00）A.B.C.D.23.在结构化方法中，用数据流程图(DFD) 作为描述工具的软件开发阶段是U /U。 A. 逻辑设计 B. 需求分析 C. 详细设计 D. 物理设计（分数：2.00）A.B.
17、C.D.24.在窗体上画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=3 To 1 Step-0.4Ptint Int(i)；Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为_。 A. 3 2 2 2 1 1 B. 3 2 2 1 1 1 C. 3 2 2 1 1 D. 3 2 1 1 1（分数：2.00）A.B.C.D.25.表达式 Abs(-5)+Len(“ABCDE“)的值是_。 A. 5ABCDE B. -5ABCDE C. 10 D. 0（分数：2.00）A.B.C.D.26.设有如下变量声明：Dim Tes
18、tDate As Date为变量 TestDate 正确赋值的表达方式是 A. TestDate=#1/1/2002# B. TestDate=#“1/1/2002“# C. TestDate=date(“1/1/2002“) D. TestDate=Format(“m/d/yy“,“1/1/2002“)（分数：2.00）A.B.C.D.27.下列程序的输出图形是U /U。For k=0 To 360cr=Int(160*Rnd)ang=-3.1415926/180*kCircle(2000, 2000), 500, cr, 0, angNext A.一段彩色圆弧 B.一个彩色扇形 C.一个彩
19、色空心圆 D.一个辐射状彩色圆形（分数：2.00）A.B.C.D.28.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Fun1(x)End SubPrivate Function Fun1(x As Integer)As Integerx=x+y y=x+yFun1=x+yEnd FunctionPrivate Function Fun2(x As I
20、nteger,y As Integer)As IntegerFun2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是 A. 2 4 2 4 B. 2 4 4 8 C. 10 10 58 58 D. 4 4 8 8（分数：2.00）A.B.C.D.29.要使文本框 Text1 不可用且文字居中，可以用以下语句 _。 A. Text1. Enabled = False Text1.Alignmem = 2 B. Text1. Enabled = False Text1. Alignment = 0 C. Text1. En
21、abled = True Text1. Alignment = 0 D. Text1. Enabled = True Text1. Alignment = 1（分数：3.00）A.B.C.D.30.在窗体上画一个名称为 Textl 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Commandl_C1ick()Dim i As Integer, n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextTextl. Text=Str(n)End sub程序运行后，单击命令按钮，在文本框
22、中显示的值是 U /U A. 2 B. 3 C. 4 D. 5（分数：2.00）A.B.C.D.31.在窗体上面一个名称为 TxtA 的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(KeyAscii as Integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是_。 A. 单击鼠标 B. 双击文本框 C. 鼠标滑过文本框 D. 按下键盘上的某个键（分数：2.00）A.B.C.D.32.在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为U /U。Option Base 1Private Sub fun(a()
23、As Integer,n As Integer)ReDim Preserve a(6)a(6)=a(1)*a(3)*a(5)n=UBound(a)End SubPrivate Sub Command1_Click()Dim arr1()As Integer,k As IntegerReDimarrl(5)For i=1 To 5 arrl(i)=iNext ik=6Call fun(arrl，k)Print arrl(1)；arrl(k)End Sub A. 1 3 B. 0 0 C. 1 15 D. 0 15（分数：1.00）A.B.C.D.33.当用鼠标左键单击窗体(Form1)时所发生的
24、事件是 A. Load1_Click B. Load_Click C. Form1_Click D. Form_Click（分数：1.00）A.B.C.D.34.要使文本框获得输入焦点，则应采用文本框控件的U /U方法。 A.GotFocus B.LostFocus C.KeyPress D.SetFocus（分数：2.00）A.B.C.D.35.执行如下两条语句后，窗体上显示的是_。a=9.8596Print Format(a. “$ 00, 00, 00“) A. 0,009.86 B. $9.86 C. 9.86 D. $0,009.86（分数：2.00）A.B.C.D.二、B填空题/B
25、(总题数：1，分数：4.00)以下程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。Option Base 1Private Sub Commandl_Click()DimarrlDimMin As Integer,i As Integerarrl=Array(12，435，76，-24，78，54，866，43)Min=U U 14 /U /UFori=2 To 8If arrl(i)Min ThenU U 15 /U /UNextiPrint“最小值是:“;MinEnd Sub（分数：4.00）填空项 1:_填空项 1:_二级
26、VISUAL+BASIC-18-2 答案解析(总分：66.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：62.00)1.以下能正确定义数据类型 TelBook 的代码是 _。 A. Type TelBook Name As String*10 TelNum As Integer End Type B. Type TelBook Name As String*10 TelNun As Integer End TelBook C. Type TelBook Name String*10 TelNum Integer End Type TelBook D. TypedefTelB
27、ook Name String*10 TelNum Integer End Type（分数：1.00）A. B.C.D.解析：解析 用户可以利用 Type 语句定义自己的数据类型，其格式如下： Type 数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 End Type2.下面程序的输出结果是U /UPrivate Sub Command1_Click()ch$=“ABCDEF“proc chPrint chEnd SubPrivate Sub proc(ch As String)S=“ “For k=Len(ch) To 1 Step-1s=sMid(ch,k,1)Ne
28、xt kch=sEnd Sub A.ABCDEF B.FEDCBA C.A D.F（分数：2.00）A.B. C.D.解析：解析 Mid(ch,k,1)函数表示从位置 k 开始取字符串 ch 的 1 个字符，而 k 是从 Len(ch)开始循环到 1，故应该是从 ch 的最后一位逐步向前逐个取字符直到取完第一个字符为止，故结果应该是将整个 ch字符串完全逆置。3.设在窗体上有一个文本框，然后编写如下的事件过程：PriVate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=H71alt
29、down%=(Shift And Alt)0f2down%=(KevCode=Kev_F2)If altdown% And f2down% ThenText1.Text=“abl“End IfEnd Sub程序运行后，清除文本框中原有内容，如果按Shift+F2组合键，则在文本框中显示的是U /U。 A.Alt+F2 B.abl C.随机出几个数 D.不发生变化（分数：2.00）A.B.C.D. 解析：解析 本题在程序体中设置了 altdown%和 f2down%标志位，如果 f2down%为 True，则表示按下了F2键，如果 altdown%为 True，则表示按下了Alt键，因此当程序运
30、行是按下Shift+F2组合键时并不会有任何事件发生。4.以下对文件分类的划分不正确的是U /U。 A. 文件分为程序文件和数据文件 B. 文件分为有结构文件和无结构文件 C. 文件分为 ASCII 文件和二进制文件 D. 文件分为顺序文件和随机文件（分数：2.00）A.B. C.D.解析：解析 本题考查文件的分类。按照数据的访问模式，可分为有顺序、随机、二进制文件，按照文件的存储，可分为 ASCII 文件和二进制文件，按照文件的功能可分为数据文件和程序文件。5.在 Visual Basic 中，下拉式组合框和下拉式列表框的区别是：_允许在编辑区输入文本；_只能从下拉列表框中选择项目，不允许输
31、人文本。 A. 下拉式组合框，下拉式列表框 B. 下拉式列表框；下拉式组合框 C. 下拉式组合框、下拉式列表框；下拉式列表框 D. 下拉式组合框、下拉式列表框；下拉式组合框（分数：1.00）A. B.C.D.解析：解析 在 Visual Basic 中，下拉式组合框和下拉式列表框的区别是：下拉式组合框允许在编辑区输入文本；下拉式列表框只能从下拉列表框中选择项目，不允许输人文本。6.要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5 门课程成绩(百分制)组成，下列的定义正确的是U /U。 A. Type stu no As Integer name As String
32、score(1 To 5)AS Single End Type B. Type stu no As Integer name As String*10 score()As Single End Type C. Type stu no As Integer name As String*10 score(1 To 5)As single End Type D. Type stu no As Integer name As String score()As Single End Type（分数：2.00）A.B.C. D.解析：解析 可以用 Type 语句创建用户定义的类型，注意该语句必须置于模块
33、的声明部分。其格式如下：Type 数据类型名 数据类型元素名 As 类型名 数据类型元素名 As 类型名 End Type 在记录数据类型中的元素可以是变长字符串，也可以是定长字符串。当在随机文件中使用时，必须使用定长字符串，一般格式是：String *常量。另外，在记录类型中不能使用动态数组。7.通常情况下，垂直滚动条的值是 A. 由下往上递增 B. 由上往下递增 C. 由左到右递增 D. 由右到左递增（分数：2.00）A.B. C.D.解析：解析 一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值，最下端代表最大值；水平滚动条的值从左到右递增，最左端代表最小值，最右端代表最大值。因此
34、选项 B)是正确的。8.下列程序段的执行结果为a=6For k=1 To 0a=a+kNextPrint k;a A. -1 6 B. -1 16 C. 1 6 D. 11 21（分数：1.00）A.B.C. D.解析：解析 For 循环的一般格式是： For 循环变量=初值 To 终值 Step步长 语句 Exit For 语句 Next循环变量 该循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过“终值”，如果超过，就一次也不循环而跳出循环，属于“先检查后执行”的类型。现在来看程序段，For k=1 To 0 中，初值为 1，终值为 0，显然当“循环变量”首先取得“初值”1，
35、检查后超过“终值” 0，所以一次也不执行，即最后执行 Print 时，k=1，a=6。9.在窗体上画一个文本框，然后编写如下代码：Option Base 1Private Sub Form_ClickU /UDim arrDim Start As Integer， Finish As IntegerDim Sum As Integerarr = Array(12， 4， 8， 16)Start = LBound(arr)Finish = UBound(arr)Sum = 0For i = Start To FinishSum = Sum + arr(i)Next ic = Sum / Fini
36、shText1.Text = cEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是_。 A. 40 B. 10 C. 12 D. 16（分数：2.00）A.B. C.D.解析：10.设有两个串 p 和 q，求 q 在 p 中首次出现位置的运算称为U /U A.连接 B.模式匹配 C.求子串 D.求串长（分数：2.00）A.B. C.D.解析：解析 字串的定位操作通常称为串的模式匹配，是各种串处理系统中最重要的操作之一。11.以下有关数组定义的语句序列中，错误的是 A. Static arrl(3) arr1(1)=100 arrl(2)=“Hello“ arrl(3)=123.45
37、B. Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(size) End Sub C. Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer End Sub D. Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer End Sub（分数：2.00）A.B.C.D. 解析：解析 本题考
38、查动态数组的定义。A 项定义了一个默认数组。B 项定义了一个动态数组。C 项直接定义。由于声明数组时不能通过变量声明数组长度，故 D 项是错误的。12.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dimarrayl(10，10)As IntegerDimi As Integer,j As IntegerFori=1 To 3Forj=2 To 4arrayl(i，j)=i+jNextjNextiText1.Text=axvayl(2，3)+arrayl(3，4)End Sub
39、程序运行后，单击命令按钮，在文本框中显示的值是U /U。 A.15 B.14 C.13 D.12（分数：2.00）A.B.C.D. 解析：13.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf jSqr(i) Then Print iNext iEnd Sub该事件过程的功能是 _。 A. 输出 n 以内的奇数 B. 输出
40、 n 以内的偶数 C. 输出 n 以内的素数 D. 输出 n 以内能被 j 整除的数 （分数：1.00）A.B.C. D.解析：解析 素数只能被 1 和它本身整除(即不能被大于 1 且小于它本身的整数来整除)故要检查一个整数是不是素数，可以用大于 1 而小于它的所有整数来除它，如果可以整除，就不是素数，否则就是素数。为了缩短程序运行时间，通常是用所有不小于该整数的平方根的整数来除它就可以。在本程序中，用从 2开始到小于等于被检测整数平方根的所有整数来对被检测整数取模，如果被检测整数可以被其中的某个整数整除，则不是素数。故本程序的功能是输出 n 以内的素数。14.For-Next 循环的初值、终
41、值与步长U /U。 A.只能是具体的数值 B.只能是表达式 C.可以是数值表达式 D.可以是任何类型的表达式（分数：2.00）A.B.C. D.解析：15.已知一棵二叉树前序遍历和中序遍历分别为 ABDEGCFH 和 DBGEACHF，则该二叉树的后序遍历为 A. GEDHFBCA B. DGEBHFCA C. ABCDEFGH D. ACBFEDHG（分数：2.00）A.B. C.D.解析：解析 利用前序和中序遍历的方法可以确定二叉树的结构，具体步骤为：前序遍历的第一个结点 A 为树的根结点；中序遍历中 A 的左边的结点为 A 的左子树，A 右边的结点为 A 的右子树；再分别对 A 的左右子
42、树进行上述两步处理，直到每个结点都找到正确的位置。16.若在 Shape 控件内以 FillStyle 属性所指定的图案填充区域，而填充图案的线条的颜色由 FillColor属性指定，非线条的区域由 BackStyle 属性填充，则应 _。 A. 将 Shape 控件的 FillStyle 属性设置为 2-7 间的某个值，Backstyle 属性设置为 1 B. 将 Shape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 1 C. 将 Shape 控件的 FillStyle 属性设置为 2-7 间的某个值，BackStyle 属性设置为 0 D. 将 S
43、hape 控件的 FillStyle 属性设置为 0 或 1，BackStyle 属性设置为 0（分数：1.00）A. B.C.D.解析：解析 Shape 控件的相关属性 FillStyle 属性，该属性的设置值决定了形状控件内部的填充图案，其值如下： 0-Solid：(实心) 1-Transparent：(透明) 2-Horizontal Lin：(水平线) 3-Venial Line：(垂直线) 4-Upward Diagona：(向上对角线) 5-DownwardDiagonal：(向下对角线) 6-Cross:(交叉线) 7-Diagonal：(对角交叉线) FillColor 属性，
44、用来定义形状控件的内部颜色。 如果 FillStyle 属性值设置为 1，则 FillColor 属性将不起作用。 BackStyle 属性，设置值为 0 和 1，用来决定形状控件的背景是否被指定的颜色填充。为 0 时，形状控件的背景是透明的，为 1 时，形状控件的背景由 BackColor 属性所指定的颜色来填充。 如果 FillStyle 属性设置为 0，则 BackStyle 属性将不起作用。17.标签控件能够显示文本信息，文本内容只能用U /U属性来设置。 A.Alignment B.Caption C.Visible D.Borderstyle（分数：2.00）A.B. C.D.解析
45、：18.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click ()Dim a As Integer, b As Integer, c As Integera = 1: b = 2: c = 3Print fun2 (c, b, A) End SubPrivate Function funl (x As Integer, y As Integer, z As Integer)fun1 = 2 * x + y + 3 * zEnd FunctionPrivate Function fun2(x As Integer, y A
46、s Integer, z As Integer)fun2 = fun1(z, x, y)+ xEnd Function程序运行后，单击命令按钮，则窗体上显示的内容是 A. 7 B. 14 C. 17 D. 30（分数：1.00）A.B. C.D.解析：解析 对于多个过程或函数依次调用的处理和简单过程调用处理一样，本题先调用函数 fun2，而函数 fun2 又调用函数 fun1，结果返回的顺序是从 fun1 到 fun2，fun2 计算后输出到调用的地方。只要注意函数的调用关系依次处理即可解决此类问题。19.一个工程中含有窗体 Form1、Form2 和标准模块 Modell，如果在 Form1 中有语句 Public X As Integer，在 Modell 中有语句 Public Y As Integer。则以下叙述中正确的是 _。 A. 变量 X、Y 的作用域相同 B. Y 的作用域是 Modell C. 在 Form1 中可以直接使用 X D. 在 Form2 中可以直接使用 X 和 Y （分数：1.00）A.B.C. D.解析：解析 在窗体中声明的是窗体级变量，它只能在该窗体内直接使用，而在标准模块中使用 Public声明的是全局变量，可以直接在工程中使用。20.图像框和图片框在使用时的不同之处是U /U。 A.图片
