在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click（） Static x As Integer Stati cy As Integer y=1 y=y+5 x=x+5 Printx；y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）
下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）
下列程序的运行结果为（ ）。Private Sub Command1_Click()Score = Int(Rnd * 10) + 80Select Case ScoreCase ls < 60a$ = ECase 60 To 69a$ = DCase 70 To 79a$ = CCase 80 To 89a$ = BCase Elsea$ = AEnd SelectPrint a$End Sub
Sub Inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub command1_click() Inc 2 Inc 3 Inc 4 End Sub 程序运行后，单击命令按钮，输出结果为：( )( ) ( )
以下程序运行结果是( )。Private Sub Command1_Click()Dim nx%nx = 3Call abcd(nx)Print nxEnd SubPrivate Sub abcd(n As Integer)n = n + 5End Sub
下面程序运行后的结果是（ ）。 Public sub f1(n%,byval m%) N=n mod 10 M=m\\10 End sub Private sub command1_click( ) Dim x%,y% X=12 Y=34 Call f1(x,y) Print x,y End sub
下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
Option Base 1Private Sub Command1_Click()Dim a$(), s$s = InputBox(\请输入用英文逗号分开的数据\)a = Split(s, \,\)Print a(Ubound(a)+Lbound(a)-1)End Sub程序运行后，单击命令按钮，在输入对话框中输入12,A,2,b,c则输出结果是（）。
下列程序代码的运行结果为（ ）。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub
下列程序:Option Base 1Private Sub Form_Click()Dim a(5，5)For i ＝ 1 To 5For j ＝ 1 To 5k ＝ k ＋ 1a (i，j)＝ kNext jNext iFor i ＝ 1 To 5s ＝ s ＋ a (i，i)Next iPrint sEnd Sub运行时的输出结果是( )。
有如下程序代码：Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd 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 Form_Click（)DimiASInteger,j As Integeri=10Doi=i+
在窗体上画一个名为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的命令按钮，然后编写如下程序： 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 Commandl_Click（) s=Sat（1)+Sat（2)+
◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。
计算霄的近似值的一个公式是。某人编写下面的程序用此公式计算并输出π的近似值：Private Sub Command1_Click（)PI=1Sign=1n=20000For k=3 To nsign=-signPI=PI+sign/kNext kPrint PI*4End sub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是（）
下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______
20、下列程序代码的运行结果为（）。 Private Sub Command1_Click（) For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub
下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub
程序如下： Private Sub Form_Click（)Const PI=3.14159Dim r As Single，S As SingleR=InputBox（"请输入圆的半径"，"输入数据"，"50")S = PI*r*rPrint "S="；Format（S，"，.") End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入数据35，单击“确定”按钮后，输出结果为 【9】 。
4、以下程序的运行结果为（）。 Option Base 1 Private Sub command1_click（) Dim a（10), p（3) As Integer k = 5 For i = 1 To 10 a（i) = i Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) * 2 Next i Print k End Sub
