100分！跪求以下C#代码转为VB.Net
private void button1_Click(object sender, System.EventArgs e)
{
int rows = Int16.Parse(textBox1.Text);//行数
int cols = Int16.Parse(textBox2.Text);//列数
string[][] data = new string[rows][];
int i, j;
for(i = 0 ; i < rows ; i ++)
{
data[i] = new string[cols];
for(j = 0 ; j < cols ; j ++)
{
data[i][j] = i.ToString() + ", " + j.ToString();
}
}
DataTable dt = new DataTable();
for(j = 0 ; j < cols ; j ++)
{
dt.Columns.Add( "列名 "+j.ToString(), typeof(string));
}
for(i = 0 ; i < rows ; i ++)
{
dt.Rows.Add(data[i]);
}
dataGrid1.DataSource = dt;
}
[解决办法]
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rows As Integer = Int16.Parse(textBox1.Text)
Dim cols As Integer = Int16.Parse(textBox2.Text)
Dim data(rows)() As String
Dim i As Integer
Dim j As Integer
i = 0
i = 0
While i < rows
data(i) = New String(cols) {}
j = 0
j = 0
While j < cols
data(i)(j) = i.ToString + ", " + j.ToString
System.Math.Min(System.Threading.Interlocked.Increment(j),j-1)
End While
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
End While
Dim dt As DataTable = New DataTable
j = 0
j = 0
While j < cols
dt.Columns.Add( "列名 " + j.ToString, GetType(String))
System.Math.Min(System.Threading.Interlocked.Increment(j),j-1)
End While
i = 0
i = 0
While i < rows
dt.Rows.Add(data(i))
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
End While
dataGrid1.DataSource = dt
End Sub
[解决办法]
C#代码转为VB.Net
http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rows As Integer = Int16.Parse(textBox1.Text)
Dim cols As Integer = Int16.Parse(textBox2.Text)
Dim data(rows)() As String
Dim i As Integer
Dim j As Integer
i = 0
i = 0
While i < rows
data(i) = New String(cols) {}
j = 0
j = 0
While j < cols
data(i)(j) = i.ToString + ", " + j.ToString
System.Math.Min(System.Threading.Interlocked.Increment(j),j-1)
End While
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
End While
Dim dt As DataTable = New DataTable
j = 0
j = 0
While j < cols
dt.Columns.Add( "列名 " + j.ToString, GetType(String))
System.Math.Min(System.Threading.Interlocked.Increment(j),j-1)
End While
i = 0
i = 0
While i < rows
dt.Rows.Add(data(i))
System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)
End While
dataGrid1.DataSource = dt
End Sub
[解决办法]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rows As Integer = Int16.Parse(TextBox1.Text) '行数
Dim cols As Integer = Int16.Parse(TextBox2.Text) '列数
Dim data()() As String = New String(rows)() {}
Dim i, j As Integer
For i = 0 To rows - 1
data(i) = New String(cols) {}
For j = 0 To cols - 1
data(i)(j) = i.ToString() + ", " + j.ToString()
Next
Next
Dim dt As New DataTable
For j = 0 To cols - 1
dt.Columns.Add( "列名 " + j.ToString(), GetType(String))
Next
For i = 0 To cols - 1
dt.Rows.Add(data(i))
Next
dataGrid1.DataSource = dt
End Sub
