2022年VB程序设计课后习题答案 .pdf
《2022年VB程序设计课后习题答案 .pdf》由会员分享,可在线阅读,更多相关《2022年VB程序设计课后习题答案 .pdf(12页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、同步练习 1 二、选择题0105 CADAB 0610 ACDAB 1115 CBDBB 同步练习 2 二、选择题0105 ABDCA 0610 CACBC 1115 DADAD 1620 BDBBB 三、填空题1 可视2 LEFT、TOP、WIDTH、HEIGHT 3 按字母顺序4 查看代码5 工具、编辑器6 FORM 窗体、FONT 7 MULTILINE 8 在运行时设计是无效的9 工程、工程属性、通用、FORM1.SHOW 10TABINDEX、0 同步练习 3 二、选择题0105 BCADB 0610 ADBBC 1115 DBCBA 1620 BAABB 三、填空题1 整型、长整型
2、、单精度型、双精度型2 SIN(30*3.14/180)+SQR(X+EXP(3)/ABS(X-Y)-LOG(3*X)3 164、今天是:3-19 4 FALSE 5-4、3、-3、3、-4、4 6 CDEF 7(X MOD 10)*10+X10 8(3520)*20=20(35 20)*20=20 9 X MOD 3=0 OR X MOD 5=0 1027.6、8.2、8、1、100、397、TRUE、FALSE 同步练习 4 一、选择题0105 DBCAD 0610 CBBAB 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页,共 12 页 -1115 D25BAC 1620 CB
3、ACB 2125 DAABC 二、填空题1 正确性、有穷性、可行性、有0 个或多个输入、有1 个或多个输出2 1 2 3 3 X=7 4 X k Then y=y&Str(n)End If Next n MsgBox y,“显示质数 End Sub 3 编写程序,计算 1+2+100 的值。Private Sub Form_Click()Dim i%,s%s=0 For i=1 To 100 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页,共 12 页 -s=s+i Next i Print 1+2+3+100=;s End Sub 4 百元买百鸡。假定小鸡每只5 角,公鸡每只 2
4、元,母鸡每只 3 元,编程求解购鸡方案。(采用穷举法)假设母鸡、公鸡、小鸡各为x、y、z,列出方程为:x+y+z=100 3x+2y+0.5z=100 Private Sub Form_Click()Dim x%,y%,z%Print 母鸡,公鸡,小鸡 For x=0 To 33 For y=0 To 50 z=100-x-y If 3*x+2*y+0.5*z=100 Then Print x,y,z End If Next y Next x End Sub 5 给定三角形的 3 条边的边长,计算三角形的面积。编写程序,首选判断的3条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否
5、则要求重新输入。当输入-1 时结束程序。Private Sub Form_Click()Dim a%,b%,c%,s!,p!Do Until a=-1 Or b=-1 Or c=-1 a=Val(InputBox(a=)b=Val(InputBox(b=)c=Val(InputBox(c=)If a+b c And a+c b And b+c a Then p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Print s=;s End If Loop End Sub 6 编程打印如下图所示的数字金字塔。Private Sub Form_Click()Dim i%,j%F
6、or i=1 To 8 Print Tab(9-i);For j=1 To 2*i-1 Print Trim(Str(i);名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页,共 12 页 -Next j Print Next i End Sub 7 勾股定理中 3 个数的关系是:a*a+b*b=c*c。编写程序,输出 30 以内满足上述关系的整数组合,例如3、4、5 就是一个整数组合。Private Sub Form_Click()Dim i%,j%,k%For i=1 To 30 For j=1 To 30 For k=1 To 30 If i 2+j 2=k 2 Then Prin
7、t i,j,k End If Next k Next j Next i End Sub 8 如果一个三位数 3 个数字的立方和等于该数本身,称为水仙花数。例如153就是一个水仙花数:13+53+33=153。编写程序,显示所有三位的水仙花数。Private Sub Form_Click()Dim x%,a%,b%,c%For x=100 To 999 a=x 100 b=(x Mod 100)10 c=x Mod 10 If a 3+b 3+c 3=x Then Print x End If Next x End Sub 9 税务部门征收所得税,规定如下:(1)收入 200 元以内,免征;(2
8、)收入在 200400元内,超过 200元的部分纳税 3%;(3)收入超过 400 元的部分,纳税 4%;(4)当收入达 5000 元或超过时,将 4%改为 5%。编程实现上述操作。Private Sub Form_Click()Dim x%,y!x=Val(InputBox(请输入收入额:)Select Case x Case Is=5000 y=(x-400)*0.05 End Select Print y=;y End Sub 10编写一程序根据上网时间计算上网费用,计算方法如下:50元(=60 小时)同时为了鼓励多上网,每月收费最多不超过200 元。Private Sub Form_C
9、lick()Dim t!,s!t=Val(InputBox(请输入上网小时数)Select Case t Case Is 200 Then s=200 Case Is=60 s=4*t If s 200 Then s=200 End Select Print 上网费用为;s;元。End Sub 11编写一个程序,当输入月份时,输出季节的名称。例如,当输入月份为12、1 和 2 时,输出“冬季”;当输入月份为3、4、5 时,输出“春季”;当输入月份为6、7、8 时,输出“夏季”;当输入月份为9、10、11 时,输出“秋季”;当输入其他数字时,输出“输入错误,请重新输入!”。Private Sub
10、 Form_Click()Dim m%m=Val(InputBox(请输入月份:)Select Case m Case 12,1,2 Print 冬季 Case 3,4,5 Print 春季 Case 6,7,8 Print 夏季 Case 9,10,11 Print 秋季 名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页,共 12 页 -Case Else Print 输入错误,请重新输入!End Select End Sub 12分别利用 If 语句、Select Case语句,设计计算下列分段函数的程序。2x-1(x0)Private Sub Form_Click()Dim x!
11、,f!x=Val(InputBox(请输入 x 的值:)Select Case x Case Is 0 f=7*x-5 End Select Print f End Sub 同步练习 5 一、选择题0105 DCACD 0610 DBCDC 1115 BADAD 二、填空题1 NAME、INDEX 2 PRESERVE 3 VARIANT 4 N(2)=2 N(3)=3 5 1 2 3 1 4 1 6 1 2 3 2 4 6 7 MAX、MAX=ARR1(I)三、编程题1 从键盘上输入 10 整数,并放入一个一维数组中,然后将其前5 个元素与后5 个元素对换,即第1 个元素与第 10 个元素互
12、换,第 2 个元素与第 9 个元素互换,第 5 个元素与第 6 个元素互换。输出数组为原来各元素的值和对换后各元素的值。Private Sub Form_Click()Dim a(1 To 10)For i=1 To 10 a(i)=Val(InputBox(请输入第&i&个数)名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页,共 12 页 -Next i Print 原来各元素的值:For i=1 To 10 Print a(i);If i Mod 5=0 Then Print Next i For i=1 To 5 temp=a(i)a(i)=a(10-i+1)a(10-i+1)=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年VB程序设计课后习题答案 2022 VB 程序设计 课后 习题 答案
限制150内