设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单...

单项选择题

有表示公司和职员及工作的三张表，职员可在多家公司兼职。其中公司C（公司号，公司名，地址，注册资本，法人代表，员工数），职员S（职员号，姓名，性别，年龄，学历），工作W（公司号，职员号，工资），则表W的键（码）为

A．公司号，职员号
B．职员号，工资
C．职员号
D．公司号，职员号，工资

单项选择题

A．选择
B．差
C．交
D．并

单项选择题

下列合法的变量名是(　　)。

A．sum－a
B．num_9
C．print$
D．5avg

单项选择题

有如下语句序列： Dim a， b As Integer Print a Print b执行以上语句序列，下列叙述中错误的是(　　)。

A．输出的a值是0
B．输出的b值是0
C．a是变体类型变量
D．b是整型变量

单项选择题

以下关于控件数组的叙述中，错误的是(　　)。

A．各数组元素共用相同的事件过程
B．各数组元素通过下标进行区别
C．数组可以由不同类型的控件构成
D．各数组元素具有相同的名称

单项选择题

表达式12 / 2\4的值是(　　)。

A．1.5
B．2
C．4
D．1

单项选择题

下列数组定义中错误的是(　　)。

A．Dim a(－5 To－3)
B．Dim a(3 To 5)
C．Dim a(－3 To－5)
D．Dim a(－3 To 3)

单项选择题

设a＝2， b＝3， c＝4， d＝5，表达式 Not a<＝c Or 4 * c＝b ^ 2 And b<>a＋c 的值是(　　)。

A．－1
B．1
C．True
D．False

单项选择题

鼠标拖放控件要触发两个事件，这两个事件是(　　)。

A．DragOver事件和DragDrop事件
B．Drag事件和DragDrop事件
C．MouseDown事件和KeyDown事件
D．MouseUp事件和KeyUp事件

单项选择题

以下打开Visual Basic菜单编辑器的操作中，错误的是(　　)。

A．执行"编辑"菜单中的"菜单编辑器"命令
B．执行"工具"菜单中的"菜单编辑器"命令
C．单击工具栏中的"菜单编辑器"按钮
D．右击窗体，在弹出的快捷菜单中选择"菜单编辑器"命令

单项选择题

Visual Basic中的"启动对象"是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic"启动对象"的描述中，错误的是(　　)。

A．启动对象可以是指定的标准模块
B．启动对象可以是指定的窗体
C．启动对象可以是Sub Main过程
D．若没有经过设置，则默认的"启动对象"是第一个被创建的窗体

单项选择题

若要使文本框能够输入多行文本，应该设置的属性是(　　)。

A．MultiLine
B．WordWrap
C．ScrollBars
D．AutoSize

单项选择题

以下关于命令按钮的叙述中正确的是(　　)。

A．命令按钮上可以显示图片
B．命令按钮能够分别响应单击、双击事件
C．程序运行时，不能改变命令按钮上的文字
D．若命令按钮的Cancel属性设为True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同

单项选择题

如果在框架中画了2个复选框，且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True，则下面叙述中正确的是(　　)。

A．2个复选框可用
B．2个复选框不可用
C．2个复选框不显示
D．上述都不对

单项选择题

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是(　　)。

A．Line1.X1＝Line2.X2 且 Line1.Y1＝Line2.Y2
B．Line1.X1＝Line2.Y1 且 Line1.Y1＝Line2.X1
C．Line1.X2＝Line2.X1 且 Line1.Y1＝Line2.Y2
D．Line1.X2＝Line2.X1 且 Line1.Y2＝Line2.Y2

单项选择题

为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是(　　)。

A．AutoSize
B．Alignment
C．Multiline
D．MaxLength

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是(　　)。

A．CommonDialog1.Action＝1
B．CommonDialog1.Action＝2
C．CommonDialog1.Action＝3
D．CommonDialog1.Action＝4

单项选择题

已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是(　　)。

A．在设计阶段选择图片框Picture1，并按Delete键
B．在运行期间执行语句Picture1.Picture＝LoadPicture("")
C．在运行期间执行语句Picture1.Picture＝""
D．在设计阶段先选中图片框Picture1，再在属性窗口中选择Picture属性，最后按Enter键

单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Timer1的计时器，且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。Private Sub Form_Click()Timer1.　　　　　　　　　End SubPrivate Sub Timer1_Timer()Text1.Text＝Time()End Sub为了实现上述功能，应该在横线处填入的内容为(　　)。

A．Enabled＝True
B．Enabled＝False
C．Visible＝True
D．Visible＝False

单项选择题

窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：Private Sub Command1_Click()　　CD1.Filter＝"All File|.|Text File|.txt|Word|.Doc"　　CD1.FilterIndex＝2　　CD1.FileName＝"E：\Test.ppt"　　CD1.InitDir＝"E："　　CD1.ShowOpenEnd Sub关于上述程序，以下叙述中正确的是(　　)。

A．初始过滤器为"*.*"
B．指定的初始目录为"E："
C．以上程序代码实现打开文件的操作
D．由于指定文件类型是.ppt，所以导致打开文件的操作失败

单项选择题

编写如下程序：Private Sub Command1_Click()　　Dim i As Integer， j As Integer　　n＝InputBox("输入一个大于1的正整数")　　For i＝2 To n　　　　For j＝2 To Sqr(i)　　　　　　If i Mod j＝0 Then Exit For　　　　Next j　　　　If j>Sqr(i)Then Print i　　Next iEnd Sub该程序的功能是(　　)。

A．判断n是否为素数
B．输出n以内所有的奇数
C．输出n以内所有的偶数
D．输出n以内所有的素数

单项选择题

设有如下事件过程：Private Sub Command1_Click()　　For i＝1 To 5　　　　j＝i　　　　Do　　　　　　Print ""　　　　　　j＝j－1　　　　Loop Until j＝0　　Next iEnd Sub运行程序，输出""的个数是(　　)。

A．5
B．15
C．20
D．25

单项选择题

设有如下事件过程：Private Sub Command1_Click()　　Dim a　　a＝Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5)　　x＝0　　n＝UBound(a)　　For i＝0 To n　　　　m＝0　　　　For j＝0 To n　　　　　　If a(i)＝a(j)Then　　　　　　　　 m＝m＋1　　　　　　End If　　　　Next j　　　　If m>x Then x＝m： b＝a(i)　　Next i　　Print bEnd Sub运行程序，输出是(　　)。

A．2
B．3
C．5
D．9

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click()　　m＝－3.6　　If Sgn(m)Then　　　　n＝Int(m)　　Else　　　　n＝Abs(m)　　End If　　Print nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为(　　)。

A．－4
B．－3
C．3
D．3.6

单项选择题

设有如下程序：Private Sub Form_Click()　　num＝InputBox("请输入一个实数")　　p＝InStr(num， ".")　　If p>0 Then　　　　Print Mid(num， p＋1)　　Else　　　　Print "END"　　End IfEnd Sub运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出"END"；否则(　　)。

A．用字符方式输出该实数
B．输出该实数的整数部分
C．输出该实数的小数部分
D．去掉实数中的小数点，保留所有数码输出

单项选择题

编写如下程序：Private Sub Command1_Click()　　Dim x As Integer， y As Integer　　x＝InputBox("输入第一个数")　　y＝InputBox("输入第二个数")　　Call f(x， y)　　Print x， yEnd SubSub f(a As Integer， ByVal b As Integer)　　a＝a * 2　　x＝a＋b　　b＝b＋100End Sub程序运行后，单击命令按钮Command1，并输入数值10和15，则输出结果为(　　)。

A．10 115
B．20 115
C．35 15
D．20 15

单项选择题

编写如下程序： Private Sub Command1_Click() 　　Dim str1 As String， str2 As String 　　str1＝InputBox("输入一个字符串") 　　subf str1， str2 　　Print str2 End Sub Sub subf(s1 As String， s2 As String) 　　Dim temp As String 　　Static i As Integer 　　i＝i＋1 　　temp＝Mid(s1， i， 1) 　　If temp<>"" Then subf s1， s2 　　s2＝s2 & temp End Sub 程序运行后，单击命令按钮Command1，且输入"abcdef"，则输出结果为(　　)。

A．afbecd
B．cdbeaf
C．fedcba
D．adbecf

单项选择题

窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：Private Sub Command1_Click()　　Dim x As Integer　　x＝Val(InputBox("输入数据"))　　Text1＝Str(x＋fun(x)＋fun(x))End SubPrivate Function fun(ByRef n As Integer)　　If n Mod 3＝0 Then　　　　n＝n＋n　　Else　　　　n＝n * n　　End If　　fun＝nEnd Function对于上述程序，以下叙述中错误的是(　　)。

A．语句 fun＝n 有错，因为n是整型，fun没有定义类型
B．运行程序，输入值为5时，文本框中显示655
C．运行程序，输入值为6时，文本框中显示42
D．ByRef表示参数按址传递

单项选择题

设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：
窗体Form1中的程序如下：Dim Flag As BooleanPrivate Sub Form_Load()　　Flag＝TrueEnd SubPrivate Sub mnu1_Click(index As Integer)　　If Index＝1 Then　　　　If Flag＝True Then　　　　　　Form2.show　　　　　　mnu1(1).Caption＝"隐藏窗体2"　　　　　　Flag＝False　　　　Else　　　　　　Form2.Hide　　　　　　mnu1(1).Caption＝"显示窗体2"　　　　　　Flag＝True　　　　End If　　End If　　If Index＝2 Then EndEnd Sub关于上述程序，以下叙述中错误的是(　　)。

A．Index属性的值可以用来区分控件数组元素
B．Index为1的菜单项的标题可能会改变
C．两个名称均为Mnu1的菜单项构成一个控件数组
D．语句Form2.Hide将Form2卸载

单项选择题

设在当前目录下有一个名为"file.txt"的文本文件，其中有若干行文本。编写如下程序：Private Sub Command1_Click()　　Dim ch$， ascii As Integer　　Open "file.txt" For Input As #1　　While Not EOF(1)　　　　Line Input #1， ch　　　　ascii＝toascii(ch)　　　　Print ascii　　Wend　　Close #1End SubPrivate Function toascii(mystr As String)As Integer　　n＝0　　For k＝1 To Len(mystr)　　　　n＝n＋Asc(Mid(mystr， k， 1))　　Next k　　toascii＝nEnd Function程序的功能是(　　)。

A．按行计算文件中每行字符的ASCII码之和，并显示在窗体上
B．计算文件中所有字符的ASCII码之和，并显示在窗体上
C．把文件中所有文本行按行显示在窗体上
D．在窗体上显示文件中所有字符的ASCII码值

单项选择题

设有如下函数： Function DelSpace(ch As String)As Integer 　　Dim n%， st$， c$ 　　st＝"" 　　n＝0 　　For k＝1 To Len(ch) 　　　　c＝Mid(ch， k， 1) 　　　　If c<>" " Then 　　　　　　st＝st & c 　　　　Else 　　　　　　n＝n＋1 　　　　End If 　　Next k 　　ch＝st 　　DelSpace＝n End Function 函数的功能是(　　)。

A．统计并返回字符串ch中字符的个数
B．删除字符串ch中的空格符，返回删除字符的个数
C．统计并返回字符串ch中非空格字符数
D．删除字符串ch中除空格符外的其他字符，返回删除字符的个数

单项选择题

在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是(　　)。

A．语法错误
B．逻辑错误
C．逻辑错误和语法错误
D．运行错误

你可能感兴趣的试题

下列叙述中正确的是

下列叙述中正确的是

对长度为n的线性表作快速排序，在最坏情况下，比较次数为

下面不属于软件需求分析阶段主要工作的是

结构化程序设计中，下面对goto语句使用描述正确的是

下面不属于软件测试实施步骤的是

某二叉树共有12个结点，其中叶子结点只有1个。则该二叉树的深度为（根结点在第1层）

一般情况下，当对关系R和S进行自然连接时，要求R和S含有一个或者多个共有的

下列合法的变量名是( )。

有如下语句序列： Dim a， b As Integer Print a Print b执行以上语句序列，下列叙述中错误的是( )。

以下关于控件数组的叙述中，错误的是( )。

表达式12 / 2\4的值是( )。

下列数组定义中错误的是( )。

设a＝2， b＝3， c＝4， d＝5， 表达式 Not a<＝c Or 4 * c＝b ^ 2 And b<>a＋c 的值是( )。

鼠标拖放控件要触发两个事件，这两个事件是( )。

以下打开Visual Basic菜单编辑器的操作中，错误的是( )。

Visual Basic中的"启动对象"是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic"启动对象"的描述中，错误的是( )。

若要使文本框能够输入多行文本，应该设置的属性是( )。

以下关于命令按钮的叙述中正确的是( )。

如果在框架中画了2个复选框，且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True，则下面叙述中正确的是( )。

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是( )。

为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是( )。

在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是( )。

已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是( )。

编写如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer n＝InputBox("输入一个大于1的正整数") For i＝2 To n For j＝2 To Sqr(i) If i Mod j＝0 Then Exit For Next j If j>Sqr(i)Then Print i Next iEnd Sub该程序的功能是( )。

设有如下事件过程：Private Sub Command1_Click() For i＝1 To 5 j＝i Do Print "*" j＝j－1 Loop Until j＝0 Next iEnd Sub运行程序，输出"*"的个数是( )。

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() m＝－3.6 If Sgn(m)Then n＝Int(m) Else n＝Abs(m) End If Print nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为( )。

设有如下函数： Function DelSpace(ch As String)As Integer Dim n%， st$， c$ st＝"" n＝0 For k＝1 To Len(ch) c＝Mid(ch， k， 1) If c<>" " Then st＝st & c Else n＝n＋1 End If Next k ch＝st DelSpace＝n End Function 函数的功能是( )。

在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是( )。

下列合法的变量名是(　　)。

有如下语句序列： Dim a， b As Integer Print a Print b执行以上语句序列，下列叙述中错误的是(　　)。

以下关于控件数组的叙述中，错误的是(　　)。

表达式12 / 2\4的值是(　　)。

下列数组定义中错误的是(　　)。

设a＝2， b＝3， c＝4， d＝5，表达式 Not a<＝c Or 4 * c＝b ^ 2 And b<>a＋c 的值是(　　)。

鼠标拖放控件要触发两个事件，这两个事件是(　　)。

以下打开Visual Basic菜单编辑器的操作中，错误的是(　　)。

Visual Basic中的"启动对象"是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。下列关于Visual Basic"启动对象"的描述中，错误的是(　　)。

若要使文本框能够输入多行文本，应该设置的属性是(　　)。

以下关于命令按钮的叙述中正确的是(　　)。

如果在框架中画了2个复选框，且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True，则下面叙述中正确的是(　　)。

设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是(　　)。

为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是(　　)。

在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是(　　)。

已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是(　　)。

设有如下事件过程：Private Sub Command1_Click()　　For i＝1 To 5　　　　j＝i　　　　Do　　　　　　Print ""　　　　　　j＝j－1　　　　Loop Until j＝0　　Next iEnd Sub运行程序，输出""的个数是(　　)。

窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click()　　m＝－3.6　　If Sgn(m)Then　　　　n＝Int(m)　　Else　　　　n＝Abs(m)　　End If　　Print nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为(　　)。

在Visual Basic环境下设计应用程序时，系统能自动检查出的错误是(　　)。