更多"假定一个工程由一个窗体文件Forml和两个标准模块文件Model1及M"的相关试题:
[单项选择]假定一个工程由一个窗体文件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. Forml→Model1→Model2
B. Model1→Model2→Form1
C. Model2→Model1→Form1
D. Model2→Form1→Model1
[单项选择]一个工程中包含两个名称分别为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过程能够被工程中各个窗体或模块调用
[填空题]若窗体名称为Forml，则将该窗体标题设置为“Access窗体”的语句是（）。
[单项选择]设工程文件包含两个窗体文件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的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private SUb Form_CnCk（ ）
Open"d:/tes/smtext1.txt"For Input AS #1
Do While Not EOF(1)
Line Iput #1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For OutpUt As #1
Print #1,______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
[填空题]
在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
Open"d:/test/smText1.txt"For Input As #1
Do While Not（）
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For Output As #1
Print #1,（）
Close #1
End Sub
上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[单项选择]在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程：
Private Sub Commandl_Click（ ）
a=Text1.Text+Text2.Text
Printa
End Sub
Private Sub Form_Load（ ）
Text1.Text=""
Text2.Text=""
End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入78和87，然后单击命令按钮，则输出结果为( )。
A. 165
B. 8778
C. 7788
D. 7887
[填空题]在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click（ ）
inc 2
inc 3
inc 4
Print x；
End Sub
程序执行后，单击Command1命令按钮，输出的结果是 【11】 。
[填空题]在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
X=x+a
End Sub
Private Sub Camunand1_Click（ ）
inc 2
inc 3
inc 4
Print x;
End Sub
程序执行后，单击Command1命令，按钮，输出的结果是 【11】 。
[单项选择]假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim rec As animal Open"c: /vbTest.dat"For Random As#1 Len = Len(rec) rec.animalName = "Cat" rec.aColor = "White" Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c：/vbTesdat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句"Put#1，rec"将animal类型的两个数据元素写到文件中
[单项选择]假字在窗体(名称为Forml)的代码窗口中定义如下记录类型:
Private Type animal
Anima1Name As String * 20
aColor As String * 10
End Type
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim rec As animal
Open"c: /vbTest.dat"For Random As#1 Len = Len(rec)
rec.animalName = "Cat"
rec.aColor = "White"
Pat#1 , rec
Close#1
End Sub
则以下叙述中正确的是
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c：/vbTest.dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句"Put#1，rec"将animal类型的两个数据元素写到文件中
