网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
执行下面程序，第一行输出结果是 [ ] ，第二行输出结果是 [ ] 。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
A=2
Call Sub1(A)End Sub
Private Sub1(x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1(x)
End If
x=x*2+1
Print x
End Sub
参考答案
更多 “ 执行下面程序，第一行输出结果是 [ ] ，第二行输出结果是 [ ] 。Option ExplicitPrivate Sub Form_Click()Dim A As IntegerA=2Call Sub1(A)End SubPrivate Sub1(x As Integer)x=x*2+1If x＜10 ThenCall Sub1(x)End Ifx=x*2+1Print xEnd Sub ” 相关考题
考题
执行下面程序,输出的结果是?()publicclassTest{publicstaticvoidmain(String[]args){inta=5;doubleb=8;a=a＋＋＋b;System.out.println(a);}}
A.第4行编译报错B.第5行编译报错C.编译成功，输出13D.编译成功，输出14
考题
阅读下面程序Private Function a (load As Integer)As SingleIf loud＜20 thenmoney=lnad/2elsemoney=20+loadend ifa=moneyEnd FunctionPrivate Sub Form_Click()Dim load As Integer,fee As SingleLoad=InputBox("请输入一个数：")Fee=a(loa@D@Print feeEnd Sub运行后的输出结果是【 】。
考题
下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C\100 End SubA．123B．3C．5D．579
考题
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End SubA．36B．25C．1D．出错信息
考题
下面程序执行时，输出的结果是( )。 Private Sub Form_Click() DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End SubA．50 10B．50 9C．57 10D．59 9
考题
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
考题
以下语句输出结果是( )。 Private Sub Form_Click() A="Beijing" b="ShangHai" Print a;b End Sub
A. Beijing ShangHaiB. AbeijingShangHaiC. BeijingShangHaiD. Abeijing
考题
下面程序的输出结果是【 】。Private Sub Commandl_Click( )Dim a(1 To 20)Dim iFori = 1 To 20a(i) = iNext iFor Each i In a( )a(i) = 20Next iPrint a(2)End Sub
考题
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
考题
下面程序的输出结果是【 】。Private Sub Form_Click()i=0Do Until 0i=i+1if i＞10 then Exit DoLoopPrint iEnd Sub
考题
执行下面程序，第一行输出结果是【 】，第二行输出结果是47。Option ExplicitPrivate Sub Form_Click( )Dim A As IntegerA=2Call Sub1 (A) End SubPrivate Sub1 (x As Integer)x=x*2+1If x＜10 ThenCall Sub1 (x)End Ifx=x*2+1Print xEnd Sub
考题
执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub
考题
执行下面的程序，消息框的输出结果是 【 】。Option BaselPrivate Sub Commandl Click()Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是A． 6 6B． 5 8C．13 21D．34 55
考题
下面程序的输出结果是【 】。Private Sub Form_Click()i＝0Do Until 0i＝i＋1if i10 then Exit DoLoopPrint iEnd Sub
考题
执行下面的程序，消息框的输出结果是【 】。Option Base1Private Sub Command1_Click( )Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End SubA．20B．441C．400D．出错信息
考题
阅读下面程序 importjava.io.*； publicclassTypeTransition{ publicstaticvoidmain(Stringargs[]){ chara='h'； inti=100； intj=97； intaa=a+i； System.out.println("aa="+aa)； charbb=(char)j； System.out.println("bb="+bb)； } } 如果输出结果的第二行为bb=a，那么第一行的输出结果是( )。A．aa=IB．aa=204C．aa=vD．aa=156
考题
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
考题
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End SubA．1 3579B．975 3 1C．1234567 89 10D．1098765432 1
考题
执行下面程序，输出的结果是？（） public class Test{ public static void main（String[] args）{ int a = 5； double b = 8； a = a++ + b； System.out.println（a）； } } A、 第4行编译报错B、 第5行编译报错C、 编译成功，输出13D、 编译成功，输出14
考题
单选题执行下面程序，输出的结果是？（） public class Test{ public static void main（String[] args）{ int a = 5； double b = 8； a = a++ + b； System.out.println（a）； } }A
第4行编译报错B
第5行编译报错C
编译成功，输出13D
编译成功，输出14
热门标签
最新试卷
