单项选择题

下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print "A" Case 1 Print "B" End Select Case 2 Print "C" End Select

A．A
B．B
C．C
D．0

<上一题目录下一题>

热门试题

单项选择题

下面程序运行后，单击命令按钮，输出的结果是 Private Sub Command1_Click( ) Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (a) str 2 = YAG (b) Print str1 = ; str1; str2 = ; str2 End Sub Function YAG(a()As Integer) Dim t#，i% t=1 For i=LBound(a)TO UBound(a) t=t * a(i) Next YAG=t End Function

A．str1=24 str2=720
B．str1=12 str2=360
C．str1=24 str2=180
D．str1=36 str2=720

单项选择题

有如下程序。 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

相关试题