1、计算机二级(VB)62 及答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：60，分数：4200.00)1.新建一个窗体，其 Borderstyle 属性设置为 Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是 （ ）。（分数：70.00）A.BorderStyle 的值设为 FixedSingle，此项设置值的作用即禁止最大化和最小化按钮B.窗体的 MaxButton 和 MinButton 值设为 FalseC.正常情况下新建的窗体都没有最大化和最小化按钮D.该窗体可用鼠标拖动边框的方法改变窗体的大小2
2、.以下合法的 Visual Basic 标识符是（ ）。 （分数：70.00）A.ForLoopB.ConstC.9abcD.a # x3.下面选项中不属于面向对象程序设计特征的是【 】（分数：70.00）A.继承性B.多态性C.类比性D.封装性4.设有下面的循环： i=0 While i=1 i=i + 3 Print i Wend 则运行后的输出结果是（ ）。 （分数：70.00）A.abB.abcC.abdD.abcd5.假定有如下的窗体事件过程： Private Sub Form_Click() a$ = “Microsoft Visual Basic“ b$ = Right(a$,
3、5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_。 （分数：70.00）A.Microsoft VisualB.MicrosoftC.BasicD.56.如下事件过程： Function Feed(x) If x 10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click( ) x=Val(Input Box(“ “，0) pay=Feed(x) Print pay End Su
4、b 运行时在输入框内输入变量x 的值为 15，输出结果为( )。 （分数：70.00）A.1234B.foo barC.virtualD.34var7.下列程序段的执行结果为（ ）。 a=1 b=5 Do a=a+b b=b+l Loop While aA.LEFT(“VFP“，3)与 SUBSTR(“VFP“，2，3)B.YEAR(DATE()与 SUBSTR(DTOC(DATE()，7，2)sC.VARTYPE(“40-4*5“)与 VARTYPE(40-4*5)D.假定 A=“visual“，B=“foxpro“，则 A-B 与 A+B8.下列叙述中，正确的是（ ）。（分数：70.00）
5、A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器9.当复选框被选中时，复选框的 Value 属性的值为（ ）。（分数：70.00）A.0B.1C.2D.510.在用菜单编辑器设计菜单时，不可缺少的项目是（ ）。（分数：70.00）A.12B.15C.20D.6011.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode AS Integer，Shift As In
6、teger) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写键时)运行程序，如果按“A“键，则程序输出的结果是（ ）。 （分数：70.00）A.PanelB.FrameC.AppletD.Dialog12.设有如下程序： Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4 d = InputBox(“请输入一个整
7、数“) Do While d 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：70.00）A.12B.11C.10D.913.Visual Basic 程序设计采用的编程机制是（ ）。（分数：70.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的14.在修改列表框内容时，Add
8、Item 方法的作用是（ ）。（分数：70.00）A.在列表框内插入一行文本B.在列表框中插入多行文本C.删除列表框中指定的项目D.清除列表框内的全部内容15.标签控件能够显示文本信息，决定其文本内容的属性是（ ）。（分数：70.00）A.AlignmentB.CaptionC.VisibleD.BorderStyle16.单击命令按钮时，下列程序的运行结果为（ ）。 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integ
9、er Do While mn Do While mn：m=m-n：Loop Do While mn：n=n-m：Loop Loop MyFund=m End Function （分数：70.00）A.0B.2C.4D.617.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：70.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件18.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程： Pr
10、ivate Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 1=1+3 n=n+1 If i10 Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是【 】 （分数：70.00）A.5B.4C.3D.219.用来设置文本框有无滚动条的属性是（ ）。（分数：70.00）A.ScrollBarsB.MultiLineC.SelTextD.SelLength20.在窗体上画一个命令按钮,名称为 Command1,然后编写如下代码： Op
11、tion Base 0 Private Sub Commandl_Click() Dim A(4)As integer,B(4)As Integer For k=0 To 2 A(k+1)=InputBox(“请输入一个整数“) B(3-k)=A(k+1) Next k Print B(k) End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入 2、4、6,输出结果为【 】 （分数：70.00）A.0B.2C.3D.421.要设置窗体为固定对话框，并包含控制莱单栏和标题栏，但没有最大化和最小化控钮，设置的操作是（ ）。（分数：70.00）A.设置 BoderStyle 的值为 Fi
12、xed ToolWindowB.设置 BoderStyle 的值为 Sizable ToolWindowC.设置 BnderStyle 的值为 FixedDialogD.设置 BoderStyle 的佰为 Sizable22.Visual Basic 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：70.00）A.学习版B.专业版C.企业版D.业余版23.下列说法错误的是（ ）。（分数：70.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的24.对窗体编写如下事件过程： Option Ba
13、se 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：70.00）A.12 1B.20 2C.18 5D.24 1225.下面程序段执行结果为（ ）。 x=Iht(Rnd()+4) Sele
14、ct Case x Case 5 Print“excellent“ Case 4 Print“good“ Case 3 Print“paSS“ Case Else Print “fail“ End Select （分数：70.00）A.excellentB.goodC.passD.fail26.在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是( )。 （分数：70.00）A.x=List1ListCountB.x=ListCountC.x=List1ListIndexD.x=ListInd
15、ex27.在窗体上画一个命令按钮和一个文本框，其名称分别为 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，则文本框中显示 的内容是_。 （分数：70.00）A.108B.18C.810D.出错28.在窗体上画一个通用对话框,其名称为 C
16、ommonDialog1,然后画一个命令按钮,并编写如下事件过程： Private Sub Commandl_Click() CommonDialog1.Filter=“All Files(*.*)|*.*| Text Files“ End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是_。 （分数：70.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计44.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：70.00）A.Open“InfoBas
17、edat“For Output As #2B.Open“d:/InfoBasedat“For Output As #2C.Open“d:/InfoBasedat“For Input As #2D.Open“InfoBasedat“，For Input As #245.窗体上有 1 个名称为 List1 的列表框,其中已经输入了若干个项目(如图所示)；还有 2 个文本框,名称分别为 Text1、Text2,1 个名称为 Command1 的命令按钮,并有以下程序 （分数：70.00）A.京B.北京南京C.南京北京D.没有匹配的项目46.在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表
18、示续行符的是（ ）。（分数：70.00）A.123B._nameC.classD.1first47.表达式 5 Mod 3+3/5*2 的值是（ ）。 （分数：70.00）A.0B.2C.4D.648.资源文件的扩展名是（ ）。（分数：70.00）A.将在文本框 Text1 输入的数字变为数值B.将在文本框 Text1 输入的数字作为半径，求圆的周长并转换为字符串C.只要 Text1 中的内容一改变，Text2 中显示的圆周长也随之改变D.事件过程中的 Val 函数和 Str 函数使用错误，事件过程不能执行49.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Pri
19、vate Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）A.-5B.25C.1D.-150.下面的数组声明中，正确的是（ ）。（分数：70.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=751.如果将文本框的 MaxLength 属性设置为 0，则文本框中的字符不能超过（ ）。（分数：70.00）A.SELECT FROM 教师表 IF(性别=男)B.
20、SELECT 性别 FROM 教师表 IF(性别=男)C.SELECT * FROM 教师表 WHERE(性别=男)D.SELECT * FROM 性别 WHERE(性别=男)52.下列程序的执行结果为( )。 a=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：70.00）A.20 20B.30 20C.30 40D.15 1553.下面可以正确定义 2 个整型变量和 1 个字符串变量的语句是【 】（分数：70.00）A.Dim n,m As Integer,s As StringB.Dim a,b$,c As StringC.Dim
21、 a As Integer,b,c As StringD.Dim x,y As Integer,z As Suing54.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口 中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序： Private Sub Command1_Click() Timer1._ End Sub Private Sub Timer1_Timer() Text1.Text = Time End
22、Sub 在下划线处应填入的内容是_。（分数：70.00）A.Enabled = TrueB.Enabled = FalseC.Visible = TrueD.Visible = False55.以下叙述中正确的是【 】（分数：70.00）A.窗体的 Name 属性指定窗体的名称,用来标识一个窗体B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.窗体的 Name 属性值可以为空56.下列说法错误的是（ ）。（分数：70.00）A.Caption 为只读属性，运行时对象的名称不能改变B.设置 Height 或 Width 的数值单位为 twi
23、p，是 1 点的 1/20C.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键57.单击命令按钮时，下列程序的运行结果为（ ）。 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While mn Do While mn：m=m-n：Loop Do While mn：n=n-m：Loop Loop MyFund=m End Function （分数：70.00）A.int a
24、2 = 1，0，1，5，2，3；B.int a 3= 1，2，3，4，5，6；C.int a24= l，2，3，4，5，6 ；D.int a 3= 1，0，1， ，l，1 ；58.有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6
25、、7、8、 9、0，则输出结果是_。 （分数：70.00）A.12B.11C.10D.9 解析：Do While 语句是条件为 True 时，执行循环体。本题中当 dc 时，执行 c = c + 1，即在输入对话框中 输入 5、6、7、8、9 时执行该语句，也就是该语句被执行了 5 次，故 c=4+1*5=9。而当在输入对话框中输入 0 时，循环结束，此时 d=0。所以最后输出结果为 9。13.Visual Basic 程序设计采用的编程机制是（ ）。（分数：70.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不
26、可缺少的 解析：Visual Basic 中的一个工程可以包括一个或多个窗体，最多不超过 255 个 窗体，因此选项 D)是正确的，而选项 C)的说法是不正确的；资源文件的扩展名是res，所 以选项 A)是正确的；一个窗体对应于一个窗体文件，所以选项 B)也是正确的。 14.在修改列表框内容时，AddItem 方法的作用是（ ）。（分数：70.00）A.在列表框内插入一行文本 B.在列表框中插入多行文本C.删除列表框中指定的项目D.清除列表框内的全部内容解析：列表框可以使用 AddItem、Clear 和 RemoveItem 等方法，用来在运行期间改变列表框的内容。AddItem 方法用来在
27、列表框中插入一行文本：格式为：列表框AddItem 项目字符串,索引值；Clear 方法用来清除列表框中的全部内容，格式为：列表框 Clear；RemoveItem 方法用来删除列表中指定的项目，格式为：列表框RemoveItem 索引值。 15.标签控件能够显示文本信息，决定其文本内容的属性是（ ）。（分数：70.00）A.AlignmentB.Caption C.VisibleD.BorderStyle解析：标签(Label)主要用来显示一小段不需要用户修改的文本，被显示文本内容只能由 Caption 属性来定义和修改。因此选项 B)是正确的。选项 A)确定标签标题 的放置方式；选项 C)
28、决定程序运行后，控件是否在屏幕上显示出来。BorderStyle 属性一 般情况下设置为 True，但如果要屏蔽鼠标事件，可将其设置为 False，此时文本变为灰色。 16.单击命令按钮时，下列程序的运行结果为（ ）。 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While mn Do While mn：m=m-n：Loop Do While mn：n=n-m：Loop Loop MyFund=m E
29、nd Function （分数：70.00）A.0B.2 C.4D.6解析：此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主调过程只调用了一次被调过程，Print MyFund(20， 18)语句表明，程序最后输出的 只是被调过程的返回值。主调过程在调用被调过程 MyFund 时，把数值 20，18 分别传给形参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的 值大于 n 的值，所以执行语句 m=m -n，m 值变为 2，而由语句 MyFund=m 可看出，此过程的返回值就是 m 的值，即 2。17.假定一个 Visual Basic 应用程序由一个窗体模
30、块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：70.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模块和标准模块文件D.只保存工程文件解析：由于应用程序中包括一个窗体模块和一个标准模块，所以保存的时候这两个模块肯定要保存，而工 程文件是这两个模块的容器，也需要保存。18.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 1=1
31、+3 n=n+1 If i10 Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是【 】 （分数：70.00）A.5B.4C.3 D.2解析：由于循环体中语句：“i=i+3“的存在,使得循环变量 i 的值不再仅仅由 FOR 循环语句来确定,而是由两者共同决定。前 3 次进入循环时循环变量 i 的值依次为 0、4、8,其中第 3 次执行完语句：“i=i+3“后,i的值为 11,执行到 IF 语句处将跳出循环。故 n 的值为 3。19.用来设置文本框有无滚动条的属性是（ ）。（分数：70.00）A.ScrollB
32、ars B.MultiLineC.SelTextD.SelLength解析： 在本题中 4 个选项，都是用来设置文本框属性的，它们的作用分别是： MultiLine：决定控件是否允许接收多行文本，如果设置为 False，文本框中只能输入一行文本；如果设置 True，则可以输入多行文本。 SelLength：当前选中的文本的字符数，只能在运行期间设定或者返回。 SelText：表示当前所选取的文本字符串，如果没有选取文本，该返回一个空字符串。 ScrollBars：0：没有滚动条，默认值；1：空间中只有水平滚动条；2：表示控件中只有垂直滚动条；3：同时具有水平和垂直滚动条。 20.在窗体上画一个
33、命令按钮,名称为 Command1,然后编写如下代码： Option Base 0 Private Sub Commandl_Click() Dim A(4)As integer,B(4)As Integer For k=0 To 2 A(k+1)=InputBox(“请输入一个整数“) B(3-k)=A(k+1) Next k Print B(k) End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入 2、4、6,输出结果为【 】 （分数：70.00）A.0B.2 C.3D.4解析：本题程序代码通过一个循环给两个一维数组赋值： 当 k=0 时,输入 2,A(1)=2、B(3)=A
34、(1)=2； 当k=1 时,输入 4,A(2)=4、B(2)=A(2)=4； 当 k=2 时,输入 6,A(3)=6、B(1)=A(3)=6。 由于结束循环时 k=3,故输出内容为 B(3),即 2。 21.要设置窗体为固定对话框，并包含控制莱单栏和标题栏，但没有最大化和最小化控钮，设置的操作是（ ）。（分数：70.00）A.设置 BoderStyle 的值为 Fixed ToolWindowB.设置 BoderStyle 的值为 Sizable ToolWindowC.设置 BnderStyle 的值为 FixedDialog D.设置 BoderStyle 的佰为 Sizable解析：窗体
35、的边框有 6 种样式 Name 窗体无边框：Fixed Single 窗体固定单边框，可以包含控制菜单框、标题栏、最大化和最小化按钮，窗体太小只能用最大化和最小化按钮改变；Sizable 可调整边框，窗体太小日变并有标准的双线边界；Fixed Dialog 固定对话框可以包含控制菜单栏和标题栏，但敉有最大化化最小化按钮，窗体大小不变，并有双线边界；Fixed ToolWindow 固定工具窗口，窗体大小不能改变，只能显示关闭按钮有缩小的字体显示标题栏，Sizable ToolWindow 可变大小的工具窗口，窗体大小可变，只显示关闭按钮,用缩小的字体显示标题栏。 22.Visual Basic
36、 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：70.00）A.学习版B.专业版C.企业版D.业余版 解析：Visual Basic 包括 3 种版本，分别为学习版、专业版和企业版。学习版是 Visual Basic 最基本、最便宜的版本，包括创建 Windows 应用程序所需要的内部控件及数据网格、数据绑定控件等；专业版包括学习版中的全部内容，又增加了立体控件、动画按钮、通讯控件、进度条、工具栏和 Internet 控件等开发应用程序所需要的全套工具，功能更强大；企业版包括专业版中的全部内容，是 Visual Basic 的最强版本，为软件开发团队开发大型的网络环境应用软件
37、体系提供了强有力的支持。23.下列说法错误的是（ ）。（分数：70.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的 解析：方法是对象的一部分，所以选项 A)的表述是正确的，其调用格式为：对 象名方法名称，与属性的使用格式相同，所以选项 B)是正确的；方法在调用时，可以省 略对象名，但这只限于当前窗体(或控件)，如果不是当前窗体或控件要加上对象名称，所 以选项 D)是不正确的；方法是一种特殊的过程和函数，所以选项 C)是正确的。 24.对窗体编写如下事件过程： Option Base 1 Private
38、Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：70.00）A.12 1 B.20 2C.18 5D.24 12解析： 此题考查了窗体的 KeyPress 事件过程；在默认情况下控件的键盘事件优先于窗体的键盘事
39、件，在此题中只有窗体了。窗体的 KeyPress 事件的格式为： Private Sub Form _ KeyPress(KeyAscii As Integer) End Sub KeyAscii=13 为回车键，所以按下回车键就执行条件语句，输出结果为 12 1(竖排)。 25.下面程序段执行结果为（ ）。 x=Iht(Rnd()+4) Select Case x Case 5 Print“excellent“ Case 4 Print“good“ Case 3 Print“paSS“ Case Else Print “fail“ End Select （分数：70.00）A.excelle
40、ntB.good C.passD.fail解析：我们可以看到 x=Int(Rnd()+4)语句，其中，Rnd 是用来产生随机数的，其值在 01 之间，而在(Rnd()+4)前面有 Int 进行强制转换，所以 x 总为 4， Select Case xEnd Select 语句体中的 Case4 CR Print“good“语句。所以正确答案是选项 B)。26.在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是( )。 （分数：70.00）A.x=List1ListCount B.x=List
41、CountC.x=List1ListIndexD.x=ListIndex解析：选项 C)中循环终止条件为 N100，在第一次循环时该条件就为 True，所以只执行一次，不能循环100 次。27.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框 的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(“Enter an integer“) b = InputBox(“Enter an integer“) Text1.Text = b + a End Sub 程序运行后，单
42、击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示 的内容是_。 （分数：70.00）A.108 B.18C.810D.出错解析：“+”是加号运算符，如果“+”加号两边的表达式都是 String 型，则“+”起连接作用，InputBox 返 回的是一个字符型。所以本题是做字符串连接，故答案是 108。28.在窗体上画一个通用对话框,其名称为 CommonDialog1,然后画一个命令按钮,并编写如下事件过程： Private Sub Commandl_Click() CommonDialog1.Filter=“All Files(*.*)|*.*| Text Files“ E
43、nd Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是_。 （分数：70.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.a 程序设计解析：因为程序一运行，文本框 Text1 获得焦点，按下“a”键后，执行 Text1_KeyDown 事件，在窗体上显 示“Visual Basic”；这时再单击窗体，则触发 Form_MouseUp 事件，在窗体上显示“程序设计”。44.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：70.00）A.Open“InfoBas
44、edat“For Output As #2B.Open“d:/InfoBasedat“For Output As #2 C.Open“d:/InfoBasedat“For Input As #2D.Open“InfoBasedat“，For Input As #2解析：打开文件的命令是 Open，其常用的形式如下：Open“文件名”For 模式 As #文件号Len=记录长度；因为本题是要新建一 个文件，所以在 For 后面的“模式”为“Output，它的意思是为了写操作而建立文件(打开文件)，而模式为“Input”时，该文件必须已经存 在，否则，会产生一个错误。所以选项D)和选项 C)不正确
45、；文件名必须是文件地址的全称，因为文件在 D 盘目录下，所以要在文件名中出现“D ：/”字符，所以选项 A)也不正确，正确的只有选项 B)。45.窗体上有 1 个名称为 List1 的列表框,其中已经输入了若干个项目(如图所示)；还有 2 个文本框,名称分别为 Text1、Text2,1 个名称为 Command1 的命令按钮,并有以下程序 （分数：70.00）A.京B.北京南京C.南京北京 D.没有匹配的项目解析：对于列表框中的每个项目是通过列表框的 Listlndex 即索引值来引用的,不同的选项具有不同的索引值,索引值从 0 开始,最后一项的索引值是总项目数-1；在该题中,For 循环是
46、从列表项的最后一项开始倒查文本框 1 中的内容是否包含在列表框的某个项中,如果有则把该项的内容存到字符串变量 str 中,最后把所有符合条件的项目都存到变量 str 中,并赋值给文本框 Text2,如果没有匹配的项目,则在文本框中显示“没有匹配的项目“。根据题意本题输入的是“京“,则第一个包含“京“的应该是“南京“,第二个是“北京“。46.在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（ ）。（分数：70.00）A.123B._name C.classD.1first解析：TextField 为单行文本输入区，TextArea 为多行多列文本输入区， Button 为
47、按扭，Checkbox 为复选框。47.表达式 5 Mod 3+3/5*2 的值是（ ）。 （分数：70.00）A.0B.2 C.4D.6解析：48.资源文件的扩展名是（ ）。（分数：70.00）A.将在文本框 Text1 输入的数字变为数值B.将在文本框 Text1 输入的数字作为半径，求圆的周长并转换为字符串C.只要 Text1 中的内容一改变，Text2 中显示的圆周长也随之改变 D.事件过程中的 Val 函数和 Str 函数使用错误，事件过程不能执行解析：在此题中考查了函数的定义，及其有关操作，对于奇数的判断是用取模来判断的，奇数不能被 2 争取，或者说奇数除以 2 后的余数是 1，而
48、偶数能被 2 整数，即偶数除以 2 后的余数是 0，因此判断语句应为 If a Mod 2=0 Then CT=0 Else CT=1；即当 a 为偶数时返回值是 0，a 为奇数时返回值是 1，符合题意。49.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）A.-5B.25C.1 D.-1解析：50.下面的数组声明中，正确的是（ ）。（分数：70.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=7 解析：选择查询是属于查询的种类，跟操作查询并列。操作查询包括生成表查询、删除查询、更新查询和追加查询四种。51.如果将文本框的 MaxLength 属性设置为 0，则文本框中的字符不能超过（ ）。（分数：70.00）A.SELECT FROM 教师表 IF(性别=男)B.SEL
