这样的语句怎么简化
日期：2014-05-16 浏览次数：20818 次
这样的语句如何简化
------解决方案--------------------
A ~L 换成数组 arr
IF UCase(thischar)="A" then
A=A+1
JB=A
ElseIF UCase(thischar)="B" then
B=B+1
JB=B
ElseIF UCase(thischar)="C" then
C=C+1
JB=C
ElseIF UCase(thischar)="D" then
D=D+1
JB=D
ElseIF UCase(thischar)="E" then
E=E+1
JB=E
ElseIF UCase(thischar)="F" then
F=F+1
JB=F
ElseIF UCase(thischar)="G" then
G=G+1
JB=G
ElseIF UCase(thischar)="H" then
H=H+1
JB=H
ElseIF UCase(thischar)="I" then
I=I+1
JB=I
ElseIF UCase(thischar)="J" then
J=J+1
JB=J
ElseIF UCase(thischar)="K" then
K=K+1
JB=K
ElseIF UCase(thischar)="L" then
L=L+1
JB=L
end if
------解决方案--------------------
A ~L 换成数组 arr
Dim arr(15)
Dim i
i=asc(UCase(thischar))-65
arr(i)= arr(i)+1
JB=arr(i)
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
