Question

VC代码转成VB的，高分！

急哦
要转化的是下面的内容：
CHAR *strX[5];
for (UINT i=0; i<5; i++)
strX[i] = (CHAR *)malloc(100);
XScan((char *)strX);

注明: XScan是一个DLL文件的子程序.

一楼给的程序运行后出现下面错误。
Compile error:
ByRef argument type mismatch

XScan ( strX as byte) 'strX 的类型应该为Byte,不是string...

Answer 1

Option Explicit

Private Declare Function XScan Lib "Simple.dll" (ByRef aa() As String)

Private Sub Form_Load()
Dim strX(5) As String
Dim i As Integer
For i = 0 To 4 Step i = i + 1
strX(i) = Space(100)
Next
XScan strX()
End Sub