首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > C# >

以下是VBA代码,哪位高手能帮小弟我改为C

2012-03-09 
以下是VBA代码,谁能帮我改为C#以下是VBA代码,谁能帮我改为C#function 35选7()Randomize (Time)Dim a(8)As

以下是VBA代码,谁能帮我改为C#
以下是VBA代码,谁能帮我改为C# 
function 35选7()
  Randomize (Time)
  Dim a(8) As Long
  Dim i As Integer, j As Integer

  For i = 1 To 7
  a(i) = Int(Rnd() * 35 + 1)
  For j = 0 To i - 1
  If a(i) = a(j) Then
  i = i - 1
  Exit For
  End If
  Next
  Next
end function



[解决办法]
35选7??
[解决办法]
int[] a = new int[7];
Random myR = new Random(unchecked((int)DateTime.Now.Ticks));


for (int i=0;i<7;i++)
{
a[i] = myR.Next(1,35);

for (int j=0;j<i-1; j++)
{
if(a[i] == a[j])
{
i-=1;
break;
}
}
}
[解决办法]

C# code
        public string _35选7()        {            //Randomize (Time)             long[] a = new long[8];//Dim a(8)    As Long             int i, j;  //Dim i As Integer, j As Integer             for (int i = 0; i < 7; i++)            {                a[i] = (int)(Rnd() * 35 + 1);                for (int j = 0; j < i; j++)                {                    if (a(i) == a(j))                    {                        i = i - 1;                        continue;                    }                                 }                            }        }
[解决办法]
这是要算彩票?
[解决办法]

 void test() 
{
Randomize (Time); 
long[] a =new long[8];
int i,j;
for (i=1;i<=7;i++)
{
a[i] = Int(Rnd() * 35 + 1);
for (j = 0; i <= i - 1; )
{
if (a[i] == a[j])
{
i = i - 1;
}
}
}
}
}




}
[解决办法]
不得不承认,我老了。。。

热点排行