繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限觀看附件圖片尊貴會員無限看帖不用回覆安全提問(回答) 和 永久尊貴會員 事宜
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › 如何用ASP 做出九九乘法表
mega無碼rionjulia母母乳世紀帝國國中
風間ゆみ艋舺fdd 20594399546レベッカholicdespot’
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]我的英雄學院 Mem
[繁]老夫老妻重返青春
[繁]戰隊大失格04-

[繁]無職轉生 第二季1
[簡]Unnamed Memory
[繁]迷宮飯18-
電腦新資訊電腦軟體討論電腦軟體資訊分享電腦硬體討論電腦硬體資訊分享電腦萌化版電腦系統 OS 討論電腦程式設計
電腦設計技術交流圖像設計及交流各類下載工具教學寬頻上網討論
返回列表發新帖

查看: 4152|回復: 0
打印上一主題下一主題

[求助]如何用ASP 做出九九乘法表[複製鏈接]

宇中有妮 該用戶已被刪除
樓主
發表於 2010-4-10 12:00 AM|顯示全部樓層
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
我有寫出直向的，只是有點長...
我是利用LABEL和DropDownList1選單來製作的~
  1.   Dim J As Integer
  2.         If DropDownList1.SelectedIndex = 1 Then
  3.             Label2.Text &= "<TABLE Border=1>"
  4.             For J = 1 To 9
  5.                 Label2.Text &= "<tr>"
  6.                 Label2.Text &= "<td>"
  7.                 Label2.Text &= 1 & "X" & J & "=" & 1 * J
  8.                 Label2.Text &= "</td>"
  9.                 Label2.Text &= "</tr>"
  10.             Next

  12.         End If

  14.         If DropDownList1.SelectedIndex = 2 Then
  15.             Label2.Text &= ("<TABLE Border=1>")
  16.             For J = 1 To 9
  17.                 Label2.Text &= ("<tr>")
  18.                 Label2.Text &= ("<td>")
  19.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  20.                 Label2.Text &= ("</td>")
  21.                 Label2.Text &= ("<td>")
  22.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  23.                 Label2.Text &= ("</td>")
  24.                 Label2.Text &= ("</tr>")
  25.             Next
  26.         End If

  28.         If DropDownList1.SelectedIndex = 3 Then
  29.             Label2.Text &= ("<TABLE Border=1>")
  30.             For J = 1 To 9
  31.                 Label2.Text &= ("<tr>")
  32.                 Label2.Text &= ("<td>")
  33.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  34.                 Label2.Text &= ("</td>")
  35.                 Label2.Text &= ("<td>")
  36.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  37.                 Label2.Text &= ("</td>")
  38.                 Label2.Text &= ("<td>")
  39.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  40.                 Label2.Text &= ("</td>")
  41.                 Label2.Text &= ("</tr>")
  42.             Next
  43.         End If

  45.         If DropDownList1.SelectedIndex = 4 Then
  46.             Label2.Text &= ("<TABLE Border=1>")
  47.             For J = 1 To 9
  48.                 Label2.Text &= ("<tr>")
  49.                 Label2.Text &= ("<td>")
  50.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  51.                 Label2.Text &= ("</td>")
  52.                 Label2.Text &= ("<td>")
  53.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  54.                 Label2.Text &= ("</td>")
  55.                 Label2.Text &= ("<td>")
  56.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  57.                 Label2.Text &= ("</td>")
  58.                 Label2.Text &= ("<td>")
  59.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  60.                 Label2.Text &= ("</td>")
  61.                 Label2.Text &= ("</tr>")
  62.             Next
  63.         End If

  65.         If DropDownList1.SelectedIndex = 5 Then
  66.             Label2.Text &= ("<TABLE Border=1>")
  67.             For J = 1 To 9
  68.                 Label2.Text &= ("<tr>")
  69.                 Label2.Text &= ("<td>")
  70.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  71.                 Label2.Text &= ("</td>")
  72.                 Label2.Text &= ("<td>")
  73.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  74.                 Label2.Text &= ("</td>")
  75.                 Label2.Text &= ("<td>")
  76.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  77.                 Label2.Text &= ("</td>")
  78.                 Label2.Text &= ("<td>")
  79.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  80.                 Label2.Text &= ("</td>")
  81.                 Label2.Text &= ("<td>")
  82.                 Label2.Text &= (5 & "X" & J & "=" & 5 * J)
  83.                 Label2.Text &= ("</td>")
  84.                 Label2.Text &= ("</tr>")
  85.             Next
  86.         End If

  88.         If DropDownList1.SelectedIndex = 6 Then
  89.             Label2.Text &= ("<TABLE Border=1>")
  90.             For J = 1 To 9
  91.                 Label2.Text &= ("<tr>")
  92.                 Label2.Text &= ("<td>")
  93.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  94.                 Label2.Text &= ("</td>")
  95.                 Label2.Text &= ("<td>")
  96.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  97.                 Label2.Text &= ("</td>")
  98.                 Label2.Text &= ("<td>")
  99.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  100.                 Label2.Text &= ("</td>")
  101.                 Label2.Text &= ("<td>")
  102.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  103.                 Label2.Text &= ("</td>")
  104.                 Label2.Text &= ("<td>")
  105.                 Label2.Text &= (5 & "X" & J & "=" & 5 * J)
  106.                 Label2.Text &= ("</td>")
  107.                 Label2.Text &= ("</tr>")
  108.             Next
  109.             For J = 1 To 9
  110.                 Label2.Text &= ("<tr>")
  111.                 Label2.Text &= ("<td>")
  112.                 Label2.Text &= (6 & "X" & J & "=" & 6 * J)
  113.                 Label2.Text &= ("</td>")
  114.                 Label2.Text &= ("</tr>")
  115.             Next
  116.         End If

  118.         If DropDownList1.SelectedIndex = 7 Then
  119.             Label2.Text &= ("<TABLE Border=1>")
  120.             For J = 1 To 9
  121.                 Label2.Text &= ("<tr>")
  122.                 Label2.Text &= ("<td>")
  123.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  124.                 Label2.Text &= ("</td>")
  125.                 Label2.Text &= ("<td>")
  126.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  127.                 Label2.Text &= ("</td>")
  128.                 Label2.Text &= ("<td>")
  129.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  130.                 Label2.Text &= ("</td>")
  131.                 Label2.Text &= ("<td>")
  132.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  133.                 Label2.Text &= ("</td>")
  134.                 Label2.Text &= ("<td>")
  135.                 Label2.Text &= (5 & "X" & J & "=" & 5 * J)
  136.                 Label2.Text &= ("</td>")
  137.                 Label2.Text &= ("</tr>")
  138.             Next
  139.             For J = 1 To 9
  140.                 Label2.Text &= ("<tr>")
  141.                 Label2.Text &= ("<td>")
  142.                 Label2.Text &= (6 & "X" & J & "=" & 6 * J)
  143.                 Label2.Text &= ("</td>")
  144.                 Label2.Text &= ("<td>")
  145.                 Label2.Text &= (7 & "X" & J & "=" & 7 * J)
  146.                 Label2.Text &= ("</td>")
  147.                 Label2.Text &= ("</tr>")
  148.             Next
  149.         End If

  151.         If DropDownList1.SelectedIndex = 8 Then
  152.             Label2.Text &= ("<TABLE Border=1>")
  153.             For J = 1 To 9
  154.                 Label2.Text &= ("<tr>")
  155.                 Label2.Text &= ("<td>")
  156.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  157.                 Label2.Text &= ("</td>")
  158.                 Label2.Text &= ("<td>")
  159.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  160.                 Label2.Text &= ("</td>")
  161.                 Label2.Text &= ("<td>")
  162.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  163.                 Label2.Text &= ("</td>")
  164.                 Label2.Text &= ("<td>")
  165.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  166.                 Label2.Text &= ("</td>")
  167.                 Label2.Text &= ("<td>")
  168.                 Label2.Text &= (5 & "X" & J & "=" & 5 * J)
  169.                 Label2.Text &= ("</td>")
  170.                 Label2.Text &= ("</tr>")
  171.             Next
  172.             For J = 1 To 9
  173.                 Label2.Text &= ("<tr>")
  174.                 Label2.Text &= ("<td>")
  175.                 Label2.Text &= (6 & "X" & J & "=" & 6 * J)
  176.                 Label2.Text &= ("</td>")
  177.                 Label2.Text &= ("<td>")
  178.                 Label2.Text &= (7 & "X" & J & "=" & 7 * J)
  179.                 Label2.Text &= ("</td>")
  180.                 Label2.Text &= ("<td>")
  181.                 Label2.Text &= (8 & "X" & J & "=" & 8 * J)
  182.                 Label2.Text &= ("</td>")
  183.                 Label2.Text &= ("</tr>")
  184.             Next
  185.         End If

  187.         If DropDownList1.SelectedIndex = 9 Then
  188.             Label2.Text &= ("<TABLE Border=1>")
  189.             For J = 1 To 9
  190.                 Label2.Text &= ("<tr>")
  191.                 Label2.Text &= ("<td>")
  192.                 Label2.Text &= (1 & "X" & J & "=" & 1 * J)
  193.                 Label2.Text &= ("</td>")
  194.                 Label2.Text &= ("<td>")
  195.                 Label2.Text &= (2 & "X" & J & "=" & 2 * J)
  196.                 Label2.Text &= ("</td>")
  197.                 Label2.Text &= ("<td>")
  198.                 Label2.Text &= (3 & "X" & J & "=" & 3 * J)
  199.                 Label2.Text &= ("</td>")
  200.                 Label2.Text &= ("<td>")
  201.                 Label2.Text &= (4 & "X" & J & "=" & 4 * J)
  202.                 Label2.Text &= ("</td>")
  203.                 Label2.Text &= ("<td>")
  204.                 Label2.Text &= (5 & "X" & J & "=" & 5 * J)
  205.                 Label2.Text &= ("</td>")
  206.                 Label2.Text &= ("</tr>")
  207.             Next
  208.             For J = 1 To 9
  209.                 Label2.Text &= ("<tr>")
  210.                 Label2.Text &= ("<td>")
  211.                 Label2.Text &= (6 & "X" & J & "=" & 6 * J)
  212.                 Label2.Text &= ("</td>")
  213.                 Label2.Text &= ("<td>")
  214.                 Label2.Text &= (7 & "X" & J & "=" & 7 * J)
  215.                 Label2.Text &= ("</td>")
  216.                 Label2.Text &= ("<td>")
  217.                 Label2.Text &= (8 & "X" & J & "=" & 8 * J)
  218.                 Label2.Text &= ("</td>")
  219.                 Label2.Text &= ("<td>")
  220.                 Label2.Text &= (9 & "X" & J & "=" & 9 * J)
  221.                 Label2.Text &= ("</td>")
  222.                 Label2.Text &= ("</tr>")
  223.             Next
  224.         End If
  225.         Label2.Text &= ("</TABLE >")

  227.     End Sub
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部