| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 条件语句的简写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169872) |
| -- 作者：zhangchi96 -- 发布时间：2021/7/4 22:22:00 -- 条件语句的简写 if a1 = 1 then b1 = m else if a1 = 2 then b1 = n else if A1 = 3 then b1 = o else if a1 = 4 then b1 = p end if end if end if end if 请教，这样的语句有简便的写法吗？
|
| -- 作者：有点蓝 -- 发布时间：2021/7/4 22:29:00 -- Dim s1() as string = {“”,m,n,o,p} b1 = s1(a1)
|
| -- 作者：zhangchi96 -- 发布时间：2021/7/4 22:37:00 -- 我举例时为了简洁，没有说完整，我的A1一种情况是从 -9 到12，还有一种情况是 a1 = 0,1,2,3,4,5,6,7,8,9,X ,也就是说a1不一定是自然数，请问怎么办 |
| -- 作者：有点蓝 -- 发布时间：2021/7/4 22:41:00 -- 说清楚说有可能情况，才能找出规律，否则没有办法 |
| -- 作者：zhangchi96 -- 发布时间：2021/7/4 22:47:00 -- 第一种： 如果 甲 = -9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12, 那么 乙 = a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v 第二种 如果甲 = 0，1，2，3，4，5，6，7，8，9，X 那么乙 = a,b,c,d,e,f,g,h,i,j,k
|
| -- 作者：有点蓝 -- 发布时间：2021/7/4 22:49:00 -- Dim s1() as integer = {-9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12} Dim s2() as string = {a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v} dim idx as integer = array.indexof(s1, a1) if idx > -1 then b1 = s2(idx) end if |
| -- 作者：zhangchi96 -- 发布时间：2021/7/4 22:51:00 -- 谢谢 |
| -- 作者：zhangchi96 -- 发布时间：2021/7/5 22:08:00 -- 完善了一下，其中S2()里的各项要用双引号 Dim a1 As Integer = 6 Dim a2 As String Dim s1() As Integer = {-9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12} Dim s2() As String = {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v"} Dim idx As Integer idx = array.indexof(s1,a1) If idx > -1 Then a2 = s2(idx) End If MessageBox.Show(a2) 返回结果为p,谢谢蓝老师！就是不知道array 是个什么意思，说明书里可没有找到。但意会了
[此贴子已经被作者于2021/7/5 22:09:43编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/7/5 22:19:00 -- array 参考：http://www.foxtable.com/webhelp/topics/0216.htm |