按照下表建立菜单：单击菜单的事件过程如下：Private Sub mnul_...

单项选择题

以下关于VB特点的叙述中，错误的是( )。

A．VB采用事件驱动的编程机制
B．VB程序能够以解释方式运行
C．VB程序能够以编译方式运行
D．VB程序总是从Form_Load事件过程开始执行

单项选择题

如果把程序的启动对象设置为：Sub Main，则Sub Main过程( )。

A．只能写在Forml窗体中代码的最前面
B．可以写在Forml窗体中代码的任何位置
C．只能写在某个标准模块的代码中
D．可以写在任何窗体或标准模块的代码中

单项选择题

设窗体上有3个图像框：Image1、Image2、Image3，并有下面的程序代码： Private Sub Form—Load() lmagel．Picture=LoadPicture(“LEAF．bmp”) Image2．Picture=LoadPicture(“OPEN．bmp”) Image3．Visible=False End Sub Private Sub Imagel—Click() Image2．Picture=Imagel．Picture End Sub Private Sub Image2一Click() Image3．Picture=Image2．Picture Image2．Picture=Image1．Picture Imagel．Picture=Image3．Picture End Sub在程序运行期间单击Image2，则在窗体上看到的结果是( )。

A．在Image3中显示Image2中的图片
B．Image1、Image2中原有图片被交换了
C．Image1、Image2中都是原来Imege1中的图片
D．Image1、Image2中都是原来Imege2中的图片

单项选择题

在VB中，函数过程与子程序过程的区别之一是( )。

A．函数过程必须有参数，而子程序过程可以没有
B．函数过程的参数传递只采用值传递，而子程序过程只采用地址传递
C．在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能
D．函数过程有返回值，而子程序过程没有

单项选择题

设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为( )。

A．Call S 5，4．8
B．Call Sub(5，4．8)
C．Sub 5，4．8
D．S 5，4．8

单项选择题

阅读程序： Option Base l Sub P(b()As Integer) For i=l To 4 b(i)=2*i Next iEnd SubPrivate Sub Form-Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击窗体，输出结果为( )。

A．2 4 6 8
B．5 6 7 8
C．10 12 14 16
D．4 8 12 16

单项选择题

设有以下过程： Private Sub pmc(x As Integer，Optional Y As Integer) Print X，Y End Sub针对此过程，下面正确的过程调用语句是( )。

A．Call proc(a!，23)
B．Call proc x％，12
C．proc b％
D．x=proc(12)

单项选择题

窗体上有一个名称为Commandl的命令按钮，一个名称为Textl的文本框。编写如下程序： Private Sub Commandl—Click() Dim x As Integer X=val(InputBox(“输入数据”)) Textl=Str(X+fun(x)+fun(x)) End Sub Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n * n End If fun=n End Function对于上述程序，以下叙述中错误的是( )。

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

单项选择题

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

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

单项选择题

窗体上有一个名称为Command1的命令按钮，并有如下程序代码： Private Sub Commandl_Click() Static a a=1：b=2：c=3 Call f(a，b，c) Print a；b；c End Sub Sub f(ByVal x，ByRef y，z) x=x+1 y=y+1 z = z + 1 End Sub运行程序，单击命令按钮，窗体上显示的是( )。

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

单项选择题

以下关于过程的叙述中，错误的是( )。

A．在Sub过程中不能再定义Sub过程
B．事件过程也是Sub过程
C．过程调用语句的形参个数必须与实参个数相同
D．函数过程一定有返回值

单项选择题

编写如下程序：Private Sub Commandl-Click() Dim x As Integer x=10 Print funl(x，12)+x End Sub Private Function funl(m As Integer，11 As Integer)As Integer If n>10 Then m=n funl=m+n End Function程序运行后，单击命令按钮Commarid1，输出结果为( )。

A．30
B．32
C．34
D．36

单项选择题

编写如下程序： Private Sub Commandl—Click() Dim x As Integer，y As Integer x=10 y=20 Call funl(x，y) Print x；yEnd SubPrivate Function funl(ByVal nl As Integer，11 As Integer)As Integer m=m*m n =n+nEnd Funetion程序运行后，单击命令按钮Command1，输出结果为( )。

A．10 25
B．10 40
C．100 25
D．100 40

单项选择题

以下关于菜单的叙述中错误的是( )。

A．对于同一窗体中的菜单，各菜单项的名称必须唯一
B．对于同一窗体中的菜单，各菜单项的标题必须唯一
C．菜单中各菜单项可以是控件数组元素
D．弹出式菜单的编辑、定义在菜单编辑器中进行

单项选择题

按照下表建立菜单：
单击菜单的事件过程如下：Private Sub mnul_Click(Index As Integer) Seleet Case Index Casel Print“选中菜单项1” Case2 If nmul(2)．Checked=True Then mnul(2)．Checked=False Else mnul(2)．Checked=True Else If Case3 Print“选中菜单项3” End SeleetEnd sub关于上述程序，以下叙述中错误的是( )。

A．各子菜单项组成一个名称为mnul的控件数组
B．不论选中菜单项1、2或3，均执行mnul_Click事件过程
C．Case 2分支的语句没有必要，因为该菜单项的“复选”属性已被设置
D．程序中的Index是系统自动产生的

单项选择题

窗体上有一个名称为CDl的通用对话框，一个名称为。rextl的文本框，窗体的单击事件过程如下： Private Sub Form—Click() CDI．DialogTitle=“改变颜色” CDl．Color=Forml．BackColor CDI．Action=3 Text1．BackColor=CDl．Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是( )。

A．通用对话框的标题被改为“改变颜色”
B．通用对话框被打开为颜色对话框
C．若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色
D．若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色

单项选择题

利用通用对话框控件打开字体对话框的操作是( )。

A．把通用对话框控件的Action属性设置为4
B．把通用对话框控件的Action属性设置为5
C．调用通用对话框控件的OpenFont方法
D．调用通用对话框控件的ShowText方法

单项选择题

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

A．CommonDialogl．Action=1
B．CommonDialogl．Action=2
C．CommonDialog1．Action=3
D．CommonDialogl．Action=4

单项选择题

假定在窗体上添加了一个通用对话框控件，其名称为CDI，并有如下程序段： CD1．ShowOpen CD1．DefaultExt=”doc”在打开文件的对话框中选择了“c：＼filel．txt”文件，则FileTitle属性的值是( )。

A．filel．doc
B．filel．txt
C．c：＼filel．txt
D．c：＼filel．doc

你可能感兴趣的试题

以下关于VB特点的叙述中，错误的是( )。

如果把程序的启动对象设置为：Sub Main，则Sub Main过程( )。

在VB中，函数过程与子程序过程的区别之一是( )。

设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为( )。

阅读程序： Option Base l Sub P(b()As Integer) For i=l To 4 b(i)=2*i Next iEnd SubPrivate Sub Form-Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击窗体，输出结果为( )。

设有以下过程： Private Sub pmc(x As Integer，Optional Y As Integer) Print X，Y End Sub针对此过程，下面正确的过程调用语句是( )。

窗体上有一个名称为Command1的命令按钮，并有如下程序代码： Private Sub Commandl_Click() Static a a=1：b=2：c=3 Call f(a，b，c) Print a；b；c End Sub Sub f(ByVal x，ByRef y，z) x=x+1 y=y+1 z = z + 1 End Sub运行程序，单击命令按钮，窗体上显示的是( )。

以下关于过程的叙述中，错误的是( )。

编写如下程序：Private Sub Commandl-Click() Dim x As Integer x=10 Print funl(x，12)+x End Sub Private Function funl(m As Integer，11 As Integer)As Integer If n>10 Then m=n funl=m+n End Function程序运行后，单击命令按钮Commarid1，输出结果为( )。

编写如下程序： Private Sub Commandl—Click() Dim x As Integer，y As Integer x=10 y=20 Call funl(x，y) Print x；yEnd SubPrivate Function funl(ByVal nl As Integer，11 As Integer)As Integer m=m*m n =n+nEnd Funetion程序运行后，单击命令按钮Command1，输出结果为( )。

以下关于菜单的叙述中错误的是( )。

在用菜单编辑器设计菜单时，必须输入的项是( )。

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

以下说法中正确的是( )。

如果一个顶级菜单项的访问键为D，则以下等同于单击该菜单项的操作为( )。

下列关于菜单项的描述中，错误的是( )。

为了显示弹出式菜单，要使用( )。

下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。

通用对话框Filter属性的作用是( )。

利用通用对话框控件打开字体对话框的操作是( )。

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

假定在窗体上添加了一个通用对话框控件，其名称为CDI，并有如下程序段： CD1．ShowOpen CD1．DefaultExt=”doc”在打开文件的对话框中选择了“c：＼filel．txt”文件，则FileTitle属性的值是( )。