0 返回首页
1. 数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显 示在标签 Label1 中，运行界面如图所示。

(1) 程序运行时要在按钮上显示“统计”，应设置该按钮的属性。
(2) 为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()

    Dim n As Single, k As Integer, t As Integer, c As Integer

    List1.Clear c=0

    For n = 5 To 10000

        k = Len(Trim(n))    'Trim( )函数用于删除字符串前后的空格

        t = (n * n) Mod ①

        If t = n Then

            List1.AddItem Str(n)

            ②

        End If

    Next n

    Label1.Caption = "自守个数为：" + Str(c)

End Sub

为实现上述功能，划线处应填入的代码分别为
(3) 解决该问题采用了（选填：枚举/解析）算法。
【考点】
对象及其属性; 枚举算法及其程序设计; 程序设计工具;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 困难
能力提升
换一批
1. 零钱兑换。将一张100元面额的纸币兑换成零钱（5元、10元和20元中的任意多个面额），计算有几种换法。

程序代码：

count=0      #循环计数

for x in range(   ①   ):         #变量x表示20元纸币张数

  for y in range(   ②   ):  #变量y表示10元纸币张数

    if    ③   <=100:

          ④     

print("循环次数：",count)

(1) x取值范围：（x为整数）
(2) y取值范围：（y为整数）
(3) 在横线处填上合适的代码

①②③④
综合题 困难
2. 根据APP Inventor界面截图，完成填空。

 

(1) 从组件列表中可知，在设计界面添加了种组件；操作过程是拖动“”中的组件到工作区。
(2) 从组件列表中可知，需要将和 两种组件放入到水平布局组件中。
(3) 选中组件，利用“”修改各组件的属性。
(4) 完成界面设计后，需要对“后退”、“前进”、“Web浏览器”等组件进行编程，这需要在APP Inventor的界面完成。
(5) 请将下列积木块进行组合，将对应字母填在横线上。

①             a.

②           b.

③            c.

(6) 保存项目，执行“”—“保存项目”完成。
综合题 普通