10、阅读以下程序，填写运行结果_________________. dic={（'小明',18):['男',98], （'小红',19):['女',87], （'小玲',18):['女',91], （'小刚',20):['男',83]} for k,v in dic.items（): if v[1]＞90: print（k[1],end='') #此处''为空字符串
题目
10、阅读以下程序，填写运行结果_________________. dic={（'小明',18):['男',98], （'小红',19):['女',87], （'小玲',18):['女',91], （'小刚',20):['男',83]} for k,v in dic.items（): if v[1]＞90: print（k[1],end='') #此处''为空字符串
相似考题
更多“10、阅读以下程序，填写运行结果_________________. dic={（'小明',18):['男',98], （'小红',19):['女',87], （'小玲',18):['女',91], （'小刚',20):['男',83]} for k,v in dic.items（): if v[1]＞90: print（k[1],end='') #此处''为空字符串”相关问题
-
第1题：
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
正确答案：C
解析：在Sub过程中，程序段先定义了3个Integer型变量k，m，P，并给k赋给初值4，m的初值为1，然后调用事件过程PC，并将它的值赋给p；在事件过程PC中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在PC中，将m，I定义为静态变量，所以第一次调用后的值仍然保留，但是m，I分别都有赋值语句，将它们的值变为0，2，所以返回值不变。 -
第2题：
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
A．把Ifa(k)＞max Then 改为 If a(k)＜max Then
B．把max=a(k)改为a(k)=max
C．把第2个循环语句For k=1 To 10改为For k=2 To 10
D．把max=O改为max=a(10)
正确答案：D
解析：本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。max初值设为。是不可以的，它没有考虑到数组元素都小于0的情况。 -
第3题：
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub
A．1
B．12
C．11
D．32
正确答案：C
解析：本题主要是对Do...Loop Until循环语句的考查。当Loop Until后的条件不成立时，即退出循环。该题在k为1、2、3、 4、5时，都执行了循环语句，故一共执行了五次，同时m＝m+2也执行了五次，最后m的值增加了10，故运行结果为11。 -
第4题：
在窗体上一个名为Commandl的命令按钮，然后编写以下程序：
Private Sub Commandl一Click()
Dim a(10)As Integer
For k=10 To 1 Step-1
a(k)=20—2*k
Next k
k=k+7
Print a(k—a(k))
运行程序．单击命令按钮，输出结果是
A．1 8
B．12
C．B
D．6
正确答案：A
-
第5题：
阅读下列程序。
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=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
正确答案：1 3 3 3 1 3 3 3 1
1 3 3 3 1 3 3 3 1 解析：本题主要考查考生数组虚实结合掌握的情况。事件过程定义又生成了 3*3的数组，该数组的主对角线元素为1，其余元素为3。接着调用了通用过程。调用通用过程时，首先进行虚实结合，然后执行通用过程。执行过程后，返回调用它的事件过程。本题中调用通用过程时，进行虚实地址结合，在通用过程中访问的a数组就是事件过程中的X的数组。在过程中，按行优先顺序输出了a数组所有的元素的值。由于在输出时只执行了循环体的"printan，k)；”，输出数据后有分号。因此输出一行，输出的结果是：1 3 3 3 1 3 3 3 1。 -
第6题：
运行以下程序后,如果从键盘上输入shose后回车,则输出结果为 _______。 includevoid 运行以下程序后，如果从键盘上输入shose后回车，则输出结果为 _______。 # include＜iostream.h＞ void main(){ int v1=0，v2=0，k=0； char ch[80]； cin＞＞ch； while(ch[k]){ switch(ch[k]){ case 's'; case 'h'; default: v1++1; case 'o': v2++; } k++; } cout＜＜v1＜＜ "，"＜＜v2＜＜end1; }
A．2, 0
B．5, 0
C．4, 5
D．2, 5
正确答案：C
-
第7题：
以下程序运行后输出的结果是 ______。 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 Sub
A．20
B．441
C．400
D．出错信息
正确答案：D
解析：本题定义A是一个一维数组，数组元素的下标范围允许为1～20。在循环中，将下标变量的平方赋给该数组的每个元素。当循环结束后，输出A数组的第K个元素的值，但此时K的值是21，A数组无此元素，故产生下标越界的错误。 -
第8题：
阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序，单击命令按钮，输出结果为
A．8 16
B．9 18
C．10 20
D．7 14
正确答案：A
解析：本题的难点是子函数调用过程和 Static变量。子函数有Static变量c，在第1次子函数调用时其值为2，局部变量b为2，但在第2次子函数调用时c=2+2=4，b=0+2=2。表达式a*b*c的结果通过子函数名F返回。 -
第9题：
下面程序的执行结果是（ ）。 Private Sub Command1Click（ ） a=10 For k=1 To 5 Step-I a=a-k Next k Print a；k End Sub
A.-5 6
B.-5 -5
C.10 0
D.10 1
正确答案：D
D。【解析】指定的步长为-1，但k指定从1到5，所以该for循环不会执行，a的值为10，k的值为1。 -
第10题：
(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：
Private Sub Commandl_lick()
Dim a(10) As Integer
For k＝10 To 1 Step-1
a(k)＝20-2*k
Next k
k＝k＋7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是
A）18
B）12
C）8
D）6
正确答案：A
-
第11题：
阅读FORTRAN程序：
READC*，*)I，J，K DO 10 N=l,2 I=I+J+K J=I+K+J K=I+J+K 10 CONTINUE
WRITE(*，20)I，J，K 20 FORMAT(2X，315)
END
键盘输入1，0，0则程序运行后的输出结果是：A. 4 7 13
B.2 3 4
C. 1 1 2
D. 6 9 15答案：A解析：解当N=1时，I=l+0+0==l，J=l+0+0=l，K=l+l+0=2;
当N=2时，I=l+l+2=4，J=4+2+l=7，K=4+7+2=13。
答案:A -
第12题：
阅读以下FORTRAN程序
READ(*,*)M,N
K=MOD(M,N)
10 IF(K.GT.0)THEN
M=N
N=K
K=MOD(M,N)
GOTO 10
END IF
WRITE(*,*)N
END
若运行以上程序时，由键盘输入25,11，则程序输出为( )。A.3
B.2
C.1
D.0答案：C解析：K=MOD(M,N)=MOD(25,11)=3＞0
则M=11，N=3，K=MOD(11,3)=2＞0
则M=3，N=2，K=MOD(3,2)=1＞0
则M=2，N=1，K=MOD(2,1)=0，可得最后N=1 -
第13题：
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
正确答案：C
解析：考查考生对函数及函数参数的运用。
[解题要点] 在Sub过程中，程序段先定义了3个Integer型变量k,m,op，并为k赋给初值4,m的初值为1，然后调用事件过程PPC，并将它的值赋给op。在事件过程PPC中定义了两个形参，参数的传送通过引用实参，即将k,m的地址作为a，b的地址；在PPC中，将m,i定义为静态变量，第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为0,2，所以返回值不变。
[错解分析] 函数PPC中的两个参数都是以传值方式传递，注意不要与传地址方式传递混淆。
[考点链接] 过程的定义和调用，以及参数传递方式的选择。 -
第14题：
阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是
A．234
B．345
C．567
D．356
正确答案：B
解析：被调过程是一个函数过程，它有一个形式参数j，在被调过程声明中，定义了一个参数a，初值为0，一个静态变量b。语句a=a+1和b=b+1分别使用a和b各增加1，然后返回H的值，因为b是静态变量，所以每次调用同一个参数k时，b会保留前次的数值，使输出的结果变化，否则每次输出的结果都是一样的。根据分析，第一次调用时a=1，b=1，H=3；第二次调用：a=1，b=2，H=4；第三次调用：a=1，b=3=,H=5。所以最后的输出结果是345。 -
第15题：
阅读下面的程序： 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
正确答案：C
解析：本题应用了三重嵌套循环：①i=1时，j=1，k执行3次循环得到x的值为3：②i=2，j=1时，k执行3次循环得到x的值加3并覆盖原值，j=2时，k执行两次循环值加2；③依次，i=3时，j执行3次，其中k分别执行为3，2，1次，x的值分别加3，2，1；④最后得到x的值为14。 -
第16题：
阅读程序： Function Fun(a As Integer) Static C b=0：b=b+2：c=c+2 F=a*b*c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 2 Print Fun(A) ； Next End Sub 运行上面的程序，单击命令按钮，输出结果为
A．8 16
B．9 18
C．10 20
D．7 14
正确答案：A
-
第17题：
阅读下列程序。
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
运行程序时，输出结果为【 】。
正确答案：1 2 3 1 1 3 1 2 1
1 2 3 1 1 3 1 2 1 解析：本题考查考生对数组虚实结合掌握的情况。事件过程声明了一个二维数组，并利用循环产生3*3数组，由题干可知，该数组对角线元素全部为1，其余元素为3。调用fun过程时，采用了虚实结合的方法，然后执行该过程。在过程中访问x数组就是事件过程中的数组，优先输出了x数组的所有元素值，由于在输出时执行了Print x(j,k)，并且输出数据语句后有分号，因此只输出一行。 -
第18题：
阅读以下程序：
Prlvate Sub Form_Click()
Dim k，n，m As Integer
n=10
m=1
k=1
Do While k＜=n
m=m*2
k＝k+1
Loop
Print m
End Sub程序运行后，单击窗体，输出结果为【 】。
正确答案：1024
1024 解析：本题是对Do While循环语句的考查。初始化条件k＝l、n=10，条件表达式k ＝n由于控制变量k的增量语句为k＝k+l即k每执行一次循环，k的值就增1，故可知循环执行次数为10次。m的初值为l，循环语句 m＝m。2即相当于求2的几次幂的运算，循环执行几次就求2的几次幂，故题中等价于求 2的10次幂，输出结果应为1024。 -
第19题：
小明、小红、小玲共有72块糖，如果小玲吃掉2块，那么小红与小玲的糖就一样多，如果小红给小明2块糖，那么小明的糖就是小红的糖的2倍，问小红有多少块糖?
A．17
B．18
C．19
D．20
正确答案：C
95．【答案】C。解析：设小红有x块糖，那么小玲有x+2块，小明有2(x一2)一2=2x一6块糖，因此，x+x+2+2x-6=72，解得x=19，故选C。 -
第20题：
下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（ ）。Private Sub Command1Click（ ） Dim cout(25)As Integer，ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch)． n=ASC(Mid(ch，k，1))-Asc("A") If n>=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m<count(k)Then m=count(k) End If Next k Print m End Sub
A.0
B.1
C.2
D.3
正确答案：D
D。【解析】本题定义了一个25个字符的数组，然后在键盘上接收字符，Mid(string，start[，lengtb])函数的语法具有如下昀命名参数：部分说明strin9必要参数。字符串表达式，从中返回字符。在本题中返回的字符减去“A”的ASCII值，如果结果大于0，则记数。最后返回符合条件的值。 -
第21题：
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1 Click（ ） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（ ）。
A.18
B.12
C.8
D.6
正确答案：A
A。【解析】根据for循环先计算出数组a的值以及k的当前值是1，则a(k-a(k))=a(7-a(7))=a(7-6)=a(1)=18。 -
第22题：
阅读以下FORTRAN程序：
INTEGER X(7)
DATA X/10,20,45,70,80,15,14/
M/X(l)
DO 10 1=2,7
IF(X(I).GIM)THEN
M=X(I)
K=1 END IF 10 CONTINUE
N=X(K)
X(K)=X(I)
X(I)=N
WRITE( *，100)(X(I)，I=1，7)
100 FORMAT(2X，713)
END 程序运行的结果是：A. 10 20 45 70 80 15 14
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10答案：C解析：解利用DATA语句赋值，X(1)=10，X(2)=20，X(3)=45，X(4)=70，X(5)=80，X(6)=15，X(7)=14。
答案:C -
第23题：
阅读下列FORTRAN程序:
INTEGER X(7)
DATA X/4，5，7，8，10，12，11/
DO 10 K=1，7
IF(MOD(X(K),2).NE.0)THEN
S=A+X(K)
N=N+1
END IF
10 CONTINUE
T=S/N
WRITE(*,20)S,T
20 FORMAT(2X,3F6，1)
END
程序运行后的输出结果是：
（A）12.0 7.7(B)47.0 6.7(C)34.0 8.5(D)57.0 11.4答案：A解析： -
第24题：
阅读下列FORTRAN 程序：
MQIUH=N(5)+N(10)
WRITE(*,’(2X,15)’)MQIUH
END
FUNCTION N(K)
N=0
DO 10 J=1,k
N=N+J
10 CONTINUE
RETURN
END
程序运行后的结果是：
（A）65 （B）85
（C）90 （D）70答案：D解析：