Private Sub Command1_Click ( )

Dim s As single, sl As single

Dim tmp As String, ans As String

Dim i As Integer, j As Integer

s = Text1. Text

s1 = “”

For i =1 To Len (s)

    s1 =s1 & ToUpcase (     ①       )

Next i

i = i

Do While i < Len(s1)

  tmp = Mid(sl, i, 1)

  ans = ans &“(”& tmp & “,”

  j = i+1

  Do While j < = Len(s1) And Mid(s, j, 1)=tmp

    j = j+1

  Loop

  ans =ans &     ②      & “)”

    ③  

Loop

Text2. Text = ans

End sub

Function ToUpcase (c As String) As string

  If c > =”a” And c < = “z” Then

    ToUpcase= Chr(Asc(c)-32)

  Else

    ToUpcase= c

  End if

End Function

① ② ③ 

Const maxn = 500005

Dim n As Long， a As Long， b As Long

Dim f(1 To maxn) As Long

Dim i As Long， tby As Long

Private Sub Command1_Click()

    tby = 1

    n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)

    For i = 1 To n

        f(i) = Getin()

    Next i

    Dim l As Long， r As Long， m As Long

    l = 0: r = n

    Do While l <= r

        m = (l + r) / 2

        If Then

            r = m - 1

        Else

            l = m + 1

        End If

    Loop

    Label1.Caption = Str(r + 1)

End Sub

Function check(x As Long)

    Dim y As Long

    y = x

    For i = 1 To n

    Dim tmp As Long

    If tmp > 0 Then

        If y < 0 Then

            check = True

            Exit Function

        End If

    Next i

    check = False

End Function

Function Getin() As Long

    Dim aaa As String

    aaa = Mid(Text4.Text， tby， 1)

    If aaa = " " Then tby = tby + 1

    aaa = Mid(Text4.Text， tby， 1)

    Dim bbb As Long

    bbb = 0

    Do While aaa <> " " And tby <= Len(Text4.Text)

        bbb = bbb * 10 + Val(aaa) : tby = tby + 1

        aaa = Mid(Text4.Text， tby， 1)

    Loop

    Getin = bbb

End Function

Private Sub Command1_Click ( )

Dim n As Integer, s As String, i As Integer, ss As String

Dim a As Integer    ‘存储加密前字符的 ASCII码

Dim b1 As Integer, b2 As Integer    ‘分别存储分割、转换后的两个十进制数

s = Text1. Text

n = Len (s)

For i = 1 To n

  a =     ①     

  b1 = a\16

  b2 =a Mod 16

  ss= ss + Code2 Char(b1) + Code2 Char(b2)

  Text2. Text=ss

Next i

End Sub

‘十进制值转换为加密字符的函数

Function Code 2 Char(c As Integer) As string

Dim s As String

s = “IlikeCHNpostcard”

Code2Char =     ②     

End Function

① ② 

Const n=5

Dim a（1 To 10）As Integer

Private Sub Command1_Click( )

  Dim i, j, t As Integer

  For i=1 Ton-1

      For j=n To i+1 Step-1

          If    ①   Then

              t=a（j-1）：a（j-1）=a（j）：a（j）=t

          End If

      Next j

  Next i

  For i=1 To n

      Text2. Text=Text2. Text+Str（a（i））

Next i

End Sub

Private Sub Form_Load( )

  Randomize

  For i=1 To n

    a（i）=   ②   

    Text1. Text=Text1. Text +Str（a（i））

  Next i

End Sub

Function cmp（a As Integer,b As Integer） As Boolean

  If Str（a）+Str（b）<Str（b）+Str（a） Then

    cmp=True

  Else

    cmp=False

  End If

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

操作1：在文本框Text1，Text2，Text3中依次输入1，8，3后，点击按钮Command1

操作1：在文本框Text1，Text2，Text3中依次输入7，9，2后，点击按钮Command1

操作2：在文本框Text4中输入6后，点击按钮Command2

Const n=10

Dim a(1 To n)As String

Dim dbj(1 To n)As Integer    ‘依次表示每段的标记值

Dim bk As Integer       ‘表示每段的元素个数.

Private Sub Form_Lond()

  bk = Int(Sqr(n))

  ‘读取数据，并存储到数组a中，代码略

  ‘读取数据，并存储到数组dbj中，代码略

End Sub

Function bl(x As Integer)As Integer   ‘bl函数返回数组元素a(x)的段编号

  bl=

End Function

Private Sub Command1_Click()

  Dim L Ax Integer, R As Integer, t As Integer

  L= Val(Text1.Text)

  R= Val(Text2.Text)

  t= Val(Text3.Texr)

  If bl(L)= bl(R) Then

    For i =L To R

      a(i)= Chr((Ase(a(i))- Ase("a")+t) Mod 26+97)

    Next i

  Else

    For i=L To bl(L)*bk

      a(i) = Chr((Ase(a(i))- Ase("a")+1) Mod 26+97)

  Next i

For i= bl(L)+ 1 To bl(R)-1

  dbj(i) = dbj(i) + t

Next i

For i =

      a(i) = Chr((Ase(a(i))-Ase("a") + 1) Mod 26 + 97)

    Next i

  End If

  List1. AddItem Str(L) +"," + Str(R) + "," + Str(t) +“加密完成!”

End Sub

Private Sub Command2_Click( )

  Dim M As Integer

  Dim jg As Suring

  M= Val(Text4. Tex1)

  If dbj(bl(M)) Mod2 = 0 Then

    Jg=

  Else

    jg= a(M)

  End If

Labell. Caption =“经过一 系列操作后. a(” + Str(M) +“)的值为:“+ ig

End Sub

Const MIN_ASC = 65       ′字母“A”的ASCII值

Function X2D(x As String) As String     ′字符串小写转成大写

Dim s As String, zf As String, i As Integer

s = “”

For i = 1 To Len(x)

zf = Mid(x, i, 1)

If zf >= “a” And zf <= “z” Then

            s = s +

Else

      s = s + zf
          End If
    Next i
    X2D = s

End Function

Private Sub Command1_Click()

Dim M As String, K As String, C As String, flag As Boolean

Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer

M = Text1.Text             ′明文

K = Text2.Text              ′密钥

t = Len(K)

K = X2D(K)                   ′将密钥全部转成大写

C = “ ”                      ′加密后的结果

For i = 1 To Len(M)

ch = Asc(Mid(M, i, 1))

flag = False

If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True

  pos =                ′密钥的字符位置值

If pos = 0 Then pos = t

      j = Asc(Mid(K, pos, 1))               ′密钥字符的ASCII值

     ch = ch - MIN_ASC

     j = j - MIN_ASC

      ch =

      ch = ch + MIN_ASC

  If flag Then ch = ch + 32         ′设置字母的大小写形式

     C = C & Chr(ch)

Next i

Text3.Text = C

End Sub