VB教材课后习题答案.pdf

《VB教材课后习题答案.pdf》由会员分享，可在线阅读，更多相关《VB教材课后习题答案.pdf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 大学程序设计基础-V i s u al Bas i c 教材课后习题答案第 1 章一、选择题1234567BDBCBBD第 2 章一、选择题1234567891 0BCBCBCAAAA1 11 21 31 4ABAA二、填空题1.r em 或 _2.#3.5x-3x-2s i n A/34.321 4565.30 0三、操作题1、程序段：Pr i v at e Su b Co m m an dl _ Cl i c k()Di m x A s In t eger,y A s In t egerDi m s A s Lo n g,c A s Lo n gx =Tex t l.Tex ty =Te

2、x t 2.Tex ts =x *yc =(x +y)*2Lab el 3.Cap t i o n =长方形的面积为+St r (s)Lab e 1 4.Cap t i o n =长方形的周长为+St r(c)En d Su b3、程序段：Pr i v at e Su b Co m m an d 1 Cl i c k()Tex t l.Tex t =第 一 En d Su bPr i v at e Su b Co m m an d2_ Cl i c k ()Tex t l.Tex t =第二”En d Su b4、程序代码：Pr i v at e Su b Tex t I Ch an ge()

3、Tex t l.Max Len gt h =1 0En d Su b5、程序代码：Pr i v at e Su b Tex t l _ Cl i c k()Tex t l.Sel St ar t =0Tex t l.Sel Len gt h =Len(Tex t l.Tex t)En d Su b第3章一、选择题1234567DADBADB二、填空题1.Fal s e2.B2-4*a*c el s e三、操作题1 .从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。Di m a A s In t eger,b A s Lo n g,c A s Lo n

4、 g,s A s Si n gl e,p A s Si n gl ea=V ai (In p u t Bo x(请输入一个值：)b =V ai (In p u t Bo x (请输入一个值：“)c =V ai (In p u t Bo x(请输入一个值：)If(a+b c A n d a+c b A n d b +c a)Th enp=(a +b +c)/2s =Sq r (p *(p -a)*(p -b)*(p -c)Pr i n t a&，&b&,&c&能构成一个三角形，它的面积为：&sEn d If2.编写程序，任意输入一个整数，判定该整数奇偶性。Di m n A s In t eger

5、n =V al(In p u t Bo x(请输入一个整数：)If n Mo d 2=0 Th enPr i n t n&是偶数El s ePr i n t n&是奇数En d If3.求一元二次方程的a*x-2+b*x+c=0的根。Di m a A s In t eger,b A s In t eger,c A s In t eger,del t a A s Si n gl e,x l A s Si n gl e,x 2 A sSi n gl ea=V ai (In p u t Bo x(请输入一个整数：)b =V ai (In p u t Bo x(请输入一个整数：)c =V al(In

6、p u t Bo x(请输入一个整数：)del t a=b 2-4*a*cIf del t a=0 Th enx l =-b /(2*a)Pr i n t 一元二次方程有两个相等的实根x l=x 2=&x lEl s eIf del t a 0 Th enx l =(-b +Sq r(del t a)/(2*a)x 2=(-b -Sq r(del t a)/(2*a)Pr i n t 一元二次方程有两个不等的实根x l=&x l&,x 2=&x 2El s ex l =(-b)/(2*a)x 2=Sq r(-del t a)/(2*a)Pr i n t 一元二次方程有两个不等的虚根x l=&x

7、 l&+&x 2&i,x 2二&x l&x 2&i En d IfEn d If4.任意输入三个数，输出最大数。Di m a A s In t eger,b A s In t eger,c A s In t eger,m ax A s In t egera=V ai (In p u t Bo x(请输入一个整数：)b =V al(In p u t Bo x(请输入一个整数：)c =V al(In p u t Bo x(请输入一个整数：)m ax =aIf m ax b Th enm ax =bEn d IfIf m ax c Th enm ax =cEn d IfPr i n t 最大数是&m

8、 ax5.任意输入三个数，由大到小排序输出。Di m a A s In t eger,b A s In t eger,c A s In t eger,t em p A s In t egera=V al(In p u t Bo x(请输入一个整数：)b =V ai (In p u t Bo x(请输入一个整数：)c =V ai (In p u t Bo x(请输入一个整数：)If a c Th enPr i n t a,b,cEl s eIf a c Th enPr i n t a,c,bEl s ePr i n t c,a,bEn d IfEn d If第 4 章一、选择题123456789

9、1 0ABACDBADBB1 11 21 31 41 51 6DCDCBB二、填空题1.92.1 2 33.74.1 0 0+1 0 0；x m o d 5=05.66.57.*2 51 5 30 751 6 32 80三、编程题1 .键盘输入几个不同的数，将它们从大到小排序。2.设 计 程 序,求 出 S=U+(1+2)+(1+2+3)+(1+2+3+4+N)的值。Di m i A s In t eger,s n A s Lo n g,s A s Lo n g,n A s In t egers n =0s =0n =In p u t Bo x()Fo r i =1 To ns n =s n

10、+is =s +s nNex tPr i n t s运行结果：若 n为 1 0,S 为 220。3.输 入 X的值，求 S=x-x 3/3!+x 5/5!-的前20 项的和值。Di m x A s Si n gl e,i A s In t eger,s A s Do u b l ex =In p u t Bo x (输入 X 值：)s =xFo r i =1 To 1 9p =1Fo r j=lT o2*i+lP=P*JNex ts =s +(-1)-(i)*x -(2*i +1)/pNex tPr i n t s运行结果：当 X为 2 时，S 为 0.91(精确到小数点后两位)4.勾股定理中

11、3 个数的关系是：a2+b2=c 编写程序，输 出 3 0 以内满足上述关系的整数组合，例如3、4、5 就是一个整数组合。Di m a A s In t eger,b A s In t eger,c A s In t eger,k A s In t egerFo r a=1 To 30Fo r b =1 To 30Fo r c =1 To 30I f a 2+b 2=c 2 Th en k =k +1:Pr i n t a,b,cNex tNex tPr i n t k运行结果:225.输 出 1 0 0 0 以内的完全数。完全数就是它的各个约数之和等于该数本身（如：6=1+2+3,6是完全数

12、）。Di m i A s In t eger,j A s In t eger,a A s In t egerFo r i =2 To 1 0 0 0a=0Fo r j =1 To i -1If i Mo d j =0 Th en a=a+j 判断j 是否能整除i,如果能，则 a 增加jNex t jIf a=i Th en Pr i n t i 判 断 i 是否是完全数，如果是，则输出iNex t i运行结果：66 .编程求出所有的水仙花数。水仙花数就是个三位数，其各位数字立方和等于该数。（如153=13+53+33）ODi m i A s In t eger,s A s In t egerD

13、i m a A s In t eger,b A s In t eger,c A s In t egerPr i n t 1 0 0 到 999所有水仙花数：;Fo r i =1 0 0 To 999a=i 1 0 0 取百位数b =i 1 0 Mo d 1 0 或 b =i Mo d 1 0 0 1 0 取十位数c =i Mo d 1 0 取个位数s =a-3+b-3+c人3 水仙花数的判断依据If s =i Th en Pr i n t i;Nex t i运行结果：1 0 0 到 999所有水仙花数：1 53 370 371 40 77.编写程序，输 出 1 0 0 30 0 间的所有素数。

14、Di m i A s In t eger,j A s In t eger,c A s In t eger,k A s In t egerFo r i =1 0 0 To 30 0Fo r j =2 To i -1If i Mo d j =0 Th en Ex i t Fo rNex tIf i =j Th enPr i n t i;k =k +1s =s +iIf k Mo d 1 0 =0 Th en Pr i n tEn d IfNex tPr i n tPr i n t 1 0 0 30 0 间总共有+St r(k)+个素数，+和值为+St r(s)运行结果：101 103 107151

15、 157 163199 211 223263 269 27110。300间总共有9777706273112233911172228素1A1933839勺112直793302738S.1122，1371912417215139 149193 197251 2578.我 国 现 有 人 口 为 1 3 亿。设 年 增 长 率 为 1%,编写程序，计算多少年后增加到20亿。Di m i A s Lo n g,s A s Si n gl eDi m n A s Si n gl e,m A s Si n gl en =In p u t Bo x(“请输入增长率：)i =0s =1 3m =sDo W h

16、 i l e m 0.000001i=i+2fla g=-fla gn =1/ipi=pi+fla g*nL oopP r in t pi*4运行结果：3.14159465358569第 5 章一、选择题12345678910DCDDBAABCB1112131415DBBC1 3二、填空题1.242.73.a=30 b=704.“123456789”三、编程题1.编写一个求3 个数中最大值Ma x和最小值Min 的过程，然后用这个过程分别求3 个数、5 个数、7 个数中的最大值和最小值。Dim a()Sub m a xm in (b ()，过程Dim m a x,m in,km a x=b(l

17、)m in =b(l)For k=1 T o U B oun d(b)I f m a x b(k)T henm in =b(k)En d I fEn d I fNextP r in t 最大值二；m a x,最小值=“；m inEn d SubP r iva te Sub C om m a n dl_ C lick()，主程序n =I n putB ox(n 二”)ReDim a(n)For i=1 T o na(i)=V a i(I n putB ox(a=)P r in t a(i),NextP r in tC a l 1 m a xm in(a()En d Sub2.编写程序，求 5=人

18、!+8!+(：!,阶乘的计算分别用Sub 过程和Fun ction 过程两种方法来实现。P ub lic Sub fa ct2(m,s s)Dim p,kP =1For k=1 T o mp 二 p*kNexts s =s s +pEn d SubP ub lic Fun ction fa ctl(n)Dim p,kp=1For k=1 T o np=p*kNextfa ctl=pEn d Fun ctionP r iva te Sub C om m a n d1_ C 1ick()Dim s,a,b,ca =V a i(I n putB ox fa=)b =V a i(I n putB ox

19、(z，b=，/)c=V a i(I n putB ox(，zc=，/)s =fa ctl(a)+fa ctl(b)+fa ctl(c)函数P r in t ss s =0C a ll fa ct2(a,ss)过程C a ll fa ct2(b,s s)C a ll fa ct2(c,s s)P r in t s sEn d Sub3.编 写 个过程，以整型数作为形参，当该参数为奇数时输出Fa ls e,而当该参数为偶数时输出T r ueo4.设 a为一整数，如果数a与其平方数的尾部相等，则称a为“同构数。例如5=25,25?=625,则 5 和 25都是同构数。试编写一个Fun ction 过程A utom or phic,其形参为一正整数，判断其是否为同构数，然后用该过程查找1 1000内的所有同构数。第 6 章-、选择题12345DACBD第 7 章一、选生E题12345678DBAADDBA