VBScript007-Excel的99乘法表

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

objExcel.WorkSheets(1).Activate

For i=1 to 9

'objExcel.ActiveSheet.Columns(i).ColumnsWidth = 10

For j=1 to i

objExcel.Cells(i, j).Value = i & "x" & j & "=" & i * j

objExcel.Cells(i, j).Font.Bold = TRUE

objExcel.Cells(i, j).Font.Size = 24

objExcel.Cells(i, j).Font.ColorIndex = i + j - 1

Next

Next

MsgBox "Mission complete!",64,"完成"