更多"下列程序的功能是返回当前窗体的记录集 Sub GetRecNum（ "的相关试题:
[单项选择]下列程序的功能是返回当前窗体的记录集：
Sub GetRecNum（ ）
Dim rs As Object
Set rs=[]
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，括号内应填入的语句是（ ）。
A. Me.RecordSet
B. Me.RecordLocks
C. Me.RecordSource
D. Me.RecordSelectors
[单项选择]下列程序的功能是返回当前窗体的记录集。
Sub GetRecNum（ ）
Dim rs As Object
Set rs=______
MsgBox rs RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是( )。
A. Recordset
B. Me.Recordset
C. RecordSource
D. Me.RecordSource
[单项选择]阅读程序：
Private Sub Command1_Click（ ）
Dim arr
Dim i As Integer
arr=Array(0,1,2,3,4,5,6,7,8,9,10)
For i=0 To 2
Print arr(7-i)；
Next
End Sub
程序运行后，窗体上显示的是______。
A. 8 7 6
B. 7 6 5
C. 6 5 4
D. 5 4 3
[填空题]下面程序的功能是统计字符串中“i”的个数请填空。
Sub COU( )
Dim n As Integer
a$ =" Beijing University of Technology"
n = Len(a$)
For i = 1 To n
b$ = 【15】
If b$ ="i" Then x=x+1
Next
Print" x="; x
End Sub
[填空题]下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
[单项选择]有如下程序：
Private Sub Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
[单项选择]阅读下列程序：
Private Sub Command1_Click( )
Dim i As Integer，k As Integer
k=2
For i=1 To 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后，单击命令按钮输出结果是
A. 234
B. 345
C. 567
D. 356
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Integer
a=2
For i=1 To 3
Print Gad (a)
Next i
End Sub
Function Gad (a As Integer)
b=0
Static c
b=b + 1
c= c + 1
Gad= a + b + C
End Function
运行上面的程序后，单击命令按钮，输出结果为( )。
[单项选择]阅读下列程序：
Private Sub Form Click（ ）
Dim i As Integer， sum As Integer
For i = 2 To 10
If i Mod 2 ＜＞ 0 Then
Print i；
Else
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，在窗体上的输出结果是
A. 3 5 7 9 30
B. 1 3 5 7 9
C. 2 4 6 8 20
D. 11 15 17 19 20
[填空题]设有如下程序
Private Sub Form Click（ ）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t/y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为A)0 0
B)1 1
C)0 2
D)1 2
[单项选择]程序如下：
Private Sub form_ Activate（ ）
Dim a As Integer
for i=4 To 5
a=fun(i)
Print a,
Next i
End Sub
Private Function fun(n)As Integer
if n ＞0 then
fun =n* fun(n-1)
Else
fun=1
End if
End Function
程序最后打印结果是______。
A. 4 5
B. 12 120
C. 24 120
D. 24 60
[单项选择]下列程序的运行结果是 Private Sub Form_Click（ ） Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]有如下程序:: Private Sub Form Click（ ） Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18
[单项选择]阅读下列程序：
Private Sub Command1_Click（ ）
Dim i As Integer，k As Integer
k=2
For i=1 To 3
Print H(k)；
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a+1
b=b+1
H=a*b+j
End Function
程序运行后，单击命令按钮输出结果是（ ）。
A. 234
B. 345
C. 567
D. 356
[单项选择]有如下程序：
Private Sub Form_Click（ ） Dim Check, Counter Check = True Counter = 0
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then Check = False Exit Do
End If
Loop
Loop Until Check = False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为______。
A. 15 0
B. 20 -1
C. 10 True
D. 10 False
