先建一文本框，将文本框的text属性值删除，将mulitline属性值设成true 建一命令按扭，在命令按扭的click事件中写以下语句。For i = 1 To 9 '9行
创新互联公司专注于漠河企业网站建设,成都响应式网站建设公司,商城建设。漠河网站建设公司,为漠河等地区提供建站服务。全流程按需制作，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
For j = 1 To i ‘每行i列
Text1.Text = Text1 + Str(i * j)
Next j
Text1.Text = Text1.Text + vbCrLf '每行后加一回车
Next i
1、点击鼠标右键，选择“新建”选项，然后点击“mircosoft office Excel 2007”选项新建一个Excel文件。
2、接下来需要制作表格、录入相关数据。
3、选择界面上方的“开发工具”选项，然后点击“宏”选项。
4、写明VBA代码名称，然后点击“创建”按钮。
5、接下来需要写入指定的VBA代码。
6、点击插入一个按钮控件，并命名为“乘法运算”。
7、选中“乘法运算”控件，然后点击鼠标右键，选择“指定宏”。
8、将编写的代码指定至按钮控件上，然后点击“确定”按钮。
9、点击一次按钮控件，乘法运算就自动完成了。
先在form上建立三个textbox，分别为textbox1,textbox2,textbox3，再建立四个按钮，分别为cmdplus,cmdminus,cmdmultiple,cmddivide，代码如下：
Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End If
Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a - b
End If
Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End If
Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a / b
End If
