查看完整版本: 請大大幫忙 我的九九乘法表???

論壇 › Visual Basic 語言 › 請大大幫忙 我的九九乘法表???

a0923308516 發表於 2009-4-30 11:32 AM

請大大幫忙 我的九九乘法表???

Private Sub Command1_Click()
Dim I, J As Integer
    Dim Z As String
   
    For I = 1 To 9
   
        If I = 0 Then
            Z = "*"
        Else
            Z = Z & Chr(13) & I
        End If
        
        For J = 2 To 9
        
            If I = 0 Then
                Z = Z & " " & J
            Else
           Z = Z & " " & (I * J)
            End If
        Next J
    Next I
    Print Z
End Sub
東西是出來了
但是程式沒有排列好
請大大幫我看一下哪裡錯了...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

Unlife 發表於 2009-4-30 12:31 PM

本帖最後由 Unlife 於 2009-4-30 12:33 PM 編輯

可以加個Tab去控制輸出位置，幫你改了一下，參考看看吧。
而且其實你的程式有一些地方是可以拿掉的，不會影響結果的，
不過這和問題無關，就沒幫你拿掉了，你自己再試試吧。

Private Sub Command1_Click()
Dim I, J As Integer
    Dim Z As String
   
    For I = 1 To 9
   
        If I = 0 Then
            Z = "*"
        Else
            Z = Z & Chr(13) & vbTab & I
        End If
        
        For J = 2 To 9
        
            If I = 0 Then
                Z = Z & " " & vbTab & J
            Else
           Z = Z & " " & vbTab & (I * J)
            End If
        Next J
    Next I
    Print Z
End Sub...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

a0923308516 發表於 2009-4-30 01:01 PM

謝謝大大幫我解決這個問題 ^^ 感恩

yyyyman 發表於 2009-4-30 09:38 PM

Option Explicit

Private Sub Command1_Click()
Dim I, J As Integer
    Dim Z As String
   
    For I = 1 To 9
   
        If I = 0 Then
            Z = "*"
        Else
            Z = Z & Chr(13) & Format(I, "00")
        End If
        
        For J = 2 To 9
        
            If I = 0 Then
                Z = Z & " " & Format(J, "00")
            Else
           Z = Z & " " & Format(I * J, "00")
            End If
        Next J
    Next I
    Print Z
End Sub...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

來也 發表於 2009-4-30 10:48 PM

我真的看不懂您的邏輯, I怎麼可能=0 ?<br><br><br><br><br><div></div>

x514838 發表於 2009-4-30 10:58 PM

這題99乘法是{:1_newconfused:}怎麼把VB6.0後面光碟附得99乘法改得?