VB编程题及详细参考答案-
《VB编程题及详细参考答案-》由会员分享,可在线阅读,更多相关《VB编程题及详细参考答案-(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 分)本题要求填写程序的最后运行结果,请将运行结果粘贴到下面的框中。否则,该题以零分计!本题要求填写源程序,请将你解答本题所写的源程序粘贴到下面
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。