10、阅读以下程序,填写运行结果_________________. dic={'a':1,'b':9,'c':3,'d':5} lst=sorted(dic.items(),key=lambda x:x[1],reverse=True) print(lst[1][1])
第1题:
下列程序的运行结果为【 】。
A="1"
B="2"
A=Val (@A@+Val (@B@B=Val ("12")
If A<>B Then Prink A-B Else Print B-A
(11)阅读下列程序:
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j<> k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时,输出的结果是【 】
第2题:
单击按钮时,以下程序运行后的输出结果是 Private Sub proc1(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer,Z As Integer x=1:y=2:z=3 Call proc1(x,x,z) Print x;x;z Call proc1(x,y,y) Print x;y;y End Sub
A.6 6 12 `
B.9 5 10 6101051010
C.9 6 12
D.9 10 10 910155410
第3题:
下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer,y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub
A.3 7 11 45 19
B.19 15 11 7 3
C.1 3 5 7 9
D.不确定的值
第4题:
下列程序段的执行结果为______。 x = 0: y = 1 z = 1: n = 0 Do x = x + y + z n = n + 1 Loop While x < 10 Print x; n
A.10 5
B.x n
C.9 5
D.10 6
第5题:
以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 :x=2 Print Iif(x>=y,x,y) End Sub
A.0
B.1
C.2
D.3
第6题:
下面程序运行时,若输入395,则输出结果是( )。 Private Sub Command1_Click( ) Dim X% x=InpetBox("请输入一个3位整数") Print x Mod 10,x/100,(x Mod 100)/10 End Sub
A.3 9 j
B.5 3 9
C.5 9 3
D.3 5 9
第7题:
单击按钮时,以下列程序运行后的输出结果是 Private Sub proc1(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer,y As Integer,z As Integer x=1:y=2:z=3 Call proc1(x,x,2) Print x;x;z Call proc1(x,y,y) Print x;y;y End Sub
A.6 6 12 6 6 10
B.9 5 10 5 10 10
C.9 6 12 9 10 15
D.9 5 10 5 4 10
第8题:
A.[3, 2, 1, [3, 2, 1]]
B.[3, 2, 1, […]],其中“…”表示无穷递归
C.抛出异常
D.[3, 2, 1, lst]
第9题:
int x=0 step1 for(; x < 11 ; x++) { if(x = = 6) { x= 8 break step1; } if( x = = 3 ) { x+ + continue } System.out.print(x +“ ”); } 结果为:()
第10题:
下列程序段:Dim x If x Then Print x Else Print x+1运行后,显示的结果是()。
第11题:
0 1 2
0 1 2 5
0 1 2 4 5
0 1 2 5 8 9 10
0 1 2 5 8 9 10 11
第12题:
2 5 8
3 6 9
4 5 6
7 8 9
第13题:
假定有以下程序: Private Sub Form. Click( ) a=1:b=a Do Until a>=5 x=a*b Print b;X a=a+b b=b+a Loop End Sub 程序运行后,单击窗体,输出结果是( )。
A.1 1 2 3
B.1 1 2 4
C.1 1 3 8
D.1 1 3 6
第14题:
阅读下面的程序: Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,窗体上输出的结果是
A.3
B.9
C.14
D.21
第15题:
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j<>k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】。
第16题:
有如下程序: Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮,程序运行结果为
A.1
B.2
C.3
D.5
第17题:
执行下面这段程序后,单击命令按钮,窗体中输出结果是 ______。 Private Sub Command1_Click() a=1 : b=4 : c = 9 : d = 5 If a < b Then If c<d Then x=True Else If a<c Then x=False Else x=True End If End If End If Print Val(x) End Sub
A.True
B.False
C.0
D.1
第18题:
运行以下程序后,显示的结果为 ______。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i End
A.1 2 3 4 5
B.1 2 6 24 120
C.1 2 6 12 20
D.1 1 2 3 4
第19题:
A.运行结果显示NameError:name'x'isnotdefined
B.运行结果无限循环输出1
C.它等价于下面的程序#x=1whilex:print(x)
D.它等价于下面的程序whilex:print(x)
第20题:
单击按钮时,以下程序运行后的输出结果是 Private Sub Commandl_Click( ) Dim X As Integer,y As Integer,z As Integer x=1:y=2: Z=3 Call God(x,x,z) Print x;x;z Call God(x,y,y) Print X;y;y End Sub Private Sub God(x As Integer,y As Integer,z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End Sub
A.6 6 12 7 11 11
B.8 5 10 5 11 11
C.9 6 12 9 10 15
D.8 10 10 5 9 10
第21题:
已知x=[1,2,3,4,5],那么执行语句x[1::2]=sorted(x[1::2],reverse=True)之后,x的值为()。
第22题:
第23题:
1
0
-1
出错
第24题: