相关试卷

Dim a(1 To 32) As Integer

Dim b( 1 To 10) As Integer

Private SubCommand1_Click()

    '随机生成有解的数据，并在列表框

List1中输出，代码略

End Sub

Private Sub Command2_Click()

    Dim n As Integer， i As Integer， x As Integer

n=0

    For i= 1 To 32

        If a(i) = 0 Then

           n=n+1：b(n)=i

        End If

    Next i

    x=1

    Do While x<=n

        If a(b(x) ) = 0 Then

          If   ①   Then x= 0

        End If

        x=x+1

    Loop

    '将结果按规定格式在列表框List2中输出，代码略

End Sub

Function R check(x As Integer) As Boolean

    Dim count As Integer， sum As Integer， y As Integer， i As Integer

    check=False

    If a(x) <>0ThenExit Function

    count=0：sum=0：y=  ② 

    For i= 1 To 8

       If a(y*8+i) = 0 Then count =count+ 1

        sum=sum+a(y*8+i)

    Next i

    If count = 1 Then

        a(x)=   ③   ：R check=True

    End If

EndFunction

Function C check(x As Integer) As Boolean

    '用于验证是否为本列唯一空缺， 如果是则填入值并返回True， 否则返回False

    '实现上述功能的代码略

EndFunction

①②③

Private SubCommand1_Click()

Dim a( 1 To 100) As Integer， b( 1 To 100) As Integer， c( 1 To 1000) As Integer

Dim t As Integer， k As Integer， i As Integer， jAs Integer

Dims1As String， s2As String， output As String

s 1=Text 1.Text：s2=Text2.Text：Text3.Text=“”

For i=1 To Len(s1)

    a(i)=  ①     ‘将文本框Text 1中的自然数按从低位到高位的顺序依次存放在数组a(1)，a(2) ……a(len(s1))中

Next i

‘将文本框Text2中的自然数按从低位到高位的顺序依次存放在数组b(1)，b(2) …… b(len(s2))中，代码略

    len c=Len(s1) +Len(s2) -1

    For i=1 To Len(s1)

        For j=1 To Len(s2)

          c(i+j-1)=c(i+j-1)+a(i)*b(j)

       c(i+j)=  ② 

       c(i+j-1) =c(i+j-1) Mod 10

    Next j

  Next i

  If c(len c+1) > 0 Then   ③ 

  Do While c(len c) =0Andlenc> 1 (2)

       len c=len c-1

  Loop

  output=“”

  For i=len c To 1 Step-1

      output=output+Mid(Str(c(i))，2，1)

  Next i

  Text 3.Text=output

End Sub
①②③