首頁 程式語言 工具下載 學習範例 技術專區 相關書籍

原始碼程式範例 好站相報 技術論壇 易尋網 ASP空間租賃 汽車追蹤的第一個家 弘光科技大學 南開技術學院 巨匠電腦 買賣購物網 Life Light 遠距醫療網 清境民宿珂之幄   原始程式碼 <%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="陣列型九九乘法表" %> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim i, j As Integer Dim S(10) As String For i = 1 To 9 S(i) = "" For j = 1 To 9 S(i) = S(i) + CStr(i) & " x " & CStr(j) & " = " & CStr(i * j) & "<BR>" Next Next Label1.Text = "<table width='300'>" Label1.Text = Label1.Text & "<tr>" Label1.Text = Label1.Text & "<td>" & S(1) & "</td>" Label1.Text = Label1.Text & "<td>" & S(2) & "</td>" Label1.Text = Label1.Text & "<td>" & S(3) & "</td>" Label1.Text = Label1.Text & "</tr>" Label1.Text = Label1.Text & "<tr>" Label1.Text = Label1.Text & "<td>" & S(4) & "</td>" Label1.Text = Label1.Text & "<td>" & S(5) & "</td>" Label1.Text = Label1.Text & "<td>" & S(6) & "</td>" Label1.Text = Label1.Text & "</tr>" Label1.Text = Label1.Text & "<tr>" Label1.Text = Label1.Text & "<td>" & S(7) & "</td>" Label1.Text = Label1.Text & "<td>" & S(8) & "</td>" Label1.Text = Label1.Text & "<td>" & S(9) & "</td>" Label1.Text = Label1.Text & "</tr>" Label1.Text = Label1.Text & "</table>" End Sub </script> <asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> <asp:Label ID="Label1" runat="server" Text="Label" Width="472px"></asp:Label> </asp:Content>   1. 請點選此處複製以上資料     2. 請按ctrl-c複製到剪貼簿     3. 切換到ASP的原始內碼區     4. 請按ctrl-v貼上所有資料