Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

   If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。

数据加密规则：

数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。

数据个数小于16的数据段，直接得到加密数据段。

依次合并加密数据段，即为最后的加密数据。

位置变换的规制，方法如下：

具体界面如下图所示：

A=1：b=1：n=12

f(1)=a：f(2)=b

For i=3 to n

    c=a+b

    f(i)=c Mod 4

    a=b

    b=c

Next i

执行该段程序后，数组元素f(12)的值为（  ）

Private Sub Command 1_Click()

Dim i As Integer

Dim t As Integer

Dim s As String

i = 1:t = 1:n = Text1.Text

List1.Clear

Do While t< = n

  s = s + “*”

  If i = t Then

  List1.AddItem s

  t = t + 1

  i=0

 End If

i = i + 1

Loop

End Sub

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

 Dim b(4) As Integer     ‘数组b按位存储二进制数

Private Sub pprint(m As Integer)

‘本过程打印输出十进制数m和对应的二进制数

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

List1.Clear

List1.AddItem “十进制数 二进制数”

For i = 0 To 4

 b(i)=0

Next i

For i = 0 To 15

 Call pprint(i)     ‘打印输出一行

 j=       ‘①

 b(j)=b(j)+1

 Do While      ‘②

   b(j)=0

  j=j-1

  b(j)=b(j)+1

  Loop

Next i

End Sub

第①处修改为{#blank#}1{#/blank#}; 第②处修改为{#blank#}2{#/blank#}。