visual basic .NET 笔记
循环
1.先执行一遍 然后在判断是否继续下次执行
Do
代码块
Loop While( 条件 )
2. 先判断,然后在循环
Do While()
Loop
3.For循环
For 变量名 = 初始值 To 终止值 [Step 步长]
Next
练习题
-
计算1+3+5......+100的奇数和,分别用Do....Loop.For语句实现循环。
Dim i As Integer = 1, num As Integer = 0 'Do While循环 Do While i < 100 num += i i += 2 Loop 'For循环 For i = 1 To 100 Step 2 num += i Next i MsgBox(num)
-
输出ASCII对应表 32-126
结果 Dim ascil, i As Integer For ascil = 32 To 126 RichTextBox1.Text &= Chr(ascil) & "=" & ascil & Space(8 - Len(Trim(ascil))) i += 1 If (i Mod 7 = 0) Then RichTextBox1.Text &= vbCrLf End If Next ascil 结果------------------------------------------------- ' =32 !=33 "=34 #=35 $=36 %=37 &=38 '=39 (=40 )=41 *=42 +=43 ,=44 -=45 '.=46 /=47 0=48 1=49 2=50 3=51 4=52 '5=53 6=54 7=55 8=56 9=57 :=58 ;=59 '<=60 ==61 >=62 ?=63 @=64 A=65 B=66 'C =67 D=68 E=69 F=70 G=71 H=72 I=73 'J =74 K=75 L=76 M=77 N=78 O=79 P=80 'Q =81 R=82 S=83 T=84 U=85 V=86 W=87 'X =88 Y=89 Z=90 [=91 \=92 ]=93 ^=94 '_=95 `=96 a=97 b=98 c=99 d=100 e=101 'f =102 g=103 h=104 i=105 j=106 k=107 l=108 'm =109 n=110 o=111 p=112 q=113 r=114 s=115 't =116 u=117 v=118 w=119 x=120 y=121 z=122 '{=123 |=124 }=125 ~=126