先建一文本框,將文本框的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
文章標(biāo)題:vb.net乘法算法 c語言中計(jì)算乘法
當(dāng)前鏈接:http://m.rwnh.cn/article26/hiejjg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、定制開發(fā)、品牌網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)