有奖题抓肇事逃逸司机 (当一回警察）[己结束]

mxg825 · 发表于 2008-5-18 16:57

警察局的老K警员遇到了下面的一个难题，一辆卡车违反了交通规则，撞死了行人，司机畏罪驾车逃跑了。当时有3个人目击了这一车祸的发生，但都没有看清卡车的牌照号码，只注意到牌照号码的某些特征。甲：记得牌照前两个数字是相同的;乙：记得牌照号码后两个数字是相同的;丙：是一个数学家，他说：“牌照号码肯定是四位数，并且这个四位数恰好是一个整数的平方。”       根据这些线索，你能判断出正确的牌照号码吗？   你可以开动自己的脑筋来帮助老K,用我们学到让EXCEL --VBA找出答案来！丙说的：这个四位数恰好是一个整数的平方再说明一下：假如某个整数是：X ,X2=牌照号码，就是X*X=牌照号码     1、回贴时要用回复可见方式。粘贴VBA代码既可。      2、正确答案每人奖励5个金币，VBA入门的学员加奖10个金币。      3、由于回贴后你就可以看到其他答案，所以不允许二次回复和编辑原贴子。      4、违反上面规定回贴的，倒扣两个金币  牌照号码是：7744Sub 车牌号码() Dim N As Integer '牌照号码四位 Dim A As Integer '牌照号码第1位数 Dim B As Integer '牌照号码第2位数 Dim C As Integer '牌照号码第3位数 Dim D As Integer '牌照号码第4位数 Dim M As String     For N = 1 To 9999         M = Format(N, "0000") '转为四位数         A = Mid(M, 1, 1)         B = Mid(M, 2, 1)         C = Mid(M, 3, 1)         D = Right(M, 1)             If A = B And C = D And Sqr(N) = Int(Sqr(N)) Then                  MsgBox "牌照号码" & N             End If     Next N End Sub  最佳答案是：HYY514Sub ff1() Dim n%, i%, j% For i = 0 To 9 For j = 0 To 9 n = i & i & j & j If Int(Sqr(n)) = Sqr(n) And n > 0 Then MsgBox n: End Next j, i End Sub

[此贴子已经被作者于2008-6-21 10:55:01编辑过]

E梦 · 发表于 2008-5-18 17:43

游客，如果您要查看本帖隐藏内容请回复

cjch1969 · 发表于 2008-5-18 18:01

游客，如果您要查看本帖隐藏内容请回复

一剑惊心 · 发表于 2008-5-18 18:11

游客，如果您要查看本帖隐藏内容请回复

liyh67 · 发表于 2008-5-18 18:32

游客，如果您要查看本帖隐藏内容请回复

hai · 发表于 2008-5-18 18:36

学习来了!

Firerabbit · 发表于 2008-5-18 18:43

游客，如果您要查看本帖隐藏内容请回复

lxgexcel · 发表于 2008-5-18 21:07

游客，如果您要查看本帖隐藏内容请回复

suye1010 · 发表于 2008-5-19 02:44

游客，如果您要查看本帖隐藏内容请回复

mxg825 · 发表于 2008-5-22 14:07

顶一下，大家参与进来！

		自动登录	找回密码
密码			注册

有奖题 抓肇事逃逸司机 (当一回警察）[己结束]

有奖题抓肇事逃逸司机 (当一回警察）[己结束]