1、二级 VISUAL+BASIC 笔试-27 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为( )。（分数：2.00）A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)2
2、.窗体上有一个命令按钮和一个列表框(Sorted 属性为 True)，执行下列过程后的输出结果是( )。Private Sub Command1_Click()List1.AddItem“China“List1.AddItem“Great“List1.AddItem“Is“,1List1.AddItem“!“,3Print List1.List(2)End Sub（分数：2.00）A.ChinaB.GreatC.IsD.!3.在 Activate 事件过程中，写入下面的程序：Prirate Sub Form_Activate()Dim S As String，a As String，b As
3、Stringa=“*“：b=“$“For i=1 To 4If i/2=Int(i/2) ThenS=String(Len(a)+i,b)ElseS=String(Len(a)+i,a)End IfPrint S：Next iEnd Sub运行程序后，显示的结果是( )。（分数：2.00）A.$*$*B.*$*$*$*$C.*$*$D.$*$*$*$*4.为了用键盘打开菜单和执行菜单命令，第一步应按的键是( )。（分数：2.00）A.功能键 F10 或 Alt 键B.Shift+功能键 F4C.Ctrl 或功能键 F8D.Ctrl+Alt 键5.InputBox 函数返回值的类型是( )。（分
4、数：2.00）A.数值B.字符串C.数值或字符串(视输入的数据而定)D.变体6.假定有下面的过程：Function Func(a As Integer,b As Integer)As IntegerStatic m As Integer,i As Integerm=0i=2i=i+m+1m=i+a+bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1_Click()Dim k As Integer，m As IntegerDim p As Integerk=4m=1p=Func(k，m)Print p；p=Func(k，
5、m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.8 17B.8 16C.8 20D.8 87.代数式|e 3+lgy1+arctgy2|对应的 Visiual Basic 表达式是( )。（分数：2.00）A.Abs(E3+Log(Y1)+1/Tg(Y2)B.Abs(Exp(3)+Log(Y1)/Log(10)+Atn(Y2)C.Abs(Exp(3)+Log(Y1)+1/Atn(Y2)D.Abs(Exp(3)+Log(Y1)+1/Am(X)8.下面关于 Visual Basic 6.0 工具栏的说法不正确的是( )。（分数：2.00）A.工具栏
6、的位置可以任意改变B.工具栏一定在菜单栏的下方C.工具栏可以显示或隐藏D.Visual Basic 有多个工具栏9.下列 4 项对 InputBox 函数的使用说明，不正确的是( )。（分数：2.00）A.每执行一次 InputBox 函数，只能输入一个值B.函数值必须赋给一个变量C.InputBox 函数的 Prompt 参数不能缺省D.若单击 InputBox 函数产生的对话框中的“取消”按钮，将不会返回函数值10.不能打开属性窗口的操作是( )。（分数：2.00）A.单击工具栏中的“属性窗口”按钮B.选取“视图”菜单中的“属性窗口”子菜单项C.在对象上单击右键，从弹出的快捷菜单中选择“属
7、性窗口”选项D.选取“工程”菜单中的“属性窗口”子菜单项11.确定复选框是否选中，可访问的属性是( )。（分数：2.00）A.ValueB.CheckedC.SelectedD.Caption12.如果在 C 盘当前文件夹下已存在名称为 studata.dat 的顺序文件，那么执行语句Open“c:studata.dat“For Append As #1 之后，将( )。（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾添加新内容C.保留文件中原有内容，并在文件头添加新内容D.以上均不对13.使用语句 Dim A As Integer 声明数组 A 之后，以下说法正确的
8、是( )。（分数：2.00）A.A 数组中所有元素值为 0B.A 数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素值为 014.将数学表达式 cos2(a+b)+5e2写成 Visual Basic 的表达式，其正确的形式是( )。（分数：2.00）A.cos(a+b)2+5*exp(2)B.cos2(a+b)+5*exp(2)C.cos(a+b)2+5*ln(2)D.cos2(a+b)+5*ln(2)15.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private
9、 Sub Command1_Click()Dim as=0a=Array(1,2,3,4)j=1For i=4 To 1 Step-1s=s+a(i)*Jj=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是( )。（分数：2.00）A.4321B.1234C.34D.1216.假定窗体有一个标签，名为 Label1，为了使该标签透明并且没有边框，正确的属性设置为( )。（分数：2.00）A.Label1.BackStyle=0 Label1.BorderStyle=0B.Label1.BackStyle=1 Label1.BorderStyle=1C.
10、Label1.BackStyle=True Label1.BorderStyle=TrueD.Label1.BackStyle=False Label1.BorderStyle=False17.定义含有 10 个元素的单精度实型一维数组正确的语句是( )。（分数：2.00）A.Dim a(9)as SingleB.Option Base 1:Dim a(9)C.Dim a#(9)D.Dim a(10)As Integer18.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2，然后编写如下事件过程：Private Sub Command1_Clic
11、k()a=0For i=1 T0 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(a)Label2.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是( )。（分数：2.00）A.10 和 20B.20 和 110C.200 和 110D.110 和 2019.设有如下程序：Private Sub Command1_Click()Dim sum As Double，x As Doublesum=0n=0For i=1 To 5x=n/in=
12、n+1sum=sum+xNextEnd Sub该程序通过 For 循环计算一个表达式的值，这个表达式是( )。（分数：2.00）A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+3/4C.1/2+2/3+3/4+4/5D.1+1/2+1/3+1/4+1/520.下面的程序运行结果是( )。Private Sub Form_Click()i=0Doi=i+1if i10 then Exit DoLoop Until i10Print iEnd Sub（分数：2.00）A.0B.1C.10D.1121.下列说法中正确的是( )。（分数：2.00）A.对象属性只能在“属性窗口”中设置B.
13、一个新的工程可以在“工程窗口”中建立C.必须先建立一个工程，才能开始设计应用程序D.只能在“代码窗口”中编写程序代码22.单击一次命令按钮之后，下列程序段的执行结果为( )。Pubic Sub Proc(a()As Integer)Static i As IntegerDoa(i)=a(i)+a(i+1)i=i+1Loop While i2End SubPrivate Sub Command1_Click()Dim m As Integer,i As Integer,x(10)As IntegerFor i=0 To 4:x(i)=i+1:Next iFor i=1 To 2:CallProc
14、(x():Next iFor i=0 To 4:Print x(i);Next iEnd Sub（分数：2.00）A.3 4 7 5 6B.3 5 7 4 5C.1 2 3 4 5D.1 2 3 5 723.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Click 事件过程中使用( )语句。（分数：2.00）A.Form2.UnloadB.UnloadForm2C.Hide.Form2D.Form2.Hide24.下列叙述中正确的是( )。（分数：2.00）A.Visual Basic 与 Basic 没有什么不同B.Visual Basic 与 Basic 的编程机制不
15、同C.Visual Basic 是过程设计语言D.Visual Basic 与 Basic 两种之间没有什么联系25.MsgBox 函数用于显示提示信息，关于函数返回值的说明正确的是( )。（分数：2.00）A.函数的返回值是提示信息的数据类型B.函数的返回值是提示信息的数据长度C.函数的返回值是整数，指示按下哪个按钮D.函数的返回值是符号常量，指示按下哪个按钮26.下列程序运行时，两次单击窗体后，显示的结果是( )。Private Sub Form_Click()Dim b As IntegerStatic c As Integerb=b+2c=c+2Print “b=“；b;“c=“;cE
16、nd Sub（分数：2.00）A.b=2 c=2b=2 c=2B.b=2 c=2b=4 c=4C.b=2 c=2b=2 c=4D.b=2 c=2b=4 c=227.下列叙述中正确的是( )。（分数：2.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对28.设有如下三个关系表（分数：2.00）A.B.C.D.29.下列说法正确的是( )。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为活动窗口时，才能打开菜单编辑器C.只有当某个窗体为活动窗体时，才能打开菜单编辑
17、器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器30.在下面各关系中，当 X 取小数或负数时都能成立的式子是( )。（分数：2.00）A.Int(X)=Abs(X)B.Int(X)=Abs(x)C.Int(X)Abs(X)D.Int(X)Abs(X)31.在菜单编辑器中建立 1 个名称为 Menu0 的菜单项，将其“可见”属性设置为 False，并建立其若干子菜单，然后编写如下过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Buaon
18、=1 ThenPopupMenu Menu0End IfEnd Sub则以下叙述中错误的是( )。（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单C.Menu0 是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标32.用 InputBox 函数设计的对话框，其功能是( )。A能接收用户输入的数据，但不会返回任何信息B能接收用户输入的数据，并能返回用户输入的信息C. 既能用于接收用户输入的信息，又能用于输出信息D专门用于输出信息（分数：2.00）A.B.C.D.33.窗体文件中的信息是( )和其他信息。（分数：2.00）A.窗体的形状及其特征B
19、.窗体中控件的形状及其特性C.窗体及其控件的属性D.运行窗体的代码34.假设变量 bool_x 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是( )。（分数：2.00）A.bool_x=“False“B.bool_x=.False.C.bool_x=#False#D.bool_x=False35.下面 4 个语句中，能打印显示 20*30 字样的是( )。（分数：2.00）A.Print“20*30“B.Prin 20*30C.Print Chr$(20)+“*“+Chr$(30)D.Print Val(“20“)*VaL(“30“)二、填空题(总题数：12，分数：30.00)36.对随
20、机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_37.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_38.在关系模型中，把数据看成是二维表，每一个二维表称为一个 1。（分数：2.00）填空项 1:_39.窗体、图片框或图像框中的图形通过对象的 1 属性设置。（分数：2.00）填空项 1:_40.变量未赋值时，数值型变量的值为 1，字符串变量的值为空串。（分数：2.00）填空项 1:_41.事件的方法是用于 1。（分数：2.00）填空项 1:_42.LOF 函数的功能是返回某文件的字节数，LOF(2)是返回 1。（
21、分数：2.00）填空项 1:_43.下列程序运行时，若输入 123，输入对话框的提示信息是_。Private Sub Command1_Click()X1=InputBox(“请输入“)MsgBox(X1)End Sub（分数：2.00）填空项 1:_44.在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Stringa=“123456789“For i=1 To 5Print Space(6-i);Mid$(a,_,2*i-1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果
22、是如下，请填空。5456345672345678123456789（分数：2.00）填空项 1:_在窗体模块的声明段中用 Public 定义的变量可以在 (10) 模块中使用，而用 Dim 或 Private 关键字定义的变量可以在 (11) 模块中使用。（分数：4.00）填空项 1:_填空项 1:_下面程序的功能是找出能够被 13、23、43 除余数分别为 1、2、3 的最小的两位正整数。请填空。Private Sub Form_Click()Dim i As Integer,j As Integerj=0j=43+3Doj=j+1if (12) thenprint ji=i+1end if
23、Loop (13) End Sub（分数：4.00）填空项 1:_填空项 1:_在窗体上画一个名称为 Combo1 的组合框，画两个名称分别为 Label1 和 Label2 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”，如果存在，则在 Label2 中给出提示“输入项已在组合框中”。如下图所示：（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-27 答案解析(
24、总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为( )。（分数：2.00）A.Right(c1,i)B.Left(c1,i) C.Mid(c1,i,1)D.Mid(c1,i,i)解析：2.窗体上有一个命令按钮和一个列表框(Sorted
25、 属性为 True)，执行下列过程后的输出结果是( )。Private Sub Command1_Click()List1.AddItem“China“List1.AddItem“Great“List1.AddItem“Is“,1List1.AddItem“!“,3Print List1.List(2)End Sub（分数：2.00）A.ChinaB.Great C.IsD.!解析：3.在 Activate 事件过程中，写入下面的程序：Prirate Sub Form_Activate()Dim S As String，a As String，b As Stringa=“*“：b=“$“For
26、 i=1 To 4If i/2=Int(i/2) ThenS=String(Len(a)+i,b)ElseS=String(Len(a)+i,a)End IfPrint S：Next iEnd Sub运行程序后，显示的结果是( )。（分数：2.00）A.$*$*B.*$*$*$*$C.*$*$ D.$*$*$*$*解析：4.为了用键盘打开菜单和执行菜单命令，第一步应按的键是( )。（分数：2.00）A.功能键 F10 或 Alt 键 B.Shift+功能键 F4C.Ctrl 或功能键 F8D.Ctrl+Alt 键解析：5.InputBox 函数返回值的类型是( )。（分数：2.00）A.数值B
27、.字符串 C.数值或字符串(视输入的数据而定)D.变体解析：6.假定有下面的过程：Function Func(a As Integer,b As Integer)As IntegerStatic m As Integer,i As Integerm=0i=2i=i+m+1m=i+a+bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1_Click()Dim k As Integer，m As IntegerDim p As Integerk=4m=1p=Func(k，m)Print p；p=Func(k，m)Print
28、pEnd Sub程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.8 17B.8 16C.8 20D.8 8 解析：7.代数式|e 3+lgy1+arctgy2|对应的 Visiual Basic 表达式是( )。（分数：2.00）A.Abs(E3+Log(Y1)+1/Tg(Y2)B.Abs(Exp(3)+Log(Y1)/Log(10)+Atn(Y2) C.Abs(Exp(3)+Log(Y1)+1/Atn(Y2)D.Abs(Exp(3)+Log(Y1)+1/Am(X)解析：8.下面关于 Visual Basic 6.0 工具栏的说法不正确的是( )。（分数：2.00）A.工具栏
29、的位置可以任意改变B.工具栏一定在菜单栏的下方 C.工具栏可以显示或隐藏D.Visual Basic 有多个工具栏解析：9.下列 4 项对 InputBox 函数的使用说明，不正确的是( )。（分数：2.00）A.每执行一次 InputBox 函数，只能输入一个值B.函数值必须赋给一个变量C.InputBox 函数的 Prompt 参数不能缺省D.若单击 InputBox 函数产生的对话框中的“取消”按钮，将不会返回函数值 解析：10.不能打开属性窗口的操作是( )。（分数：2.00）A.单击工具栏中的“属性窗口”按钮B.选取“视图”菜单中的“属性窗口”子菜单项C.在对象上单击右键，从弹出的快
30、捷菜单中选择“属性窗口”选项D.选取“工程”菜单中的“属性窗口”子菜单项 解析：11.确定复选框是否选中，可访问的属性是( )。（分数：2.00）A.Value B.CheckedC.SelectedD.Caption解析：12.如果在 C 盘当前文件夹下已存在名称为 studata.dat 的顺序文件，那么执行语句Open“c:studata.dat“For Append As #1 之后，将( )。（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾添加新内容 C.保留文件中原有内容，并在文件头添加新内容D.以上均不对解析：13.使用语句 Dim A As Integ
31、er 声明数组 A 之后，以下说法正确的是( )。（分数：2.00）A.A 数组中所有元素值为 0B.A 数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素值为 0 解析：14.将数学表达式 cos2(a+b)+5e2写成 Visual Basic 的表达式，其正确的形式是( )。（分数：2.00）A.cos(a+b)2+5*exp(2) B.cos2(a+b)+5*exp(2)C.cos(a+b)2+5*ln(2)D.cos2(a+b)+5*ln(2)解析：15.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然
32、后编写如下代码：Option Base 1Private Sub Command1_Click()Dim as=0a=Array(1,2,3,4)j=1For i=4 To 1 Step-1s=s+a(i)*Jj=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是( )。（分数：2.00）A.4321B.1234 C.34D.12解析：16.假定窗体有一个标签，名为 Label1，为了使该标签透明并且没有边框，正确的属性设置为( )。（分数：2.00）A.Label1.BackStyle=0 Label1.BorderStyle=0 B.Label1.B
33、ackStyle=1 Label1.BorderStyle=1C.Label1.BackStyle=True Label1.BorderStyle=TrueD.Label1.BackStyle=False Label1.BorderStyle=False解析：17.定义含有 10 个元素的单精度实型一维数组正确的语句是( )。（分数：2.00）A.Dim a(9)as Single B.Option Base 1:Dim a(9)C.Dim a#(9)D.Dim a(10)As Integer解析：18.在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Lab
34、el2，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 T0 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(a)Label2.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是( )。（分数：2.00）A.10 和 20B.20 和 110C.200 和 110D.110 和 20 解析：19.设有如下程序：Private Sub Command1_Click()Dim sum As D
35、ouble，x As Doublesum=0n=0For i=1 To 5x=n/in=n+1sum=sum+xNextEnd Sub该程序通过 For 循环计算一个表达式的值，这个表达式是( )。（分数：2.00）A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+3/4C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5解析：20.下面的程序运行结果是( )。Private Sub Form_Click()i=0Doi=i+1if i10 then Exit DoLoop Until i10Print iEnd Sub（分数：2.00）A.0B.1C.10D
36、.11 解析：21.下列说法中正确的是( )。（分数：2.00）A.对象属性只能在“属性窗口”中设置B.一个新的工程可以在“工程窗口”中建立C.必须先建立一个工程，才能开始设计应用程序 D.只能在“代码窗口”中编写程序代码解析：22.单击一次命令按钮之后，下列程序段的执行结果为( )。Pubic Sub Proc(a()As Integer)Static i As IntegerDoa(i)=a(i)+a(i+1)i=i+1Loop While i2End SubPrivate Sub Command1_Click()Dim m As Integer,i As Integer,x(10)As
37、IntegerFor i=0 To 4:x(i)=i+1:Next iFor i=1 To 2:CallProc(x():Next iFor i=0 To 4:Print x(i);Next iEnd Sub（分数：2.00）A.3 4 7 5 6B.3 5 7 4 5 C.1 2 3 4 5D.1 2 3 5 7解析：23.要从自定义对话框 Form2 中退出，可以在该对话框的“退出”按钮 Click 事件过程中使用( )语句。（分数：2.00）A.Form2.UnloadB.UnloadForm2 C.Hide.Form2D.Form2.Hide解析：24.下列叙述中正确的是( )。（分数
38、：2.00）A.Visual Basic 与 Basic 没有什么不同B.Visual Basic 与 Basic 的编程机制不同 C.Visual Basic 是过程设计语言D.Visual Basic 与 Basic 两种之间没有什么联系解析：25.MsgBox 函数用于显示提示信息，关于函数返回值的说明正确的是( )。（分数：2.00）A.函数的返回值是提示信息的数据类型B.函数的返回值是提示信息的数据长度C.函数的返回值是整数，指示按下哪个按钮 D.函数的返回值是符号常量，指示按下哪个按钮解析：26.下列程序运行时，两次单击窗体后，显示的结果是( )。Private Sub Form_
39、Click()Dim b As IntegerStatic c As Integerb=b+2c=c+2Print “b=“；b;“c=“;cEnd Sub（分数：2.00）A.b=2 c=2b=2 c=2B.b=2 c=2b=4 c=4C.b=2 c=2b=2 c=4 D.b=2 c=2b=4 c=2解析：27.下列叙述中正确的是( )。（分数：2.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对 解析：28.设有如下三个关系表（分数：2.00）A.B.C. D.解析：29.下列说法正确的是( )。（分数：2.0
40、0）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为活动窗口时，才能打开菜单编辑器C.只有当某个窗体为活动窗体时，才能打开菜单编辑器 D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器解析：30.在下面各关系中，当 X 取小数或负数时都能成立的式子是( )。（分数：2.00）A.Int(X)=Abs(X)B.Int(X)=Abs(x)C.Int(X)Abs(X)D.Int(X)Abs(X) 解析：31.在菜单编辑器中建立 1 个名称为 Menu0 的菜单项，将其“可见”属性设置为 False，并建立其若干子菜单，然后编写如下过程：Pr
41、ivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Buaon=1 ThenPopupMenu Menu0End IfEnd Sub则以下叙述中错误的是( )。（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单 C.Menu0 是在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标解析：32.用 InputBox 函数设计的对话框，其功能是( )。A能接收用户输入的数据，但不会返回任何信息B能接收用户输入的数据，并能返回用户输入
42、的信息C. 既能用于接收用户输入的信息，又能用于输出信息D专门用于输出信息（分数：2.00）A.B. C.D.解析：33.窗体文件中的信息是( )和其他信息。（分数：2.00）A.窗体的形状及其特征B.窗体中控件的形状及其特性C.窗体及其控件的属性 D.运行窗体的代码解析：34.假设变量 bool_x 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是( )。（分数：2.00）A.bool_x=“False“B.bool_x=.False.C.bool_x=#False#D.bool_x=False 解析：35.下面 4 个语句中，能打印显示 20*30 字样的是( )。（分数：2.00）A
43、.Print“20*30“ B.Prin 20*30C.Print Chr$(20)+“*“+Chr$(30)D.Print Val(“20“)*VaL(“30“)解析：二、填空题(总题数：12，分数：30.00)36.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_ （正确答案：一个记录）解析：37.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_ （正确答案：45）解析：38.在关系模型中，把数据看成是二维表，每一个二维表称为一个 1。（分数：2.00）填空项 1:_ （正确答案：关系或关系表）解析：39.
44、窗体、图片框或图像框中的图形通过对象的 1 属性设置。（分数：2.00）填空项 1:_ （正确答案：Picture）解析：40.变量未赋值时，数值型变量的值为 1，字符串变量的值为空串。（分数：2.00）填空项 1:_ （正确答案：0）解析：41.事件的方法是用于 1。（分数：2.00）填空项 1:_ （正确答案：完成某种特定功能）解析：42.LOF 函数的功能是返回某文件的字节数，LOF(2)是返回 1。（分数：2.00）填空项 1:_ （正确答案：#2 文件的长度）解析：43.下列程序运行时，若输入 123，输入对话框的提示信息是_。Private Sub Command1_Click()
45、X1=InputBox(“请输入“)MsgBox(X1)End Sub（分数：2.00）填空项 1:_ （正确答案：123）解析：44.在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Stringa=“123456789“For i=1 To 5Print Space(6-i);Mid$(a,_,2*i-1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是如下，请填空。5456345672345678123456789（分数：2.00）填空项 1:_ （正确答案：6-i）解
46、析：在窗体模块的声明段中用 Public 定义的变量可以在 (10) 模块中使用，而用 Dim 或 Private 关键字定义的变量可以在 (11) 模块中使用。（分数：4.00）填空项 1:_ （正确答案：整个程序的所有模块）解析：填空项 1:_ （正确答案：定义该变量的窗体）解析：下面程序的功能是找出能够被 13、23、43 除余数分别为 1、2、3 的最小的两位正整数。请填空。Private Sub Form_Click()Dim i As Integer,j As Integerj=0j=43+3Doj=j+1if (12) thenprint ji=i+1end ifLoop (13
47、) End Sub（分数：4.00）填空项 1:_ （正确答案：j Mod 13=1 And j Mod 23=2 And j M0d 43=3）解析：填空项 1:_ （正确答案：Until i=2 或 Until i=2）解析：在窗体上画一个名称为 Combo1 的组合框，画两个名称分别为 Label1 和 Label2 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”，如果存在，则在 Label2 中给出提示“输入项已在组合框中”。如下图所示：（分数：4.00）填空项 1:_ （正确答案：KeyPress）解析：填空项 1:_ （正确答案：Combo1.List(i)）解析：
