Question

VFP表单找不到变量问题

M=THISFORM.TEXT1.VALUE
N=THISFORM.TEXT2.VALUE
B=THISFORM.TEXT3.VALUE
V=THISFORM.TEXT4.VALUE
X=round(rand()*4,0)
DO CASE X=1
A=M
CASE X=2
A=N
CASE X=3
A=B
CASE X=4
A=V
ENDCASE
THISFORM.TEXT5.VALUE=A
运行时总是在运行四次后提示找不到变量A，还有，怎么让A变成字符型变量，即汉字，求大神！！

Answer 1

要考虑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变成字符型变量，即汉字”没太明白什么意思，它现在就是字符型变量。如果是汉字名称的话直接写就可以。

追问

如果希望随机数只在1~4之间产生，怎么办