close

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim myfile As Integer = My.Computer.FileSystem.ReadAllText("c:\vb\940302.SM")
        Dim i, j As Integer
        For i = 1 To myfile
            For j = 1 To i
                TextBox2.Text = TextBox2.Text & j
            Next
            TextBox2.Text = TextBox2.Text & vbCrLf
        Next
    End Sub

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 浮雲 的頭像
    浮雲

    missice's Blog

    浮雲 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄