[单项选择]

设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。
Forml的代码如下：
Public x As Integer
Privme Sub Form_Load（　）
x=1
y=5
End Sub
Private Sub Command1_Click（　）
Form2.Show
End Sub
Form2的代码如下：
Private Sub Command1_Click（　）
Print Form1.x，y
End Sub
Modulel的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是（）。

A. 1 5
B. 0 5
C. 0 0
D. 程序有错

[单项选择]设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Forml的代码如下： Public x As Integer Privme Sub Form_Load（　） x=1 y=5 End Sub Private Sub Command1_Click（　） Form2.Show End Sub Form2的代码如下： Private Sub Command1_Click（　） Print Form1.x，y End Sub Modulel的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )。
A. 1 5
B. 0 5
C. 0 0
D. 程序有错

[单项选择]设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。
Form1的代码如下：
Public X As Integer
Private Sub Form_load（　）
x=1
y=5
End Sub
Private Sub Command1_Click（　）
Form2.Show
End Sub
Form2的代码如下：
Private Sub Command1_Click（　）
Print Form1.x,y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )
A. 1 5
B. 0 5
C. 0 0
D. 程序有错

[单项选择]一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub frmFunctionl（　）
...
End Sub
Form2中定义的过程：
Public Sub frmFunction2（　）
...
End Sub
md1Func中定义的过程：
Public Sub mdlFunction（　）
...
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用

[单项选择]一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Forml中定义的过程：
Privme Sub frmFunction1( )
……
End Sub
Form2中定义的过程：
Public Sub frmFunction2( )
End Sub
mdlFunc 中定义的过程：
PubHc Sub mdl Function( )
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用

[单项选择]一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub Fun1（　）
......
End Sub
Func中定义的过程：
Public Sub Fun2（　）
......
End Sub
若要在窗体For2g调用Porm1和Func中分别建立的自定义过程，则调用格式正确的是 ( )
A. Call Form1. Funl()
B. Call Form1. Fun1()
C. Form1. Fun1()
D. Fun1()

[单项选择]假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1．Show End Sub Model2的代码如下： Sub Main( ) S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。
A. Form1→Model1→Model2
B. Model1→Model2→Form1
C. Model2→Model1→Form1
D. Model2→Form1→Model1

[单项选择]假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及ModeL2组成。
Model1代码如下：
Public x As Integer
Public y As Integer
SubS1( )
x=1
S2
End Sub
Sub S2( )
y=10
Form1.Show
End Sub
Model2的代码如下：
Sub Main( )
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是
A. Form1→4Modell→Model2
B. Model1→Model2→Form1
C. Model2→4Modell→4Form1
D. Model2→Form1→Model1

[单项选择]假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1( ) x=1 S2 End Sub Sub S2( ) y=10 Form1．Show End Sub Model2的代码如下： Sub Main( ) S1 End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是
A. Form1→Model1→Model2
B. Model1→Model2→Form1
C. Model2→Model1→Form1
D. Model2→Form1→Model1

[单项选择]假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下：
Public x As Integer
Public y As Integer
Sub S1（　）
x=1
S2
End Sub
Sub S2（　）
y=10
Form1. Show
End Sub
Model2的代码如下：
Sub Main（　）
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是( )。
A. Forml→Model1→Model2
B. Model1→Model2→Form1
C. Model2→Model1→Form1
D. Model2→Form1→Model1

[单项选择]工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：
Public x As Integer
Private y As Integer
窗体文件的程序代码是：
Dim a As Integer
Private Sub Form_Load( )
Dim b As Integer
a =2: b =3: x =10: y =20
End Sub
Private Sub Command1_Click( )
a =a +5: b =b +5: x =x +5: y =y +5
Print a; b; x; y
End Sub
运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。
A. 5 5 15 5
B. 7 5 15 25
C. 7 8 15 5
D. 7 5 15 5

[单项选择]设工程文件中包名称分别为Form1、Form2的两个窗体，且Form1的菜单属性设置如下：

标题(p)	名称(m)	内缩符号	Index
窗体	Mnu（　）	无
显示窗体2	Mnu1	1	1
退出	Mnu1	1	2

窗体Form1中的程序如下：
Dim Flag As Boolean
Private Sub Form_Load（　）
Flag = True
End Sub
Private 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 End
End Sub
关于上述程序，以下叙述中错误的是( )。
A. Index属性的值可以用来区分控件数组元素
B. Index为1的菜单项的标题可能会改变
C. 两个名称均为Mnu1的菜单项构成一个控件数组
D. 语句Form2. Hide将Form2卸载

[单项选择]如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )
A. 任何时刻最多只有一个窗体是活动窗体
B. 不能把标准模块设置为启动模块
C. 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D. 如果工程中含有Sub Main过程，则程序一定首先执行该过程

[填空题]标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块 Type comp re As Single im As Single End Type Public c As comp 窗体模块 Private Sub Command1_Click( ) Dim a As comp，b As comp a．re=InputBox(“输入a的实部”) a．im=InputBox(“输入a的虚部”) b．re=tnputBox(“输入b的实部”) b．im=lnputBox(“输入b的虚部”) 【6】 Print“c=”； c．re；“+”；c.im；"i" End Sub Private Sub s( 【7】 ) C.re=r1.re+r2.re c.im=r1.im+r2.im End Sub

[填空题]在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。
编写程序要求实现的功能为：窗体form 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。
Private Sub Command1_Click（　）
Dialog. Text1. Text = ""
Dialog. Show
End Sub
Private Sub Command2_Click（　）
Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname
End Sub
Private Sub Form_ Load（　）
Command1. Caption = "name"
【7】 . Caption = "please input your name:
Dialog. i = 0
End Sub
Option Explicit
Public i As Integer
Public email As String
Public fname As String
Private Sub CancelButton_Click（　）
i=0