Attachments
-
You do not have permission to view the full content of this post. Log in or register now.
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
List box po dapat ung table nyaGaling 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
ah hehe di mo kasi sinabi kaninaList box po dapat ung table nya
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)
Sample code boss may papalitan daw doon pero di ko alamano yan boss? yan na ang ipapasa mo? nagawa mo na ba?
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
Boss ung multiplication table po ung code nya ang kailangan ko sample code ang pagbasan lng po bossView attachment 454938Code: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