VB编程题及详细参考答案

《VB编程题及详细参考答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一套二、编程题（本题20分，必做）新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为蓝色（5分）。(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。（20分）本题要求填写源

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

3、0个不大于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=0To10

4、0Ifa(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分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分

5、计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面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位小数。要求：在运行程序时，采用适当

6、的方式输出计算结果。（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<0The

7、nx1=xx=(x1+x2)/2y=x+Cos(x)-2.8Wendx=Int(x*10000+0.5)/10000PrintxEndSub第二套二、编程题（本题20分，必做）新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。(3)编写事件过程，运行程序后