2-23.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 24 行

ASPX
24
字号
<Html>
  <Table Id="Table1" Runat="Server" Border="1"/>
<Form Runat="Server">
  <Button Id="Button1" Runat="Server" OnServerClick="Button1_Click"/>
</Form >

<Script Language="VB" Runat="Server" ID=Script1>
  Sub Button1_Click(Sender As Object, e As EventArgs)
    Dim Cell As HtmlTableCell
    Dim Row As HtmlTableRow
    Dim X, Y As Short
    For X=1 To 9 Step 1
    Cell=New HtmlTableCell
    For Y=1 To 9 Step 1
    Cell.InnerHtml+=CStr(X) & " × " & CStr(Y) & " = " & CStr(X * Y)
    If Y<>9 Then Cell.InnerHtml+="<br>"
    Next Y
    If X=1 Then Row=New HtmlTableRow
    Row.Cells.Add(Cell)
    If X=9 Then Table1.Rows.Add(Row) 
    Next X
  End Sub
</SCRIPT>
</Html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?