緊急!! 有哪會大大會....9*9表

Question

9*9乘法表
題目 在這裡 http://quietmes.myweb.hinet.net/multiplication table.htm

請問一下唷 程式中的 > IIf < 這是什麼函數
是否可以請大大說明一下 謝謝

請問兩位大大那個5是什麼意思阿~~
兩位大大有用5 那個代表什麼阿!!為什麼都要用??
從何得知要用 5 阿?? 可以交我看一下嗎!!

Answer 1

Private Sub Command1_Click()   Cls   L = 5   R = 5   For i = 1 To 9      '因為 i=1與i=9這兩種情形都要全部輸出,所以將flag設為true , 其他情形則設false      If i = 1 Or i = 9 Then flag = True Else flag = False            ' j迴圈是重點,必須要讓j=2時中間那個字不輸出,接著j=3中間三個字不輸出...      For j = 1 To 9         '輸出空白間隔         Print Space(2 + 4 - Len(i * j) * 2);                  '若 j>=L 且 j <=R  且 flag為false  , 則Ptmp設為True         Ptmp = (j >= L And j <= R) And (flag = False)                  '若Ptmp為true , 則不輸出字 , 反之才輸出         Print IIf(Ptmp, Space(6), i * j);      Next      Print      '若flag為false      If flag = False Then         '若 i>=5 (下半部),則將L+1 , 反之則將L-1         L = IIf(i >= 5, L + 1, L - 1)                  '若 i>=5 (下半部),則將R-1 , 反之則將R+1         R = IIf(i >= 5, R - 1, R + 1)      End If   NextEnd Sub'整體流程''i = 1'   flag為false , 所以後面的Ptmp一定會變False'   j迴圈跑9次 , 每次都會輸出數字'i = 2'   flag為true , L = 5, R = 5, j >= 5 And j <= 5'   j迴圈會跑9次 , 其中只有當j=5時 ,'   j>=5 and j<=5這個判斷才會成立 , 所以5就不會被輸出'i = 3'   flag為true , L = 4, R = 6, j >= 4 And j <= 6'   j迴圈會跑9次 , 其中j=4 ~ j=6三種狀況時 ,'   j>=4 and j<=6這個判斷都會成立 , 所以12 15 18都不會被輸出'i = 4'   flag為true , L = 4, R = 6, j >= 3 And j <= 7'   j迴圈會跑9次 , 其中j=3 ~ j=7五種狀況時 ,'   j>=3 and j<=7這個判斷都會成立 , 所以12 16 20 24 28都不會被輸出'i = 5'   ....'i = 6'   ....'i = 7'i = 8''i = 9'   flag為false , 所以後面的Ptmp一定會變False'   j迴圈跑9次 , 每次都會輸出數字'L = IIf(i >= 5, L + 1, L - 1)等同於If i >= 5 Then　L = L + 1Else　L = L - 1End IfIIF( 判斷式 , 判斷式成立時之處理 ,  判斷式不成立時之處理)

Answer 2

8*5..是40吧!..哇~別打我=O=|||

Answer 3

ANS:
------------------------------------------------------
Private Sub Form_Activate()
Open App.Path & "\result.txt" For Output As #1
Dim a(9, 9) As String
For i = 1 To 9
For j = 1 To 9
b = i * j
a(i, j) = Str(b)
If Abs(5 - i) <= 3 Then
If j >= Abs(5 - i) + 2 And j <= 8 - Abs(5 - i) Then
a(i, j) = " "
End If
End If
Print #1, Format(a(i, j), "@@@@");
Next j
Print #1,
Next i
End Sub

Answer 4

九九乘法表ㄚ,97 63,84 32,85 45...喝