VB程序设计教程（第四版）龚沛曾习题答案 

9、 计算下列循环语句的次数

（1）For I = -3 to 20 step 4 6 （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 其它章节课后答案：请 ：答案管家

10、 下列30-90为语句标号，分别标记该语句，第40名共执行了几次，第50名共执行了几次，执行第90号语句后显示的结果是多少？ 30 For j =1 to 12 Step 3 循环4次

40 For k = 6 to 2 step -2 循环3次，被执行4次 50 mk = k 共执行4*3=12次 60 print j , k 70 next k 80 next j

90 print j , k , mk 13 0 2

其它章节课后答案：请 ：答案管家

11、 如果事先不知道循环次数，如何用for…Next结构来实现？

答：将循环终值设置得足够大，再在循环体内设置条件语句，满足条件退出循环。

12、 利用循环结构，实现如下功能： （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 3 = 0 then s3 = s3 +1 if I mod 7 = 0 then s7 = s7 +1 next i

（3）将输入的字符串以反序显示。例如，输入“ASDFGHJKL”，显示“LKJHGFDSA”。 s = InputBox(“ 请输入字符串”) for I = Len( s ) to 1 step -1 print Mid ( s, I, 1 ) next i

其它章节课后答案：请 ：答案管家

13、

下面程序的运行结果是什么？该程序的功能是什么？ 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

将20转换成2进制数表示

其它章节课后答案：请 ：答案管家

14、

下面程序的运行结果是什么？该程序的功能是什么？ Private Sub Command2_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的最大公约数和最小公倍数

15、 利用随机函数产生50~100范围内的20个随机数，显示其中最大值，最小值和平均值。

其它章节课后答案：请 ：答案管家

答案：

Private Sub Command3_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 \个随机数最大是:\最小值是:\平均值是:\End Sub