用vb编写语句,把数组中指定范围内的数据写入,直接显示结果

on error resume next
dim a
do while(a<>37 and a<>38 and a<>39)
a = inputbox ("写入一个数字")
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "小的"
msgbox chr(13) + chr(13) + chr(13) +"颜色"

dim b
do while(b<>12 and b<>14 and b<>16)
b = inputbox ("写入一个数字")
msgbox chr(13) + chr(13) + chr(13) + b,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "小小的"
msgbox chr(13) + chr(13) + chr(13) +"粉色"
求这2个命令之间的过渡语句,使他能正确实行,或有其他的更方便简洁的语句来实现写入一个在你定的范围内的数值,来实现所要的结果,并且是要能多个实现的.

设计思路不明，请仔细描述代码需要实现的功能先。

private sub command1_click() select case val(text1.text) case 36,37,38,39, 40 text1.text = "小的" case 41,42,43,44 text1.text = "中的" case else text1.text = "错" end select end sub 我想这样应该可以了吧！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息