题目

卡普利加数又称雷劈数，是指将该数的平方数拆分成两部分，若这两部分的和与该数相等，则该数为卡普利加数。小陈编写VB程序，实现功能：文本框Text1输入一个正整数，单击“判断”按钮，在标签Label2中显示该数的平方，如果该数是卡普利加数,在标签Label3中显示两数和相加的等式，否则显示“该数不是卡普利加数”。运行界面如下图所示： （1） “判断”按钮的对象名为。 （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） 已知55是卡普利加数，根据以上程序，在文本框Text1中输入55，则标签Label3中显示的表达式是： 答案： 【1】Judge 【1】y = x^2 或 y = x * x 或其他等价答案【2】t1 + t2 = x 或 x = t1 + t2 或其他等价答案【3】i*10 或其他等价答案 【1】30+25=50

查看本题答案和解析