题目：1,输入一个学生的五门课的考试成绩，判断其是否为优秀。优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上；2,运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P与距离S之间的关系如下，32S<10028100<=S<200P=25200<=S<30022.5300<=S<40020400<=S>=100015S>1000请编写程序输入货物重量后计算运费。（1）PrivateSubCommand1_Click()Dima!,b!,c!,d!,e!,x!a=InputBox("请输入数学成绩")b=InputBox("请输入英语成绩")c=InputBox("请输入语文成绩")d=InputBox("请输入政治成绩")e=InputBox("请输入地理成绩")x=a+b+c+d+eIfx>=450ThenPrint"成绩优秀"ElsePrint"不优秀"EndIfEndSub（2）PrivateSubCommand1_Click()DimsAsSingle,qAsSingle,pAsSingles=Val(Text1.Text)q=Val(Text2.Text)SelectCasesCaseIs<100p=32*qCaseIs<200Ands>=100p=28*qCaseIs<300Ands>=200p=25*qCaseIs<400Ands>=300p=22.5*qCaseIs<1000Ands>=400p=20*qCaseElsep=15*qEndSelectText3.Text=pEndSub题目：编写程序输出乘法九九表，要求按上三角形式输出。编写程序输出如下图形：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To9Forj=1ToiPrintTab(j*12-12);i;"x";j;"=";i*j;NextjPrintNextiEndSubPrivateSubForm_Click()DimstrAsString,iAsInteger,jAsIntegerstr="*"Fori=1To6PrintTab(12-i);Forj=1To2*i-1Printstr;NextjPrintNextiPrintEndSub题目：编程序实现一个简单的计算器；（能实现正整数的加减乘除即可）编程序实现一个数字时钟；并且在该程序中练习其他控件的使用方法；a=Val(Text1.Text)b=Val(Text3.Text)Text2.Text="*"sum=a*bText5.Text=Str$(sum)EndSubPrivateSubCommand4_Click()DimaAsSingle,bAsSingle,sumAsSinglea=Val(Text1.Text)b=Val(Text3.Text)Text2.Text="/"sum=a/bText5.Text=Str$(sum)EndSubPrivateSubCommand5_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text5.Text=""EndSub、（2）PrivateSubform_load()Timer1.Interval=1000Label1.Caption=TimeEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSub或者PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer2.Enabled=TrueTimer3.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseTimer2.Enabled=FalseTimer3.Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubTimer1_Timer()Text1.Text=Val(Text1.Text)+1IfText1.Text=60ThenText1.Text="溢出":Text2.Text="溢出":Text3.Text="溢出"EndSubPrivateSubTimer2_Timer()Text2.Text=Va