问题
填空题
下列程序的运行结果为 【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 1Private 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 SubPrivate Sub fun(a()) For j=l to 3 For k=1 to 3 Print a (j.k); Next k Next jEnd 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