你写的command0是用的控件数组。这样的话,要在每个里面都加一句:command1_click(index as integer)select case index case 0'你的程序case 1'你的程序…………end select end sub、、、、、、、、、、、、、、、这样就能分开每个控件数组的功能的。如果你想单用每个command1、command2、command3……就将每个里里面的【index as integer】删除就可以了若不对请指正。谢谢 20210311
private sub command1_click()dim m as single,r as single,h as singlem=val(text1.text) '美元数量h=8.099 '汇率r=m*h '换算label1.caption=format (r, "#.##") '显示兑换的人民币数量end sub