产后恶露反复的原因:谁帮我用vf编有个程序

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 13:36:48
要求:
共有四个按键分别是标上红,黄,白,蓝
用来抽签(随机产生A,B,C,D组)
用vf6.0

wait wind '请按回车键选择...' nowait

do while .t.
for i=1 to 4
if nKeyCode=13 &&keypress
exit
endi
endf
endd
ab=asc('A')-1
cc=chr(ab+i)
wait wind '已抽出'+cc

说得不够详细,难以理解清楚哈。这个就用随机函数就可以了撒