按要求写出表达式（已结）

青城山苦丁茶

<p>看了<strong><font face="Verdana" color="#da2549">element</font></strong>院长的“<strong>VBA语句中出现2个等号（=），却没有AND 和 OR连接符？”</strong>题，也来出点：</p><p>有变量A1、A2、A3、A4及boolean变量T，根据以下要求分别写出表达式:</p><p>一、当A1与A2、A3与A4同时相同或同时不同时，t为true，否则t为false</p><p>二、当A1与A2、A3与A4同时相同或同时不同时，t为false，否则t为true</p><p>三、当A1与A2、A3与A4两对都相同时，t才为true，否则t为false</p><p>四、当A1与A2、A3与A4两对都不相同时，t才为false，否则t为true</p><p>评判标准：每题只能用一行代码，不使用and、or、not、xor、Eqv，精减，不考虑效率</p><p>合符我的求每个给2两个金币（有点找眼，哈哈……）</p><p>VBA版的版版们请明天才回哈，给他人多留点空间[em01]</p><p>其实能完成一个，其它的就是送BB题</p><p><font color="#ff0000">14楼有完整的答案及解释。谢谢各位的关注与参与！</font></p>

[此贴子已经被作者于2008-2-17 21:30:56编辑过]

bcyj

<p>If (A1 = A2) + (A3 = A4) &lt;&gt; -1 Then t = True Else t = False<br/>If (A1 = A2) + (A3 = A4) &lt;&gt; -1 Then t = False Else t = True<br/>If (A1 = A2) * (A3 = A4) = 1 Then t = True Else t = False<br/>If (A1 &lt;&gt; A2) * (A3 &lt;&gt; A4) = 1 Then t = False Else t = True</p><p>或者：</p><p>t = IIf((A1 = A2) + (A3 = A4) &lt;&gt; -1, True, False)<br/>t = IIf((A1 = A2) + (A3 = A4) &lt;&gt; -1, False, True)<br/>t = IIf((A1 = A2) * (A3 = A4) = 1, True, False)<br/>t = IIf((A1 &lt;&gt; A2) * (A3 &lt;&gt; A4) = 1, False,True)<br/><br/>或者：<br/><br/>t = IIf((A1 = A2) - (A3 = A4), False, True)<br/>t = IIf((A1 = A2) - (A3 = A4), True, False)<br/>t = IIf((A1 = A2) * (A3 = A4), True, False)<br/>t = IIf((A1 &lt;&gt; A2) * (A3 &lt;&gt; A4), False,True)<br/><br/>或者：</p><p>t = 1 - Abs((A1 = A2) - (A3 = A4))<br/>t = Abs((A1 = A2) - (A3 = A4))<br/>t = (A1 = A2) * (A3 = A4)<br/>t = 1 - (A1 &lt;&gt; A2) * (A3 &lt;&gt; A4)<br/></p><p>或者：<br/><br/>t = (-(A1 = A2) - (A3 = A4)) - 1<br/>t = (A1 = A2) - (A3 = A4)<br/>t = (A1 = A2) * (A3 = A4)<br/>t = (A1 = A2) + (A3 = A4)</p>

[此贴子已经被作者于2008-2-17 12:10:31编辑过]

青城山苦丁茶

<p>谢谢2楼的参与！</p><p>不过很遗憾，离我的要求还有距离，请再改改</p><p>1楼已说“<font color="#f70909">合符我的求</font>每个给2两个金币（<font color="#ff0000">有点找眼</font>，哈哈……）”，不好意思哈[em07]</p>

bcyj

2楼已经精减答案

[此贴子已经被作者于2008-2-17 9:41:17编辑过]

青城山苦丁茶

再想下，还有更精减的哟

青城山苦丁茶

<p>先离开，晚上再来看答案！[em01]</p>

bcyj

2楼再精简。

青城山苦丁茶

<p>再想下，还有更精减的!</p><p>另好象有错的。</p>

bcyj

2楼三次精简，最后两次已验证没错。

7dong502

<img height="117" alt="" src="http://www.excelpx.com/UploadFace/117148_2008217125113246.gif" width="120"/>