有关於vb6的程式码转成vb.net??
来源:百度知道 编辑:UC知道 时间:2024/05/27 20:52:14
Dim sum As Integer
For i = 1 To Text1
If (i Mod 3) = 0 Then
Print i;
End If
Next
For i = 1 To Text1
For j = 1 To Len(i)
If Mid(i, j, 1) = 3 Then
sum = sum + i
End If
Next
Next
Print sum
End Sub
以上是vb6的程式
可否帮我转成vb.net
谢谢。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l As New Label
Dim i, j As Integer
Dim text1 As Integer = 10
Dim sum As Integer
l.Width = 1024
l.Height = 768
Me.Controls.Add(l)
For i = 1 To Text1
If (i Mod 3) = 0 Then
l.Text &= i & vbCrLf
End If
Next
l.Text &= vbCrLf
l.Text &= vbCrLf
l.Text &= vbCrLf
For i = 1 To Text1
For j = 1 To Len(i)
If Val(Mid(i, j, 1)) = 3 Then
sum = sum + i
End If
Next
Next
l.Text &= sum & vbCrLf
End Sub
End Class