vb科学计算器实验报告

xt1.text=””thenelseText1.Text=Left$(Text1.Text,Len(Text1.Text)-1)mand4_Click()Text1.Text=""mand5_Click()DimnAsInteger,cfAsSinglefu=0:cf=1SelectCasesignCase12Text1.Text=num1&"+"&num2Text1.Text=num1+num2Case13Text1.Text=num1-num2Case14Text1.Text=num1*num2Case15Text1.Text=num1/num2Case18Forn=1Tonum2cf=cf*num1NextnText1.Text=cfCase20Text1.Text=Sin(num1)Case21Text1.Text=Cos(num1)Case22Text1.Text=Tan(num1)Case23Text1.Text=1/Cos(num1)Case24Text1.Text=1/Sin(num1)Case25Text1.Text=1/Tan(num1)Case26Text1.Text=Sqr(num1)Case27Text1.Text=1/num1Case28Text1.Text=Atn(num1)Case29Text1.Text=Atn(num1)+2*Atn(1)Case30Text1.Text=Log(num2)/Log(num1)Case31Text1.Text=Log(num1)Case32Text1.Text=(Exp(num1)-Exp(-num1))/2Case33Text1.Text=(Exp(num1)+Exp(-num1))/2Case34Text1.Text=Abs(num1)EndSelectEndSub四.保存工程并生成exe可执行文件。