先建一文本框,将文本框的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