private sub command1_clickdim m as single，r as single，h as single m=valtext1text #39美元数量 h=8099 #39汇率 r=m*h #39换算 label1caption=Format r， quot###quot...