1、国家计算机二级(VB)79 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.设窗体上有一个文本框 Text1和一个命令按钮 Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1
2、中显示的是( )。 （分数：2.00）A.BasicB.cisaBC.BASICD.CISAB2.窗体上有 1个名称为 List1的列表框,其中已经输入了若干个项目(如图所示)；还有 2个文本框,名称分别为 Text1、Text2,1 个名称为 Command1的命令按钮,并有以下程序 （分数：2.00）A.京B.北京南京C.南京北京D.没有匹配的项目3.有如下程序： Private Sub Command1 Click() Dim a As Single Dim b As Single a=5：b=4 Call S(a，B) End Sub Sub S(x As Single，y As Si
3、ngle) t=x x=t/y y=t Mod y End Sub 在调用运行上述程序后，a 和 b的值分别为（ ）。 （分数：2.00）A.0 0B.1 1C.2 2D.1 24.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2= Next End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息7.以下能从字符串“VisualBasic
4、“中直接取出子字符串“Basic“的函数是_。 （分数：2.00）A.LeftB.MidC.StringD.Instr8.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End
5、Sub 程序运行后，单击命令按钮，在窗体上输出的是_。（分数：2.00）A.6 6B.10 5C.7 21D.6 129.有关菜单的说法不恰当的是（ ）。（分数：2.00）A.菜单与窗体无关，是对立的B.菜单总是于窗体有关，每个菜单都依附于一定的窗体C.菜单分为下拉式菜单和弹出式菜单D.在 Visual Basic中有专门的设计菜单环境，那就是菜单编辑器10.单击窗体时，下列程序的执行结果是( )。 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=
6、Len(xstr) Do While I=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop yStr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1=“abcdef“ Invert S1，S2 Print S2 End Sub （分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc11.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X
7、As Integer) As Integer If X 20 Then Y = X Else Y = 20 + X End If func = Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True End Su
8、b Private Sub Command1_Click() Dim intNum As Integer intNum = InputBox(“) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入 25，则 程序的执行结果为_。 （分数：2.00）A.输出 0B.输出 25C.输出 45D.无任何输出12.以下不能输出“Program”的语句是（分数：2.00）A.Print Mid(“VBProgram“，3，7)B.Print Right(“VBProgram“，7)C.Prin
9、t Mid(“VBProgram“，3)D.Print Left(“VBProgram“，7)13.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件14.只有将组合框的 Style属性设置为何值时，才能触发 DblClick事件?（分数：2.00）A.ThreadB.RunnableC.ObjectD.ThreadGroup15.单击命令按钮时，下列程序的执行结果是（ ）。 Private S
10、ub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProC(x As Integer，y As Integer，z As Integer) FirProc=2*s+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function （分数：2.00）A.20
11、B.22C.28D.3016.关于自定义对话框概念的说明，错误的是（ ）。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程17.在窗体上画一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Com
12、mand1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：2.00）A.6B.7C.8D.918.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byva
13、l n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：2.00）A.0 8B.40 72C.4 50D.78 5019.要在 D盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：2.00）A.BookB.2_SeekC.123.58D.Book-120.对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2的排序方法是（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序21.在数据管理技术发展的三个阶段中，数据共享最好的是（分
14、数：2.00）A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同22.单击命令按钮，下列程序的执行结果是( )。 Private Sub Blck (x As Integer) x = x * 2 + l If x 6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub （分数：2.00）A.aa=falseB.aa=FalseC.aa=“true“D.aa=023.有如下事件过程，当同时按下转换键 Shift和功能键 F5时其最后
15、输出的信息是（ ）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5= Next End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.ABCDE B.1 2 3 4 5C.abcdeD.出错信息解析：语句 Chr(Asc(“A“) + (i-1)的作用是将字符 A 的 ASCII 码值加上循环变量的值减 1，求出此 ASCII码对应的字符。将计算出的字符赋值给数组 arr 的第 i 个元素。循环结束后，arr 的 5 个元素分别为字符 A、B、C、D、E。Print 方法输出项的最后用分号结束，使得输出不换行。7.以下能从字
16、符串“VisualBasic“中直接取出子字符串“Basic“的函数是_。 （分数：2.00）A.LeftB.Mid C.StringD.Instr解析：Mid(s,index,length)用来从字符串 s 中的第 index 字符开始连续取出 length 个字符。对于本题，可以用 Mid(“VisualBasic“,7,5)就可以取出字符串“Basic”。8.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) Dim i As Integer, j As Int
17、eger For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是_。（分数：2.00）A.6 6B.10 5C.7 21D.6 12 解析：本题也是通过一个 For 循环来给数组赋值。由 a1(i,j)=i+j 可知，a1(3,3)=3+3=6，而由 a2(i,j)=a1(i,j)+i+j可知 a2(3,3)=a1(3,3)+3+3=6+3+3=12。9.有关菜单的
18、说法不恰当的是（ ）。（分数：2.00）A.菜单与窗体无关，是对立的 B.菜单总是于窗体有关，每个菜单都依附于一定的窗体C.菜单分为下拉式菜单和弹出式菜单D.在 Visual Basic中有专门的设计菜单环境，那就是菜单编辑器解析：此题考核的是有关菜单的基础知识。菜单分为下拉式菜单和弹出式菜单两种。要打开某界面上的菜单，首先要进入该界面 ，此处界面上指窗体，所以菜单总与窗体相关联。Visual Basic 中有专门的设计菜单环境，那就是菜单编辑器，可以用菜单编辑器设计用户需 要的菜单，方便用户的操作。10.单击窗体时，下列程序的执行结果是( )。 Private Sub Invert(By V
19、al xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop yStr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1=“abcdef“ Invert S1，S2 Print S2 End Sub （分数：2.00）A.abcdefB.afbecdC.fedcba D.de
20、fabc解析：Invert(By Val xstr As String，ystr As String)的作用是将参数 xstr的字符逆序处理，然后赋值给 ystr，而 ystr是按地址引用的，可以直接返回处理结果。11.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer) As Integer If X 20 Then Y = X Else Y = 20 + X End If func = Y End Function Private Sub Form_MouseDown(Button
21、As Integer, Shift As Integer, X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum = InputBox(“) If SW Then Print func(intNum) End If End Sub 程序
22、运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入 25，则 程序的执行结果为_。 （分数：2.00）A.输出 0B.输出 25C.输出 45D.无任何输出 解析：当鼠标指针在屏幕的某个对象上按键时，就会激发这个对象的 MouseDown 事件与 MouseUp 事件。 本题中单击的是命令按钮，而不是窗体，故窗体的 MouseDown 事件与 MouseUp 事件没有被激发，所以 SW为 False，因为如果定义了一个 Boolean 型变量，如果不对它赋值，默认就是 False。所以 Print func(intNum)语句没有被执行，当然也就无任何输出了。12.以下不能输出
23、“Program”的语句是（分数：2.00）A.Print Mid(“VBProgram“，3，7)B.Print Right(“VBProgram“，7)C.Print Mid(“VBProgram“，3)D.Print Left(“VBProgram“，7) 解析：Left 函数用于输出给定字符串左侧的字符，本题为取字符串左侧 7个字符，选项 D输出的结果应为“VBProgr”。13.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应 用程序，以下正确的操作是_。 （分数：2.00）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.
24、只保存窗体模块和标准模块文件D.只保存工程文件解析：由于应用程序中包括一个窗体模块和一个标准模块，所以保存的时候这两个模块肯定要保存，而工 程文件是这两个模块的容器，也需要保存。14.只有将组合框的 Style属性设置为何值时，才能触发 DblClick事件?（分数：2.00）A.ThreadB.RunnableC.Object D.ThreadGroup解析：表格是 Swing新添加的构件，主要功能是把数据以二维表格的形式显示出来。使用表格，依据 MVC的思想，最好先生成一个 MyTableModel类型的对象来表示数据，这个类是从 AbstractTableModel类中继承来的，因为 J
25、Table会从这个对象中自动获取表格显示所必需的数据，AbstractTableModel 类的对象负责表格大小的确定、内容的填写、赋值、表格单元更新的检测等等与表格内容有关的属性及其操作。15.单击命令按钮时，下列程序的执行结果是（ ）。 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProC(x As Integer，y As Integer，z As Integer) FirProc=2
26、*s+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function （分数：2.00）A.20B.22C.28 D.30解析：此题程序代码中用了两层调用，我们对这样的问题要多加小心，不能掉以轻心，千万不要把实参和相对应的形参弄混淆。主调过程 Command1_Click输出的是 SecProc(c，b，a)的返回值，调用过程SeeProe时，主调过程分别把实参 c、b、s 地址传给形参 x、y、z，此时在过程 SecProc中，S
27、ecProc=FirProc(a，b,c)+c。由此看出，程序段执行此语句时，将调用过程 FirProe。把实参 a、c、b的地址分别传给形参 x、y、z，此时在过程 FirProc中，FirProe=2 * x + y + 3 * z，所以FirProc(a，c，b)=6+4+15=25, SecProc(a，c，b)=25+3=28，所以选项 C)是正确的。16.关于自定义对话框概念的说明，错误的是（ ）。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 VB的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件
28、过程 解析：自定义对话框是在窗体控件上设置一些为应用程序接收数据、输出信息的控件制作成的。所以自定义对话框实际上是 Visual Basic的窗体，建立自定义对话框的第一步便是在工程中添加窗体。自定义对话框通常有命令按钮，一个命令按钮要对应一个事件过程，所以自定义对话框一定要有事件过程与之对应。17.在窗体上画一个名称为 Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function
29、 Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是_。 （分数：2.00）A.6B.7 C.8D.9解析：本题中 fun 函数的功能是偶数时返回 2，奇数时返回 1。而 1 到 5 中，有三个奇数，两个偶数。所以 s 是三个 1 和两个 2 之和。故 s=7。18.单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( )
30、 Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub （分数：2.00）A.0 8B.40 72 C.4 50D.78 50解析： 此题是函数过程的调用。 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic中，实参与
31、形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 PtoP中有两个形参，两者均为传值方式。主调过程分别把实参 x、y 传递给 PtoP，所以当过程调用结束后，实参 x、y 的值都没有改变，最后
32、输出的值应为 40 72。 19.要在 D盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：2.00）A.Book B.2_SeekC.123.58D.Book-1解析：在 Visual Basic 中，可以用名字来表示内存的位置，以便访问内存中的数据。有关变量命名的规则如下： 名字只能由字母、数字和下划线组成； 名字的第一个字符必须是英文字母，最后一个字符可是是类型说明符； 名字的有效字符为 255个； 不能用 Visual Basic 的保留字作变量名，但可以把保留字嵌入变量名中；同时变量名也不能是末尾带有类型说明符的保留字，例如变量 Print
33、和 Print$是非法的，而变量 Print_Number是合法的。 根据变量命名规则，选项 B)开头第一个字符是数字，非法；选项 C)变量名开头第一个字符是数字，非法；选项 D)中包含非法字符“-”；所以只有选项 A)是正确的。 20.对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2的排序方法是（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序 解析：在最坏情况下，快速排序、冒泡排序和直接插入排序需要的比较次数都是 n(n-1)/2，堆排序需要比较的次数为 nlog2 n。21.在数据管理技术发展的三个阶段中，数据共享最好的是（分数：2.00）A.人工
34、管理阶段B.文件系统阶段C.数据库系统阶段 D.三个阶段相同解析：人工管理阶段：计算机出现的初期，主要用于科学计算，没有大容量的存储设备。处理方式只能是批处理，数据不共享，不同程序不能交换数据。文件系统阶段：即把有关的数据组织成一种文件，这种数据文件可以脱离程序而独立存在，由一个专门的文件管理系统实施统一管理。但是，数据文件仍高度依赖于其对应的程序，不能被多个程序所通用。数据库系统阶段：即对所有的数据实行统一规划管理，形成一个数据中心，构成一个数据仓库，数据库中的数据能够满足所有用户的不同要求，供不同用户共享。数据共享性显著增强。故本题答案为 C)。22.单击命令按钮，下列程序的执行结果是(
35、)。 Private Sub Blck (x As Integer) x = x * 2 + l If x 6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub （分数：2.00）A.aa=false B.aa=FalseC.aa=“true“D.aa=0解析：在类 A中有 geta( )函数，在类 B中也有 geta( )函数，类 C继承了类 A和类 B，这样就产生了二义性，所以程序会出错。23.有如下事件过程，当同时按下转换键 Shift和功
36、能键 F5时其最后输出的信息是（ ）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5=&H74 Const Key_F6=&H75 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=Key_F5 And Shift=ShiftKey Then Print“Press Shift+F5“ ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then Print“Press Ctrl+F6“ End If End Sub （分数
37、：2.00）A.J2EE B.J2MEC.J2SED.J2DE解析：我们需要知道 J2EE是面向大型企业级用容器管理专用构件的应用平台，以 J2SE为基础，支持EJB，并且它有强大的服务功能。 24.数据的存储结构是指_。 （分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示 解析：数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构（也称数据的物理结构）。25.在窗体上画一个命令按钮,名称为 Command1,然后编写如下代码： Option Base 0 Private Sub Commandl_Clic
38、k() 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,输出结果为【 】 （分数：2.00）A.0B.2 C.3D.4解析：本题程序代码通过一个循环给两个一维数组赋值： 当 k=0时,输入 2,A(1)=2、B(3)=A(1)=2； 当k=1时,输入 4,A(2)=4、B(2)=A(2)=4； 当 k=2时,输入 6,A(3)=6、B(1)=A(3)=6。
39、 由于结束循环时 k=3,故输出内容为 B(3),即 2。 26.在 Visual Basic中，要将一个窗体加载到内存进行预处理但不显示所使用的语句是（ ）。（分数：2.00）A.10B.11C.12 D.0解析：本题考查的是在继承中构造函数和析构函数的调用顺序，应该是先调用基类的构造函数，再调用派生类的构造函数，调用析构函数时的顺序是先调用派生类的析构函数，后调用基类的析构函数。27.有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As
40、Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &“*”：n=n&“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.1 1 * #B.1 1 * #C.1 1 * # 1 1 * # 1 2 * #D.1 1 * # 1 1 * # 1 2 * # 解析：当 i=1时，调用函数过程 DS，由于 y，n 为静态变量值保存，执行 x =x+1；y=y + 1 后 x=1，y=1执行 m=m &“*“：n=n&“#“后，m=“*“，n =“#“；当 I=2时同上，只是 y=2，n=“#“。
41、输出结果如选项 D)所示。28.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, “000.00“) End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：2.00）A.123.45B.12345.00 C.12345D.00123.45解析：29.标签控件能够显示文本信息，文本内容只能用什么属性来设置?（分数：2.00）A.AlignmentB.Caption C.VisibleD.BorderStyle解析：标签(Label)主要用来
42、显示一小段不需要用户修改的文本，被显示文本内容只能由 Caption属性来定义和修改，因此选项 B) 是正确的；选项 A)确定标签标题的放置方式；选项 C)决定程序运行后，控件是否在屏幕上显示出来；Borderstyle 属性返回或设置对象的边框样 式。30.下列说法正确的是（ ）。（分数：2.00）A.属性的一般格式为对象名_属性名称，可以在设计阶段赋予初值，也可以在运行阶段通 过代码来更改对象的属性B.对象是有特殊属性和行为方法的实体 C.属性是对象的特性，所有的对象都有相同的属性D.属性值的设置只可以属性窗口中设置解析：属性是一个对象的特性，不同的对象有不同属性，故选项 C)是不正确 的
43、；引用属性的一般格式为：对象名属性名称，故选项 A)不正确；对象的属性值可以在 属性窗口中设置，也可以在程序语句中设置，故迭项 D)是不正确的；对象是有特殊属性 和行为方法的实体，不同的对象有不同的属性，选项 B)是正确的。31.在 Visual Basic中，表达式 3*2/5 Mod 3的值是( )。（分数：2.00）A.1 B.0C.3D.出现错误提示解析： 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 3*2得到 6，然后用 6整除5得到 1，最后用 1对 3求余数得到最终结果 1。本题要注意“/”为整除运算符，以及 Mod取余运算的算法。32.窗体上有一个用菜单编辑器
44、设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如下图所示。下列叙述中错误的是( )。 （分数：2.00）A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“”) B.菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“”)D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“”解析：本题考查的考点是有关菜单的。菜单项的“有效”属性是控制菜单项的有效性的。只要把一个菜单项的“有效”属性设置为 False，就可以使其失效，运行后该菜单项变为灰色；要在菜单项中
45、插入分隔线应该在标题框中输入“-”菜单项标志，可以通过菜单设计窗口中的“复选”属性设置，当该属性为 True时，相应的菜单项前有“”标记；弹出菜单由于初始运行时应该不可见，故此应该去掉“可见”前面的“”标记。33.下面的数组声明语句中正确的是（ ）。（分数：2.00）A.标准模块一般用于存放其他 Access数据库对象使用的公共过程B.在 Access系统中可以通过创建新的模块对象而进入其代码设计环境C.标准模块所有的变量或函数都具有全局特性，是公共的 D.标准模块的生命周期是伴随着应用程序的运行而开始、关闭结束的解析：在各个标准模块内部也可以定义私有变量和私有过程仅供本模块内部使用。34.有
46、如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&“*“：n=n &“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.1 1 * # 1 1 * #B.1 1 * # 1 2 * #C.1 1 * # 1 1 * #D.1 1 * # 1 2 * # 解析：本题考查函数调用和
47、输出格式的语句。当 I=1时，调用函数过程 DC，由于 y，n 为静态变量值保存，执行 x=x+1；y=y+1 后 x=1，y=1；执行 m=m&“*“：n=n&“#“后，m=“*“，n=“#“；当 I=2时同上，只是y=2，n=“#“。35.在属性窗口中设置何属性，可以把指定的图形放入当前对象中? （分数：2.00）A.Current YB.Picture C.Current xD.Stretch解析：打开对象的属性列表，从中选择 Picture属性栏，单击后面的“”，将弹出“加载图片”对话框，用户选择相应的路径和文件名，图形就显示在当前对象中了，可见选项 B) 是正确的；而 Current
48、 Y和Current X用来设置光标当前位置；Stretch 决定图像是否可以伸缩。二、填空题（每空 2分，共 30分）(总题数：10，分数：30.00)36.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i * j) Else Strl=Strl & Chr(13) 2 End If Next j Next i Print Str （分数：3.00）填空项 1:_ （正确答案：j=i）解析：Exit 语句总是出现在 If语句或 Select Case语句内部，而 If语句或 Select Case语句在循环内嵌套，用 Exit语句中断循环。函数首先定义了两个 Integer型变量 i、 j,并将空格赋给 Strl；第一个For循环的变量 I从 1到 9步长为 1，第二个循环的变量 i也是从 1到 9步长为
