📄 2-23.aspx
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -