题型:综合题 题类:常考题 难易度:普通
浙江省湖州市2019-2020学年高二下学期信息技术期末调研测试卷
⑴除数乘以系数1、2、4、8…,得到相应的倍数,倍数不能超过被除数;
⑵被除数减去不超过被除数的最大倍数,得到新的被除数,以及该最大倍数对应的系数;
⑶重复步骤⑵直到被除数小于除数为止;
⑷将步骤⑵中得到的系数相加即为整除的结果。例如:计算100整除9(除数9的系数及倍数见下表):
系数 |
1 |
2 |
4 |
8 |
16 |
倍数 |
9 |
18 |
36 |
72 |
超过被除数100 |
计算过程如下:
①100-72=28,系数为8;②28-18=10,系数为2;
③10-9=1,系数为1;④1<9计算结束,整除的结果为:8+2+1=11。
程序运行界面如图所示。
Dims As Long, s1 As Long, t As Long, k As Long
Dim zc As Long, i As Integer
Dim a(1 To 50)As Long '数组a用于存储除数的倍数
s=Val(Text1.Text) '被除数
s1=s
t=Val(Text2.Text) '除数
k=1:i=0
Do While k*t<=s1
i=i+1
a(i)=k*t
Loop
zc=0
Do While '改错
If s1>=a(i) Then
s1=s1-a(i)
zc=zc+
End If
i=i-1
Loop
Label3.Caption=Str(s)+ “整除”+Str(t)+”的结果为:”+
End Sub
试题篮