返回目录：excel表格制作
Excel制作九九乘法表如此简单，你学会了吗？
材料/工具：excel2010
1、首先启动excel2010，在数据区域a2：a10中依次1-9，在数据区域b1：j1中依次填充1-9，查看效果。
2、在单zhidao元格回b2中输入公式=$A2*B$1，按回车键。
3、接着选择单元格b2往下填充，填充完成后接着选择数据区域b2：b10往右填充，这样就计算出所需要的所有乘积数值了。
4、选择单元格b2，修改其公式为=$A2&"×"&B$1&"="&$A2*B$1，然后再次点击确定按钮。
5、依次往下和往右进行填充。
6、选择单元格b2，继续修改函数，修改为=IF($A2>=B$1,$A2&"×"&B$1&"="&$A2*B$1,"")，修改完成后回车键，接着往右填充。
7、接着选择数据区域b2：j2往下继续填充，这个时候就会出现乘法表。
8、选择数据区域b2：j2，执行ctrl+c组合键进行复制操作，从粘贴答中选择值选项，这样就仅仅粘贴了数值。
9、删除第一行和第一列，这样就是我们常见的乘法表格式了，接着选择数据区域a1：i9设置字体为宋体，字号为12，设置边框。
Public Class Form1
Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=1 To 9 Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf
Next
End Sub
Private Sub Button2_Click(sender As Object,e As EventArgs)Handles Button2.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=1 To i Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf
Next
End Sub
Private Sub Button3_Click(sender As Object,e As EventArgs)Handles Button3.Click
Dim i,j As Integer
Dim se As String
Label1.Text=""
For i=1 To 9 Step 1
For j=i To 9 Step 1
se=i&"x"&j&"="&i*j
Label1.Text&=se&Space(10-Len(se))
Next
Label1.Text&=vbCrLf&Space(i*10)
Next
End Sub
End Class
扩展资料：
Label定义和用法
<label>标签为input元素定义标注（标记）。
label元素不会向用户呈现任何特殊效果。不过，它为鼠标用户改进了可用性。如果您在label元素内点击文本，就会触发此控件。就是说，当用户选择该标签时，浏览器就会自动将焦点转到和标签相关的表单控件上。
<label>标签的for属性应当与相关元e69da5e887aae799bee5baa6e997aee7ad94366素的id属性相同。
实例
带有两个输入字段和相关标记的简单HTML表单：
<form>
<labelfor="male">Male</label>
<inputtype="radio"name="sex"id="male"/>
<br/>
<labelfor="female">Female</label>
<inputtype="radio"name="sex"id="female"/>
</form>
浏览器支持
所有主流浏览器都支持<label>标签。
Safari 2或更早的版本不支持<label>标签。
提示和注释
注释："for"属性可把label绑定到另外一个元素。请把"for"属性的值设置为相关元素的id属性的值。
=IF(COLUMN(A1)>ROW(A1),"",COLUMN(A1)&CHAR(41409)&ROW(A1)&"="&ROW(A1)*COLUMN(A1))
向下百拉度，向右拉
还有2种方回法是数组公式的，输入公答式后以 CTRL + SHIFT + 回车结束，再向下拉，向右拉
=IF(COLUMN($A:$I)>ROW($1:$9),"",ROW($1:$9)&CHAR(41409)&COLUMN($A:$I)&"="&ROW($1:$9)*COLUMN($A:$I))
=IF(COLUMN($A:$I)>ROW($1:$9),"",TEXT(COLUMN($A:$I),"[dbnum1]")&TEXT(ROW($1:$9),"[dbnum1]")&IF(LEN(ROW($1:$9)*COLUMN($A:$I))=1,"得","")&TEXT(ROW($1:$9)*COLUMN($A:$I),"[dbnum1]"))