各位大哥门 小弟弟有段代码是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;
}
}
初始化为零
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;
}
}
解决方案 »
- LOGFONT的lfFaceName无效
- 百分求教: PDFCreator 能否添加页脚
- 索引图像处理的一些心得。
- 求助存储图片的问题,在线等待中...
- 如何用程序卸载一个软件!
- 请问怎么控制让DTPicker1今天以后的日期不可选呢?
- 没有人能解决的打印设置问题...
- 一个困惑我很长时间,而一直都没去解决的问题。:)
- 用 html workshop 如何做有ID的帮助 急急 听说要有一个*.H 的文件 望高手给祥解
- 如何清空回收站?
- 大家帮忙写一个宏吧
- 项目中用到excel功能。需要将excel.exe打包进去吗? (office2000时打包excle9.olb,可是office2003打谁呀)
szlicense As String * 16
identifier As String * 10
End TypeDim match(19) as MyStruct, i As IntegerFor i = 0 To 19
match(i).szlicense = String(16, Chr(0))
match(i).identifier = String(10, Chr(0))
Next i
for(int j = 0; j< 16; j++ )
{
match[i].szlicense[j] = 0;
}
也是为了让szlicense[j]数组中每个成员都为0(转换成字符就是chr(0)),共16个,是一样的