要考虑0的情况，试试下面的代码
M=THISFORM.TEXT1.VALUE
N=THISFORM.TEXT2.VALUE
B=THISFORM.TEXT3.VALUE
V=THISFORM.TEXT4.VALUE
X=round(rand()*4,0)
if x=0
messagebox("无解")
THISFORM.TEXT5.VALUE=""
else
DO CASE
case X=1
A=M
CASE X=2
A=N
CASE X=3
A=B
otherwise
A=V
ENDCASE
THISFORM.TEXT5.VALUE=A
endif
你说的“A变成字符型变量，即汉字”没太明白什么意思，它现在就是字符型变量。如果是汉字名称的话直接写就可以。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024