更多"程序执行结果s的值是 【7】 。 Private Sub subl"的相关试题:
[填空题]程序执行结果s的值是 【7】 。
Private Sub subl(Byval p As Integer)
p=p*2
End Sub
Private Sub Commandl_Click( )
Dim i As Integer
i=3
Call subl(i)
ifi>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的值是 。
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
[填空题]设有如下程序
Private Sub Search(a( )As Variant, ByVal key As Variant, index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(I) Then
Index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form Load( )
Show
Dim b( )As Variant
Dim n As Integer
b=Array(1,3,5,7,9, 11, 13, 15)
Call Search(b, 11, n)
Print n
End Sub
程序运行后,输出结果是______。
[填空题]设有如下程序
Private Sub Search(a( )As Variant, ByVal key As Variant, index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(I) Then
Index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form Load( )
Show
Dim b( )As Variant
Dim n As Integer
b=Array(1,3,5,7,9, 11, 13, 15)
Call Search(b, 11, n)
Print n
End Sub
程序运行后,输出结果是______。
[填空题]设有如下程序:
Private Sub search(a( )As Variant,ByVal key As Variant,index%)
Dim I%
For i=LBound(A) To UBound(A)
If key=a(I)Then
index=I
Exit Sub
End If
Next I
index=-1
End Sub
Private Sub Form_Load( )
Show
Dim b( ) As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Print n
End Sub
程序运行后,输出结果是 【6】 。
[单项选择]编写如下事件过程:
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
[填空题]设有如下程序:
Private Sub search(a( )As Variant,ByVal key As Variant,index%)
Dim I%
For i=LBound(A) To UBound(A)
If key=a(I)Then
index=I
Exit Sub
End If
Next I
index=-1
End Sub
Private Sub Form_Load( )
Show
Dim b( ) As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Print n
End Sub
程序运行后,输出结果是 【6】 。