VC-VB懂的进解决方案

VC-VB懂的进各位大哥门小弟弟有段代码是VC的不知道怎样转换成VB,希望懂的高手麻烦给写下,多谢了Dimmatch[2

VC-VB懂的进
各位大哥门   小弟弟有段代码是VC的不知道怎样转换成VB,希望懂的高手麻烦给写下,多谢了

      Dim     match[20]   as     MyStruct;
初始化为零
for(int   i   =   0   ;   i   <   20;   i   ++)
{
          for(int   j   =   0;   j< 16;   j++   )
        {
                match[i].szlicense[j]   =   0;
        }  
          for(int   z   =   0;   z< 10;   z++   )
        {
                match[i].identifier[z]   =   0;
        }  
}


[解决办法]
Public Type MyStruct
szlicense As String * 16
identifier As String * 10
End Type

Dim match(19) as MyStruct, i As Integer

For i = 0 To 19
match(i).szlicense = String(16, Chr(0))
match(i).identifier = String(10, Chr(0))
Next i
[解决办法]
String(16, Chr(0)),表示16个chr(0)的字符串,而C中
for(int j = 0; j< 16; j++ )

match[i].szlicense[j] = 0;

也是为了让szlicense[j]数组中每个成员都为0(转换成字符就是chr(0)),共16个,是一样的