【计算机类职业资格】二级VISUAL+BASIC-81 (1)及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC-81 (1)及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC-81 (1)及答案解析.doc（29页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC-81 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.现有语句：y=IIf(x0, x Mod 3, 0)设 x=10，则 y 的值是（分数：2.50）A.0B.1C.3D.语句有错2.设 x 是整型变量，与函数 IIf(x0, -x, x)有相同结果的代数式是（分数：2.50）A.|x|B.-|x|C.xD.-x3.计算下面分段函数的正确语句是 （分数：2.50）A.y=IIf(x0, x+1, IIf(x0, x-1, 0)B.y=IIf(x=0, 0, IIf(x0, x-1, x+1)C.y=

2、IIf(x0, x+1, IIf(x0, 0, x-1)D.y=IIf(x=0, 0, x-1, x+1)4.现有如下语句：x=IIf(a50, Int(a/3), a Mod 2)当 a=52 时，x 的值是（分数：2.50）A.0B.1C.17D.185.在下面语句或函数中，不能描述选择结构的是（分数：2.50）A.If 语句B.IIf 函数C.Select Case 语句D.While 语句6.设窗体上有 Text1、Text2 两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If“A“=Chr(Key

3、Ascii)And Chr(KeyAscii)=“Z“Then KeyAscii=KeyAscii+(Asc(“a“)-Asc(“A“) End If n=0 If KeyAscii=13 Then For k=1 To Len(Text1) ch$=Mid(Text1, k, 1) If “a“=ch And ch=“z“ Then n=n+1 Next k Text2=n End If End Sub 程序运行时，在 Textl 文本框中输入“Visual Basic 6.0”后按回车键，则在 Text2 文本框显示的是（分数：2.50）A.11B.16C.Visual Basic 6.0

4、D.visual basic 6.07.编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=3:b=2 If a*b10 Then b=b+1 Else b=b-1 End If Print b-a0 End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.TrueB.FalseC.1D.-18.编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score85 Then r=1 El

5、seIf score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.0B.1C.2D.869.设有如下事件过程： Private Sub Form_Click() Sum=0 For k=1 To 3 If k=1 Then x=1 Else If k=2 Then x=2 Else If k=3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End Sub 程序运行后，单击窗体，输出结果是（分数：2.50）A.9B.6C

6、.3D.1010.设有下面的语句：Print IIf(x0, 1, IIf(x0, -1, 0)与此语句输出结果不同的程序段是（分数：2.50）A.If x0 Thenx=1Else If x0 Thenx=-1End IfPrint xB.If x0 ThenPrint 1Else If x0 ThenPrint-1ElsePrint 0End IfC.SelectCase xCase Is0Print 1Case Is0Print-1Case ElsePrint 0End SelectD.If x0 ThenIf x0 ThenPrint 1Else If x0 ThenPrint -1E

7、lsePrint 0End IfEnd If11.在窗体上画一命令按钮和一文本框，其名称分别为 Command1 和 Text1，然后编写如下程序： Function Fun(x As Integer, y As Integer)As integer Fun=IIf(xy, x, y)End Function Private Sub Form_Load() Command1.Default=True End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=20:b=12 Text1.Text=Str(Fun(a

8、, b) End Sub 程序运行后，按回车键，文本框中显示的内容为（分数：2.50）A.12B.20C.24D.4012.三角形的构成条件是：任意 2 边之和大于第 3 边。设变量 a、b、c 是 3 条直线的长度，要求判断这 3条直线能否构成一个三角形。下面有 3 个程序段可以正确判断，另一个不能正确判断的是（分数：2.50）A.If a+bc And a+cb And b+ca ThenPrint“可以构成一个三角形“ElsePrint If“不能构成三角形:End IfB.If a+bc Or a+cb Or b+ca ThenPrint“可以构成一个三角形“ElsePrint“不能构

9、成三角形“End IfC.If a+b=c Or a+c=b Or b+c=a ThenPrint“不能构成三角形“ElsePrint“可以构成一个三角形“End IfD.If a+b=c Or a+c=b Then Print“不能构成三角形“ElseIf b+c=a ThenPrint“不能 构成三角形“ElsePrint“可以构成一个三角形“End If13.设 x 为一整型变量，且语句的开始为：Select Case x，则不符合语法规则的 Case 子句是（分数：2.50）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20D.Case 2，3，4

10、14.假定有如下情况语句：Select Case X 能表示|X|5 的 Case 子句是（分数：2.50）A.Case Not(-5 To 5)B.Case 5 To -5C.Case Is-5, Is5D.Case Abs(X)515.现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(“输入：“) Select Case x Case “A“ To “C“ Print“考核通过!“ Case“D“ Print“考核不通过!“ Case Else Print“输入数据不合法!“ End Select End Sub 执行程序，在输

11、入框中输入字母“B”，则以下叙述中正确的是（分数：2.50）A.程序运行错B.在窗体上显示“考核通过!”C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”16.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() Dim num As Integer, x As Integer num=Val(InputBox(“请输入一个正整数“) Select Case num Case Is100 x=x+num Case Is90 x=num Case Else x=x*num End Select Print

12、 x; End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数 100、90 和 60，则窗体上显示的内容为（分数：2.50）A.0 0 0B.0 0 60C.0 90 0D.100 0 6017.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As Integer s=Trim(Text1.Text) strLen=Len(s) For i=1 To strLen c=Mid(s，i，1

13、) Select Case c Case “0“ To “9“ x1=x1+1 Case “A“ To “Z“ x2=x2+1 Case “a“ To “z“ x3=3+1 Case Else x4=x4+1 End Select Next Print “x1“; x1, “x2“; x2, “x3“; x3, “x4“; x4 End Sub 以下关于上述程序的叙述中，正确的是（分数：2.50）A.s 是去掉文本框中字符串末尾的空格B.Select Case c 有误，Case 后应该是一个表达式C.各 Case 分支条件有误，不能用 To 表示字符的取值区间D.x4 是字符串中非字母、非数

14、字字符的个数18.编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer m=2:n=1 Select Case m Case 1 Select Case n Case 1 Print “AAA“ Case 2 Print “BBB“ Case 2 Print “CCC“ End Select End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.AAAB.BBBC.CCCD.119.某人为计算 n!(0n=12)编写了下面的函数过程： Private Function fun

15、(n As Integer)As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有 3 种是正确的，错误的方案是（分数：2.50）A.把 p=1 改为 p=nB.把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1C.把 For k=n-1 To 2 Step-1 改为 For k=1 To nD.把 For k=n-1 To 2 Step-1 改为 For k=2 To n20.阅读程

16、序： Private Sub Form_Click() a=0 For i=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是（分数：2.50）A.105B.1C.120D.1521.在窗体上画一个命令按钮，其名称为 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 程序运行

17、后，单击命令按钮，其输出结果是（分数：2.50）A.4321B.1234C.34D.1222.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4) As Integer, A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数“) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为（分数：2.50）A.0B.1C

18、.2D.323.设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为（分数：2.50）A.100B.50C.120D.7024.有下面程序代码： Private Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k

19、a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是（分数：2.50）A.15B.13C.4D.125.有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign=1 a=1:b=2 For k=1 To 5 c=a+sign*b a=b:b=c Print c; sign=-sign Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是（分数：2.50）A.3 -1 2 -3 -1B.3 5 8 13 21C.-1 1 -2 -1 -1

20、D.3 4 5 6 726.编写如下程序： Private Sub Command1_Click() Dim a(10) As String s=“123456“ n=Len(s) For k=1 To n a(k)=Mid(s, k, 1) Next k For i=1 To n/2 t=ai a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k); Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.654321B.123456C.654123D.12365427.窗体上有 1 个

21、名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：Private Sub Command1_Click() Dim x As String, s As String, temp As String Dim i As Integer x=InputBox(“输入字符串“，“输入“) Ifx“Then For i=Len(x) To 1 Step-1 s=Mid(x, i, 1) If s“Then temp=s+temp Else List1.AddItem temp s=“ temp=“ End If Next List1.AddItem tem

22、p Else MsgBOX“输入内容为空!“ End If End Sub 程序运行后，单击命令按钮 Command1，并输入“Happy new year”，则在 List1 中显示的内容为（分数：2.50）A.year new HappyB.Happy new yearC.raey wen yppaHD.yppaH wen raey28.设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程：Private SubCommand1_Click()Dim s As String, ch As String s=“For k=1 To Len(Text1) ch=

23、Mid(Text1，k, 1)s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则 Text1 中显示的是（分数：2.50）A.BasicB.cisaBC.BASICD.CISAB29.某人编写了如下程序，用来求 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

24、If a(k)max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是（分数：2.50）A.把 If a(k)max Then 改为 If a(k)max ThenB.把 max=a(k)改为 a(k)=maxC.把第 2 个循环语句 For k=1 To 10 改为 For k=2 To 10D.把 max=0 改为 max=a(10)30.在窗体上画一个名称为 Text1 的文本框和一个名称为 Comma

25、nd1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.50）A.2B.3C.4D.531.在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1

26、，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 运行上面的程序，其输出结果是（分数：2.50）A.1234B.12C.34D.432132.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3:n=n+1 If i10 Then Exit For Next Text1.Text=Str

27、(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.50）A.2B.3C.4D.533.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0:c=10:x=Array(10, 12, 21, 32, 24) For i=1 To 5 If x(i)c Then d=d+x(i):c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分数：2.50）A.89B.

28、99C.23D.7734.在窗体上画 1 个名称为 Command1 的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1:s=0 For i=1 To 5 x=x/i:s=s+x Next Print s End Sub 该事件过程的功能是计算（分数：2.50）A.s=1+2+3+4+5aB.s=1+1/2+1/3+1/4+1/5C.s=1+1/2!+1/3 1+1/4!+1/5!D.s=1+1/(1*2)+1/(2*3)+1/(3*4)+1/(4*5)35.有如下程序： Private Sub Form_Click() Dim i As Int

29、eger, n As Integer For i=1 To 20 i=i+4:n=n+i If i10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是（分数：2.50）A.14B.15C.29D.3036.有以下通用过程： Function fun(N As Integer) s=0 For k=1 To N s=s+k*(k+1) Next k fun=s End Function 该过程的功能是（分数：2.50）A.计算 N!B.计算 1+2+3+NC.计算 12233NND.计算 12+23+34+N(N+1)37.编写如下程序：

30、 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4):s=0:j=1 For i=4 To 1 Step-1 s=s+a(i)*j:j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.110B.123C.1234D.432138.在窗体上画一个名称为 Command1 的命令按钮，编写如下事件过程： Private Sub Command1_Click() n=0 For i=0 To 10 X=2*i-1 If X Mod

31、3=0 Then n=n+1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是（分数：2.50）A.1B.3C.5D.739.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。要求编写一个程序，统计文本框中 0-9 各数字字符的个数。某人编写如下程序： Private Sub Command1_Click() Dim count(10)As Integer“第 1 个 For 循环 For i=0 To 9 count(i)=0 Next s=Trim(Text1.Text) strLen=Len(s)“第 2 个 For

32、 循环 For i=1 To strLen c=Mid(s, i, 1) If c=“0“ And c=“9“ Then x=Val(c):count(i)=count(i)+1 End If Next 第 3 个 For 循环 For i=0 To 9 Print Str(i), count(i) Next End Sub 运行程序后，发现不能实现题目的要求，程序应该进行的修改是（分数：2.50）A.将第 2 个 For 循环的初值改为 0B.将第 2 个 For 语句改为 For i=0 To 9C.去掉 x=Val(c)语句D.将 count(i)=count(i)+1 改为 count

33、(x)=count(x)+140.在窗体上画一个组合框，其名称为 Combo1，然后编写如下事件过程： Private Sub Form_Load() Combo1.Text=“1“ For i=1 To 10 Sum=Sum+i Next i Combo1.Text=Sum End Sub 程序运行后，输出结果为（分数：2.50）A.在组合框的编辑区中显示 1B.在组合框的编辑区中显示不定值C.在组合框的编辑区中显示 55D.出错信息二级 VISUAL+BASIC-81 (1)答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.现有语句：y=

34、IIf(x0, x Mod 3, 0)设 x=10，则 y 的值是（分数：2.50）A.0B.1 C.3D.语句有错解析：解析 本题考查的考点是有关 IIf 函数的。IIf 函数可用于执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。 格式：Result=IIf(条件，True 部分，False 部分) 其中“Result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True部分”的值，而当“条件”为假时返回“False 部分”的值。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中由于 x=10 是大于 0 的，所

35、以返回值为 x Mod 3 的值即 1。2.设 x 是整型变量，与函数 IIf(x0, -x, x)有相同结果的代数式是（分数：2.50）A.|x|B.-|x| C.xD.-x解析：解析 IIf 函数可以用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本，其格式为：result=IIf(条件，True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf 函数的作用是如果

36、x0 则返回-x，否则返回 x，等价于-|x|。3.计算下面分段函数的正确语句是 （分数：2.50）A.y=IIf(x0, x+1, IIf(x0, x-1, 0) B.y=IIf(x=0, 0, IIf(x0, x-1, x+1)C.y=IIf(x0, x+1, IIf(x0, 0, x-1)D.y=IIf(x=0, 0, x-1, x+1)解析：解析 IIf 函数可用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。格式为：result=IIf=条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True 部分，而当条件为假时，返回False 部分。

37、本题中分段函数共有三段，因此需要使用嵌套的 IIf 函数。4.现有如下语句：x=IIf(a50, Int(a/3), a Mod 2)当 a=52 时，x 的值是（分数：2.50）A.0B.1C.17 D.18解析：解析 ITf 函数可用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。格式为：result=IIf(条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True 部分，而当条件为假时，返回False 部分。本题中 a 的值是 52，所以条件为真，将返回 52/3 的值即 17。5.在下面语句或函数中，不能描述选择结构的是（分数：2.50）A

38、.If 语句B.IIf 函数C.Select Case 语句D.While 语句 解析：解析 选择结构可以使用 IIf 函数、If 语句来实现两个分支的选择结构，使用 Select Case 语句实现多分支选择结构，While 语句用来描述循环结构。6.设窗体上有 Text1、Text2 两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If“A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“Then KeyAscii=KeyAscii+(Asc(“a“)-Asc(“A“) End If

39、 n=0 If KeyAscii=13 Then For k=1 To Len(Text1) ch$=Mid(Text1, k, 1) If “a“=ch And ch=“z“ Then n=n+1 Next k Text2=n End If End Sub 程序运行时，在 Textl 文本框中输入“Visual Basic 6.0”后按回车键，则在 Text2 文本框显示的是（分数：2.50）A.11 B.16C.Visual Basic 6.0D.visual basic 6.0解析：解析 本题中的第一个 IfThen 结构的作用是将所有输入的大写字符转换为小写字符；第二个If 结构的条件

40、是按下回车键，里面嵌套了一个 For 循环，在循环中依次取出文本框中的每一个字符进行判断，若其为小写字符则 n 自加 1，循环结束后 n 的值就是文本框中字母的个数。7.编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a=3:b=2 If a*b10 Then b=b+1 Else b=b-1 End If Print b-a0 End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.TrueB.False C.1D.-1解析：解析 本题的程序中由于 a*b10 条件成立

41、，因此执行 Then 分支，b 自加 1 变成 3，最后输出 b-a0 的值即 False。8.编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score85 Then r=1 ElseIf score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.0B.1 C.2D.86解析：解析 块结构条件语句的格式为： If条件 1Then 语句块 1 Else If条件 2 Then 语句块 2

42、Else 语句块 n End If 如果“条件 1”为 True，则执行“语句块 1”并跳出结构；否则如果“条件 2”为 True，则执行“语句块2”并跳出结构否则执行“语句块 n”并结束整个结构。9.设有如下事件过程： Private Sub Form_Click() Sum=0 For k=1 To 3 If k=1 Then x=1 Else If k=2 Then x=2 Else If k=3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End Sub 程序运行后，单击窗体，输出结果是（分数：2.50）A.9B.6 C.3D

43、.10解析：解析 本题总共循环三次，在每次循环中由于循环变量 k 的值不同，将分别进入 If 语句的不同分支。在块结构的 If 语句中，一旦满足某个 If 或者 ElseIf 后面的条件，将不再判断其他条件是否满足。所以本题输出的是 1+2+3 的值。10.设有下面的语句：Print IIf(x0, 1, IIf(x0, -1, 0)与此语句输出结果不同的程序段是（分数：2.50）A.If x0 Thenx=1Else If x0 Thenx=-1End IfPrint xB.If x0 ThenPrint 1Else If x0 ThenPrint-1ElsePrint 0End IfC.S

44、electCase xCase Is0Print 1Case Is0Print-1Case ElsePrint 0End SelectD.If x0 ThenIf x0 ThenPrint 1Else If x0 ThenPrint -1ElsePrint 0End IfEnd If 解析：解析 IIf 函数可用来执行简单的条件判断操作，它是“IfthenElse”结构的简写版本。格式为：Result=IIf(条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True 部分，而当条件为假时，返回False 部分。本题中 IIf 函数的功能是判断 x 是不是正数，如果是返回

45、 1，否则继续判断 a 是不是负数，如果是返回-1，否则返回 0，即返回 x 的符号。分析 4 个选项只有 D 选项不应该使用 ElseIf 语句而应该使用 Else 语句。11.在窗体上画一命令按钮和一文本框，其名称分别为 Command1 和 Text1，然后编写如下程序： Function Fun(x As Integer, y As Integer)As integer Fun=IIf(xy, x, y)End Function Private Sub Form_Load() Command1.Default=True End Sub Private Sub Command1_Clic

46、k() Dim a As Integer, b As Integer a=20:b=12 Text1.Text=Str(Fun(a, b) End Sub 程序运行后，按回车键，文本框中显示的内容为（分数：2.50）A.12 B.20C.24D.40解析：解析 命令按钮的 Default 属性用于设置窗体的缺省命令按钮，程序运行时，按下Enter键将执行该命令按钮的单击事件过程。IIf 函数可用来执行简单的条件判断操作，它是“IfthenElse”结构的简写版本。格式为：Result=IIf(条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True 部分，而当条件为假时

47、，返回False 部分。本题在函数 Fun 中判断 x 是否比 y 小，如果小则返回 x 作为返回值，否则返回 y 作为返回值，即返回两个参数中的最小值。12.三角形的构成条件是：任意 2 边之和大于第 3 边。设变量 a、b、c 是 3 条直线的长度，要求判断这 3条直线能否构成一个三角形。下面有 3 个程序段可以正确判断，另一个不能正确判断的是（分数：2.50）A.If a+bc And a+cb And b+ca ThenPrint“可以构成一个三角形“ElsePrint If“不能构成三角形:End IfB.If a+bc Or a+cb Or b+ca ThenPrint“可以构成一

48、个三角形“ElsePrint“不能构成三角形“End If C.If a+b=c Or a+c=b Or b+c=a ThenPrint“不能构成三角形“ElsePrint“可以构成一个三角形“End IfD.If a+b=c Or a+c=b Then Print“不能构成三角形“ElseIf b+c=a ThenPrint“不能 构成三角形“ElsePrint“可以构成一个三角形“End If解析：解析 任意两边之和大于第三边，必须要求任意两个变量的和全部大于另一个变量，也就是三个表达式必须同时成立，只有一个或两个成立是不行的，故此 B 选项不能正确判断。13.设 x 为一整型变量，且语句的开始为：Select Case x，则不符合语法规则的 Case 子句是（分数：2.50）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20 D.Case 2，3，4解析：解析 Case 语句中含有多个参量，这些参量的含义分别为：测试表达式：可以是任何表达式，通常采用变量或常量；语句块 1，语句块 2，：每个语句块由一行或多行合法的 Visual Basic 语句组成；表达式列表 1，表达式列表 2，：称为域值。可采用下列 3 种形式之一： 表达式 1,表达式 2。 表达式 1 To 表达式 2。 Is 关系运算表达式，其中可使用的运算符有=(等于)、