试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省宁波市九校2020-2021学年高二上学期信息技术期末联考试卷

数字之美“卡布列克数”:一个十进制整数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中显示的内容是
举一反三
返回首页

试题篮