单项选择题

下面程序运行后，输出的结果是 Dim arr(3，3) For j=1 To 3 For k=1 To 3 Art(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j)； Next k Print Next j Ａ) 2 5 Ｂ) 5 8 Ｃ) 4 7 Ｄ) 5 9 　3 6 　6 9 　5 8 　6 8
<上一题 目录 下一题>
热门 试题

单项选择题
有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
有如下函数过程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
填空题
设一棵完全二叉树共有700个节点，则在该二叉树中有______个叶子节点。
相关试题