VB编程题及详细参考答案

第一套二、编程题（本题20分，必做）新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。

(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为蓝色（5分）。

(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。

（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 PrivateSubCommand1_Click()Label1.ForeColor=&HFF0000Label1.Caption="颜色已经改变"EndSubPrivateSubCommand2_Click()Label1.FontSize=28EndSub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中（9分）。

(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数（9分）。

（提示：使用数组存储数据）

（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dima(100)AsIntegerPrivateSubCommand1_Click()Fori=0To100a(i)=Int(Rnd*100)List1.AddItema(i),iNextiEndSubPrivateSubCommand2_Click()DimsAsIntegers=0Fori=0To100Ifa(i)Mod2=1ThenList2.AddItema(i)s=s+1Ifs>=20ThenExitForEndIfNextiEndSub四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，求下面数列前30项的和。将结果四舍五入保留4位小数。

1,-1/3^3,1/5^3,1/7^3,……,(-1)^(n-1)/(2n-1)^3,……

（其中，^

表示幂运算）

要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimsAsDoubleDimnAsIntegern=InputBox("请输入一个数")s=0Fori=1Tons=s+(-1)^(i-1)/(2*i-1)^3Nextis=Int(s*10000+0.5)/10000Text1.Text=sEndSub五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用二分法求一元非线性方程f(x)=x+cosx-2.8=0在区间(0，5)上的近似实根r，要求结果保留4位小数。

要求：在运行程序时，采用适当的方式输出计算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimxAsSingle,x1AsSingle,x2AsSingleDimyAsSingle,y1AsSingle,y2AsSinglex1=0x2=5x=(x1+x2)/2y=x+Cos(x)-2.8WhileAbs(y)>0.00001y1=x1+Cos(x1)-2.8y2=x2+Cos(x2)-2.8Ify1*y<0Thenx2=xIfy2*y<0Thenx1=xx=(x1+x2)/2y=x+Cos(x)-2.8Wendx=Int(x*10000+0.5)/10000PrintxEndSub第二套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。

(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 PrivateSubCommand1_Click()Form1.Height=Form1.Height+500EndSubPrivateSubLabel1_Click()Form1.BackColor=&HFF00&EndSub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)声明一个含10个元素的一维数组，运行时单击命令按钮1，利用InputBox函数以循环方式给数组赋值。（9分）。

(2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中后5个数的平均值显示在一个文本框中（9分）。（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上Dima(1To10)AsIntegerPrivateSubCommand1_Click()Fori=1To10a(i)=InputBox("请输入一个数")NextiEndSubPrivateSubCommand2_Click()Fori=1To10Printa(i);NextiFori=6To10s=s+a(i)Nextis=s/5Text1.Text=sEndSub 四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，计算并输出下面数列前n项(设n=50)的和。

1×2,-2×3,3×4,-4×5,……,(-1)^(n-1)×n×(n+1),……

（其中，^

表示幂运算）

要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimsAsDoubleDimnAsIntegern=InputBox("请输入一个数")s=0Fori=1Tons=s+(-1)^(i-1)*i*(i+1)NextiText1.Text=sEndSub五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用矩形法求一元函数f(x)=x^3+2x^2-12x-6（其中^表示幂运算），在区间[3.5，5]上的积分近似值S，保留2位小数（小区间数n=15，此参数不能改动）。

要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimnAsIntegerDimxAsDoubleDimyAsDoubleDimhAsDoubleDimsAsDoublen=InputBox("请输入区间数")x=3.5h=(5-3.5)/ns=0Fori=1Tony=x^3+2*x^2-12*x-6s=s+y*hx=x+hNextis=Int(s*100+0.5)/100Print"积分为：";sEndSub第三套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置命令按钮上的文字为“大小”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为28磅（5分）。

(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）。（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上PrivateSubCommand1_Click()Label1.FontSize=28EndSubPrivateSubOption1_Click(IndexAsInteger)Label1.ForeColor=&HFF&EndSubPrivateSubOption2_Click()Label1.ForeColor=&HFF00&EndSubPrivateSubOption3_Click()Label1.ForeColor=&HFF0000EndSub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表框中（9分）。

(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中前10个和后10个数据的平均值（9分）。（提示：使用数组存储数据）（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上Dima(100)AsIntegerPrivateSubCommand1_Click()Fori=1To100a(i)=Int(Rnd*100)+100List1.AddItema(i)NextiEndSubPrivateSubCommand2_Click()Dims1AsSingleDims2AsSingleFori=1To10s1=s1+a(i)Nextis1=s1/10Fori=91To100s2=s2+a(i)Nextis2=s2/10Text1.Text="前10个数的平均值为："&s1Text2.Text="后10个数的平均值为："&s2EndSub四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，计算并输出下面数列前35项的和，将结果四舍五入保留4位小数。

1/2,2/3,3/4,4/5,5/6,6/7,7/8,

……

,

n/(n+1),……

要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimnAsIntegerDimsAsDoublen=InputBox("请输入项数")Fori=1Tons=s+i/(i+1)Nextis=Int(s*10000+0.5)/10000Text1.Text=sEndSub五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用牛顿切线法求方程f(x)=x^3+2x^2-14=0（其中^表示幂运算），在区间(0，5)上的近似实根r，迭代初值自选，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。

要求：在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。

（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimxAsDoubleDimy1AsDoubleDimy2AsDoublex=(5-0)/2y1=x^3+2*x^2-14y2=3*x^2+4*xWhileAbs(y1)>0.0001x=x-y1/y2y1=x^3+2*x^2-14y2=3*x^2+4*xWendx=Int(x*10000+0.5)/10000Print"方程的根是："&xEndSub第四套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。

(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的宽度（5分）。

(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。

（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 PrivateSubCommand1_Click()Form1.Width=Form1.Width+500EndSubPrivateSubLabel1_Click()Form1.BackColor=&HFF00&EndSub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容（9分）。

(2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串左边的10个字符（9分）。（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上PrivateSubCommand1_Click()Text2.Text=Len(Text1.Text)Text3.Text=Left(Text1.Text,10)EndSubPrivateSubText1_Change()Label1.Caption=Text1.TextEndSub四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，计算出2000到9990之间所有能同时被11和17整除的整数之和。

要求：在运行程序时，采用适当的方式输出计算结果。

（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimsAsDoubleFori=2000To9990If(iMod11=0)And(iMod17=0)Thens=s+iEndIfNextiPrint"和是："&sEndSub五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用牛顿切线法求方程f(x)=3x^3-12x^2+4=0（其中^表示幂运算），在区间(3,6)上的近似实根r，迭代初值取5，要求结果保留4位小数。〔提示:牛顿切线法的计算公式为x=x-f(x)/f'(x)〕。

要求：在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。

（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimxAsDoubleDimy1AsDoubleDimy2AsDoublex=5y1=3*x^3-12*x^2+4y2=9*x^2-24*xWhileAbs(y1)>0.0001x=x-y1/y2y1=3*x^3-12*x^2+4y2=9*x^2-24*xWendx=Int(x*10000+0.5)/10000Print"方程的根是："&xEndSub第五套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。

(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）。

(3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置（5分）。

（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上PrivateSubCommand1_Click()Label1.Caption="你单击了[显示]按钮"EndSubPrivateSubForm_Click()Command1.Left=Command1.Left+Command1.WidthEndSub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)声明一个含10个元素的一维数组，运行时利用InputBox函数以循环方式给数组赋值。（9分）。

(2)输入完成后，单击命令按钮，显示（方式不限）数组中的元素，并将数组中前4个元素的平均值输出到一个文本框中（9分）。（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 Dima(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10a(i)=InputBox("请输入数据")NextiEndSubPrivateSubCommand2_Click()Fori=1To10Printa(i);NextiFori=1To4s=s+a(i)Nextis=s/4Text1.Text="前4个的平均值为："&sEndSub四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。

要求：运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimsAsDoubleFori=3000To7000IfiMod7=0AndiMod17<>0Thens=s+Sqr(i)EndIfNextis=Int(s*10000+0.5)/10000Text1.Text="和是："&sEndSub五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用二分法求一元非线性方程f(x)=x^3+2x^2-12=0（其中^表示幂运算），在区间(0，5)上的近似实根r，要求结果保留4位小数。

要求：在运行程序时，采用适当的方式输出计算结果。

（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面PrivateSubCommand1_Click()DimxAsSingle,x1AsSingle,x2AsSingleDimyAsSingle,y1AsSingle,y2AsSinglex1=0x2=5x=(x1+x2)/2y=x^3+2*x^2-12WhileAbs(y)>0.00001y1=x1^3+2*x1^2-12y2=x2^3+2*x2^2-12Ify1*y<0Thenx2=xIfy2*y<0Thenx1=xx=(x1+x2)/2y=x^3+2*x^2-12Wendx=Int(x*10000+0.5)/10000Print"方程的根为："&xEndSub第六套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：

(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。

(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）。

(3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置（5分）。

（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 参考第五套三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。

编写事件过程并满足以下要求：

(1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容（9分）。

(2)输入完成后，单击命令按钮，在文本框2中显示输入字符的个数，在文本框3中显示该字符串左边的10个字符（9分）。（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上 四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，计算并输出下面数列前n项的和(设n=50，x=0.4)，要求结果保留4位小数，小数点后第5位四舍五入。

cos(x)/2,cos(2x)/4,cos(3x)/6,……,cos(nx)/2n,……

（其中，cos为余弦函数）

要求：在运行程序时，使用文本框或InputBox函数输入n和x值，并用适当的方法输出运算结果。（25分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计! 本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，用矩形法求一元函数f(x)=x^3+2x^2-12x-6（其中^表示幂运算），在区间[3.5，5]上的积分近似