阅读程序: Function Fun(a As Integer) Static C b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 2 Print Fun(
A: ;
B: Next
C: End Sub
D: 运行上面的程序,单击命令按钮,输出结果为A) 8 16
E: 9 18
F: 10 20
G: 7 14
A: ;
B: Next
C: End Sub
D: 运行上面的程序,单击命令按钮,输出结果为A) 8 16
E: 9 18
F: 10 20
G: 7 14
举一反三
- 设有下面程序: Function F( a As Integer) b = 0 Static c b= b + 1 c= c + 2 F= a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 to 3 Print F(a); Next i End Sub 运行上面的程序,单击命令按钮 Command1 ,输出结果为________
- 阅读程序: Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub运行以上程序,单击命令按钮,输出结果为______ 。 A.2 4 6 8 B.5 6 7 8 C.10 12 14 16 D.出错
- 在窗体上画一个名称为 Command1 的命令按钮,然后编写下列通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是
- 阅读程序: Option Base 1 Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Form_Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击窗体,输出结果为 A: 2 4 6 8 B: 5 6 7 8 C: 10 12 14 16 D: 4 8 12 16
- 有如下程序代码 Private Sub Command1_Click( ) Dim A(2 To 7) As Integer Dim i As Integer For i = 2 To 7 A(i) = i Next i print A(i - 2) End Sub 以上程序的执行结果是( )。