下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
当下面程序运行后，单击窗体在对话框中输入10，则输出的结果是（） Private Sub Form_Click（） score=InputBox（"输入"） Select Case score CaseIs＜10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ 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()Dim nx%nx = 3Call abcd(nx)Print nxEnd SubPrivate Sub abcd(n As Integer)n = n + 5End Sub
以下程序的运行结果是( )。Private Sub Command1_Click()a = 1: b = 2Print \A=
下面程序运行后的结果是（ ）。 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
运行如下程序段，输出结果为________。Private Sub command1_click()a = 2: b = 3: c = 4a= a + b: b = b + a: c = b + aIf a <> 3 Or b <> 3 Thena = b - a: b = c - a: c = b + aEnd IfPrint a + b + cEnd Sub
下面程序运行结果第一行是 ，最后一行是 。 Private Sub Form_Click() Dim I As Integer, J As Integer, X(4, 3) As Integer For I = 1 To 3 For J = 1 To 2 X(I, J) = I + J Print X(I, J)； Next j Print Next i Print X(I, J) End 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 Form_Click（)DimiASInteger,j As Integeri=10Doi=i+
单击窗体时，下列程序段的执行结果为（)。Private Sub Form_Crick（)Line（200,200)-（400,400)Print"+
◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。
执行下面的程序段后，结果是（）。Private Sub Form_Click（）Dim mIf m Then Print m Else Print m+1End Sub
有以下程序段：程序运行后的输出结果是（）
计算霄的近似值的一个公式是。某人编写下面的程序用此公式计算并输出π的近似值：Private Sub Command1_Click（)PI=1Sign=1n=20000For k=3 To nsign=-signPI=PI+sign/kNext kPrint PI*4End sub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是（）
执行下面程序，第一行输出结果是 （11) ，第二行输出结果是 （12) 。 Option Explicit Private Sub Form_Click（) Dim A As Integer A=2 Call Subl（A) End Sub Private Subl（x As Integer) x=x*2+1 If x＜10 Then Call Subl（x) End If x=x*2+1 Pri
下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______
下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub
下面程序运行后，窗体中显示 【14】 。 Private Sub Command1_Click) （) aS ="*" :b$ ="$" For k = 1 To 3x$ =Strings （Len（a$) +k,b$ )Print x $; Next Print End Sub
下面运行程序后，单击命令按钮，输出的结果是 【9】 。 Private Sub Command1_Click（) Dim a%（1 To 4)，b%（3 To 6)，i%，s1，s2For i=1 To 4 a（i)=iNextFor i=3 To 6 b（i)=iNext s1.= Fun（a) s2 =Fun（b) Print "s1 ="; s1; "s2 ="; s2 End Sub Fu
下面程序运行时，若输入395，则输出结果是_______________。 Private Sub Command1_Click（) Dim x% x = InputBox（"请输入一个3位整数") Print x Mod 10, x 100, （x Mod 100) 10 End Sub
下面程序运行后，单击命令按钮，输出的结果是Private Sub Command1_Click（)Dim a%（1 To 4) , b%（2 To 6) , i%, str1, str2 For i = 1 To 4a（i) =i Next For i = 2 To 6b（i) =i Next str 1 = YAG （
有下列程序，运行后变量x1、y1和z1的结果分别是 （13) 、 （14) 和 （15) 。 Private Sub fun1（s， m， n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form_Click（) Dim x1， y1 x1 = 1 : y1 = 1 : z1 = 1 Call fun1（x1， y1 + 1， （z1))
