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 + -
显示快捷键?