用vb.net設(shè)計程序，打印九九乘法表的右上部分和右下部分

右上部分的:

“只有客戶發(fā)展了，才有我們的生存與發(fā)展！”這是創(chuàng)新互聯(lián)的服務(wù)宗旨！把網(wǎng)站當(dāng)作互聯(lián)網(wǎng)產(chǎn)品，產(chǎn)品思維更注重全局思維、需求分析和迭代思維，在網(wǎng)站建設(shè)中就是為了建設(shè)一個不僅審美在線，而且實(shí)用性極高的網(wǎng)站。創(chuàng)新互聯(lián)對成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)站開發(fā)、網(wǎng)頁設(shè)計、網(wǎng)站優(yōu)化、網(wǎng)絡(luò)推廣、探索永無止境。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim se$, i%, j%

Label1.Text = Space(35) "九九乘法表" vbCrLf

Label1.Text = Space(35) "_________" vbCrLf

For i = 1 To 9

For j = 1 To 9

If j = i Then

se = i "×" j "=" i * j

Label1.Text = se Space(8 - Len(se))

Else

se = ""

Label1.Text = se Space(9 - Len(se))

End If

Next j

Label1.Text = vbCrLf

Next i

End Sub

左下部分的:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim se$, i%, j%

Label1.Text = Space(35) "九九乘法表" vbCrLf

Label1.Text = Space(35) "_________" vbCrLf

For i = 1 To 9

For j = 1 To i

se = i "×" j "=" i * j

Label1.Text = se Space(8 - Len(se))

Next j

Label1.Text = vbCrLf

Next i

End Sub

vb 九九乘法表

(1)print"*"

意思是打印一個字符"*"。

(2)print:print

VB中，一行一句命令，如果你想多句命令一行，可用冒號隔開。

print省略參數(shù)就表示輸出一個空行。

簡單說，"print:print"就等于：

print

print

打印兩行空行。

(3)tab(n)函數(shù)。

用來將光標(biāo)移到參數(shù)n指定的位置開始輸出信息。tab(i*6)，(i=1,2,3...),也就是在第6、12、24...格才輸出表達(dá)式，這樣看起來就像一個列表一樣。如果你需要更要寬松一點(diǎn)，你寫成tab(i*7)也是可以的:）

樓主提供的程序代碼,語句有點(diǎn)混亂,運(yùn)行也不正確.

請參考我提供的以下的乘法表（思路清晰）：

Private Sub Form_Click()

Print Tab(35); "乘法表"

Dim Se As String

For I = 1 To 9

For J = 1 To I

Se = I "X" J "=" I * J

Print Tab((J - 1) * 9); Se;

Next J

Print

Next I

End Sub

用VB.net 設(shè)計九九乘法表程序？

先建一文本框，將文本框的text屬性值刪除，將mulitline屬性值設(shè)成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

VB．NET99乘法表問題

c = c a "*" b "=" a * b vbTab vbCrLf

改成 c = c vbCrLf

以為B長到10的時候，才不滿足條件 跳出循環(huán)啊，但是你的b=10時候跳出了內(nèi)層，還要繼續(xù)執(zhí)行外層的語句。

其實(shí)最后A也是要到10的

因為只有條件不滿足的時候才會跳出循環(huán)

to 后面的數(shù)字相當(dāng)于限制數(shù)字

怎樣用VB編寫打印九九乘法表

用VB編寫打印九九乘法表可以參考下面的代碼：

按鈕單擊代碼

Private Sub Command1_Click()

For i = 1 To 9

For j = 1 To i

Print i "*" j "=" i * j " ";

Next j

Print

Next i

End Sub

擴(kuò)展資料：

vb常用函數(shù)：

And 運(yùn)算符：執(zhí)行兩個表達(dá)式的邏輯連接。

Array 函數(shù)：返回含一數(shù)組的變體 。

Asc 函數(shù)：返回字符串首字母的 ANSI 字符代碼。

賦值運(yùn)算符 (=)：給變量或?qū)傩再x值。

Atn 函數(shù)：返回數(shù)的反正切值。

調(diào)用語句將控制移交 Sub 或 Function 過程。

CBool 函數(shù)：返回已被轉(zhuǎn)換為 Boolean 子類型的變體的表達(dá)式。

參考資料來源：百度百科-Visual Basic

在VB里輸出九九乘法表

vb中輸出九九乘法表，可以參考下面的代碼：

Private?Sub?Form_Click()

For?a?=?1?To?9

For?b?=?1?To?a

Print?b;?"*";?a;?"=";?b?*?a;

Next?b

Print

Next?a

End?Sub

擴(kuò)展資料：

VB基本函數(shù)列舉：

CBool 函數(shù)： 返回已被轉(zhuǎn)換為 Boolean 子類型的變體的表達(dá)式。

CByte 函數(shù)：?返回已被轉(zhuǎn)換為字節(jié)子類型的變體的表達(dá)式。

CCur 函數(shù)?：返回已被轉(zhuǎn)換為貨幣子類型的變體的表達(dá)式。

CDate 函數(shù)： 返回已被轉(zhuǎn)換為日期子類型的變體的表達(dá)式。

CDbl 函數(shù)：?返回已被轉(zhuǎn)換為雙精度子類型的變體的表達(dá)式。

Chr 函數(shù)：?返回指定 ANSI 字符碼的字符。

參考資料來源：百度百科-Visual Basic

分享文章：vb.net99乘法表,九九乘法表vb語言編程
網(wǎng)址分享：http://sd-ha.com/article42/dsihdec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、定制開發(fā)、網(wǎng)站策劃、網(wǎng)站收錄、靜態(tài)網(wǎng)站、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)