先建一文本框,將文本框的text屬性值刪除,將mulitline屬性值設(shè)成true 建一命令按扭,在命令按扭的click事件中寫以下語句。For i = 1 To 9 '9行
創(chuàng)新互聯(lián)公司專注于漠河企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,商城建設(shè)。漠河網(wǎng)站建設(shè)公司,為漠河等地區(qū)提供建站服務(wù)。全流程按需制作,專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
For j = 1 To i ‘每行i列
Text1.Text = Text1 + Str(i * j)
Next j
Text1.Text = Text1.Text + vbCrLf '每行后加一回車
Next i
1、點(diǎn)擊鼠標(biāo)右鍵,選擇“新建”選項(xiàng),然后點(diǎn)擊“mircosoft office Excel 2007”選項(xiàng)新建一個(gè)Excel文件。
2、接下來需要制作表格、錄入相關(guān)數(shù)據(jù)。
3、選擇界面上方的“開發(fā)工具”選項(xiàng),然后點(diǎn)擊“宏”選項(xiàng)。
4、寫明VBA代碼名稱,然后點(diǎn)擊“創(chuàng)建”按鈕。
5、接下來需要寫入指定的VBA代碼。
6、點(diǎn)擊插入一個(gè)按鈕控件,并命名為“乘法運(yùn)算”。
7、選中“乘法運(yùn)算”控件,然后點(diǎn)擊鼠標(biāo)右鍵,選擇“指定宏”。
8、將編寫的代碼指定至按鈕控件上,然后點(diǎn)擊“確定”按鈕。
9、點(diǎn)擊一次按鈕控件,乘法運(yùn)算就自動(dòng)完成了。
先在form上建立三個(gè)textbox,分別為textbox1,textbox2,textbox3,再建立四個(gè)按鈕,分別為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