单项选择题

下面程序运行后，输出的结果是
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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= Text1.SetFocus For i=1 To 9 Sum=Sum=i Next i Text1.Text=Sum End Sub 上述程序的运行结果是Ａ) 在文本框Text1中输出45 Ｂ) 在文本框Text1中输出0 Ｃ) 出错Ｄ) 在文本框Text1中输出不定值

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum=i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
Ａ) 在文本框Text1中输出45
Ｂ) 在文本框Text1中输出0
Ｃ) 出错
Ｄ) 在文本框Text1中输出不定值

单项选择题

有如下函数过程： 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

相关试题