[.NET] VB2008~無法編譯
程式碼如下
using Microsoft.VisualBasic;
using Microsoft.VisualBasic.CompilerServices;
using System;
namespace sn
{
public class sn
{
public string CreateSn(int NumCnt, int ModNum)
{
int i1;
int k = 0;
string str2 = "";
NumCnt--;
int j2 = NumCnt;
for (i1 = 0; i1 <= j2; i1++)
{
int i2 = (int)Math.Round((double)(float)(Conversion.Int(9.0F * VBMath.Rnd()) + 1.0F));
str2 = String.Concat(str2, StringType.FromInteger(i2));
k += i2;
}
i1 = 0;
do
{
if ((k + i1) % ModNum == 0)
{
k += i1;
str2 = String.Concat(str2, StringType.FromInteger(i1));
break;
}
i1++;
}
while (i1 <= 9);
string str1 = str2;
return str1;
}
}
}
沒辦法完整執行完~"~
小弟vb新手~煩請高手指點!!
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.112.172.31
→
02/15 22:29, , 1F
02/15 22:29, 1F
推
02/15 23:41, , 2F
02/15 23:41, 2F
推
02/15 23:44, , 3F
02/15 23:44, 3F
推
02/15 23:48, , 4F
02/15 23:48, 4F
→
02/16 16:38, , 5F
02/16 16:38, 5F
推
02/16 16:53, , 6F
02/16 16:53, 6F
→
02/21 13:27, , 7F
02/21 13:27, 7F
推
02/26 10:42, , 8F
02/26 10:42, 8F