[填空题]阅读下列程序。 Option Base 1 Private Sub Form Click（　） Dim x(3,3) For j=l to 3 For k=l to 3 If j=k then x(j,k)=l If j＜＞k then x(j,k)=k Next k Next j Call fun(x（　）) End Sub Private Sub fun(x（　） ) For j=1 to 3 For k=1 to 3 Print x(j,k); Next k Next j End Sub 运行程序时，输出结果为【14】

更多"阅读下列程序。 Option Base 1 Pri"的相关试题:

[填空题]阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) ＞ a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是______。

查看答案

[单项选择]阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

查看答案

[填空题]阅读下列程序。
Option Base 1
Private Sub Form Click（　）
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x（　）)
End Sub
Private Sub fun(x（　） )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时，输出结果为【14】

查看答案

[填空题]

阅读程序：
　　Option Base1
　　Private Sub Form_Click( )
　　　　Dim a(3)As Integer
　　　　Print“输入的数据是：”；
　　　　For i＝1 To 3
　　　　　　a(i)=InputBox(“输人数据”)
　　　　　　Print a(i)；
　　Next
　　Print
　　If a(1)　　　　　t=a(1)
　　　　　a(1)=a(2)
　　　　　a(2)= 【8】
　　End If
　　If a(2)>a(3) Then
　　　　　m=a(2)
　　Else If a(1)>a(3)Then
　　　　　m= 【9】
　　Else
　　　　　m= 【10】
　　End If
　　Print“中间数是：”；m
　End Sub
程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。[*]

查看答案

[填空题]阅读下列程序
Option Base 1
Private Sub Form_Click（　）
Dim x(3，3)
For j=1 to 3
For k=1 to 3
If j=k then x (j，k)=1
If j＜＞k then x(j,k)=k
Next k
Next j
Call fun(x（　）)
End Sub
Private Sub fun(x（　）)
For j=1 to 3
Fork-1 to 3
Print x(j,k)
Next k
Next j
End Sub
运行程序时，输出结果为【13】。

查看答案

[单项选择]阅读如下程序：
Option Base 1
Private Sub Form Click（　）
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出的结果为
A. 5 7 6 8
B. 6 8 7 9
C. 7 9 8 10
D. 8 10 8 11

查看答案

[填空题]阅读下列程序。
Option Base 1
Private Sub Form CliCk（　）
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x（　）)
End Sub
Private Sub fun(a（　）)
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是______。

查看答案

[填空题]有如下程序： Option Base 1 Private Sub Form_Click（　） Dim arr,sum Sum＝0 arr＝Array(1,3,5,7,9,11,13,15,17,19) For i＝1 To 10 If arr(i) /3＝arr(i) /3 Then Sum＝Sum+arr(i) End If Next i MsgBox Sum End Sub 程序运行后，单击窗体，消息框的输出结果为______。

查看答案

[单项选择]设有如下程序：　　Option Base 1 　　Private Sub Form Click（　）　　Dim a(5)As String，i As Integer 　　For i=1 To 5 　　 a(i)=Chr(Asc("A")+i) 　　 Call f(a，i) 　　Next i 　　End Sub 　　Sub f(ta（　）As String，n As．Integer) 　　Dim i As Integer 　　For i=1 To n 　　 Print ta(i)；　　Next i 　　Print 　　End Sub 　　对上述程序．以下叙述中正确的是( )。
A. 程序有错，因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行，输出内容的第一行是一个字母“A”
C. 程序可正常运行，输出内容的第一行是一个字母“B”
D. 程序可正常运行，输出内容的第一行是数字65

查看答案

我来回答:

提交