A.20 30
B.40 50
C.20 50
D.40 30
[单选题]若将PRIVATE Y改为PRIVATE X,则程序执行后的显示结果为 ______。A.20 30B.40 50C.20 50D.40 30
[单选题]若将PRIVATE Y删除,则程序执行后的显示后果为 ______。A.20 30B.40 50C.30 40D.40 30
[单选题]若将子过程SUB中的PRIVATE X改为PRIVATE Y,则Y的输出结果为 ______。A.5B.11C.8D.3
[单选题]若将子过程SUB中的PRIVATE X改为PRIVATE Y,则X的输出结果为 ______。A.5B.11C.8D.3
[试题]执行?AT(”x-y=z”,”z”)语句后,屏幕显示的结果为__________。
[单选题]单击一次命令按钮后,下列程序的执行结果为Private Sub Command1_Click()D.im m As Integer,I As Integer,x(10) As IntegerF.or I=0 To 4:x(I)=I+1:Next IF.or I=1 TO 2:Call Prioc(x):Next IF.or I=0 TO 3:Print x(I);:Next IE.nd SubPrivate Sub Prioc(a()As Integer)Static I As IntegerD
[单选题]下列程序运行后,单击命令按钮,窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()A.23B.19C.21D.22
[单选题]执行下面的程序,单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next
[主观题]执行下列程序,输入数字3,则输出结果为______。Private Sub Command1_Click()a=inputBox("Input a Number")If a>5 ThenG.oTo L5E.lse If a>2 ThenG.oTo L2E.lseG.oTo L3E.nd IfE.xit SubL5:Print a Mod 5E.xit SubL3:Print a Mod 3E.xit SubL2:Print a Mod 2E.nd Sub
[单选题]有下列程序,程序运行后单击命令按钮,则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1=";s1;"s2=";s2End SubFunction Factorial(a()As Integer)Dim