题目

数字之美“卡布列克数”：一个十进制整数X，X的平方可以分割为两个数字，如果这两个数字相加之和恰好等于X，那么X就是卡布列克数。如1，9，10，45……。因为9^2=81，9＝8+1，所以9是卡布列克数；45^2=2025，45＝20+25，所以45是卡布列克数。小朱编写VB程序验证输入的数是不是卡布列克数。具体功能如下：在文本框Text1中输入一个数，单击“验证”按钮，结果显示在标签Label2中，运行界面如图所示   （1） 若要清空文本框Text1的内容，则修改文本框的属性。 （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()     Dim x As Integer, m as double, n As Integer     Dim num1 as Long, num2 as Long     Dim s As String, flag as Boolean, i as Integer     x = val(Text1.Text)     m = x ^ 2     s = Trim(Str(m))      ‘Trim函数去除字符串首尾空格     n = len(s)     For i = 1 to n         num1 =         num2 = Val(Mid(s,i+1,n-i))         If   Then             Flag = True             Exit For         End If     Next i     If flag Then         Label2.Caption=Str(x)+ "=" +Str(num1)+ "+" + mid(s,i+1)+ ",是卡布列克数！"     Else         Label2.Caption = Str(x) + "不是卡布列克数！"     End If  End Sub （3） 若文本框Text1中输入的内容是“55”（不包括引号），单击“验证”按钮后，Label2中显示的内容是。 答案： 【1】Text 【1】Val(Mid(s,1,i))【2】x=num1+num2 【1】55=30+25 , 是卡布列克数！

查看本题答案和解析