Do °j°é¥i¥Î¨ÓµL¨î¦a°õ¦æ³¯z¦¡ªº©T©w°Ï¶ô¡C
Do °j°éªºÃþ«¬ | »¡©ú | ½d¨Ò |
---|---|---|
Do While ?Loop | Do While ...Loop ·|Åçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A´N±µµÛÅçºâ±ø¥ó¤§«áªº³¯z¦¡¡C
Åçºâµ²§ô«á¡A¦¹°j°é·|Ä~ÄòÅçºâ±ø¥ó¡A¦Ó¦pªG±ø¥ó¬° True¡A¤S·|¦A¦¸Åçºâ³¯z¦¡¡C ³oÓµ{§Ç·|Ä~Äò«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C |
Do While ±ø¥ó³¯z¦¡ Loop |
Do Until ...Loop | Do Until ...Loop »P Do While ...Loop Ãþ¦ü¡A¤£¦P¤§³B¦b©ó Do Until Loop ·|¤@ª½¶i¦æ³¯z¦¡ªºÅçºâ¡Aª½¨ì±ø¥óÅçºâµ²ªG¬° True¡A¦Ó¤£¬O·í±ø¥ó¬° True ®É¶i¦æÅçºâ¡C |
Do Until ±ø¥ó³¯z¦¡ Loop |
Do ...Loop While | ¤£½×¤°»ò±¡ªp¤§¤U¡ADo ...Loop While ¥u·|Åçºâ¤@¦¸³¯z¦¡¡C
µM«áÅçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A«h¦AÅçºâ¤@¦¸³¯z¦¡¡C³oÓµ{§Ç·|Ä~Äò«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C |
Do³¯z¦¡ Loop While ±ø¥ó |
Do ...Loop Until | »P Do ...Loop While Ãþ¦ü¡A¤£¦P¤§³B¦b©ó Do ... Loop Until ¦bÅçºâ¥X±ø¥óµ²ªG¬° True «e¡A³£·|¤@ª½Åçºâ³¯z¦¡¡C |
Do³¯z¦¡ Loop Until ±ø¥ó |
ª`·N Do °j°é¤ä´© Exit Do ³¯z¦¡¥ß§Y¸õ¥X°j°é¡CExit Do ³¯z¦¡»P For/Next °j°é¤¤ªº Exit For Ãþ¦ü¡C
Do While ...°j°é¤½¦¡½d¨Ò
¥H¤Uªº½d¨Ò·|·j´M¿é¤J¦r¦ê¤¤¥X²{ªº²Ä¤@ӼƦr¡C°²¦p§ä¨ì¼Æ¦r¡A·|¶Ç¦^¥¦¦b¦r¦ê¤¤ªº¦ì¸m¡A§_«h·|¶Ç¦^ 1¡C¦b¦¹½d¨Ò¤¤¡A±N¿é¤J¦r¦ê©ú½T¦a³]©w¬°¦r¦ê±`¼Æ¡A¦ý¬O¤]¥i¥H±N¥¦³]©w¬°µ¥©ó¦r¦ê«¬§O¸ê®Æ®wÄæ¦ì¡C
¨Ò¦p¡A¿é¤J¦r¦ê¡uThe 7 Dwarves¡v®É¡A¤½¦¡·|¶Ç¦^ 5¡A¤]´N¬O¼Æ¦r 7 ªº¦ì¸m¡C
Dim inString inString = "The 7 Dwarves" Dim i, strLen i = 1 strLen = Len (inString) formula = -1 Do While i <= strLen And formula = -1 Dim c As String c = Mid (inString, i, 1) If IsNumeric (c) Then formula = i i = i + 1 Loop