在學校，在vb中學習了九九乘法表，只學習了上三角，而下三角苦苦的在上機課，試了一節課才試出來，感覺自己很笨，都是還是要把代碼分享出來。
上三角
dim se As String
Label1.Text = Space(35) & "九九乘法表" & vbCrLf
Label1.Text &= Space(35) & "------------" & vbCrLf
For i = 1 To 9
For j = 1 To i
se = i & "x" & j & "=" & i * j
Label1.Text &= se & Space(8 - Len(se))
Next j
Label1.Text &= vbCrLf
Next i
下三角
Dim se As String
Label1.Text = Space(35) & "九九乘法表" & vbCrLf
Label1.Text &= Space(35) & "------------" & vbCrLf
For i = 1 To 9
For j = i To 9
se = i & "x" & j & "=" & i * j
Label1.Text &= se & Space(8 - Len(se))
Next j
Label1.Text &= vbCrLf &space(8*i)
Next i
根據書本上寫的，寫的很簡單。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28609.html
標籤：VB基礎類
上一篇：擴展個人PC版微xin，非web協Y，有一個wetool，怎么實作的，怎么個思路，說是用HOOK，IDA_Pro ,PE 都研究了一大串，大神提供一下思路呀
下一篇：萌新求助