河南省vb考试真题.doc

1、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存文件(7分)。编写事件过程,使程序在运行时能满足以下要求:(1)运行时分别在文本框1、文本框2、文本框3中各输入一个数值,单击按钮“判断”,检查给出的三条边能否构成三角形,若不满足条件,标签1中提示“请重新输入”,并且按钮“计算”不可用(变成灰色)(9分)。(2)若满足要求,单击按钮“计算”,求出该三角形的面积并将结果显示在标签2中(9分)。OptionExplicitDimaAsDouble,bAsDouble,mand1_Click()a=Val()b=Val()c=Val()Ifa+b>cAnda+c>bAndb+c>=="=mand2_Click()DimlAsDouble,sAsDoublel=(a+b+c)/2s=Sqr(l*(l-a)*(l-b)*(l-c))=sEndSub2、编写程序,计算并输出下面数列中前n(设n=15)项的和。将结果四舍五入保留4位小数。1/1!,1/2!,1/3!,1/4!,……,1/n!,……(其中,!表示求阶乘)要求:在运行程序时,使用文本框或InputBox函数输入n值,并用适当的方法输出运算结果。PrivateSubForm_Click()DimiAsInteger,nAsIntegerDimsAsDouble,hAsDoubleh=1n=InputBox("n=?")Fori=1Tonh=h*is=s+1/=Round(s,4)EndSub3、编写程序,用梯形法求一元函数f(x)=ln(x+1)+x/3,在区间[1,4]上的积分近似值S,要求结果保留3位小数(小区间数n=20,此参数不能改动)。(注意:ln(x+1)是以e为底的自然对数)要求:在运行程序时,使用文本框或InputBox函数输入n值,并用适当的方法输出运算结果。PrivateSubForm_Click()DimaAsDouble,bAsDoubleDimhAsDouble,nAsInteger,iAsIntegerDimx1AsDouble,f1AsDoubleDimx2AsDouble,f2AsDoubleDimsAsDoublen=InputBox("n=?")a=1b=4h=(b-a)/nFori=1Tonx1=a+(i-1)*hx2=x1+hf1=Log(x1+1)+x1/3f2=Log(x2+1)+x2/3s=s+(f1+f2)*h/=Round(s,3)EndSub4、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存文件(7分)。编写事件过程,使程序在运行时能满足以下要求:(1)在文本框1中输入一个字符串,单击按钮“搜索”,检查其中是否含有小写字母“x”,若不满足条件,按钮“个数”不可用(变成灰色)(9分)。(2)若满足要求,单击按钮“个数”,统计该字符串中所含小写字母“x”的个数并显示在文本框2中(9分)。mand1_Click()IfInStr(,"x")=0Then'InStr函数返回0,表示不含“==mand2_Click()DimiAsInteger,cAsIntegerFori=1ToLen()IfMid(,i,1)="x"Thenc=c+=cEndSub5、编写程序,计算并输出下面数列前n项的和(设n=50,x=),将结果四舍五入保留4位小数。sin(x)/2,sin(2x)/4,sin(3x)/6,……,sin(nx)/2n,……(其中,sin为正弦函数)要求:在运行程序时,使用文本框或InputBox函数输入n和x值,并用适当的方法输出运算结果。OptionExplicitPrivateSubForm_Click()DimnAsInteger,iAsIntegerDimxAsDouble,sAsDoublen=InputBox("n=?")x=InputBox("x=?")Fori=1Tons=s+Sin(i*x)/(2*i)=Round(s,4)EndSub6、编写程序,用梯形法求一元函数f(x)=ln(x+1)+x/3,在区间[1,4]上的积分近似值S,要求结果保留3位小数(小区间数n=10,此参数不能改动)。(注意:ln(x+1)是