单项选择题

在窗体中添加—个名称为Command1的命令按钮，然后编写如下代码：　
　　 Function　F(a As Integer)
b=0
Static c
b=b+1
C=c+1
F=a+b+c
End Function
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=2
For i=l To 3
b=F(a)
Print b
Next i
End Sub
程序运行后，如果单击按钮，则在窗体上显示的内容是

A．4
4
4
B．4
5
6
C．5
6
7
D．5
5
5
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码： Private Sub Command1_Click( ) Dimaarray1(10，10)As Integer Dim i，j As Integer For i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1 (2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
单项选择题
下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1= abcdef Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub
A．fedcba
B．abcdef
C．afbecd
D．defabc
相关试题