击球vfp编程高手的帮忙

public frm
frm = CreateObjet("tform")
frm.visible = .t.

define class tform as form
width=181
height=94
caption="form1"
borderstyle=1

add object command1 as commandbutton with;
left=60,top=60,width=48,;
height=25,caption="打开"

add object command2 as commandbutton with;
left=120,top=60,width=48,;
height=25,caption="播放"

add object text1 as textbox with;
left=12,top=24,width=157,;
height=25

procedure load
do decl1
public str_file as string
str_file=""

procedure command1.click
str_file=getfile("wav")
thisform.text1.value=str_file

procedure command2.click
if str_file="" then
messagebox ("请选择文件")
else
sndplaysound(str_file,0)
endif
enddefine
procedure dec1

请VFP编程高手帮忙写出程序代码！~ vfp编程高手请进！ 100分急求 VFP编程 ~帮忙啊!!!高手在吗? VFP编程问题，谢谢帮忙 VFP编程题``高手来解啊 vfp编程问题，高手指教！ 关于vfp的一道编程题，请求帮忙！！！ 求达人帮忙解决下面的VFP编程？谢谢， 哪位编程高手知道VFP里数组的算法啊 用vfp编程打字小游戏的问题 请高手帮帮忙