单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程。 Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter= All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A．All Files(*.*)
B．Text Files(*.tx
C．*.txt
D．All Files(*.*)|Text Files(*.*)

单项选择题

最简单的交换排序方法是

A．快速排序
B．选择排序
C．堆排序
D．冒泡排序

相关试题