🔒 Closed Help vb. net code nito pls

[Amber21]

 

[the_flash]

Galing kay stackoverflow
patry boss
yung txtfinal yung textbox nung pagiinputan ng number palitan mo nlang

basta ayan yung code sa loob ng button event (click event)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim final As Integer
    If Integer.TryParse(txtfinal.Text, final) Then
        If final >= 2 AndAlso final <= 20 Then
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine(final.ToString)

            For col As Integer = 1 To final
                sb.Append(vbTab & col.ToString() & " ")
            Next
            sb.Append(vbCrLf & vbCrLf)

            For row As Integer = 1 To final
                sb.Append(row.ToString)

                For col As Integer = 1 To final
                    sb.Append(vbTab & (row * col).ToString)
                Next

                sb.Append(vbCrLf)
            Next

            txttable.Text = sb.ToString
            Exit Sub
        End If
    End If



End Sub

Sample input and output

=

Input number: 5

Output:

1 1 2 3 4 5
2 2 4 6 8 10
3 3 6 9 12 15
4 4 8 12 16 20
5 5 10 15 20 25

 

[Amber21]

Galing kay stackoverflow
patry boss
yung txtfinal yung textbox nung pagiinputan ng number palitan mo nlang

basta ayan yung code sa loob ng button event (click event)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim final As Integer
    If Integer.TryParse(txtfinal.Text, final) Then
        If final >= 2 AndAlso final <= 20 Then
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine(final.ToString)

            For col As Integer = 1 To final
                sb.Append(vbTab & col.ToString() & " ")
            Next
            sb.Append(vbCrLf & vbCrLf)

            For row As Integer = 1 To final
                sb.Append(row.ToString)

                For col As Integer = 1 To final
                    sb.Append(vbTab & (row * col).ToString)
                Next

                sb.Append(vbCrLf)
            Next

            txttable.Text = sb.ToString
            Exit Sub
        End If
    End If



End Sub

List box po dapat ung table nya

 

[the_flash]

List box po dapat ung table nya

ah hehe di mo kasi sinabi kanina

edi imbis na txttable.Text = sb.ToString



try mong gawin ListBox1.Items.Add(sb.ToString)

 

[Amber21]

ah hehe di mo kasi sinabi kanina

edi imbis na txttable.Text = sb.ToString
Ito po sample code


try mong gawin ListBox1.Items.Add(sb.ToString)

 

[the_flash]

ano yan boss? yan na ang ipapasa mo? nagawa mo na ba?

 

[Amber21]

Sampl

ano yan boss? yan na ang ipapasa mo? nagawa mo na ba?

Sample code boss may papalitan daw doon pero di ko alam

 

[the_flash]

Public Class Form1
    Dim x, y, num As Integer
    Dim dis As String

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

        lbOutput.Items.Clear()

        For y As Integer = 1 To CInt(txtNumber.Text)
            dis = ""
            For x As Integer = 1 To y
                dis = dis & x & " "
            Next
            lbOutput.Items.Add(dis)
        Next

    End Sub
End Class

 

[Amber21]

Public Class Form1
    Dim x, y, num As Integer
    Dim dis As String

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

        lbOutput.Items.Clear()

        For y As Integer = 1 To CInt(txtNumber.Text)
            dis = ""
            For x As Integer = 1 To y
                dis = dis & x & " "
            Next
            lbOutput.Items.Add(dis)
        Next

    End Sub
End Class

View attachment 454938

Boss ung multiplication table po ung code nya ang kailangan ko sample code ang pagbasan lng po boss