问题 填空题

下列程序的运行结果为 【11】
A="1"
B="2"
A=Val (A) +Val (B)
B=Val ("12")
If A<>B Then Prink A-B Else Print B-A
(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=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时,输出的结果是 【12】

答案

参考答案:-9

解析: 本题考查Val函数的用法。Ⅷ函数是返回字符串内的数字,因此A=Val(A) +Val (B) =1+2=3,而B=Val("12")=12,A-B=-9,B-A=9,而A<>B,所以执行Print A-B,正确答案为-9。
(11)1 3 3 31 3 3 3l

单项选择题
判断题