下面是VB6的代码
        Dim x As Integer, i As Integer
        x = InputBox("Enter value for number (1~10)", "Input x")
      
        For i = 1 To x
            Print String(x, "*")
        Next

VB.Net的

        Dim x As Integer, i As Integer
        x = InputBox("Enter value for number (1~10)", "Input x")

        
        For i = 1 To x
            Print StrDup(x, "*")
        Next