相关试卷

Dim a(1 To 100) As Integer   '数组a存储合并前的区间

Dim b(1 To 100) As Integer   '数组b存储合并后的区间

Dim n As Integer    'n表示区间个数

Private Sub Command1_Click()

'读取数据库中的数据，存储到数组a中，并将区间个数存储在变量n中

'将区间信息输出在文本框Text1中，代码略

End Sub

Private Sub Command2_Click()

  Dim s As String, i As Integer, j As Integer, k As Integer, t As Integer

  For i = 1 To n - 1

    For j = 1 To 2 * n - 2 * i Step 2

      If   Then

        t = a(j): a(j) = a(j + 2): a(j + 2) = t

        t = a(j + 1): a(j + 1) = a(j + 3): a(j + 3) = t

      End If

    Next j

  Next i

  b(1) = a(1): b(2) = a(2)

  k = 2: i = 2: j = 3

  Do While j <= 2 * n

    If b(i) >= a(j) Then

      If b(i) <= a(j + 1) Then 

      ElseIf b(i) + 1 = a(j) Then

        b(k) = a(j + 1)

      Else

        k = k + 1:

        k = k + 1: b(k) = a(j + 1)

        i = i + 2

    End If

      j = j + 2

  Loop

  s = ""

  For i = 1 To k - 2 Step 2

    s = s & "[" & b(i) & "," & b(i + 1) & "]" & ","

  Next i

  s = s & "[" & b(i) & "," & b(i + 1) & "]"

  Text2.Text = s

End Sub

'以下代码是将有效密文数字转换为十进制数的函数

Function conv(p As String) As Integer

  Dim k As Integer, q As String, i As Integer

  k = 0: g = ""

  For i = 1 To 3

    q = Mid(p, i, 1)

  Next i

  conv = k

End Function

Private Sub Command1_Click()

  Dim st As String, p As String, res As String

  Dim c1 As String, c2 As String, c3 As String

  Dim i As Integer, d As Integer, n As Integer

  st = Text1.Text: n = Len(st)

  i = 1: res = ""

  Do While i <= n – 2        '提取有效密文，并进行转换

    c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1): c3 = Mid(st, i + 2, 1)

    If  Then

      d=conv(p)

    If d >= 32 And d <= 122 Then res = res + Chr(d)

    Else

      i = i + 1

    End If

  Loop

  Text2.Text = res

End Sub