第3講 for文の学習
第10話 10行10列の場合の行(列)合計・行(列)平均の計算
前話解答例
Form1
列幅はすべて70
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^
e) {
int i,j;
double w;
//12行追加
for(i=0;i<12;i++)dataGridView1->Rows->Add();
//縦表題
dataGridView1[11,0]->Value =L"合計 ";
dataGridView1[12,0]->Value =L"平均 ";
//横表題
dataGridView1[0,11]->Value =L"合計 ";
dataGridView1[0,12]->Value =L"平均 ";
//2次元データ作成
for(i=1;i<11;i++){
for(j=1;j<11;j++){
dataGridView1[j,i]->Value =10*(i-1)+j;
}
}
//行合計・行平均の計算
for(i=1;i<11;i++){
w=0;
for(j=1;j<11;j++){
w=w+(int)(dataGridView1[j,i]->Value);
}
dataGridView1[11,i]->Value=w;
dataGridView1[12,i]->Value=w/10;
}
//縦合計・縦平均の計算
for(i=1;i<11;i++){
w=0;
for(j=1;j<11;j++){
w=w+(int)(dataGridView1[i,j]->Value);
}
dataGridView1[i,11]->Value=w;
dataGridView1[i,12]->Value=w/10;
}
}
};
}
第9話へ 第4講第1話へ
vc++講義第1部へ
vb講義へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
数学研究室に戻る