99乘法表

使用EXCEL內建VBA語言寫出陣列格式

excel 99乘法表

Private Sub CommandButton1_Click()
Application.ActiveSheet.Cells(1, 1).Value = "Excel VBA 99乘法表"
For C = 1 To 9
Application.Cells(1, C).ColumnWidth = 3
Next
For I = 1 To 9
For J = 1 To 9
Application.ActiveSheet.Cells(I + 1, J).Value = I * J
Next
Next
End Sub
Private Sub UserForm_Click()
End Sub

c#99格

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication6
{
public partial class Form1 : Form
{
Button[,] buttons = new Button[10, 10];
public Form1()
{
InitializeComponent();
}

private void Form1_Load(object sender, EventArgs e)
{
for (int i = 1; i < 10; i++)
{
for (int j = 1; j < 10; j++)
{
buttons[i, j] = new Button();
buttons[i, j].Location = new Point(i * 30, j * 30);
buttons[i, j].Size = new Size(30, 30);
buttons[i, j].Text = Convert.ToString(i * j);

this.Controls.Add(buttons[i, j]);
}

}
}
}
}