用vb输出九九乘法表

以下是使用VB生成九九乘法表并输出到Word的代码示例：

Private Sub Command1_Click()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objTable As Object
    Dim i As Integer
    Dim j As Integer
    
    ' 创建Word对象
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    ' 创建新文档
    Set objDoc = objWord.Documents.Add
    
    ' 添加表格
    Set objTable = objDoc.Tables.Add(objDoc.Range, 9, 9)
    
    ' 填充表格
    For i = 1 To 9
        For j = 1 To 9
            objTable.Cell(i, j).Range.Text = i & " x " & j & " = " & i * j
        Next j
    Next i
    
    ' 格式化表格
    objTable.Borders.Enable = True
    objTable.Columns.AutoFit
    
    ' 保存文档
    objDoc.SaveAs "C:\九九乘法表.docx"
    
    ' 关闭Word对象
    objWord.Quit
End Sub

该代码使用VB创建了一个新的Word文档，并在其中添加了一个9x9的表格，然后填充了表格中的内容，最后将文档保存到指定路径并关闭Word对象。