VB 请教一个循环的算法，想了两天了没头绪，编程新手

zjm499767 2012-12-19 08:21:55

字符状态码
0： besdddd1
1： fswe3222
2： fswe3222
3： xxxxxxx
4： xxxxxxx
5： fswe3222
6： fswe3222
7： fswe3222
8： fswe3222
9： fswe3222
f: fswe3222
q: fswe3222
各位晚上好：
要求是这样的，首先看上面那串数组。下面是流程
1.需要识别一个字符串，别如现在输入"qf123",我要知道输入的是"qf123"
2.然后根据这个五个字母找到后面的状态码，输出状态码
咋办呢，愁死了麻烦各位了。

...全文

198 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

哈了 2012-12-20

打赏
举报

每天回帖即可获得10分可用分

zjm499767 2012-12-20

打赏
举报

引用 3 楼 caozhy 的回复:

定义一个二维数组，第二维下标0表示查找的标志，第二列表示值，然后循环查找，再输出对应的值就是了。

这个版主大人，以及以上几位说数组的能不能小小的举个例子。。。额，新手没咋写过程序。。麻烦了，

zjm499767 2012-12-20

打赏
举报

引用 1 楼 PALLEE 的回复:

select case应该就可以完成吧定义数组，每一个数据对应后面的状态码，根据你的输入，确定取的是数组的哪些数，读出来字符串连接一下就可以吧。或者我没理解楼上的意思？

理解了，就是你这意思。呵呵 Private Function chazhao(ByVal zhifu As String) Select Case zhifu case 0 chazhao= besdddd1 case 1 chazhao= fswe3222 ........ end fuction 是这样吧？我觉得也挺好的。。不过我要查找的字符有点多基本是全键盘字符了，是不是数组更好点呢，我不太明白。谢谢

zjm499767 2012-12-20

打赏
举报

引用 9 楼 zjm499767 的回复:

引用 8 楼 cqq_chen 的回复: Call keypress("a") 不行呀，就不识别a了，晕

额，明白了，搞定结贴，谢谢帮忙

newmenlee 2012-12-20

打赏
举报

进来学习的！受益诽浅！谢谢大家分享

sosoben 2012-12-20

打赏
举报

Case "a" 按键 = "EB900100001C45EB90020000F01C11" Case "b" 按键 = "EB900100003245EB90020000F03211" Case "C" 按键 = "EB900100002145EB90020000F02111" Case "d" 按键 = "EB900100002345EB90020000F02311" Case "E" 按键 = "EB900100002445EB90020 咋就不会举一反三呢？？

zjm499767 2012-12-20

打赏
举报

引用 8 楼 cqq_chen 的回复:

Call keypress("a")

不行呀，就不识别a了，晕

cqq_chen 2012-12-20

打赏
举报

Call keypress("a")

threenewbee 2012-12-20

打赏
举报

定义一个二维数组，第二维下标0表示查找的标志，第二列表示值，然后循环查找，再输出对应的值就是了。

zjm499767 2012-12-20

打赏
举报

问题又来了，采用Select Case 的方法程序如下 rivate Sub keypress(ByVal key As String) Dim 按键 As String Select Case key Case 0 按键 = "EB900100004545EB90020000F04511" Case 1 按键 = "EB900100001616EB90020000F01611" Case 2 按键 = "EB900100001E1EEB90020000F01E11" Case 3 按键 = "EB900100002626EB90020000F02611" Case 4 按键 = "EB900100002525EB90020000F02511" Case 5 按键 = "EB900100002E2EEB90020000F02E11" Case 6 按键 = "EB900100003636EB90020000F03611" Case 7 按键 = "EB900100003D3DEB90020000F03D11" Case 8 按键 = "EB900100003E3EEB90020000F03E11" Case 9 按键 = "EB900100004646EB90020000F04611" Case a 按键 = "EB900100001C45EB90020000F01C11" Case b 按键 = "EB900100003245EB90020000F03211" Case C 按键 = "EB900100002145EB90020000F02111" Case d 按键 = "EB900100002345EB90020000F02311" Case E 按键 = "EB900100002445EB90020000F02411" ..........等，下面不写了然后我在程序中 Call keypress(0) 查找"0"这个没问题 Call keypress(a) 这个就不行了，觉得a被当做变量了。。。咋能让程序认为这个也是字符呢。