更多"有如下事件过程:
Private Sub Form_Active("的相关试题:
[单项选择]编写如下事件过程:
Private Sub Form Activate( )
Dim score(1 To 3) As Integer
Dim i As Integer,t As Variant
For i=3 To 1 Step-l
score(i)=2*i
Next i
For Each t In score
Print t;
Next
End Sub
程序运行后窗体上显示( )。
A. 6 4 2
B. 2 4 6
C. 2
D. 6
[填空题]有如下事件过程:
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。
[填空题]有如下事件过程:
Private Sub Form_Adivate( )
Dim Score(1 to 3 ) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score(i)=2*1
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 (10)
[填空题]有如下事件过程:
Private Sub Form_Active( )
Dim Score(1 to 3) As Integer
Dim i As Integer
Dim t As Variant
For i=3 To 1 step-1
Score (i)=2*i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为______。
[填空题]有如下事件过程:
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 【14】 。
[单项选择]编写如下事件过程和函数过程:
Private Sub Command1_Click( )
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num( ))
End Sub
Private Function p2(By Val n As Integer, number( ) As Single) As Integer
p2=number(1)
For j=2 To n
If number(j)<p2 Then p2=number(j)
Next j
End Function
程序运行后,在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[单项选择]编写如下事件过程: Private Sub Form Click( ) Dim Char As String,i As Integer Const ch$="#" msg$= "Enter a String:" char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char,i,1)=ch$ Then Exit For End If Next i Print i - 1 End Sub 其中InputBox函数的功能是弹出一个输入对话框,按所给参数给出提示,等待用户输入,并返回输入的内容。程序运行后,单击窗体,如果在输入对话框内输入字符串“12ab$%*/#fg”,则窗体上输出
A. 2
B. 2
C. 5
D. 8
[单项选择]假定有如下事件过程:
Private Sub Form Click( )
Dim x As Integer, n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
End Sub
程序运行后,单击窗体,输出结果是______。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]假定有如下事件过程:
Privte Sub Form_Click( )
Dim x As Integer,n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x,n
End Sub
程序运行后,单击窗体,输出结果是
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]编写下列事件过程和函数过程:
Private Sub Commandl Click( )
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print
Print p2(6,num( ))
End Sub
Private Function p2(ByVal n As Integer,number( )As Single)As Integer
p2=number(1)
For j=2 To n
If number(j)<p2 Then p2=number(j)
Next j
End Function
程序运行后,在窗体上输出( )。
A. -56
B. 0
C. 103
D. 190
[单项选择]编写如下事件过程:
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