vb编写九九乘法表，左上三角和右下三角应该咋写呀T-T
Private Sub Command1_Click()
Me.FontSize = 30'字体大小 30有点大，超出窗口范围了
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 9
For j = 1 To i
s = CStr(i) & "*" & CStr(j) & "=" & CStr(i * j)
s = s & Space$(10 - Len(s))
Print s;
Next j
Print
Next i
End Sub
'点击窗体出现九九乘法表，如果显示不全，适当调大窗体
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As String
For a = 1 To 9
c = ""
For b = 1 To 9
c = c & a & "×" & b & "=" & a * b & vbTab
Next b
Print c
Next a
End Sub
Private Sub Command1_Click()
Cls
Print "*"
For j = 9 To 1 Step -1
For i = 1 To j
Print Tab(i * 15 - 14); i; "*"; j; "="; j * i;
Next i
Next j
End Sub
Private Sub Command2_Click()
Cls
Print "*"
For j = 1 To 9
For i = 1 To j
Print Tab(i * 15 + 120 - j * 15); i; "*"; j; "="; j * i;
Next i
Next j
End Sub
Private Sub Command3_Click()
Cls
Print "*"
For j = 1 To 9
For i = 1 To j
Print Tab(i * 15 - 14); i; "*"; j; "="; j * i;
Next i
Next j
End Sub
Private Sub Command4_Click()
Cls
Print "*"
For j = 9 To 1 Step -1
For i = 1 To j
Print Tab(i * 15 + 120 - j * 15); i; "*"; j; "="; j * i;
Next i
Next j
End Sub
你好很高兴为你解答答案是：亲，能否将问题说的更具体些。满意请采纳，谢谢
12345678910111213141516171819202122232425262728293031323334353637383940Private Sub Command1_Click() Cls Print "*" For j = 9 To 1 Step -1 For i = 1 To j Print Tab(i * 15 - 14); i; "*"; j; "="; j * i; Next i Print Next jEnd SubPrivate Sub Command2_Click() Cls Print "*" For j = 1 To 9 For i = 1 To j Print Tab(i * 15 + 120 - j * 15); i; "*"; j; "="; j * i; Next i Print Next jEnd SubPrivate Sub Command3_Click() Cls Print "*" For j = 1 To 9 For i = 1 To j Print Tab(i * 15 - 14); i; "*"; j; "="; j * i; Next i Print Next jEnd SubPrivate Sub Command4_Click() Cls Print "*" For j = 9 To 1 Step -1 For i = 1 To j Print Tab(i * 15 + 120 - j * 15); i; "*"; j; "="; j * i; Next i Print Next jEnd Sub
要有一个要求达到的目标，是什么样子的？
vb打印九九乘法表算法解释下如何执行过程,一句句讲解
第一行，表示方法进入，开始打印乘法表了。。。第二行，取被乘数（行），1～9 第三行，取乘数（列）1～a 打印开始 比如a=1，时第一行，b只能为1 就打印 1*1=1，这个时候next b 没有值，执行next a,即a=2。当a=2时第二行，b可以等于1和2 所以打印2*1=1 ,next b之后b=2，打印2...
VB九九乘法表编码 要求 [左对齐 右对齐 完美]。。。
Dim a As Integer Dim b As Integer For a= 1 To 9 For b = 1 To a Print b; "*"; a; "="; a *b,Next b Print Next a 如果还对不齐的话在Print b; "*"; a; "="; a *b,后面再加个逗号（Print b; "*"; a; "="; a *b,,）就OK了 ...
如何用Excel做九九乘法表
5、依次往下和往右进行填充。6、选择单元格b2，继续修改函数，修改为=IF($A2>=B$1,$A2&"×"&B$1&"="&$A2*B$1,"")，修改完成后回车键，接着往右填充。7、接着选择数据区域b2：j2往下继续填充，这个时候就会出现乘法表。8、选择数据区域b2：j2，执行ctrl+c组合键进行复制操作，从粘贴中...
Excel制作九九乘法表实例教程
我们从小学习数学时就会被要求背九九乘法表，于是对九九乘法表烂熟于心，那么如果使用excel表格制作九九乘法表又有多少人会呢，接下来分享如何使用excel中的函数来制作九九乘法表。在制作九九乘法表中，如下图所示，在B3单元格中输入的公式应该是【=$A3*B$2】，为什么这样输入呢?我们可以这样想，C3单元格...
怎样在excel中制作 九九乘法表,请各位高手写的详细点!
在A2、A3、A4、...A10中依次输入1、2、3...9 在B1、C1、D1、...J1中依次输入1、2、3...9 在B2中输入公式：=IF($A2<B$1,"",B$1 & "×" &$A2 & "=" & $A2*B$1)然后通过B2右下角的小黑十字向右拖拽，再向下，即可得到9*9区域的表格。
用一个循环语句输出九九乘法表
for循环的时候，是先判断条件，符合条件，执行语句，结束之后在循环，知道条件不符合时停止，可以参考下面的代码：program f；var a，b，i:integer;begin for a=1 to 9 do { for b=1 to a do write（a，‘*’，b，‘=‘,（a*b）,' '）；writeln;} end....
九九乘法表excel公式
9。3、然后在单元格B2内输入一个公式，通过拖曳填充产生一个具有下三角矩阵结构的乘法九九表。4、完成以上操作后将该工作簿以原文件名保存到考生文件夹下。5、操作提示：在一个工作表的B1:J1区域内依次输入1～9，A2:A10区域内依次输入1～9；6、在B2单元格内输入一个条件函数公式“=IF(B$1 ...
用EXCEL如何做出九九乘法表呢?其它的IF函数是什么?
在B1填入1，往右填充到9.在A2填入1，往下填充到9.在B2填入公式=$A2*B$1，向右和向下填充公式，做出九九乘法表
在Excel中用函数公式输入九九乘法表?
软件版本：Office2007 方法如下：1. 先在A1中输入公式：=IF(COLUMN(A1)>ROW(A1),"",COLUMN(A1)&"*"&ROW(A1)&"="&ROW(A1)*COLUMN(A1))2.然后向右拖动公式填充到I列：3.再将公式拖动填充到第9行，就得到了久久乘法表：
java用面向对象写一个99乘法表
老师的意思让你把99乘法表封装起来,然后可以输出任意的,比如说,88,77,懂了?就是比较灵活的应用我帮你写出来吧!public class 久久Test {public static void main(String[] args) {System.out.println("\\n\\t\\t===九九乘法表===\\n");init();}\/\/初始化!private static void init(){Jiujiu....
帅瑗孟鲁： Private Sub Command1_Click() '左下 Cls For j = 0 To 9 For i = 0 To 9 Print Tab(i * 6); If i = 0 And j = 0 Then Print ＂*＂; ElseIf i = 0 Then Print j; ElseIf j = 0 Then Print i; ElseIf i <= j Then Print i * j; End If Next Next End Sub Private Sub Command2...
宁强县17189271804： vb题:输出九乘九表的上三角和下三角 - ？
帅瑗孟鲁： 上三角 Private Sub Form_Click() Dim i, j As Integer Dim s As String Print Tab(35); ＂九九乘法表＂ For i = 1 To 9 For j = i To 9 s = i & ＂*＂ & j & ＂=＂ & i * j Print Tab((j - 1) * 9 + 2); s; Next j Print Next i End Sub ----------------------------------------- 下三...
宁强县17189271804： vb九九乘法表左上三角形怎么编程 - ？
帅瑗孟鲁： 两个for循环 int i,j; for(i=1;i<=9;i++) { for(j=i;i<=9;j++) { Console.Write(＂{0}*{1}={2}\t＂,i,j,i*j) } Console.WriteLine(); }....这是c#的 ,反正就两次循环,外面的for循环控制行, 里面嵌套的for循环控制列
宁强县17189271804： 如何用vb编程在窗体中输出九九乘法表(全部、上三角、下三角)? - ？
帅瑗孟鲁： '点击窗体出现九九乘法表,如果显示不全,适当调大窗体 Private Sub Form_Click()Dim a As IntegerDim b As IntegerDim c As StringFor a = 1 To 9c = ＂＂For b = 1 To 9c = c & a & ＂*＂ & b & ＂=＂ & a * b & vbTabNext bPrint cNext a End Sub
宁强县17189271804： 编写VB程序:九九乘法口诀表 - ？
帅瑗孟鲁： Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1 Print ＂ ＂; For j = 1 To 9 Print i * j; Print vbTab; Next j Print vbTab Next iEnd SubPrivate Sub Form_Load()Command1.Caption = ＂Display(&D)...
宁强县17189271804： VB编程题. 1.以上三角的形式输出九九乘法表. 2 以下三角的形式输出九九乘法表 - ？
帅瑗孟鲁： 1 上三角形式 Private Sub Form_Click()Dim i, jFor i = 1 To 9For j = 1 To iPrint i * j;Next jPrintNext i End Sub 2 下三角形式Private Sub Form_Click()Dim i, jFor i = 1 To 9For j = 1 To 10 - iPrint i * j;Next jPrintNext i End Sub
宁强县17189271804： 给出打印九九乘法表的VB代码,右下三角 - ？
帅瑗孟鲁： Private Sub Form_Click() Print Tab(30); ＂9 * 9 table＂ Print: Print Print ＂*＂; For i = 1 To 9 Print Tab(i * 6); i; Next i Print For j = 1 To 9 Print j; ＂＂; For k = 1 To j temp = j * k Print Tab(k * 6); temp; ＂＂; Next k Print Next j End Sub 我们课本上的标准答案.!!!
宁强县17189271804： 用VB编一个左下三角的九九乘法表 - ？
帅瑗孟鲁： Private Sub Command1_Click()For i = 1 To 9For j = 1 To iPrint j; ＂*＂; i; ＂=＂; i * j;Next jPrintNext i End Sub
宁强县17189271804： VB编程 九九乘法表 右下三角形 - ？
帅瑗孟鲁： dim i as integer, j as integer, c as stringc=＂＂ for i=1 to 9 for j=i to ic=c & i*jnextc=c & vbcrlf nexttext1.text=c
宁强县17189271804： 怎么样VB编程实现九九乘法表? - ？
帅瑗孟鲁： Private Sub Form_Click() Dim i As Integer Dim j As Integer Dim s As String s = ＂＂ For i = 1 To 9 For j = 1 To 9 s = s & Str(j) & ＂*＂ & Str(i) & ＂=＂ & Str(i * j) If j >= i Then Exit For Next j Print s Print Chr(13) s = ＂＂ Next i End Sub
