Cls #39清除窗体的内容 Width = 9000 #39以免窗口太小 Height = 6000 Dim i As Integer， j As Integer For i = 1 To 9 For j = 1 To i Print vbTab i quot×quot j quot=quot i * j #39输。
这是C++的里边算法都是一样LZ这只是一个参考要领会呀 #include ltiostream using namespace stdvoid main int x，yx=0y=0forint i=1ilt=9i++ forint j=1jlt=ij++ coutltltj。
#39点击窗体出现九九乘法表，如果显示不全，适当调大窗体 Private Sub Form_ClickDim a As Integer Dim b As Integer Dim c As String For a = 1 To 9 c = quotquotFor b = 1 To 9 c = c a quot×quot。
Dim i As Integer， j As Integer， s As IntegerPrivate Sub Command1_ClickPrint Tab35 quot九九乘法表quot For i = 1 To 9 For j = 1 To 9 Print Tabj 1 * 9 i quot×quot j。
Private Sub Command1_ClickDim i， j As Integer For i = 1 To 9 For j = 1 To i Print i quot*quot j quot=quot i * jNext j Print Next i End Sub 窗体设置一个lable一个command就行了。
没图啊，大概这样 Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1 Print quot quotFor j = 1 To 9 Print i quot*quot j quot=quot i * j Print vbTabNext j Print vbCrLf Next i。
titleTable = quot九九乘法表quotpTW = ScaleXMeTextWidthtitleTable， MeScaleMode， vbTwips #39计算标题宽度 w = MeWidth pTW 2 spaceW #39根据窗体宽度标题居中，字符串前需添加的空格数 For x = 1。
