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

右上部分的:

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

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"*"

意思是打印一個(gè)字符"*"。

(2)print:print

VB中，一行一句命令，如果你想多句命令一行，可用冒號(hào)隔開(kāi)。

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

簡(jiǎn)單說(shuō)，"print:print"就等于：

print

print

打印兩行空行。

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

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

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

請(qǐng)參考我提供的以下的乘法表（思路清晰）：

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è)計(jì)九九乘法表程序？

先建一文本框，將文本框的text屬性值刪除，將mulitline屬性值設(shè)成true 建一命令按扭，在命令按扭的click事件中寫(xiě)以下語(yǔ)句。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乘法表問(wèn)題

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

改成 c = c vbCrLf

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

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

因?yàn)橹挥袟l件不滿足的時(shí)候才會(huì)跳出循環(huán)

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

怎樣用VB編寫(xiě)打印九九乘法表

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

按鈕單擊代碼

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í)行兩個(gè)表達(dá)式的邏輯連接。

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

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

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

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

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

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

參考資料來(lái)源：百度百科-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 字符碼的字符。

參考資料來(lái)源：百度百科-Visual Basic