网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
10、阅读以下程序，填写运行结果_________________. dic={（'小明',18):['男',98], （'小红',19):['女',87], （'小玲',18):['女',91], （'小刚',20):['男',83]} for k,v in dic.items（): if v[1]＞90: print（k[1],end='') #此处''为空字符串
参考答案和解析
3
更多 “10、阅读以下程序，填写运行结果_________________. dic={（'小明',18):['男',98], （'小红',19):['女',87], （'小玲',18):['女',91], （'小刚',20):['男',83]} for k,v in dic.items（): if v[1]＞90: print（k[1],end='') #此处''为空字符串” 相关考题
考题
下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End SubA． -10 -7B．10 8C．1 3D．0 4
考题
（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 。 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120
考题
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
考题
下列程序的运行结果为【 】。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 1Private Sub Form. Click()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=l to 3For k=1 to 3Print a (j.k);Next kNext jEnd Sub运行程序时，输出的结果是【 】
考题
有如下程序： 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 6B．6 6C．8 8D．10 12
考题
有如下程序： 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 6B．6 6C．8 8D．10 12
考题
某人编写了下列程序，用来求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 ThenB．把max=a(k)改为a(k)=maxC．把第2个循环语句For k=1 To 10改为For k=2 To 10D．把max=O改为max=a(10)
考题
阅读下列程序： 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．234B．345C．567D．356
考题
下列程序的运行结果是 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 SubA．1B．12C．11D．32
考题
阅读下面的程序： 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．3B．9C．14D．21
考题
在窗体上一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Commandl一Click()Dim a(10)As IntegerFor k=10 To 1 Step-1a(k)=20—2*kNext kk=k+7Print a(k—a(k))运行程序．单击命令按钮，输出结果是A．1 8B．12C．BD．6
考题
阅读程序： 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 16B．9 18C．10 20D．7 14
考题
阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k)；Next kNext jEnd Sub运行程序时，输出的结果是【 】。
考题
阅读下列程序。Option Base 1Private Sub Form. _Click()Dim x(3,3)For j=1 to 3For k=l to 3If j=k then x(j,k)=1If j＜＞k then x(j,k)=kNext kNext iCall fun(x())End SubPrivate Sub fun(x())For j=1 to 3For k=1 to 3Print x(j,k)；Next kNext jEnd Sub运行程序时，输出结果为【 】。
考题
运行以下程序后,如果从键盘上输入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, 0B．5, 0C．4, 5D．2, 5
考题
阅读以下程序：Prlvate Sub Form_Click()Dim k，n，m As Integern=10m=1k=1Do While k＜=nm=m*2k＝k+1LoopPrint mEnd 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．出错信息
考题
阅读程序： 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 16B．9 18C．10 20D．7 14
考题
下面程序运行时，若输入“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 mcount(k)Then m=count(k) End If Next k Print m End SubA.0B.1C.2D.3
考题
下面程序的执行结果是（ ）。 Private Sub Command1Click（ ） a=10 For k=1 To 5 Step-I a=a-k Next k Print a；k End SubA.-5 6B.-5 -5C.10 0D.10 1
考题
在窗体上画一个名为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.18B.12C.8D.6
考题
(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：Private Sub Commandl_lick()Dim a(10) As IntegerFor k＝10 To 1 Step-1a(k)＝20-2*kNext kk＝k＋7Print a(k-a(k))End Sub运行程序，单击命令按钮，输出结果是A）18B）12C）8D）6
考题
阅读以下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
考题
阅读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
考题
阅读下列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
考题
阅读以下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
考题
阅读下列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
热门标签
最新试卷