单项选择题

有如下程序段： 　　Private Sub Command1_Click( ) 　　Dim a As Integer 　　a=2 　　For i=1 To 3 　　　　Print G(a) 　　　Next i 　　End Sub 　　Function G(a As Integer) 　　　b=0 　　　Static c 　　　b=b + 1 　　　c=c + 1 　　　G=a + b + c 　　End Function 　　运行上面的程序后，单击命令按钮，输出结果为（ ）。

A． 窗体文件的扩展名为．frm
B． 一个窗体对应一个窗体文件
C． Visual Basic中的一个工程只包含一个窗体
D． Visual Basic中一个工程最多可以包含255个窗体
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程：Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Thenfun = 2 Else fun = 1 End If End FunctionPrivate Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5s = s + fun(i) NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是______。
A．6
B．7
C．8
D．9
单项选择题
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码：Option Base 0Private Sub Commandl_Click()Dim A(4)As integer,B(4)As IntegerFor k=0 To 2A(k+1)=InputBox( 请输入一个整数 )B(3-k)=A(k+1)Next k Print B(k)End Sub 程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【 】
A．0
B．2
C．3
D．4
相关试题