有如下程序： 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

有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

有如下程序： Private Sub Command1_Click（） Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是（）

窗体上有一个名称为Commad1的命令按钮，其事件过程如下：Private Sub Command1_Click()x = VisualBasicProgramminga = Right(x, 11)b = Mid(x, 7, 5)c = MsgBox(a, , b)End Sub运行程序后单击命令按钮。以下叙述中错误的是（2008年4月）

假定有如下的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程序运行后，单击命令按钮，输出结果为（ ）。

有如下程序： Private Sub Command1_Click() x = InputBox(\input value\) Select Case x Case Is > 0 y = x + 3 Case Is = 0 y = x + 2 Case Else y = x + 1 End Select Print x; y End Sub 假设运行时从键盘上输入-8，输出结果是（______）。

窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open \c:\\f1.txt\ For Input As #1 Open \c:\\f2.txt\ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 ________ 。

编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后，单击命令按钮Command1，输出结果为（______）。

编写如下程序：Private Sub Command1_Click（) x="abcd" y="1234" For i=1 To 4z=z+Mid（x，i，1)+Lef

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1

在窗体上画一个名为Command1的命令按钮，编写如下程序： Private Sub Command1_Click（) Dim M（10)As Integer For k=1 To 10 M（k)=12-k Next k x=6 Print M（2+M（x)) End Sub 程序运行后，单击命令按钮，输出的结果是______。

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click（）

在窗体上画一个名称为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 运行程序，其结果是（）。

有如下代码: Private Sub Command1_Click（）

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

程序段如下：Private Sub Command1_ Click（)a = 0for 1=15 To 15 Step- 2a = a +1Next IPrint a,

有如下程序：Private Sub Command1_Click（）Fo rj=1 To 10a=a+j\7Next jPrint aEnd Sub在运行时输出a的值是（）

在窗体上画一个名称为Command1的命令按钮。编写如下程序： Option Base1 Private Sub Command1_Click（) Dim a（10) As Integer For i=1 To 10 a（i)=i Next Call swap（（11) ) For i=1 To 10 Print a（i)； Next End Sub Sub swap（b（)As Integer

在窗体上画—个命令按钮，其名称为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 程序运行后，单击命令按钮

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

在窗体上画—个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click（)Dim i As IntegerSum=0n=InputBox（"Enter a number")n=Val（n)For i=1 To n Sum= 【12】 Next iPrint Sum End Sub Function fun（t As Integer)As Long p

在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。 Private Sub Form_Load（) Command1.Enabled=False End Sub Private Sub Text1_ ______ Command1.Enabled=True

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click（) a=Text1.Text b=Text2.Text c=LCase （

有如下程序： Private Sub command1_Click（) a=1:b=1 Print“a=”：a;“，b=”；b Call mult（a)，b) Prinf“a=”；a：“，b=”；b 语句 End Sub Sub mult（x,y) k=1 x=2*k y=3*k Pnint“X=“；X；“，y=”；y End Sub 运行后，标有“语句”的Print语句的输出结果是 （8) 。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（) Dim a（10)As Integer For i=1 To 10a（i)=i Next Call swap（【13】 ) For i=1 To 10Print a（i)； Next End Sub Sub swap（b（)As Integer