|
|
|
|
|
| Author |
Message |
![[Post New]](/templates/default/images/icon_minipost_new.gif) 7 Mar 2008 22:55:01 IST
|
|
|
2.
Private Sub Command1_Click()
Dim n, k, q, r As Integer
k = Val(Text1.Text)
n = Val(Text2.Text)
q = Int(k / n)
r = k Mod n
Label1.Caption = q
Label2.Caption = r
End Sub
|
B.Tech CSE, ISMU |
this reply: 5 points
(with 1 
in 1 votes ) [?]
|
|
You have to be logged on to rate
|
|
|
|
|
|
|
|
|
|
Moderation Team
![[Up]](/templates/default/images/icon_up.gif "[Up]"){kind=icon}
