※ 引述《nowstop (傷心咖啡店之歌)》之銘言：
: 因為程式課老師要我們寫九九乘法表
: 剛學vb 不是非常的懂
: 希望大家能幫助我
: 感恩不盡 謝謝同血們 ^^
: 拜託啦 ：)
Private Sub cmdOK_Click()
lblShow.Caption = ""
For i = 1 To 9
For j = 1 To 9
If Len(CStr(j * i)) = 1 Then
ji_num = " " & CStr(j * i)
Else
ji_num = CStr(j * i)
End If
lblShow.Caption = lblShow.Caption & CStr(j) & "*" +
CStr(i) & "=" & ji_num & " "
Next
lblShow.Caption = lblShow.Caption & vbNewLine
Next i
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 221.169.5.131