当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·温州期末) 卡普利加数又称雷劈数,是指将该数的平方数拆分成两部分,若这两部分的和与该数相等,则该数为卡普利加数。小陈编写VB程序,实现功能:文本框Text1输入一个正整数,单击“判断”按钮,在标签Label2中显示该数的平方,如果该数是卡普利加数,在标签Label3中显示两数和相加的等式,否则显示“该数不是卡普利加数”。运行界面如下图所示:

    1. (1) “判断”按钮的对象名为
    2. (2) 请在划线处填入合适的代码。

      Private Sub Judge_Click( )

          Dim x As Integer, i As Integer

          Dim y As Long, flag As Boolean

          flag = False

          x = Val(Text1.Text)

          i = 10

         

          Label2.Caption = "该数的平方是:" + Str(y)

          Do While y \ i > 0 And flag = False

              t1 = y \ i

              t2 = y Mod i

              If  Then

                  flag = True

                  Label3.Caption = Str(t1) + "+" + Str(t2) + " = " + Str(x)"

              End If

              i =

          Loop

          If Not flag Then Label3.Caption = "该数不是卡普利加数"

      End Sub

    3. (3) 已知55是卡普利加数,根据以上程序,在文本框Text1中输入55,则标签Label3中显示的表达式是:

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