VB编程题及详细参考答案-.pdf

《VB编程题及详细参考答案-.pdf》由会员分享，可在线阅读，更多相关《VB编程题及详细参考答案-.pdf（16页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、0 个不大于300 的随机整数并显示在列表框1 中（9 分）。(2)单击命令按钮2，在列表框2 中显示上述随机整数中前20 个奇数（9 分）。（提示：使用数组存储数据）（25 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上Dim a(100)As Integer Private Sub Command1_Click()For i=0 To 100 a(i)=Int(Rnd*100)List1.AddItem a(i),i Next i End Sub Private Sub Command2_Click()Dim s As

4、Integer s=0 For i=0 To 100 If a(i)Mod 2=1 Then List2.AddItem a(i)s=s+1 If s=20 Then Exit For End If Next i End Sub 四、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，求下面数列前30 项的和。将结果四舍五入保留4 位小数。1,-1/33,1/53,1/73,(-1)(n-1)/(2n-1)3,（其中，表示幂运算）要求：在运行程序时，使用文本框或InputBox函数输入n 值，并用适当的方法输出运算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结

5、果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim s As Double Dim n As Integer n=InputBox(请输入一个数)s=0 For i=1 To n s=s+(-1)(i-1)/(2*i-1)3 Next i s=Int(s*10000+0.5)/10000 Text1.Text=s End Sub 五、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，用二分法求一元非线性方程f(x)=x+cosx-2.8=0在区间(0，5)上的近似实

6、根r，要求结果保留4位小数。要求：在运行程序时，采用适当的方式输出计算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim x As Single,x1 As Single,x2 As Single Dim y As Single,y1 As Single,y2 As Single x1=0 x2=5 x=(x1+x2)/2 y=x+Cos(x)-2.8 While Abs(y)0.00001 y1=x1+Cos(x1)-2.8

7、y2=x2+Cos(x2)-2.8 If y1*y 0 Then x2=x If y2*y 0.0001 x=x-y1/y2 y1=x 3+2*x 2-14 y2=3*x 2+4*x Wend x=Int(x*10000+0.5)/10000 Print 方程的根是：&x End Sub 第四套二、编程题（本题20 分，必做）新建工程，在窗体上创建一个命令按钮Command1 和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5 分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。(2)编写事件过程，运行程序后，单击命令

8、按钮，适当增加窗体的宽度（5 分）。(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5 分）。（20 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上Private Sub Command1_Click()Form1.Width=Form1.Width+500 End Sub Private Sub Label1_Click()Form1.BackColor=&HFF00&End Sub 三、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的

9、大小适当、布局合理，命名并保存窗体文件（7 分）。编写事件过程并满足以下要求：(1)在文本框1 中输入若干字符，此时应在标签中同步显示输入的内容（9 分）。(2)输入完成后，单击命令按钮，在文本框2 中显示输入字符的个数，在文本框3 中显示该字符串左边的10 个字符（9 分）。（25 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上Private Sub Command1_Click()Text2.Text=Len(Text1.Text)Text3.Text=Left(Text1.Text,10)End Sub Private

10、 Sub Text1_Change()Label1.Caption=Text1.Text End Sub 四、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，计算出2000 到 9990 之间所有能同时被11 和 17 整除的整数之和。要求：在运行程序时，采用适当的方式输出计算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim s As Double For i=2000 To 9990 If(i Mod

11、 11=0)And(i Mod 17=0)Then s=s+i End If Next i Print 和是：&s End Sub 五、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，用牛顿切线法求方程f(x)=3x3-12x2+4=0（其中 表示幂运算），在区间(3,6)上的近似实根r，迭代初值取5，要求结果保留4 位小数。提示:牛顿切线法的计算公式为 x=x-f(x)/f(x)。要求：在运行程序时，使用文本框或InputBox函数输入迭代初值，并用适当的方法输出运算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本

12、题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim x As Double Dim y1 As Double Dim y2 As Double x=5 y1=3*x 3-12*x 2+4 y2=9*x 2-24*x While Abs(y1)0.0001 x=x-y1/y2 y1=3*x 3-12*x 2+4 y2=9*x 2-24*x Wend x=Int(x*10000+0.5)/10000 Print 方程的根是：&x End Sub 第五套二、编程题（本题20 分，必做）新建工程，在窗体上创建一个命令按钮Command1

13、，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5 分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5 分）。(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了显示 按钮”（5 分）。(3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置（5 分）。（20 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上Private Sub Command1_Click()Label1.Caption=你单击了 显示 按钮 End Sub

14、Private Sub Form_Click()Command1.Left=Command1.Left+Command1.Width End Sub 三、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7 分）。编写事件过程并满足以下要求：(1)声明一个含10 个元素的一维数组，运行时利用InputBox函数以循环方式给数组赋值。（9 分）。(2)输入完成后，单击命令按钮，显示（方式不限）数组中的元素，并将数组中前4 个元素的平均值输出到一个文本框中（9分）。（25 分）本题要求填写源

15、程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上Dim a(10)As Integer Private Sub Command1_Click()For i=1 To 10 a(i)=InputBox(请输入数据)Next i End Sub Private Sub Command2_Click()For i=1 To 10 Print a(i);Next i For i=1 To 4 s=s+a(i)Next i s=s/4 Text1.Text=前 4 个的平均值为：&s End Sub 四、编程题（本题25 分，第三、四、五题选做两道，多做

16、按前两道算）编写程序，计算出 3000 到 7000 之间能被7 整除但不能被17 整除的所有整数的平方根的和。要求：运行程序，将结果四舍五入保留4 位小数，并采用适当的方式输出。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim s As Double For i=3000 To 7000 If i Mod 7=0 And i Mod 17 0 Then s=s+Sqr(i)End If Next i s=Int(s*10000+0

17、.5)/10000 Text1.Text=和是：&s End Sub 五、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，用二分法求一元非线性方程f(x)=x3+2x2-12=0（其中 表示幂运算），在区间(0，5)上的近似实根r，要求结果保留4 位小数。要求：在运行程序时，采用适当的方式输出计算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面Private Sub Command1_Click()Dim x As Single,x1 As Single,x2 A

18、s Single Dim y As Single,y1 As Single,y2 As Single x1=0 x2=5 x=(x1+x2)/2 y=x 3+2*x 2-12 While Abs(y)0.00001 y1=x1 3+2*x1 2-12 y2=x2 3+2*x2 2-12 If y1*y 0 Then x2=x If y2*y 0 Then x1=x x=(x1+x2)/2 y=x 3+2*x 2-12 Wend x=Int(x*10000+0.5)/10000 Print 方程的根为：&x End Sub 第六套 二、编程题（本题20 分，必做）新建工程，在窗体上创建一个命令按

19、钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5 分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5 分）。(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了显示 按钮”（5 分）。(3)编写事件过程，运行程序后，每次单击窗体，命令按钮向右移动一个按钮位置（5 分）。（20 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上参考第五套三、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计

20、窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7 分）。编写事件过程并满足以下要求：(1)在文本框1 中输入若干字符，此时应在标签中同步显示输入的内容（9 分）。(2)输入完成后，单击命令按钮，在文本框2 中显示输入字符的个数，在文本框3 中显示该字符串左边的10 个字符（9 分）。（25 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上四、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，计算并输出下面数列前n 项的和(设 n=50，x=0.4)，要求结果保留4 位小数，小数点后第5

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

22、不能改动）。要求：在运行程序时，使用文本框或InputBox函数输入n 值，并用适当的方法输出运算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面二、编程题（本题20 分，必做）新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5 分），要求：(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“Visual Ba

23、sic考试”（5 分）。(3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色（5 分）。（20 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上三、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7 分）。编写事件过程并满足以下要求：(1)单击命令按钮1，产生 100 个随机整数并显示在列表框中（9 分）。(2)单击命令按钮2，在两个文本框中分别显示上述数据中的最小偶数和最小奇数（9 分）。（提示：使用数组存

24、储数据）（25 分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm 文件上载到服务器上四、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，求下面数列前50 项的和。将结果四舍五入保留4 位小数。1,1/(33),1/(5 5),1/(7 7),1/(2n-1)(2n-1),要求：在运行程序时，使用文本框或InputBox函数输入n 值，并用适当的方法输出运算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面五、编程题（本题25 分，第三、四、五题选做两道，多做按前两道算）编写程序，用梯形法求一元函数f(x)=3x3+2x2+x+1（其中 表示幂运算），在区间 1，2.5上的积分近似值S，保留 3 位小数（小区间数n=10，此参数不能改动）。要求：在运行程序时，使用文本框或InputBox函数输入n 值，并用适当的方法输出运算结果。（25 分）本题要求填写程序的最后运行结果，请将运行结果粘贴到下面的框中。否则，该题以零分计!本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面