中文名字日文翻譯, 中文翻譯日文名字, 名字日文翻譯, 日文翻譯名字, 日文翻譯字典發音, 日文翻譯網 漢字,

我們老師給的程式碼
但是沒辦法跑出99乘法表
請問問題出在哪

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer
Dim s1 As String
s1 = "www.tsvs.ntpc.edu.tw"
Me.TextBox1.Text = Me.TextBox1.Text & Mid(s1, 1, 3)
Me.TextBox1.Text = Microsoft.VisualBasic.Left(s1, 3)
Me.TextBox1.Text = Microsoft.VisualBasic.Right(s1, 3)

For i = 9 To 1 Step -1
TextBox1.Text = TextBox1.Text & Str(i)

Next i

For i = 1 To 9
For j = 1 To 9

If (i * j) > 9 Then
TextBox1.Text = TextBox1.Text & Trim(Str(i)) & "*" & Trim(Str(i)) & "=" & Trim(Str(i * j)) & " "
Else
TextBox1.Text = TextBox1.Text & Trim(Str(i)) & "*" & Trim(Str(j)) & "=" & Trim(Str(i * j)) & " "
End If
Next j
TextBox1.Text = TextBox1.Text & vbNewLine
Next i
For i = 1 To 9
For j = 1 To 9
TextBox1.Text = TextBox1.Text & Trim(Str(i)) & "*" & Trim(Str(j)) & "="
If (i * j) < 10 Then
TextBox1.Text = TextBox1.Text & " "

End If
TextBox1.Text = TextBox1.Text & Trim(Str(i * j)) & " "
Next j
TextBox1.Text = TextBox1.Text & vbNewLine
Next i

TextBox1.Text = "1*1=1 1*2=2 1*3=3" & vbNewLine
TextBox1.Text = TextBox1.Text & "2*1=2 2*2=4 2*3=6"

End Sub
End Class

This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.