填空题

可以使用【7】键添加断点。

【参考答案】

F9

<上一题目录下一题>

热门试题

填空题

阅读下面程序： Private Function a(load As Integer) As Single If load ＜20 then money = load 2 else money =20 + load end if a = money End Function Private Sub Form_Click( ) Dim load As Integer, fee As Single Load = InputBox( 请输入一个数: ) fee= a(loaD) Print fee End Sub输入20，运行后的输出结果是【6】。

填空题

阅读下列程序： 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运行程序时，输出的结果是【5】。

相关试题