compliance labeling:中VB代码中 : 代表什么意思呀?

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 12:31:09
烦请帮我翻译下面的代码:
h = 100: f = 100 '总头数及总脚数
j1 = (3 * h - f) / 2 '求出的鸡数
t1 = (f - 0.33333333 * h) / 2 '求出的兔数
j2 = Val(InputBox("鸡的只数是多少?", "请回答"))
t2 = Val(InputBox("兔的只数是多少?", "请回答"))
Select Case True '选择真值
Case j1 = j2 And t1 = t2
MsgBox ("回答完全正确!你真聪明!")
Case j1 = j2
MsgBox ("鸡数回答正确,但兔数不对!")
Case t1 = t2
MsgBox ("兔数回答正确,但鸡数不对!")
Case Else
MsgBox ("回答错误!再接再利!")
End Select
End Sub

在代码行中一行书写几个句子但相互独立。如:
Text1 = a:Tex2 = b : Text3 = ""

。。。该怎么说呢?写个例子吧

示例1:

if a>b then msgbox "a>b" : a=b else msgbox "a<b" : b=a

示例2:

if a>b then
msgbox "a>b"
a=b
else
msgbox "a<b"
b=a
end if

实际上上面2个例子的执行效果是一样,
不过建议还是用下面的写法好些,看的明白
就是这个样子。。。