choose函数英文

dim i as integerprivate sub command1_click() 'select case 方法 text1.text =int(val(text1.text))if text1.text >0 and text1.text <8 then i = text1.text select case i case 1 debug.print "Monday" case 2 debug.print "Tuseday" …… end selectend ifend subprivate sub command2_click() 'choose方法 text1.text =int(val(text1.text))if text1.text >0 and text1.text <8 then i = text1.text debug.print choose(i,"Monday","Tuseday",……,"Sunday")end ifend sub