[小测试2]看看你的基本功(已结题)

qee用 · 发表于 2007-4-20 21:44

不知咋了，突然想起流星的这个贴子： [小测试1]变量交换也来出一个小测试题，共有两题： 第一题： 这道题早就出过，或许是我的表达有问题，一直没看到所要的答案。所以换个形式提出：请在下面代码划线处填入相应的内容，使运行结果正确。 Sub TestString()   Dim s$   s = [A1]   if                             then msgbox "[A1]单元格是全部由字母组成并以E（e）结尾的字符串。" End Sub 第二题： 先来看下面的代码： Sub aMain()   Dim x   x = [A1]   Ch x   Debug.Print x End Sub Sub Ch(x)   x = x + 1   Debug.Print x End Sub 假定[A1]单元格为空白，运行上面代码会在“立即窗口”输出结果： 1                       1                       要求：不能修改Ch子过程，只对aMain过程的代码进行修改，使输出结果为： 1                                                这个要求并不难，但关键是你要修改得巧妙并给出必要的解释。所谓巧妙的含义是至少你自己觉得是巧妙的。奖励嘛，3元吧。别嫌少。最近一段时间不能常来，不过我会想念大家的。

[此贴子已经被作者于2007-4-23 20:43:44编辑过]

danielcm · 发表于 2007-4-20 22:21

沙发第一题:Right(s, 1) = "e"   ''''我理解错了[em04],我少看了一个条件,我再想,[em06]不行,我想不出来,单个判断好办s1=Asc(s)    再判断s1 > 64 And s1 < 91 Or s1 > 96 And s1< 123单元格里是字数不定，我只会分开它逐个判断，这样不符合题意，还是请qee用老师指教。第二题:Sub aMain()   Dim x   Ch x   x = [A1]   Debug.Print x End Sub让[A1]的空值后赋给x就行了

[此贴子已经被作者于2007-4-21 0:32:26编辑过]

烟雨江南 · 发表于 2007-4-20 23:06

ucase(Right(s, 1))="E",或者lcase(Right(s, 1))="e"只能判断最后一个字符是不是E（e）,但无法确认是否全部由字母组成只用一句代码，还想不出办法来，等待用哥的答案

element · 发表于 2007-4-21 12:15

Sub test()     Dim s$     s = [A1]     If Application.CheckSpelling(s) = False And UCase(Right(s, 1)) = "E" Then         MsgBox "[A1]单元格是全部由字母组成并以E（e）结尾的字符串。"     Else         MsgBox "false"     End If End Sub

element · 发表于 2007-4-21 12:16

上述函数基本符合要求，但不能确定中文，还需另判断。

element · 发表于 2007-4-21 12:20

第2小题可以用END，就当是开玩笑，呵呵Sub aMain()   Dim x   x = [A1]   Ch x   End   Debug.Print x End Sub Sub Ch(x)   x = x + 1   Debug.Print x End Sub我想，可能会用到递归法吧...

element · 发表于 2007-4-21 12:26

第2小题Sub aMain()   Dim x   x = [A1]   Call Ch(x - 0)   End   Debug.Print x End Sub Sub Ch(x)   x = x + 1   Debug.Print x End Sub

[此贴子已经被作者于2007-4-21 16:37:04编辑过]

element · 发表于 2007-4-21 16:37

第2小题Sub aMain()   Dim x   x = [A1]   Call Ch(x - 0)   Debug.Print x End Sub Sub Ch(x)   x = x + 1   Debug.Print x End Sub

qee用 · 发表于 2007-4-21 21:04

多谢danielcm,烟雨江南,element三兄参与.第一题最先出现在置顶的<a title="《[精英专题]VBA字符串用法大全(整理中,请参与进来)》
作者：chenhuafu
发表于：2006-10-9 17:03:02
最后发贴：这个函数我用的比较频..." href="http://www.excelpx.com/forum.php?mod=viewthread&tid=8822" target="_blank">[精英专题]VBA字符串用法大全(整理中,请参与进来)</a>中.第二题是开放性题目....周一晚结贴.

element · 发表于 2007-4-21 22:51

再试试第1小题的可能性解决例如s=“sdf士大夫dfe”,在前面一贴中为TRUE的问题Sub test()     Dim s$     s = [a1]     If Application.CheckSpelling(s) = False And Len(s) = LenB(VBA.StrConv(s, vbFromUnicode)) And UCase(Right(s, 1)) = "E" Then         MsgBox "[A1]单元格是全部由字母组成并以E（e）结尾的字符串。"     Else         MsgBox "false"     End If End Sub

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