更多"有如下程序
tota1=0
For k=1 To 3
If k"的相关试题:
[填空题]有如下程序
tota1=0
For k=1 To 3
If k＞1 Then
part=1
ElseIf k＞=2 Then
part=2
ElseIf k＞=3 Then
part=3
Else
part=4
End If
Print part；
total=total+part
Next k
Print total
运行时输出的结果是 【14】 。
[填空题]有如下程序
total=O
For k=l TO 3
If k＞=1 Then
part=1
ElseIf k＞=2 Then
part=2
ElseIf k＞=3 Then
part=3
Else
part=4
End If
Print part；
total=total+part
Next k
Print total
运行时输出的结果是 【14】 。
[填空题]有如下程序 total=O For k=l TO 3 If k＞=1 Then part=1 ElseIf k＞=2 Then part=2 ElseIf k＞=3 Then part=3 Else part=4 End If Print part； total=total+part Next k Print total 运行时输出的结果是 【14】 。
[填空题]运行如下程序段：
K=l
y=1
z=1
For j=1 To
For k=1 To 3
If j=1 Then
x=x + y +z
Else If j=2Then
x=2*x+2*y+2*z
E1se
x=3*x+3*y+3*z
End If
Next k
Next j
x的值应是 【15】
[单项选择]有如下程序：
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. java.awt.panel
B. java.applet.Applet
C. java.awt.frame
D. java.awt.Window
[单项选择]有如下程序：
Private Sub Command1_Click（ ）
Dim k As Integer，m As Integer
Dim op As Integer
k=4：m=1
op：PPC(k，m)：Print op；
op：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
[填空题]设有如下程序
Private Sub Search(a（ ）As Variant， ByVal key As Variant， index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(I) Then
Index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form Load（ ）
Show
Dim b（ ）As Variant
Dim n As Integer
b=Array(1，3，5，7，9， 11， 13， 15)
Call Search(b， 11， n)
Print n
End Sub
程序运行后，输出结果是______。
[单项选择]有如下程序：Private Sub Command1_Click（ ） Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate 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=mEnd Function程序运行后，输出的结果为
A. 4 6
B. 6 6
C. 8 8
D. 10 12
[单项选择]有如下程序：
Private Sub Command1_Click（ ）
Dim k As Integer，m As Integer
Dim op As Integer
k=4:m=1
op=PPC(k,m):Print op；
op=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
[填空题]运行如下程序段：
K=l
y=1
z=1
For j=1 To
For k=1 To 3
If j=1 Then
x=x + y +z
Else If j=2Then
x=2*x+2*y+2*z
E1se
x=3*x+3*y+3*z
End If
Next k
Next j
x的值应是 【15】
[单项选择]设有如下程序： Private Sub search(a（ ）As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(a) If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load（ ） Show Dim b（ ）As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是
A. 2
B. 6
C. 10
D. 12
