单项选择题

假定一个工程由一个窗体文件Forml和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S20 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
<上一题 目录 下一题>
热门 试题

单项选择题
阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i) 3=arr(i) 3 Then Sum=Sum+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为( )。
A．13
B．14
C．27
D．15
单项选择题
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open c: vbTest.dat For Random As #1 Len=Len(rec) rec.animalName= Cat rec.aColor= White Put #1,,rec Close #1 End Sub 则以下叙述中正确的是( )。
A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件c:\vbTest.dat不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put#l,,rec”将animal类型的两个数据元素写到文件中
相关试题