试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省湖州市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。

程序运行界面如图所示。

(1)、窗体中文字“被除数:”属于(选填,填字母:A . 文本框/B . 标签/C . 列表框)类的对象。
(2)、实现上述功能的VB程序如下,请在橫线处填入合适的代码。
Private Sub Command1_Click()

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

(3)、程序中加框处代码有错,请改正
举一反三
返回首页

试题篮