《visualbasic程序设计教程--第四版--刘炳文编著--清华大学》由会员分享，可在线阅读，更多相关《visualbasic程序设计教程--第四版--刘炳文编著--清华大学（10页珍藏版）》请在金锄头文库上搜索。
1、 .wd.Visual Basic 程序设计教程局部习题参考第四版 刘炳文 编著 清华大学出版社第五章5.4、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。Dim a as singleFor i=1 to 4 a=inputbox“请输入一个数：，“数据输入 sum=sum+a n=n+1 avg=sum/nnext iprint “和是：,sumprint “平均值是：，avg5.5、编写程序，要求用户输入以下信息：姓名、年龄、通信地址、邮政编码、 ，然后将输入的数据用适当的格式在窗体上显示出来。Dim a as v
2、ariantFontsize=20a=inputbox“请输入姓名：，“数据输入print “姓名：；aa=inputbox“请输入年龄：，“数据输入print “年龄：；aa=inputbox“请输入通信地址：，“数据输入print “通信地址：；aa=inputbox“请输入邮政编码：，“数据输入print “邮政编码：；aa=inputbox“请输入 ：，“数据输入print “ ：；a5.7设a=5，b=2.5，c=7.8，编程序计算： y=ab/a+bc程序：Dim a as single，b as single，c as singlea=5b=2.5c=7.8pi=3.14y=pi
3、*a*b/a+b*cprint “结果是：;y5.8、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。Dim a as long，d as integer ，h as integer，s as integera=inputbox“请输入秒数：，“数据输入d=inta/86400h=inta-d*86400/3600s=a-d*86400-h*3600print d；“日；h；“时；s；“秒5.9、自由落体位移公式为：s=gt2/2+v0t其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定
4、义为符号常量，用inputbox函数输入v0和t两个变量的值。Dim v as single，t as single，s as singleg=9.81v= inputbox“请输入初始速度：，“数据输入v=valvt=inputbox“请输入经历的时间：，“数据输入t=valts=g*t*t/2+v*tprint “位移量是：;s第七章7.1编程计算并输出S的值:s=2+4+6+8+100dim i,s as integers=0for i=2 to 100 step 2s=s+inextprint s7.2、我国现有人口为13亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。Pri
5、vate Sub Form_click()Dim p As DoubleDim r As SingleDim n As Integerp = 130000000r = 0.01n = 0Do While p = 200000000p = p * (1 + r)n = n + 1LoopPrint n; 年后; 中国人口增加到; pEnd Sub7.3、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，那么计算并输出三角形的面积，否那么要求重新输入。当输入-1时完毕程序。Dim a as single；b as single；c as single
6、Start:a = inputbox(“请输入第一条边长-1完毕：,数据输入)a=valaif a=-1 then endend ifb=inputbox“请输入第二条边长，“数据输入b=valbc=inputbox“请输入第三条边长，“数据输入c=valcif a+b=c or a+c=b or b+ciThenPrinta(2*i-j);ElsePrinta(j);EndIfNextjNextiEndSub7.6勾股定理中三个数的关系是a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合。例如3，4，5就是一个满足要求的整数组合Private Sub Command1_Cl
7、ick() Dim Max As Integer, I As Integer, J As Integer, K Max = 30 For I = 3 To Max - 2 For J = I + 1 To Max - 1 K = Sqr(I 2 + J 2) If K = Int(K) And K = Max Then Print I, J, K Next NextEnd Sub7.8如果一个数的因子之和等于这个数的本身，那么称这样的数为“完全数。例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之
8、间的所有的完全数form load()int i,j,m,n,summ =inputbox(输入最小正整数)n =inputbox (输入最大正整数)for j=m to nsum=0 for i=1 to j if (j mod i=0) and (i j ) then sum=sum i next if j=sum then print sum & 是完全数 next print 查找完毕beep end sub 7.10从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 80100 6079 5059 4049 039评语
9、 very good good fair poor fail Private Sub Form_Click() n = InputBox(请输入学号) s = InputBox(请输入分数) If s = 80 Then Print 学号：; n; ，; 分数：; s; ,; 学生评语：; Very Good ElseIf s = 60 And s = 50 And s = 40 And s = 0 And s = 39 Then Print 学号：; n; ，; 分数：; s; ,; 学生评语：; Fail End IfEnd Sub7.11一个两位的正整数，如将它的个位数字与十位数字对调，
10、那么产生另一个正整数，我们把后者叫做前者的对调数。如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来PrivateSubCommand1_Click() DimaAsStringDimiAsLonga=InputBox(输入一个两位的正整数:) IfVal(a)=100ThenMsgBox输入不合法ExitSubEndIfFori=1To99 IfVal(a)+i=Val(getDuiTiao(a)+getDuiTiao(CStr(i)ThenDeb
11、ug.Printi EndIfNextEndSubPrivateFunctiongetDuiTiao(ByValvStrAsString)AsStringDimstrTmpAsStringstrTmp=Right(CStr(vStr),1)&Left(CStr(vStr),1) getDuiTiao=strTmp EndFunction第八章8.4.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换第10个元素与第1个元素互换。分别输出数组原来各元素的值和对换后各元素的值。Option Base 1Private Sub Form_Click()arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)Print
