工程文件包含Form1、Form2两个窗体。Form1有包含二个菜单命令的菜...

单项选择题

以下关于文件的叙述中，正确的是（）

A．随机文件的记录是定长的
B．用Append方式打开的文件，既可以进行读操作，也可以进行写操作
C．随机文件记录中的各个字段具有相同的长度
D．随机文件通常比顺序文件占用的空间小

单项选择题

设一个工程文件包含多个窗体及标准模块，以下叙述中错误的是

A．如果工程中有Sub Main过程，则程序一定首先执行该过程
B．不能把标准模块设置为启动模块
C．用Hide方法只是隐藏窗体，不能从内存中清除该窗体
D．Show方法用于显示一个窗体

单项选择题

使用Cls方法能够清除窗体或图片框中

A．在运行阶段输出的文字
B．在设计阶段放置的控件
C．在设计阶段通过Picture属性装入的图片
D．以上均可

单项选择题

以下关于文本框的叙述中，正确的是

A．当Enabled属性为False时，其Tab顺序不起作用
B．当TabStop属性为False时，不能接收从键盘输入的数据
C．当获得焦点时，触发LostFocus事件
D．若PassWord属性设为"a"，则输入到文本框的字符将显示为"*"

单项选择题

以下不能作为容器使用的控件是

A．图像框
B．框架
C．图片框
D．窗体

单项选择题

以下关于窗体的叙述中，错误的是

A．执行Unload Form1语句后，窗体Form1被隐藏，但仍在内存中
B．当窗体的Enabled属性为False时，窗体不响应鼠标、键盘的操作
C．当窗体的KeyPreview属性为True时，则窗体能优先响应键盘事件
D．窗体的Load事件在加载窗体时触发

单项选择题

如果要使命令按钮呈现图形外观，应设置的属性是

A．Style属性和Picture属性
B．Style属性和Graphics属性
C．Graphics属性
D．Caption属性

单项选择题

以下关于列表框控件的叙述中，错误的是

A．列表框中的表项每次只能选择一项
B．若把Sorted属性设置为True，则表项按升序排列
C．ListCount属性指明列表框中表项的数量
D．AddItem方法能够把列表项添加到列表框指定位置

单项选择题

以下关于垂直滚动条的叙述中，正确的是

A．单击滚动条的箭头时，Value属性值的变化量是SmallChange属性的值
B．当Value属性值等于Max属性值时，滚动块位于滚动条的底部
C．拖动滚动块的过程中，触发Change事件而不触发Scroll事件
D．Min、Max不能设置为负值

单项选择题

窗体的MouseDown事件过程代码如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And 2 Then PopupMenu mnu End IfEnd Sub对于以上程序，以下叙述中错误的是

A．X、Y是鼠标按下时的坐标
B．PopupMenu是窗体的事件
C．mnu是在菜单编辑器中定义的菜单项
D．条件语句有错

单项选择题

窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click() CD1.Filter = "All File|.|Word|.Doc|.exe|*.exe" CD1.FilterIndex = 2 CD1.DialogTitle = "Open File" CD1.FileName = "E:\Test.doc" CD1.InitDir = "E:" CD1.ShowOpenEnd Sub对于以上程序，以下叙述中错误的是

A．程序的功能是打开文件名为E:\Test.doc的文件
B．CD1被激活为"打开"文件对话框
C．对话框的标题是"Open File"
D．打开对话框时的默认文件类型是.Doc文件

单项选择题

以下关于使用菜单编辑器设计菜单的叙述中错误的是

A．若菜单项的"可见"选项被标记为"√"，该菜单项不显示在菜单中
B．若菜单项的"有效"选项未标记为"√"，该菜单项显示为灰色
C．菜单中各菜单项可以是控件数组元素
D．菜单项中的分隔条也必须有唯一的名称

单项选择题

窗体的单击事件过程如下：Private Sub Form_Click() x = InputBox("Input X:") Select Case Sgn(x) Case -1 Print "y="; x * Sgn(x) Case 0 Print "y="; Sgn(x) * 5 Case 1 Print "y="; x * Sgn(x) + 1 Case Else Print "y="; 10 End SelectEnd Sub运行程序时，单击窗体，以下叙述中错误的是

A．当输入值为2时，输出为y=10
B．当输入值为-1时，输出为y=1
C．当输入值为0时，输出为y=0
D．当输入值为1时，输出为y=2

单项选择题

窗体的单击事件过程如下：Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub运行程序时，单击窗体后，显示的是

A．12345
B．54321
C．0
D．11111

单项选择题

窗体的单击事件过程代码如下：Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Print a(i, j); Next j Print Next iEnd Sub运行程序，单击窗体后，窗体上显示的是

A．2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10
B．1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9
C．3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11
D．2 3 4 5 6

单项选择题

窗体上有名称为Command1的命令按钮，程序代码如下：Dim x As Integer, y As Integer, z As IntegerSub p(a As Integer, ByVal b As Integer) Dim c As Integer a = a * 2 b = b + 2 z = a + bEnd SubPrivate Sub Form_Click() x = 4: y = 5: z = 6 Call p(x, y) Print x, y, zEnd Sub运行程序，单击命令按钮后，窗体上显示的是

A．8 5 15
B．4 5 6
C．4 5 15
D．8 10 15

单项选择题

程序代码如下：Option Base 1Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 50) End If Print a(i, j); Next j Print Next iEnd Sub以下关于上述程序的叙述中，错误的是

A．程序为数组a的所有元素赋了随机值
B．Randomize的作用是避免同一序列随机数的反复出现
C．程序产生随机数的范围是大于等于0，小于50
D．输出结果组成的方阵中对角线上的值为1

单项选择题

窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后，检查该字符串是否在组合框中已存在。若不存在，则将其添加到组合框中。相关的事件过程如下：Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii = 13 Then flag = False For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then flag = True Exit For End If Next i If flag = False Then Combo1.AddItem Combo1.Text End If End IfEnd Sub对于上述事件过程，以下叙述中错误的是

A．程序有错，不应该使用Exit For
B．flag为True时，表明输入的字符串已存在
C．参数KeyAscii表示输入字符的ASCII码
D．flag = False的含义是组合框中没有与输入字符串相同的表项

单项选择题

窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。
要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码：Private Sub Check1_Click(Index As Integer) If Index=1 And Check1(1).Value then Text1.FontItalic=True Else Text1.FontItalic=False End If If Check1(2).value=1 then Text1.FontBold=True End If If Check1(2).value=0 Then Text1.FontBold=False End IfEnd Sub但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是

A．将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then
B．将第1个If条件中的Check1(1).Value 改为Check1(1).Value =True
C．将第2个If条件中的Check1(2).Value=1 改为Check1(2).Value =True
D．将第3个If条件中的Check1(2).Value=0改为Check1(2).Value= False

单项选择题

工程文件包含Form1、Form2两个窗体。Form1有包含二个菜单命令的菜单；Form2上有一个名称为Command1的命令按钮，如图所示。
Form1中菜单项"隐藏Form1"的单击事件过程代码如下：Private Sub hideF1_Click() Form1.HideEnd SubForm1中菜单项"显示Form2"的单击事件过程代码如下：Private Sub showF2_Click() Form2.ShowEnd SubForm2的程序代码如下：Private Sub Command1_Click() Form1.ShowEnd Sub以下关于上述程序的叙述中，正确的是

A．Form1中定义的菜单只出现在Form1
B．执行Form2的命令按钮单击事件过程，显示Form1的同时隐藏Form2
C．Form1的2个菜单命令都能隐藏Form1
D．执行"隐藏Form1"菜单命令会出错，因为没有窗体被打开

单项选择题

编写程序，要求输入一个正整数，计算各位数字之和，并将计算结果显示在窗体上。程序如下：Private Sub Command1_Click() Dim Sum As Integer, k As Long k = Val(InputBox("输入正整数：")) Do While k > 0 Sum = Sum + ( ____ ) k = k \ 10 Loop Print Sum End Sub程序不完整，应该在_ 处填写的内容是

A．k Mod 10
B．k
C．left(CStr(k), 1
D．mid (CStr(k), 1，1)

单项选择题

窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下：Private Sub Command1_Click() Open "c:\f1.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 List1.AddItem str1 Loop CloseEnd Sub对于上述程序，以下叙述中错误的是

A．以输入方式打开随机文件f1.txt
B．Close的作用是关闭已经打开的数据文件
C．单击命令按钮后，把f1.txt中的所有内容添加到列表框中
D．运行程序后，列表框中的列表项都是f1.txt中的记录

你可能感兴趣的试题

下列叙述中正确的是

设循环队列为Q(1: m)，初始状态为front=rear=m。现经过一系列的入队与退队运算后，front=rear=1，则该循环队列中的元素个数为

计算机软件的构成是

设某二叉树的后序序列为CBA，中序序列为ABC，则该二叉树的前序序列为

下面不属于软件设计阶段任务的是

算法时间复杂度的度量方法是

一名雇员就职于一家公司，一个公司有多个雇员。则实体公司和实体雇员之间的联系是

有关系R如下，其中属性B为主键：则其中最后一个记录违反了

在数据库系统中，用于对客观世界中复杂事物的结构及它们之间的联系进行描述的是

以下合法的VB变量名是

以下关于VB的叙述中，错误的是

设有数组声明语句如下： Dim a(-1 to 2, ,0 to 5) a所包含的数组元素个数是

能够被窗体或控件所识别的操作称为

函数表达式Sgn(-10)的值是

设有表达式：A=IIf(x > y, "go", "back")。以下与该表达式具有相同功能的语句是

设：a = 3，b = 5，c = 4，d = 7，表达式 a <= b And (a > d) Or Not( b < c)的值是

以下关于文件的叙述中，正确的是（）

设一个工程文件包含多个窗体及标准模块，以下叙述中错误的是

使用Cls方法能够清除窗体或图片框中

以下关于文本框的叙述中，正确的是

以下不能作为容器使用的控件是

以下关于窗体的叙述中，错误的是

如果要使命令按钮呈现图形外观，应设置的属性是

以下关于列表框控件的叙述中，错误的是

以下关于垂直滚动条的叙述中，正确的是

窗体的MouseDown事件过程代码如下：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button And 2 Then PopupMenu mnu End IfEnd Sub对于以上程序，以下叙述中错误的是

以下关于使用菜单编辑器设计菜单的叙述中错误的是

窗体的单击事件过程如下：Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub运行程序时，单击窗体后，显示的是

窗体的单击事件过程代码如下：Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Print a(i, j); Next j Print Next iEnd Sub运行程序，单击窗体后，窗体上显示的是

程序代码如下：Option Base 1Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 50) End If Print a(i, j); Next j Print Next iEnd Sub以下关于上述程序的叙述中，错误的是

有关系R如下，其中属性B为主键：
则其中最后一个记录违反了