编程练习一到四.doc

编程练习一 1.按指定方法编程序实现以下分段函数。 lnx y=ex x32x1  x＞5 1≤x≤5 x＜1 方法一：用单行If语句实现运转时，从文本框Text1输入x值，单击“计算”按 钮Command1按以上公式计算y值，计算结果保存三位小数，显示于标签 Label2上。 PrivateSubCommand1_Click( ) PrivateSubCommand1_Click( ) DimxAsSingle,yAsSingle x=Val 'Ifx>5Theny=Log(x)ElseIfx>=1Theny=Exp(x)Elsey=Sqr(Abs(x^3=2*x+1)) Ifx>5Theny=Log(x) Ifx>=1Andx<=5Theny=Exp(x) Ifx<1Theny=Sqr(Abs(x^3+2*x+1)) =Format(y,"") EndSub 方法二：用块If语句实现运转时，用输入框（InputBox）输入x值，单击“计算”按钮Command1按以上公式计算y值，计算结果保存三位小数，显示于文本框 Text2中。 PrivateSubCommand1_Click( ) PrivateSubCommand2_Click( ) DimxAsSingle,yAsSingle x=Val(InputBox("请输入x的值")) Ifx>5Then y=Log(x) ElseIfx>=1Then y=Exp(x) Else y=Sqr(Abs(x^3+2*x+1)) EndIf Format(y,"")EndSub EndSub 方法三：用多分支选择语句实现运转时，用输入框（InputBox）输入x值，单击“计算”按钮Command1按以上公式计算y值，计算结果保存三位小数，显示于窗体上。 PrivateSubCommand1_Click( ) PrivateSubCommand3_Click( ) DimxAsSingle,yAsSingle x=Val(InputBox("请输入x的值")) SelectCasex CaseIs>5 y=Log(x) CaseIs>=1 y=Exp(x) CaseElse y=Sqr(Abs(x^3+2*x+1)) EndSelect 100 100CurrentX=35CurrentY=90PrintFormat(y,"")EndSub 编程练习二 1．编程序实现：运转时单击窗体，用输入框（InputBox）输入n的值，求 1 1 1 1 的值，计算结果打印在目前窗体上。 1 3 5 2n 1 PrivateSubForm_Click( ) 1 PrivateSubForm_Click( ) DimnAsInteger,sAsSingle,iAsInteger n=Val(InputBox("请输入n的值：")) Fori=1Ton s=s+1/(2*i-1) Nexti CurrentX=200 CurrentY=2200 Print"s=";Format(s,"") EndSub 2．编程序实现：运转时单击窗体，用文本框Text1 输入x的值，求 1 3 5 (2n1)小于x的最大值，计算结果显示于标签 Label3上。 PrivateSubForm_Click( ) 2 PrivateSubCommand1_Click( ) DimxAsDouble,FAsDouble,iAsInteger x=Val F=1 WhileF<x i=i+1 F=F*(2*i-1) Wend F=F/(2*i-1) Str(F)EndSub PrivateSubCommand2_Click( ) DimxAsDouble,FAsDouble,iAsInteger x=Val F=1:i=-1 WhileF<x i=i+2 F=F*i 3、编写程序在窗体上输出以下列图所示的图形。要求：经过输入框函数InputBox输入打印图形的行数和组成图形的字符，经过循环实现图形输出。 PrivateSubCommand1_Click( ) DimNAsInteger,SAsString,iAsInteger N=Val(InputBox("请输入行数：")) S=InputBox("请输入组成图形的字符") Fori=1ToN PrintTab(i); Forj=1To2*N-2*i+1 PrintS; Nextj Print Nexti EndSub PrivateSubCommand2_Click( ) DimNAsInteger,SAsString,iAsInteger N=Val(InputBox("请输入行数：")) S=InputBox("请输入组成图形的字符") Fori=NTo1St