Question

请问这一段易语言代码用VB怎么写?谢谢了，大神帮忙啊

.版本 2 .子程序 _按钮1_被单击 .局部变量 n, 整数型 .局部变量 临时, 文本型 .局部变量 数值文本形式, 文本型 .局部变量 三位数, 文本型, , "0" .局部变量 个位数, 文本型 .局部变量 十位数, 文本型 .局部变量 百位数, 文本型 数值文本形式 ＝ 到文本 (编辑框1.内容) .计次循环首 (3, n) 临时＝ 取文本中间 (数值文本形式, n, 1) 加入成员 (三位数, 临时) .计次循环尾 () 个位数 ＝ 三位数 [3] 十位数 ＝ 三位数 [2] 百位数 ＝ 三位数 [1] .判断开始 (个位数 ＝“0”) 编辑框2.加入文本 (“5”) .判断 (个位数 ＝“1”) 编辑框2.加入文本 (“8”) .判断 (个位数 ＝“2”) 编辑框2.加入文本 (“3”) .判断 (个位数 ＝“3”) 编辑框2.加入文本 (“0”) .判断 (个位数 ＝“4”) 编辑框2.加入文本 (“7”) .判断 (个位数 ＝“5”) 编辑框2.加入文本 (“3”) .判断 (个位数 ＝“6”) 编辑框2.加入文本 (“4”) .判断 (个位数 ＝“7”) 编辑框2.加入文本 (“8”) .判断 (个位数 ＝“8”) 编辑框2.加入文本 (“2”) .判断 (个位数 ＝“9”) 编辑框2.加入文本 (“3”) .默认

Answer 1

dim n as intger dim ls as string dim szwb as string dim sws(3) as string dim gws as string dim shiws as string dim bws as string szwb=text1.text for i=1 to 3 sws(i)=mid(szwb,i,1) next i gws=sws(3) shiws=sws(2) bws=sws(1) select case gws case 0 text2.text="5" case 1 text2.text="8" case 2 text2.text="3" case 3 text2.text="0" case 4 text2.text="7" case 5 text2.text="3" case 6 text2.text="4" case 7 text2.text="8" case 8 text2.text="2" case else text2.text="3" end case