题目内容
（请给出正确答案）
当第一次打开窗体时，事件以哪一个顺序发生的()。
①Current
②Load
③Open
④Resize
⑤Close
⑥Unload
A．①—②—③—④—⑤—⑥
B．③—④—②—①—⑥—⑤
C．②—①—③—④—⑤—⑥
D．③—②—④—①—⑥—⑤
如果结果不匹配，请 联系老师 获取答案
更多“当第一次打开窗体时，事件以哪一个顺序发生的（)。①Curre…”相关的问题
在打开窗体时，依次发生的事件是（）。
A.打开(Open)→加载(Load)→调整大小(Resize)→激活(Activate)
B.打开(Open)→激活(Activate)→加载(Load)→调整大小(Resize)
C.打开(Open)→调整大小(Resize)→加载(Load)→激活(Activate)
D.打开(pen)→激活(Activate)→调整大小(Resize)→加载(Load)
以下叙述中错误的是（）。
A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B．当程序运行时，双击一个窗体，则触发该窗体的DblClick事件
C．Visual Basic应用程序只能以解释方式执行
D．事件可以由用户引发，也可以由系统引发
（25 ）下列关于对象 “ 更新前 ” 事件的叙述中，正确的是
A ）在控件或记录的数据变化后发生的事件
B ）在控件或记录的数据变化前发生的事件
C ）当窗体或控件接收到焦点时发生的事件
D ）当窗体或控件失去了焦点时发生的事件
A.执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B.窗体的Load事件在加载窗体时发生
C.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D.窗体的Height、Width属性用于设置窗体的高和宽
当发生窗体的单击事件时，输出的第二行为()。 Private Sub Form_click() Dim N1 As Integer,N2 As Integer,N3 As Integer N1=1:N2=1 Print N1;N2 Do N3=N1+N2 Print N3； N1=N2:N2=N3 Loop Until N3＞=5 End Sub
A．1 1 1
B．2 3 5
C．2 5 7
D．2 3 4
当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub
A．22135
B．21357
C．22213
D．13579
A.修改FCB相关内容→查找文件→置FCB为“非活跃”→写回磁盘
B.查找文件→置FCB为“非活跃”→修改FCB相关内容→写回磁盘
C.查找文件→修改FCB相关内容→置FCB为“非活跃”→写回磁盘
D.置FCB为“非活跃”→查找文件→修改FCB相关内容→写回磁盘
在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ()
A．Open "datl. dat", For lnput As#1 Write井1,S
B．Open"datl. dat" For Output As#1 Write#1, S
C．Open"dat", For Binary As #1 Write #1, S Close #1
D．Open datl. dat"For Random As #1 Write #1, S Close #1
程序段如下，当发生Form_Click事件时，窗体上输出的结果是()。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End Sub
A．x1=2 y1=2 x2=2 y2=1
B．x1=2 y1=2 x2=2 y2=2
C．x1=2 y1=1 x2=2 y2=2
D．x1=2 y1=1 x2=2 y2=1
