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)
Code:
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
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)
Code:
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
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
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