VB Ñ»·ÎÊÌ⣡
VB ÖеÄÑ»·ÖС£ ÓÐûÓкÍvsÒ»ÑùµÄcontinual¡£Ìø³ö±¾´ÎÑ»·£¬Ö´ÐÐÏÂÒ»´ÎÑ»·£¿
Óеġ£
ÓУ¡
ûÓÐ µ«¿ÉÒÔÓÃIFÁé»î±äͨ
do
if condition fix then
do something
end if
loop
Èç¹û»¹½â¾ö²»ÁËÎÊÌ⣬¾ÍÓýûÕС°GOTO¡±
ÓÃGOTO
VBûÓУ¬ÄãÖ»ÄÜʹÓÃGoToÓï¾äÀ´Ìø×ªµ½Ö¸¶¨±êºÅ´¦£¬±ÈÈ磺
VB code:
Option Explicit
Private Sub Command1_Click()
Dim intP As Integer
Dim intT As Integer
Dim intK As Integer
For intP = 0 To 1000
For intT = 0 To 1000
intK = CInt(1000 * Rnd)
If intK = 500 Then
Debug.Print "intP=" & CStr(intP) & " intT=" & CStr(intT)
GoTo LabX
End If
Next intT
LabX:
Next intP
End Sub
¸øÄã¸öÀý×Ó£º
For x = 1 To 10
'........................
If objRs.EOF Then Exit For
Next
Í˳ö¿ØÖƽṹ
Óà Exit Óï¾ä¿ÉÒÔÖ±½ÓÍ˳ö For Ñ»·¡¢Do Ñ»·¡¢×Ó¹ý³Ì»òº¯Êý¹ý³Ì¡£Exit Óï¾äµÄÓï·¨ºÜ¼òµ¥£ºExit For ÔÚ For Ñ»·ÖгöÏֵĴÎÊýûÓÐÏÞÖÆ£¬Exit Do ÔÚ Do Ñ»·ÖгöÏֵĴÎÊýҲûÓÐÏÞÖÆ¡£
For co
Ïà¹ØÎÊ´ð£º
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......