写出程序计算过程.docVIP

写出程序计算过程，并加以简单的文字说明。 填充题（补充横线上的代码，并写出求解的答案，任选其中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 a End Sub 2、求三位数中，个位数字与十位数字之和除以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 s End Sub 3、编程求方程5X+4Y 2，在|X| 50,|Y| 100内的整数解，X+Y最大值是多少？ Private Sub Form_click Max 0 For x -100 To 100 For y -50 To 50 If 5 * x - 4 * y 2 Then s x + y ________________________________ End If Next y Next x Print Max End Sub 4、统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除。 Private Sub cmdEveryNumCount_Click Dim count As Integer count 0 FontSize 14: FontBold True For i 521 To 8421 Select Case i Case 521 To 999 a i \ 100 b i \ 10 Mod 10 c i Mod 10 If a + b + c Mod 7 0 Then count count + 1 Case ________________ a i \ 1000 b i \ 100 Mod 10 c i \ 10 Mod 10 d i Mod 10 If a + b + c + d Mod 7 0 Then count count + 1 End Select Next i Print count End Sub 5、设某四位数的各位数字的平方和等于100，共有多少个这种四位数？ Private Sub cmdFourSqr_Click Dim a, b, c, d, i, count As Integer count 0 i 1111 FontSize 14: FontBold True Print: Print: Print Do Until i 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 1^3+5^3+3^3。求100至999的范围内所有水仙花数之和。 2、若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于3^2＋4^2＝5^2，则为弦数，求[100，200]之间弦数的数目。 3、要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。 要求每次换成40张小钞票，每种至少一张。编程求有多少种换法。 4、抓交通肇事犯：一辆卡车违反交通规则，撞人后逃跑。现场有三人目击事件，但是没有记住车号，只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的，但与前两位不同；丙是一位数学家