在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Dim I As Integer，j As Integer Dim a（10，10）As Integer For I=1 To 3 For j=1 To 3 a（I，j）=（I-1）*3+j Print a（I，j）； Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（）。（其中CR表示回车和换行）
设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。
有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
设程序中有如下数组定义和过程调用语句：Dim a(10) As IntegerCall p(a)如下过程定义中，正确的是______。
有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1)) 运行后输出的结果为（ ）。
设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。
假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。
有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)secproc = 3 * y + z + 2 * xEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 2: b = 3: c = 4Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。
设有如下声明语句： Option Base 1 Dim arr(3,-1 To 4) As Integer 则数组arr中数组元素的个数是（ ）
有如下程序：Dim a(3，3)As IntegerFor m ＝ 1 To 3For n ＝ 1 To 3a(m，n)＝(m-1)*3＋nNext nNext mFor m ＝ 2 To 3For n ＝ 1 To 2Print a(n，m)；Next nNext m运行后，输出结果是( )。
在窗体上画一个命令按钮，然后编写如下程序：Sub S1（ByVal X AS Integer，ByVal y As Integer) Dim
设有如下语句：Dim a，b As Integerc="VisualBasic"d=7/20/2005以下关于这段代码的叙述中，错误的
设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n
设有如下声明：Dim x As Integer如果Sgn（x)的值为-1，则x的值是A．整数B．大于0的整数C．小于0的整数D
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（） Dim x As Integer x=a If x＞=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（）。
设有以下函数过程： Function fun（a As Integer，b As Integer) Dim c As Integer If a＜b The
设有变量声明为“Dim aDate As Date”，则为变量aDZe正确赋值的表达方式是（)。A．aDate=8/2008B．aDa
有如下程序： Private Sub Command1_Click（) Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC（k，m)：Print p； p=PC（k，m)：Print p End Sub Private Function PC（a As Integer，b As Integer) Static m As Integ
在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As Integer)M=IIf（x＞y,x，y) End FUNction Private Sub Command1 Click（)Dim a As Integer,b As Integera=100b=200Print M（a,B) End Sub 程序运行后，单击命令按钮
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click（) Dim x As Long， y As Long，i As Long x=Val（Text1．Text) y=Val（Text2．Text) Text3．Text = Str（【13】 ) End Sub Function fun1（a As
在窗体上面画一个命令按钮，然后编写如下程序： Function M（x As Integer，y As Integer)As IntegerM=IIf（x＞y，x，y) End Function Private Sub Command1_Click（)Dim a As Integer，b As Integera=1b=2Print M（a，B) End Sub 程序运行后，单击命令按钮，输出结果为
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer，y As Integer)As Integer M=IIf（x＞y，x，y) End Function Private Sub Command1_Click（) Dim a As Integer，b As Integer a=100 b=200 Print M（a，b) End
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序； Function M（x As Integer,y As Integer)M=IIf（x＞y,x,y) End Function Private Sub Commandl_Click（)Dim a As Integer,b As Integera=100b=200PrintM（a,B) End Sub 程序运行后，单击命令按钮，
