相信很多热爱打游戏的朋友对First blood（第一滴血）、Double Kill（双杀）、Trible Kill三杀、Quadra Kill四杀、Penta Kill五杀这样的游戏竞技词汇并不陌生。 电竞术语如此流行，甚至连周杰伦为致命游戏写的歌中也用到了这些词。 不过，可不要小看这些电竞用语，他们其实大有来头哦~ 今天就让阿研带大家来了解一下从一到十那些词根前缀里的隐藏属性吧！ Uni-意为只有一个，源自Proto-Indo-European词根*oi-no-，意思是“one, unique”。 《小马宝莉》中的独角兽 mono-意为single，来源于PIE词根*men- 大富翁 monopoly Bi-意为两个、两倍，来源于古拉丁语dvi-，PIE词根为* dwo-，意为two，double。 英国上议院（左）和下议院（右） tri-来自拉丁语tres或者希腊语trias, treis，意为三。 波塞冬和三叉戟 quadri-意为“四，四次，四个，由四个组成”，源自拉丁语quad-。 北京传统民居—四合院 penta-意为“五，包含五”，来自希腊语。 五角大楼 摩西与《十戒》 hexa-表示“六”，源自PIE词根*sweks-；sex-同样表示六。 北京四中的六边形教室 Sept(i)-意为七，来源于拉丁语septem。 男装品牌七匹狼 凯撒大帝与方块K Octo-来自于拉丁语，PIE词根为*octo(u)。 章鱼 Ennea, nove均有九的意思。 deca-意为十，PIE词根为*dekm-，意为ten。 薄伽丘 《十日谈》 实习生：梅春苗 | 编辑：刘吉吉很随意 图文资料整理自网络，如涉及侵权请及时联系
Private Function IsPrime(ByVal n As Double) As Boolean Dim pb As Double pb = n – 1 IsPrime = True For i = 2 To pb If n Mod i = 0 Then IsPrime = False Exit For End If Next i End Function Private Sub Command1_Click() For i = 1 To 17 If IsPrime(2 ^ i + 1) = True Then Print 2 ^ i + 1 Next i End Sub Private Function Is2n(ByVal n As Double) As Boolean Is2n = False If n = 1 Then Is2n = True Exit Function End If Dim pb As Double pb = n / 2 Do While pb >= 2 pb = pb / 2 Loop If pb = 1 Then Is2n = True Else Is2n = False End If End Function