问一个关于Visual Basic 2010 操作问题，请给出正确操作步骤，原题如下，谢各路大神。

为你完成：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim zzc As Integer

        '分离数字

        Dim num As Integer = TextBox1.Text

        If num < 1000 Or num > 9999 Then

            MsgBox("您输入的数字有误！")

            Exit Sub

        End If

        Dim code(4) As Integer

        Dim i As Integer

        For i = 1 To 4

            code(i) = (Mid(num, i, 1) + 7) Mod 10

            'MsgBox(code(i))

        Next

        zzc = code(3) * 1000 + code(4) * 100 + code(1) * 10 + code(2)

        'dim zzc as string

        'zzc=code(3) & code(4) & code(1) & code(2) 

        Label2.Text = "Encrypted Number is " & zzc

    End Sub

End Class

private sub command1_click()
Dim a, b, c, d As Integer
a = Mid(Text1.Text, 1, 1) '取出第一位数字
b = Mid(Text1.Text, 2, 1) '取出第二位数字
c = Mid(Text1.Text, 3, 1) '取出第三位数字
d = Mid(Text1.Text, 4, 1) '取出第四位数字
a = Right(a + 7, 1) '数字+7，从右取第一个数字，比如相加等于10的取0
b = Right(b + 7, 1)
c = Right(c + 7, 1)
d = Right(d + 7, 1)
Text2.Text = c & d & a & b '组成数字
end sub
当然了楼主自己再加入错误判断就可以了，比方说数字了非数字，小于或者大于四位数的情况等等。

你要是传电影那最好就是移动硬盘

因为你不能一个电影一个电影的传吧 移动硬盘比较u盘mp3空间大很多

使用方法就是
1：连接硬件（移动硬盘）
2：复制或者剪切你要传的电影
3：粘贴到你的移动硬盘上
4：安全解除硬件
5：回你自己电脑看去

用B中的公式校验 若不同在A中标颜色 在批注里写差值,搞个简单几列 意思可以使用vba解决，需要的话可以百度HI我。 Sub 比较() Dim rng As Range

--虽然大异小同，但楼上白忙活，楼主要的是 VB.net