1楼：听不清啊
privatesub***mand1_click()dimw(),y()
w=array("","一","二","三","四","五bai","六","日")
y=array("","英语","数学du","语文","物理zhi","计算
dao机","休息","休息")
iftext1>="1"andtext1<="9"then
x=asc(text1)-48
text2=w(x)
text3=y(x)
else
msgbox("有效版输入数权字范围1-7")endif
endsub
2楼：匿名用户
privatesub***mand1_click()
ifval(text1.text)>7orval(text1.text)<1then
msgbox"有效数字输
入范围1-7"
exitsub
endif
text2.text=choose(val(text1.text),"一",_
"二","三","四","五","六","日")
text3.text=choose(val(text1.text),"英语",_
"数学","语文","物理版","计算机权","体育","休息")
endsub
3楼：志在必得
selectcasetext1.textcase1
text2.text="一"
text3.text="英语"
case2
text2.text="二"
text3.text="数学bai
du"case3
text2.text="三"
text3.text="语文"
case4
text2.text="四"
text3.text="物理"
case5
text2.text="五"
text3.text="计算机
zhi"
case6
text2.text="六"
text3.text="体育dao"
case7
text2.text="日"
text3.text="休息
回"caseelse
msgbox"有效数字输入答范围1-7"
text2.text=""
text3.text=""
endselect
vb选择题 求大神详细解答
4楼：匿名用户
运算符号优先级：
先乘除：* / 后整除： \
所以：6 * 6 \ 6 / 6= 36 \ 1 = 36
VB问题，求大佬解答,vb编程问题求大佬解答？
1楼 匿名用户 private sub mand1 click dim fh as string fh inputbox 请输入运算符 ， ， ， me cls select case fh case is me print val text1 val text2 val text1 val tex...
VB题，求大佬解释,求大佬解释以下vb代码，每一步的详细解释！！！
1楼 好人缘好让他 2 4 诗中亲情2 5 诗中乡情2 6 作者出处2 7 三境界2 8 正所谓 猜你关注唐诗宋词 中国文学史上的两颗明珠 编辑唐诗宋词是中国文学史上的两颗明珠，唐代被称为诗的时代，宋代被称为词的时代。 词源于民间，始于唐，兴于五代，盛于两宋。宋代物质生活的丰富，人们对文化生活的追求...
求大佬解决VB问题,求大佬解决一个VB问题
1楼 听不清啊 private sub mand1 click dim m as integer n as integer m inputbox 请输入矩阵的行数 n inputbox 请输入矩阵的列数 dim a 20 20 as integer m1 1 n1 1 m2 1 n2 1 rando...