写出程序计算过程.doc_第1页
写出程序计算过程.doc_第2页
写出程序计算过程.doc_第3页
写出程序计算过程.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

（1） 写出程序计算过程，并加以简单的文字说明。一、 填充题（补充横线上的代码，并写出求解的答案，任选其中3个加以实现）1、计算年龄。用爷爷的年龄的5倍加6得的和，再乘以20，再加上奶奶的年龄，再减去365，得数为6924，又知爷爷比奶奶大2岁。求爷爷、奶奶的年龄的和。Private Sub Form_Click() For a = 1 To 200 For b = 1 To 200 If _ Then Print a + b End If Next b Next aEnd Sub2、求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。Private Sub Form_click() Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer s = 0 x = 100 Do While x = 999 a = Int(x / 100) b = Int(x / 10) - a * 100 c = x - a * 100 - b * 10 If _Then s = s + 1 x = x + 1 Loop Print sEnd Sub3、编程求方程5X+4Y=2，在|X|=50,|Y| 9999 a = i 1000 b = (i Mod 1000) 100 c = _ d = i Mod 10 If 100 = a 2 + b 2 + c 2 + d 2 Then count = count + 1 i = i + 1 Loop Print count End Sub二、程序设计（要求：任选其中的4个实现，Vb的程序代码文件要求发送，并给出适当的文字说明）1、“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=13+53+33。求100至999的范围内所有水仙花数之和。2、若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于324252，则为弦数，求100，200之间弦数的数目。3、要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。 要求每次换成40张小钞票，每种至少一张。编程求有多少种换法。4、抓交通肇事犯：一辆卡车违反交通规则，撞人后逃跑。现场有三人目击事件，但是没有记住车号，只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的，但与前两位不同；丙是一位数学家，他说：四位的车号刚好是一个整数的平方。请根据以上的线索求出车号?编程实现之?5、所谓
人人文库> 全部分类> 应用文书 > 产品手册

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论