vb6.0 人民幣與美元互相兌換 代碼是什麽

Text1.Text?=?Val(Text3.Text)?/?Val(Text2.Text)

End?Sub

Private?Sub?Command2_Click()

Text3.Text?=?Val(Text1.Text)?*?Val(Text2.Text)

End?Sub

Private?Sub?Command3_Click()

Text3.Text?=?""

Text1.Text?=?""

Text2.Text?=?""

End?Sub

Private?Sub?Command4_Click()

End

End?Sub