用vb程序九九乘法表

Ⅰ vb做九九乘法表

感覺你的挺麻煩的，試試我的吧
代碼：
Private Sub Form_Click()
Print "9 9 Table!!"
Print "-------------------------------------------------------------------------------"
Print
For I = 1 To 9
For J = 1 To I
Print J; "*"; I; "="; J * I;
Next J
Print
Next I
End Sub

Ⅱ vb編程輸出九九乘法表

上面的哪是九九乘法表啊
我這有專兩種屬

Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub

''''''''''''''''
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub

Ⅲ VB程序編譯九九乘法表

錯誤之處：
fori=1 To n "For"與"i"之間加空格。
forj=1 to i 同上。
nextj 應將"Next"與"j"間加空格
nexti 同上。
printx 同上。"Print"與"x"之間加空格。

以下是修改後的：
Private Sub Command1_Click()
Form1.WindowState = 2
x = 0
n = Val(InputBox("n=?"))
For i = 1 To n
For j = 1 To n
x = i * j
Print i, "x", j, "=", x
Next j
Next i
End Sub

這樣就可以了。

Ⅳ 怎樣用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

(4)用vb程序九九乘法表擴展閱讀：

vb常用函數：

And 運算符：執行兩個表達式的邏輯連接。

Array 函數：返回含一數組的變體 。

Asc 函數：返回字元串首字母的 ANSI 字元代碼。

賦值運算符 (=)：給變數或屬性賦值。

Atn 函數：返回數的反正切值。

調用語句將控制移交 Sub 或 Function 過程。

CBool 函數：返回已被轉換為 Boolean 子類型的變體的表達式。

Ⅳ 用vb編寫九九乘法表

用VB程序怎麼做九九乘法表的步驟如下：

1. 創建顯示結果的窗體：

   

   Ⅵ vb編程九九乘法表

   因為在不該換行的地方換行了....
   調用一次 print 完畢之後vb會自動跳到下一行...
   做一個緩沖就好了,需要換行的時候再輸出,否則放到strLine裡面
   
   Cls
   Dim i As Integer, j As Integer
   Dim strLine As String
   For i = 1 To 9
   For j = 1 To i
   strLine = strLine & i & "*" & j & "=" & i * j & " "
   Next j
   Print strLine & vbCrLf
   strLine = ""
   Next i

   Ⅶ 用VB程序怎麼做九九乘法表

   Public Class Form1

   Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click

   Dim i,j As Integer

   Dim se As String

   Label1.Text=""

   For i=1 To 9 Step 1

   For j=1 To 9 Step 1

   se=i&"x"&j&"="&i*j

   Label1.Text&=se&Space(10-Len(se))

   Next

   Label1.Text&=vbCrLf

   Next

   End Sub

   Private Sub Button2_Click(sender As Object,e As EventArgs)Handles Button2.Click

   Dim i,j As Integer

   Dim se As String

   Label1.Text=""

   For i=1 To 9 Step 1

   For j=1 To i Step 1

   se=i&"x"&j&"="&i*j

   Label1.Text&=se&Space(10-Len(se))

   Next

   Label1.Text&=vbCrLf

   Next

   End Sub

   Private Sub Button3_Click(sender As Object,e As EventArgs)Handles Button3.Click

   Dim i,j As Integer

   Dim se As String

   Label1.Text=""

   For i=1 To 9 Step 1

   For j=i To 9 Step 1

   se=i&"x"&j&"="&i*j

   Label1.Text&=se&Space(10-Len(se))

   Next

   Label1.Text&=vbCrLf&Space(i*10)

   Next

   End Sub

   End Class

   

   (7)用vb程序九九乘法表擴展閱讀：

   Label定義和用法

   <label>標簽為元素定義標注（標記）。

   label元素不會向用戶呈現任何特殊效果。不過，它為滑鼠用戶改進了可用性。如果您在label元素內點擊文本，就會觸發此控制項。就是說，當用戶選擇該標簽時，瀏覽器就會自動將焦點轉到和標簽相關的表單控制項上。

   <label>標簽的for屬性應當與相關元素的id屬性相同。

   實例

   帶有兩個輸入欄位和相關標記的簡單HTML表單：

   <form>

   <labelfor="male">Male</label>

   <inputtype="radio"name="sex"id="male"/>

   <br/>

   <labelfor="female">Female</label>

   <inputtype="radio"name="sex"id="female"/>

   </form>

   瀏覽器支持

   所有主流瀏覽器都支持<label>標簽。

   Safari 2或更早的版本不支持<label>標簽。

   提示和注釋

   注釋："for"屬性可把label綁定到另外一個元素。請把"for"屬性的值設置為相關元素的id屬性的值。

   Ⅷ 九九乘法表vb完整編程

   Sub 九九乘法()
   Dim x&, y&, i&
   Dim arr(1 To 9, 1 To 9)
   For x = 1 To 9
   For y = 1 To 9
   If x <= y Then
   arr(y, x) = y & "×" & x & "=" & x * y
   End If
   Next y
   Next x
   End Sub

   Ⅸ 利用VB語言編程:輸出九九乘法表

   上面的哪是九九乘法表啊
   我這有兩種
   
   Private Sub Form_Load()
   Me.AutoRedraw = True
   Cls
   For j = 1 To 9
   For k = 1 To 9
   If k > j Then Exit For
   Print k & "*" & j & "=" & j * k; " ";
   Next k
   Print
   Next j
   End Sub
   
   ''''''''''''''''
   Private Sub Form_Click()
   Dim i, j As Integer
   For i = 1 To 9
   For j = i To 9
   Line (i * 200, j * 250)-(i * 200, j * 250)
   ForeColor = i * j * 253
   Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
   Next j
   Next i
   End Sub
   
   我修過VB、、電腦正好有答案、、、
   其實課本上也是有答案啊
   
   滿意請好評、。、謝謝。。

   Ⅹ vb 九九乘法表

   (1)print"*"
   意思是列印一個字元"*"。
   (2)print:print
   VB中，一行一句命令，如果你想多句命令一行，可用冒號隔開。
   print省略參數就表示輸出一個空行。
   簡單說，"print:print"就等於：
   print
   print
   列印兩行空行。
   (3)tab(n)函數。
   用來將游標移到參數n指定的位置開始輸出信息。tab(i*6)，(i=1,2,3...),也就是在第6、12、24...格才輸出表達式，這樣看起來就像一個列表一樣。如果你需要更要寬松一點，你寫成tab(i*7)也是可以的:）
   
   樓主提供的程序代碼,語句有點混亂,運行也不正確.
   請參考我提供的以下的乘法表（思路清晰）：
   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