[VBA程序]select case

goim88 · 发表于 2006-4-16 00:04:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如果我在每个
select case f
case 1
.....
123..
case 2
....
123..
end case

case里都有相同的程式码123,该如何简化他呢？？

雪山飞狐(lzh) · 发表于 2006-4-16 09:52:24

select case f
case 1
.....
case 2
....
end case
123..

goim88 · 发表于 2006-4-16 10:54:30

thx....

prt = vbCr & "总长L=" & ok & ", 得d1=" & d1 & ", d2由d1偏=" & d2 & ", 得d3=" & d3 & ", 得d4=" & d4 & ", 得d5外偏=" & d5

如果我的123是此行.(显示至case 5),随着case 1则显示至d1若case 2则显示至d2...
要如何简化呢??
:)

雪山飞狐(lzh) · 发表于 2006-4-16 12:32:47

把d1到d5的变量用数组d(1 to 5)代替
然后用for循环

goim88 · 发表于 2006-4-18 20:07:38

可以使用数组的方式吗?

guojianguo1012 · 发表于 2006-4-24 16:54:05

应该用goto语句可以实现简化吧，另外还可以尝试用子函数来实现，只需要将变量传递过去就可以了！

goim88 · 发表于 2006-4-26 22:38:14

有点不懂～～可以EX：一点吗？？～～thx...

tennicse · 发表于 2006-4-27 08:20:58

prt = vbCr & "总长L=" & ok & ", "
for i=1 to f
prt = prt & ", 得d" & i & "=" & d1(i)
next

账号		自动登录	找回密码
密码			立即注册

[VBA程序]select case

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

case others