当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·湖州期末) 小李编写了“数字游戏”的VB程序,功能是查找符合下列条件的3个三位数:

    ①3个数中包含1-9的全部数字,且不重复;

    ②3个数的大小之比为1:2:3。

    如“192、384、576”是符合规则的一种组合。

    现编写程序功能如下:单击“计算”按钮Command1,在列表框List1中输出符合条件的数字组合,在标签Label1中输出组合数量。程序运行界面如图所示。

    1. (1) 上图程序运行界面中,有Caption属性的对象共 (填数字)类。
    2. (2) 实现程序功能的VB代码如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

          Dim f(0 To 9) As Integer

          Dim i As Long, j As Integer, s As Integer

          Dim tmp As Long, t As Integer, count As Integer

          count = 0

          For i = 123 To 333

              For j =

                  f(j) = 0

              Next j

              tmp = i + 2 * i * 1000 + 3 * i * 1000000

              Do While tmp > 0

                  t =

                  tmp = tmp \ 10

                  f(t) = 1

              Loop

              s = 1

              For j = 1 To 9

                  s = s * f(j)

              Next j

              IfThen

                  List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)

                  count = count + 1

              End If

              Label1.Caption = "共有" + Str(count) + "种组合"

          Next i

      End Sub

微信扫码预览、分享更方便