98.10.1程式碼(1)

Dim a As Integer, b As Integer, ans As Long


a = Val(Text1.Text)


b = Val(Text2.Text)


ans = a / b


Label3.Caption = a & " 除 " & b & " 商= " & ans

留言

熱門文章