更多"下列程序的功能是返回当前窗体的记录集: 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
[填空题]下面程序的功能是统计字符串中“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$ = 【15】
If b$ ="i" Then x=x+1
Next
Print" x="; x
End Sub
[填空题]简述下列程序的功能:______。
Sub Form_Load( )
Dim d As Date
d=Now
Weekx=Weekday(d)
Weeky=WeekdayName(Weekx)
If Weekx=1 Or Weekx=7Then
Debug.Print"今天是:"; Weeky
Debug.Print"今天是休息日!"
Else
Debug.Print"今天是:"; Weeky
Debug.Print"今天是工作日!"
End If
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
[填空题]下面程序的功能是统计字符串中"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 ______ 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
程序运行后,输出的结果是( )。
A. * p表示的是指针变量p的地址
B. p表示的是变量a的地址,而不是变量a的值
C. * p表示的是指针变量p的值
D. * p只能用来说明p是一个指针变量
[单项选择]阅读程序:
Private Sub Form Click( )
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num<>0
digit=num Mod 10
num=num/10
Print digit;
Loop
End Sub
程序运行后,如果从键盘上输入12345,则输出结果为______。
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[填空题]有下列程序:
Private Sub Command1_Click( )
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY( )
arrX(2)=arr2( )
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后,单击命令按钮,在文本框Text1和Text2中分别显示的内容是 【14】 和 【15】 。
[单项选择]阅读下列程序:
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 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
运行上面的程序后,单击命令按钮,输出结果为( )。