当前位置: 高中信息技术 / 综合题
  • 1. 小明编写了一个VB程序,功能如下:输入一个不超过10000的整数,若该数的各位数字之积是其各位数字之和的倍数,则输出“Yes”,否则输出“No”。

    程序运行时,在文本框Text1中输入一个整数,单击“判断”按钮Command1后,在标签Label3中显示判断结果。程序运行界面如下图所示。

    1. (1) 在设计程序界面时,要清空标签Label3中的显示内容,应修改该标签的属性。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适代码。

      Private Sub Command1_Click()

          Dim x As Integer, h As Integer, k As Integer

          x = Val(Text1.Text)

          h = 0

          k=1

          Do While x > 0

              h = h + x Mod 10

              k=

              x = x \ 10

          Loop

          IfThen

              Label3.Caption = “Yes”

          Else

              Label3.Caption = “No”

          End If

      End Sub

    3. (3) 运行该程序,在文本框Text1中输入1234,单击“判断”按钮,显示的判断结果为

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