Question

我的代码出现问题，我试图谷歌但是我无法修复它。我希望有人可以帮我解决我的代码出了什么问题。 TIA

这里是Proc_9_6_4163C4

Public Sub Proc_9_6_4163C4(arg_C, arg_10, arg_14) '4163C4
          'Data Table: 40170C
          Dim var_120 As Variant
        loc_4161D8:   On Error GoTo loc_4163C2
        loc_4161E1:   var_98 = CVar(arg_C) 'Variant
        loc_4161EB:   var_A8 = CVar(arg_10) 'Variant
        loc_4161F5:   var_C8 = CVar(arg_14) 'Variant
        loc_41620A:   ReDim var_CC(0 To CLng(Len(var_A8)))
        loc_416225:   ReDim var_D0(0 To CLng(Len(var_C8)))
        loc_41623E:   For var_150 = 1 To Len(var_A8): var_E0 = var_150 'Variant
        loc_41626F:     var_CC(CLng(var_E0)) = CByte(Asc(CStr(Mid(var_A8, CLng(var_E0), 1))))
        loc_41627E:   Next var_150 'Variant
        loc_416293:   For var_184 = 1 To Len(var_C8): var_E0 = var_184 'Variant
        loc_4162C4:     var_D0(CLng(var_E0)) = CByte(Asc(CStr(Mid(var_C8, CLng(var_E0), 1))))
        loc_4162D3:   Next var_184 'Variant
        loc_4162DE:   var_F0 = 1 'Variant
        loc_4162E7:   var_100 = 1 'Variant
        loc_4162FA:   For var_1A4 = 1 To Len(var_98): var_E0 = var_1A4 'Variant
        loc_416350:     var_B8 = var_B8 & Chr(CLng(Asc(CStr(Mid(var_98, CLng(var_E0), 1))) Xor CInt(var_CC(CLng(var_F0))) Xor CInt(var_D0(CLng(var_100))))) 'Variant
        loc_41636C:     If (var_F0 = Len(var_A8)) Then
        loc_416374:       var_F0 = 0 'Variant
        loc_416378:     End If
        loc_416384:     If (var_100 = Len(var_C8)) Then
        loc_41638C:       var_100 = 0 'Variant
        loc_416390:     End If
        loc_416398:     var_120 = (var_F0 + 1)
        loc_41639C:     var_F0 = Len(var_C8) 'Variant
        loc_4163A8:     var_120 = (var_100 + 1)
        loc_4163AC:     var_100 = Len(var_C8) 'Variant
        loc_4163B3:   Next var_1A4 'Variant
        loc_4163BE:   var_88 = CStr(var_B8)
        loc_4163C2:   Exit Sub
        End Sub

这是我的按钮上的代码点击

        Private Sub Command1_Click()
          Dim var_C0 As Variant
          Dim var_FC As Variant
          Dim var_13C As String
          Dim var_10C As String
        var_88 = Replace("B5BD-BEBA-BBB9-B8B8-BD", "-", vbNullString, 1, -1, 0)
        var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))
        For var_EC = 1 To CInt(Len(var_88)): var_E2 = var_EC 'Integer
             If ((var_E2 Mod 4) = 0) Then
              var_13C = "-"
              var_E8 = CStr(CVar(var_E8) & Hex(CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1))))) & var_13C)
             Else
               var_E8 = CStr(CVar(var_E8) & Hex(CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1))))))
             End If
             Next var_EC 'Integer
        var_D0 = (Right(var_FC, 1) = var_10C) 'Variant

        Text1.Text = (CStr(IIf(var_D0, CVar(Asc(CStr(Mid(var_88, CLng(var_E2), 1)))), var_E8)))
        End Sub

我遇到了这条线路的问题。：var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))

我尝试在var_88 = proc_9_6_4163C4（var_88，CStr（Chr（＆amp; HFF）＆amp; Chr（＆amp; HFE）＆amp; Chr（＆amp; HFD））上添加一些设置。）

我这样说set var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))

但我仍然没有得到任何结果。

Answer 1

要调用该过程，需要在调用

时传递3个参数

var_88 = Proc_9_6_4163C4(var_88, CStr(Chr(&HFF) & Chr(&HFE) & Chr(&HFD)))

只有2个参数。再传递1个参数。

VB6参数不可选

1 个答案: