更多"Private Sub Form_Activate( )
"的相关试题:
[填空题]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_Activate( )
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
[单项选择]阅读程序:
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_Activate( )
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
[单项选择]编写如下事件过程:
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i>= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click( )
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后,单击窗体,则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea
[填空题]程序执行结果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