VB第4章 复习资料.docVIP

第4章 补充资料 习题解答 1．计算下列循环语句的次数： （1）For I= -3 To 20 Step 4 答：循环次数为6次。循环体内I的值分别为：-3，1，5，9，13，17；出了循环体后I的值为21。 （2） For I= -3.5 To 5.5 Step 0.5 答：循环次数为19次。 （3） For I= -3.5 To 5.5 Step -0.5 答：不循环，步长0，循环初值终值。 （4） For I= -3 To 20 Step 0 答：无数次，步长=0。 2. 下列30～90为语句标号，分别标记该语句，第40号语句共执行了几次，第50号语句共执行了几次，执行第90号语句后显示的结果是多少？ 30 For j = 1 To 12 Step 3 40 For k =6 To 2 Step -2 50 mk = k 60 Print j,k 70 Next k 80 Next j 90 Print j , k , mk 答：第40号语句共执行了4次，是外循环的循环体；第50号语句共执行了12次，是内循环的循环体，循环次数为两重循环次数的乘积；第90号语句显示的结果是13 0 2。 3．如果实现不知道循环次数，如何用For … Next 结构来实现？ 答：只要将循环的终值设置成一个非常大的值，然后再循环体内增加If语句，判断是否满足循环结束的条件。形式如下： For 循环变量 =1 To 非常大的数 … If 满足循环结束条件 Then Exit For … Next 循环变量 4．利用循环结构，实现如下功能： （1） 答： s =0 For i =1 To 10 s = s +( i+1)*(2* i +1) Next i （2）分别统计1～100中，满足3的倍数、7的倍数的整数各有多少？ 答： s3=0 s7=0 For i =1 to 100 If i mod 7=0 Then s7=s7 +1 If i mod 3=0 Then s3=s3+1 Next i （3）将输入的字符串以反序显示。如输入 “ASDFGHJKL”，显示 “LKJHGFDSA”。 答： s=InputBox(“输入字符串”) For i =Len(s) To 1 Step -1 Print Mid(s,i,1)； Next i 5．下面程序的运行结果是什么？该程序的功能是什么？ Private Sub Command1_ Click( ) Dim x＄,n％ n = 20 Do While n 0 a = n Mod 2 n = n\2 x = Chr(48 + a)＆ x Loop Print x End Sub 答：运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。 6.下面程序的运行结果是什么？该程序的功能是什么？ Print Sub Command1_Click( ) Dim x％,y％,z％ x = 242: y = 44 z =x * y Do Until x = y If x y Then x = x – y Else y = y – x Loop Print x, z/x End Sub 答：运行结果为22和484；该程序的功能是用相减法求x,y的最大公约数和最小公倍数。 7.利用随机函数产生50～100范围内的20个随机数，现实其中的最大值、最小值和平均值。 Private Sub Form_Click( ) Dim i％, min％ , max％ , avg％, x％ min = 100 ‘设置最小值、最大值和平均值的初态 max = 50 avg = 0 For i = 1 To 20 x = Int(Rnd * 51+50) Print x; If x max Then max = x If x min Then min = x avg =avg + x Next i Print Print “最小值=”；min , “最大值 =”；max, “平均值=”；avg/20 End Sub 常见错误和难点分析 1.一般循环控制变量在循环体内可以引用但不要被赋值 如在循环控