程序运行截图如下：

每次点击可以生成不同的成绩表。

主要源代码如下：

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString columns[]={"姓名","语文","数学","英语","计算机"};
AnsiString names[]={"王小明","李小刚","陈大海","林小芳","张小静","杨光"};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    this->Caption="StringGrid表格简单示例";

    StringGrid1->ColCount=sizeof(columns)/sizeof(AnsiString);
    StringGrid1->RowCount=1+sizeof(names)/sizeof(AnsiString);

    for(int x=0;x<StringGrid1->ColCount;++x)
    {
        StringGrid1->Cells[x][0]=columns[x];
    }
    for(int y=1;y<StringGrid1->RowCount;++y)
    {
        StringGrid1->Cells[0][y]=names[y-1];
    }
    
    srand((unsigned)time(NULL));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for(int x=1;x<StringGrid1->ColCount;++x)
    {
        for(int y=1;y<StringGrid1->RowCount;++y)
        {
            int score=60+rand()%41;
            StringGrid1->Cells[x][y]=IntToStr(score);
        }
    }
}
//---------------------------------------------------------------------------