更多"Private Sub Form_Activate( ) F"的相关试题:
[填空题]Private Sub Form_Activate( )
For j = 1 to 3
x=3
For i = 1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为 【14】 。
[单项选择]阅读程序：
Private Sub Form_Click（ ）
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 105
B. 1
C. 120
D. 15
[填空题]有如下程序：
Private Sub Command1_Click（ ）
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环 【7】 次，程序执行完毕后j的值是 【8】 。
[填空题]有以下程序：
Private Sub Form_Activate（ ）
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为______。
[单项选择]有如下程序：
Private Sub Form_Click（ ）
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E;F
End Sub
该程序的输出结果是( )。
A. 6 6
B. 5 8
C. 13 21
D. 34 55
[填空题]程序执行结果s的值是 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_ Click( )
Dim i As Integer
i=3
Call sub 1 (i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click（ ）
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click（ ）
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
[填空题]程序执行结果s的值是 【7】 。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click（ ）
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[简答题]Dim (2) ’声明全局变量
Private Sub Form_Load（ ）
Scale(0，0)-(20，6) ’定义窗体的坐标系统
End Sub
Private Sub CmdStart_Click（ ）
x=0
MMC.DevkeType=’’WaveAudio’’ ’设置多媒体设备类型
MMC.FileName=’’两只蝴蝶.wav’’ ’确定声音文件名
MMC．Cornmand=’’Open’’ ’打开多媒体设备
MMC．Command=’’P1ay’’ ’启动声音的播放
Timer1.Enabled=True ’打开定时器
End Sub
Private Sub Timer1_Timer（ ）
Ifx＞20 Thenx=x-20 ’蝴蝶飞到右边界后再回到左边界
Image1.Left=x ’动态调整蝴蝶框的位置
Imagel.Top= (3)
Image2.Len=x
lmage2.Top= (4)
x=x+0.1 ’确定蝴蝶下一步飞行位置
End Sub
Private Sub CmdStop_Click（ ）
(5)
Image1.Left=0 ’蝴蝶位置初始化
Image1．Top=2
Image2．Left=0
Imagc2.Top=3
MMlC.Command=’’Stop’’ ’停止播放
MMC．Command=’’Ciosc’’ ’关闭多媒体设备
End Sub
[单项选择]在窗体中添加一个命令按钮，编写如下程序：
Private Sub Sub1(p，m，n)
p=p+1：m=m+1：n=n+1
Print "sub1："；p；m；n
End Sub
Private Sub Command1_Click（ ）
a1=1：b=2：c1=3
Call Sub1(a，b1+3，c1)
Print"Main："；a1；b1；c1
End Sub
程序运行后，输出结果为
[填空题]阅读程序；
Option Base 1
Private Sub Form_ KeyPress (KeyAscii As Integer)
art = Array(268, 542, 693, 365, 489, 147, 852)
a1 = arr(1)
a2 = 1
If KeyAscii = 13 Then
For a = 2 To 6
If arr(i) ＞ a1 Then
a1 = arr(i)
a2 = i
End If
Next i
End If
Print a1; a2
End Sub
程序运行后，按回车键；输出结果是______。
