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

留言

熱門文章