vb濡備綍鐢熸垚鎸囧畾鑼冨洿鐨勫崄涓暟
鎮ㄥ彲浠ヤ娇鐢ㄥ惊鐜鍙ユ潵鐢熸垚鎸囧畾鑼冨洿鐨勫崄涓暟銆備互涓嬫槸涓€涓娇鐢‵or寰幆鐢熸垚鎸囧畾鑼冨洿鍗佷釜鏁扮殑绀轰緥浠g爜锛?/p>
Dim startNum As Integer = 1 '鎸囧畾鑼冨洿鐨勮捣濮嬫暟
Dim endNum As Integer = 10 '鎸囧畾鑼冨洿鐨勭粨鏉熸暟
For i As Integer = startNum To endNum
Console.WriteLine(i)
Next
鍦ㄦ绀轰緥涓紝閫氳繃璁剧疆startNum
鍙橀噺涓?鍜?code>endNum鍙橀噺涓?0锛屼娇鐢‵or寰幆閫愪釜鎵撳嵃鏁板瓧1鍒?0銆傛偍鍙互鏍规嵁闇€瑕佽皟鏁磋捣濮嬫暟鍜岀粨鏉熸暟銆?/p>