40分vb转换为C#

Question

For i=0 to Application("UserNum")-1
    txt=Application("User")(i)
    lItem=New ListItem(txt,txt)
    Userlist.Items.Add(lItem)Application("Chats")(count)=now & Session("User") & "对" & _
                  Userlist.SelectedItem.text & "说： " & send.text
'检测用户是否离线
   For i=0 to Application("userNum")-1
    If DateDiff(DateInterval.Second,Application("last")(i),now)>120 Then
      '当前用户离线处理
          '将用户列表和访问时间重新排列
          Dim j As Integer
          user=Application("user")(i)
          For j=i to Application("UserNum")-1
              Application("user")(i)=Application("user")(i+1)
              Application("last")(i)=Application("last")(i+1)
          Next 
          Application("Usernum")-=1
          '向信息中心发送信息
         If Application("Current")>=20 then
            Count=0
            Application("Current")=0
         Else
            count=Application("Current")
         End If
         Application("Chats")(count)=now & user & "断线!"
         Application("Current")+=1             
    End If

Answer 1

转的话，应是主要部分如
For i=0 to Application("UserNum")-1
...
Next For改为
int i=0;
int c= int.Parse(Application["UserNum"].ToString());
for(int i=0 ; i < c;i++)
{
...
}
不像VB，C#是强类型的，所以一定要转换，语法上你自己一看就明白了

Answer 2

你的VB版的都不对,
两个For,却没有next

Answer 3

可以在线转,网上这样的地方很多..
http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx

Answer 4

for (int i = 0; i <= Application("UserNum") - 1; i++) { 
 txt = Application("User")(i); 
 lItem = new ListItem(txt, txt); 
 Userlist.Items.Add(lItem); 
 Application("Chats")(count) = Now + Session("User") + "对" + Userlist.SelectedItem.text + "说： " + send.text; 
 for (int i = 0; i <= Application("userNum") - 1; i++) { 
   if (DateDiff(DateInterval.Second, Application("last")(i), Now) > 120) { 
     int j; 
     user = Application("user")(i); 
     for (int j = i; j <= Application("UserNum") - 1; j++) { 
       Application("user")(i) = Application("user")(i + 1); 
       Application("last")(i) = Application("last")(i + 1); 
     } 
     Application("Usernum") -= 1; 
     if (Application("Current") >= 20) { 
       Count = 0; 
       Application("Current") = 0; 
     } else { 
       count = Application("Current"); 
     } 
     Application("Chats")(count) = Now + user + "断线!"; 
     Application("Current") += 1; 
   } 
 } 
}
把两个next都加在最后面

Answer 5

我没有全贴上去,只是一部分我不能转的,或是转换之后有错误的!
像:string txt=Application("User")(i)
转换: txt=Application["User"][i]后就报错:无法将带[]的索引用于“object”类型的表达式