21、【VB操作题】方明同学利用VB编写了一个计算电热的程序，运行该程序后，输入相应的电流、电阻和通电时间，单击“计算”按钮，即可计算出电热值。但方明编写的程序有2处错误，请帮助他修改。（注：电热=电流×电流×电阻×时间）完成以下操作，保存操作结果：（2分）（1）修改“q=i*r*t”行中错误；（1分）（2）修改“Text4.text=i”行中的1处错误。（1分）程序代码如下：PrivateSubCommand1_Click()'“计算”按钮代码DimiAsSingle,rAsSingle,tAsSingle,qAsSinglei=Val(Text1.Text)r=Val(Text2.Text)t=Val(Text3.Text)q=i*r*tText4.Text=iEndSub22、【VB操作题】现有VB程序“找四位数.vbp”，可找出所有满足条件abcd=(ab+cd)(ab+cd)的四位数，该程序的运行界面如下图所示，单击“计算”按钮，即可找出所有满足条件的四位数。该程序代码有3处错误，请修改程序中的错误。完成以下操作，保存操作结果：（3分）（1）修改“Fori=1000To2999”行中1处错误；（1分）（2）修改“m=i/100”行中1处错误；（1分）（3）修改“Ifk=mThen”行中1处错误。（1分）程序代码如下：PrivateSubCommand1_Click()DimsAsSingle,iAsInteger'定义变量s，iText1=""'给存放求和结果的变量s赋初值Fori=1000To2999m=i/100n=iMod100k=(m+n)*(m+n)Ifk=mThenText1=Text1&""&iEndIfNextiEndSub