当前位置: 高中信息技术 / 综合题
  • 1. (2019高二上·金华月考) 编写找数程序,实现如下功能:单击“统计”按钮 Command1,在列表框 List1中依次显示所有满足条件(条件1.能被3整除;条件2.从左至右升序排列)的三位数(如:126),并在标签Label1中显示满足条件的个数。程序运行界面如下图所示:

    1. (1) 下图中的“找数程序”这4个字是通过修改窗体的属性来实现。
    2. (2) 实现上述功能的 VB 程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim s As Integer, n As Integer

      Dim a As Integer    'a表示百位数

      Dim b As Integer    'b表示十位数

      Dim c As Integer    'c表示个位数

      n = 0:s = 123

      List1.Clear

      Do While s <= 999

          a =    '此为第①处代码填空,通过Mid函数实现不给分

          b = s \ 10 Mod 10

          c = s Mod 10

          If a < b And b < c Then

              List1.AddItem Str(s)

              n = n + 1

          End If

          s =          '此为第②处代码填空

      Loop

      Label1.Caption = "共有" +  + "个数。"     '此为第③处代码填空

      End Sub

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