电子文档交易市场
安卓APP | ios版本
电子文档交易市场
安卓APP | ios版本

visualbasic程序设计教程-第四版-刘炳文编著-清华大学

10页
  • 卖家[上传人]:jiups****uk12
  • 文档编号:88919476
  • 上传时间:2019-05-13
  • 文档格式:DOCX
  • 文档大小:23.40KB
  • / 10 举报 版权申诉 马上下载
  • 文本预览
  • 下载提示
  • 常见问题
    • 1、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 variantFontsize=20a=inputbox(“请输入姓名:”,“数据输入”)print “姓名:”;aa=inputbox(“请输入年龄:”,“数据输入”)print “年龄:”;aa=inputbox(“请输入通信地址:”,“数据输入”)print “通信地址:”;aa=inputbox(“请输入邮政编码:”,“数据输入”)print “邮政编码:”;aa=inputbox(“请

      2、输入电话:”,“数据输入”)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*a*b)/(a+b*c)print “结果是:”;y5.8、输入以秒为单位表示的时间,编写程序,将其转换为几日几时几秒。Dim a as long,d as integer ,h as integer,s as integera=inputbox(“请输入秒数:”,“数据输入”)d=int(a/86400)h=int(a-d*86400)/3600)s=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定义为符号常量,用inputbox函数输入v0和t两个变量的值。Dim v as single,t a

      3、s single,s as singleg=9.81v= inputbox(“请输入初始速度:”,“数据输入”)v=val(v)t=inputbox(“请输入经历的时间:”,“数据输入”)t=val(t)s=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亿。Private 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条边能否构成三角形,如可以构成,则计算并输出三角形的面

      4、积,否则要求重新输入。当输入-1时结束程序。Dim a as single;b as single;c as singleStart:a = inputbox(“请输入第一条边长-1结束:”,”数据输入”)a=val(a)if a=-1 then endend ifb=inputbox(“请输入第二条边长”,“数据输入”)b=val(b)c=inputbox(“请输入第三条边长”,“数据输入”)c=val(c)if 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_Click() 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

      5、 + 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之间的所有的完全数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评语 very good good fair p

      6、oor 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一个两位的正整数,如将它的个位数字与十位数字对调,则产生另一个正整数,我们把后者叫做前者的对调数。如给定一个两位的正整数,请找到另一个两位的正整数,值得这两个整数之和等于他们各自的对调数之和,例如,12+32=21+23.编写程序,输入一个两位的正整数,把具有这种特征的每一对两位正整数都找出来PrivateSubCommand1_Click() DimaAsStringDimiAsLonga=InputBox(输入一个两位的正整数:) IfVal(a)=100ThenMsgBox输入不合法ExitSubEndIfFori=1To99 IfVal(a)+i=Val(getDuiTiao(a)+getDuiTiao(CStr(i)ThenDebug.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_C

      《visualbasic程序设计教程-第四版-刘炳文编著-清华大学》由会员jiups****uk12分享,可在线阅读,更多相关《visualbasic程序设计教程-第四版-刘炳文编著-清华大学》请在金锄头文库上搜索。

      点击阅读更多内容
    最新标签
    发车时刻表 长途客运 入党志愿书填写模板精品 庆祝建党101周年多体裁诗歌朗诵素材汇编10篇唯一微庆祝 智能家居系统本科论文 心得感悟 雁楠中学 20230513224122 2022 公安主题党日 部编版四年级第三单元综合性学习课件 机关事务中心2022年全面依法治区工作总结及来年工作安排 入党积极分子自我推荐 世界水日ppt 关于构建更高水平的全民健身公共服务体系的意见 空气单元分析 哈里德课件 2022年乡村振兴驻村工作计划 空气教材分析 五年级下册科学教材分析 退役军人事务局季度工作总结 集装箱房合同 2021年财务报表 2022年继续教育公需课 2022年公需课 2022年日历每月一张 名词性从句在写作中的应用 局域网技术与局域网组建 施工网格 薪资体系 运维实施方案 硫酸安全技术 柔韧训练 既有居住建筑节能改造技术规程 建筑工地疫情防控 大型工程技术风险 磷酸二氢钾 2022年小学三年级语文下册教学总结例文 少儿美术-小花 2022年环保倡议书模板六篇 2022年监理辞职报告精选 2022年畅想未来记叙文精品 企业信息化建设与管理课程实验指导书范本 草房子读后感-第1篇 小数乘整数教学PPT课件人教版五年级数学上册 2022年教师个人工作计划范本-工作计划 国学小名士经典诵读电视大赛观后感诵读经典传承美德 医疗质量管理制度 2 2022年小学体育教师学期工作总结 2022年家长会心得体会集合15篇
    关于金锄头网 - 版权申诉 - 免责声明 - 诚邀英才 - 联系我们
    手机版 | 川公网安备 51140202000112号 | 经营许可证(蜀ICP备13022795号)
    ©2008-2016 by Sichuan Goldhoe Inc. All Rights Reserved.