Me.FontSize = 12
Me.Print Tab(35); "九九乘法表"
Me.Print Tab(35); "__________"
For I = 1 To 9
For j = 1 To I
Me.Print Tab((j - 1) * 9 + 1); I & "×" & j & "=" & I * j;
Next j
Next I
End Sub本回答被网友采纳
Private Sub Command1_Click() '例子1：
Dim a, b, c
For a = 1 To 9
For b = 1 To 9
If c Mod 9 = 0 Then Print
Print a & "x" & b & "=" & a * b,
c = c + 1
Next b
Next a
End Sub
Private Sub Form_click() '例子2
Dim a, b, c
For a = 1 To 9
c = ""
For b = 1 To 9
c = c & a & "x" & b & "=" & a * b & vbTab
Next b
Print c
Next a
End Sub本回答被提问者采纳
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
用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
九九乘法表九九乘法表vb代码
1、Private Sub Command1_Click() print99 Me End Sub Private Sub Command2_Click() print99 Picture1 End Sub Private Sub print99(obj1 As Object) Dim i As Integer, j As Integer obj1.Cls For i = 1 To 9 For j = 1 To i obj1.Print i; "x"; j; "="; i * j, N...
求vb九九乘法表代码
Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer Dim s As String k = 0 For i = 1 To 9 j = 0 k = k + 1 Do j = j + 1 s = s & Str(j) & "*" & Str(k) & "=" & Str(j * k) & " "Loop Until (j >= k)Print s s = "...
用VB编一个九九乘法表,程序应该怎么写,求救!
同时使用vbTab进行制表符分隔。在每次内循环结束后，将str字符串打印至控件中。当外循环结束时，表示九九乘法表已经完整生成。该程序简洁明了，通过双重循环结构实现乘法表的生成。同时利用字符串拼接和制表符分隔，使得打印结果更为直观易读。运行此程序，即可得到完整的九九乘法表。
用vb打印九九乘法表的代码
Print Left(CStr(i * j) & Space(5), 4)改成 Print Left(CStr(i * j) & Space(5), 4);
vb 打印九九乘法表 完整程序代码
Private Sub Command1_Click()Dim i As Long, j As LongFor i = 1 To 9 For j = 1 To 9 Print j & "*" & i & "=" & i * j,Next j Print Next iPrint "==="For i = 1 To 9 For j = 1 To i Print j & "*" & i & "=" & i * j,Next j Print 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....
怎样用vb在窗体上输出九九乘法表?
Private Sub Form_Click()Dim i, j As Integer Dim s As String Print Tab(35); "九九乘法表"For i = 1 To 9 For j = 1 To i s = i & "×" & j & "=" & i * j Print Tab((j - 1) * 9 + 2); s;Next j Print Next i End Sub ...
如何用VF编程做一个九九乘法表?
代码如下：!\/bin\/bashecho "This is the multiple table."for((i=1;i<=9;++i))do for((j=1;j<=i;j++)) do echo -ne "$i*$j=$((i*j))\\t" done echodone
