Private Sub Command1_Click()
Dim i As Integer
For i = *cint(text1) To cint(text2)
* Print i
Next
End Sub
http://www.henlia.com
Frangky wrote:
Teman-teman yg terhormat!
Saya menggunakan code dibawah ini:
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print i
Next
End Sub
Dengan code diatas maka pada form akan tercetak 1 sampai 10.
*Masalahnya setelah saya ubah code seperti dibawah ini, pada form
hanya tercetak Angka 0 (nol).*
Padahal yang saya ingin harus tercetak angka 1 sampai 10, karena pada*
text1 *saya sudah input angka *1 *dan pada *text2 *saya input angka *10.*
Messages in this topic
<http://groups.yahoo.com/group/Programmer-VB/message/23186;_ylc=X3oDMTM2aGkzNzBmBF9TAzk3MzU5NzE0BGdycElkAzgzMzIyNjUEZ3Jwc3BJZAMxNzA1MTE1MzY0BG1zZ0lkAzIzMTg2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTE2NDcwNTIxOQR0cGNJZAMyMzE4Ng-->
(1)
<http://groups.yahoo.com/group/Programmer-VB/post;_ylc=X3oDMTJxYzNwazN1BF9TAzk3MzU5NzE0BGdycElkAzgzMzIyNjUEZ3Jwc3BJZAMxNzA1MTE1MzY0BG1zZ0lkAzIzMTg2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTE2NDcwNTIxOQ--?act=reply&messageNum=23186>
