充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 / 算法与程序设计 / 算法及程序语言基础 / 常量、变量及变量的赋值
  • 1. 编程找出100到1000之间满足以下条件的整数:该数和该数平方合并后的数字串中不存在重复的数字。例如209,其平方数为43681,209和43681合并后的数字串“20943681”中无重复数字,209就是符合条件的数。实现上述功能的VB代码如下,但加框处代码有错,请改正。

    Private Sub Command1_Click()

    Dim x As Integer, y As Long, st As String

    For x=100 To 1000

    y=x^2

    st=Str(x) & Str(y)

    If     Then    ‘①

    List1. AddItem"x: "& Str(x) & "x2: "&Str(y) &"x&y: "& Str(st)

    End If

    Next x

    End Sub

    Private Function judge(s As String) As Boolean

    Dim a(1 To 100) As String

    For i=1 To Len(s)

    a(i) =Mid(s, i, 1)

    Next i

    For i =1 To Len(s)-1

    For j=i+ 1 To Len(s)

    If  Then Exit Function.      ‘②

    Next j

    Next i

    Judge=True

    End Function

基础巩固 换一批