下列程序的运行结果为【 】。 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 Priv

admin2009-05-20  44

问题 下列程序的运行结果为【  】。
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
运行程序时,输出的结果是【  】

选项

答案-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。
转载请注明原文地址:https://kaotiyun.com/show/kq5p777K
0

最新回复(0)