From should be designed in such a way that all the controls should be located centrally in every size of the form.
Ans:
Dim r, I, num, sum As Integer Dim rev As String
Private Sub cmdReverse_Click() sum = 0 num = CInt(txtnumber.Text)
For I =0 To 4
r = num Mod 10 num = num / 10
rev = rev + Str(r)
sum = sum + r
Next txtReverse.Text = rev
txtSum.Text = sum
End Sub
No comments:
Post a Comment