第5章 习题与思考题和答案

C．A=C : C=B : B=AD．A=（A+B）/2 : B=（A – B）/2
4．下段程序执行的输出结果是。
S=0:T=0:U=0
For i=1 To 3
For j=1 To i
For K=j To 3
S=S+1
Next K
T=T+1
Next j
U=U+1
Next i
Print S;T;U
A．3 6 14B．14 63C．14 3 6D．16 4 3
Next j
If j>Int (Sqr(n-m))ThenPrint n,m,n-m
EndIf
Next m
Next n
EndSub
六
（1）编程序计算：1！+3！+5！+….+11！
（2）输入两个正整数m和n，求其最大公约数a和最小公倍数b，计算最大公约数a的方法如下：先算出m/n余数r,若r等于0，则n为最大公约数；若r不为0，则把原来的n值作为新的m值，把原来的r值作为新的n值，继续运算。这样辗转相除，直到r为0，此时的n值为最大公约数a,最小公倍数则可用原始m与n值的积除以最大公约数求得。
Private Sub Form_click()
Dim k,a,b as integer
a=20
b=2
k=2
Do While k<=a
b=b*2
k=k+5
Loop
Print b
End Sub
5.写出以下程序在单击命令按钮后的输出结果。
Private Sub Form_click()
k=0
fori=1 to 5
If n <= 0 Or m <= 0 Then
MsgBox "数据有误"
End
End If
mn = m * n
If m < n Then
t = m: m = n: n = t
End If
Do While (n <> 0)
r = m Mod n: m = n: n = r
Loop
Form1.Print "最大公约数="; m
2.①Len(str1)②length③Mid(str1,i,2)④Sum=0
3.①i mod 7=5 andi Mod 5 = 3 And i Mod 3=2②i<1000
4. (1)x>=0 (2)x<amin
5.①last_one = laat_two②last_two = this_one③i=i+1④i-2
7．以下程序循环的执行次数是。
a=0
Do while a<=10
a=a+2
loop
A．4B．5C．6D．7
三、填空题
1.由下列循环语句控制的循环次数是。
For k=25 to 0 step-2
k=k-2
Next k
2.循环结构的三种语句是：、、。
3.写出Fori= -12 To –33 Step –4所进行的循环后，i的值是。
Private Sub Form_Click()
Dim str1 As String'在字符串str1中查找"at"
Dim length As Integer'字符串长度
Dim sum As Integer'查到的个数
Dim i As Integer
str1 = InputBox("请输入一个字符串")
Private Sub Form_Click()
Dim i As Integer
For i = 5 To 1000 Step 7
If⑴Then Exit For
Next i
If⑵Then Print i
End Sub
4．以下程序的功能是：从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请填空。
2．Do-Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。
3．Do-Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。
4．一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。
5．For循环语句正常结束（即不是通过Exit For语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。
For i = 1 To 6
For j = i To 6
Form1.Print star;
Next j
Form1.Print
Next i
End Sub
写出程序运行后，单击窗体后，Form1上输出结果为。
五、程序填空题
1.下面程序的功能是：计算f=1－1/（2*3）+1/（3*4）－1/（4*5）+……+1/（19*20）。
6．如果有多重Do循环嵌套，位于最里层循环体语句中的Exit Do语句可以退出所有的循环。
7．For-Next循环结构的默认步长为1。
8．Do-Loop语句是循环结构的一种特殊形式，如果循环体中没有Exit Do语句，程序运行就一定会进入死循环。
二、选择题
1．循环结构For i！=1 to 10 step 1.5共执行几次。
Dim last_one As Long，last_two As Long，this_one As Long，i As Integer
last_one = 1'数列的第二个数
last_two = 2'数列的第三个数
i = 4'从数列的第四个数求起
Do
this_one = last_one + last_two
Dim x As Long, y As String
x = InputBox("输入一个数")
Do While x <> 0
y = y & x Mod 10
y = x Mod 10 & y
x = x \ 100
Print y
Loop
End Sub
3．写出程序运行后，单击窗体Form1上显示的内容。
Private Sub Form_Click()
for j=1 to 3
if j mod 2<>0 then
k=k+1
end if
k=k+1
next j
nextБайду номын сангаасi
Print k
End Sub
6．Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim star As String
star = "#"
Form1.Print "最小公倍数="; mn / m
End Sub
（3）
Private Sub Form_Click()
Dim i%, j%
For i = 1 To 5
Print Spc(20 - i);
For j = 1 To 2 * i - 1
Print Trim(Str(i));
Next j
四、程序阅读题
1．写出以下程序在单击窗体后的输出结果。
Private Sub Form_click()
mun=4
while mun<=3
mun=mun+1
Print mun
Wend
Print mun
End Sub
2．程序运行时单击Command1后，输入12345678，写出窗体上的输出结果。
Private Sub Command1_Click()
PrivateSubForm_Click()
Dim f As Single,i As Integer,sign As Integer
⑴
f = 1
⑵
⑶
f = f + sign / (i * (i + 1))
Next i
Print "f="; f
End Sub
2．下面的程序是在一个字符串变量中查找"at"，并用消息框给出查找结果的报告：没有找到或找到的个数，程序如下：
For j = 1 To i
s = s * j
Next j
Sum = Sum + s
Next i
Print Sum
End Sub
（2）
Private Sub Form_Click()
Dim m%, n%, mn%, r%, t%
m = Val(InputBox("m="))
n = Val(InputBox("n="))
loop
print“max=”;amax;”min=”;amin
End Sub
5．现面的程序功能是：求Fabonia数列的第17个数是多少？第几个数起每个数都超过1E+8？
Public SubForm_Click()'Fabonia数列的前三个数是0，1，2，从第
四个数起，每个数都是它前面的两个数之和
Dim nAsInteger,mAsInteger
DimiAsInteger,jAsInteger
For n=100 to 200Step 2
For m=2To (n/2)
Fori=2ToInt(Sqr(m))
If mModi=0ThenExitFor
Nexti
If⑴Then