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
相关推荐：
loading