![](https://images.cnblogs.com/cnblogs_com/xe2011/201207/201207161602503527.png)
void __fastcall Tf5_10_1::RadioGroup1Click(TObject *Sender)
{
switch(RadioGroup1->ItemIndex)
{
case 0:
this->Caption ="A";
break;
case 1:
this->Caption ="B";
break;
case 2:
this->Caption ="C";
break;
}
}
{
switch(RadioGroup1->ItemIndex)
{
case 0:
this->Caption ="A";
break;
case 1:
this->Caption ="B";
break;
case 2:
this->Caption ="C";
break;
}
}
void __fastcall Tf5_5_1::btnRunClick(TObject *Sender)
{
int score;
score=StrToInt(InputBox("输入作业","请输入你的BCB成绩",""));
if(score >=0&& score <=100)
{
switch(score/10)
{
case 10:
case 9:
case 8:
ShowMessage(" A ");
break;
case 7:
ShowMessage(" B ");
break;
case 6:
ShowMessage("C ");
break;
case 5:
case 4:
case 3:
case 2:
case 1:
case 0:
ShowMessage("D ");
break;
default:
ShowMessage(" 分数输入有误(0-100) !");
}
}
else
ShowMessage(" 分数输入有误(0-100) !");
}
{
int score;
score=StrToInt(InputBox("输入作业","请输入你的BCB成绩",""));
if(score >=0&& score <=100)
{
switch(score/10)
{
case 10:
case 9:
case 8:
ShowMessage(" A ");
break;
case 7:
ShowMessage(" B ");
break;
case 6:
ShowMessage("C ");
break;
case 5:
case 4:
case 3:
case 2:
case 1:
case 0:
ShowMessage("D ");
break;
default:
ShowMessage(" 分数输入有误(0-100) !");
}
}
else
ShowMessage(" 分数输入有误(0-100) !");
}
粘贴自: < ">http://www.cnpack.org/ >