VB补充题目.ppt

补充题目 勾股定理中3个数的关系是：a^2+b^2=c^2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。 勾股定理 补充题目 勾股定理,找出勾股定理中,三个数都小于60的个数总和: 要求: 3,4,5这是一个勾股定理,但4,5,3or 5,4,3都只能算是一个勾股定理, Private Sub Command1_Click() Open c:\gougu.txt For Output As 1 Dim a As Integer, b As Integer, c As Single For a = 3 To 59 ?For b = a + 1 To 59 ??c = (a * a + b * b) ^ 0.5 ??If Int(c) = c And c 60 Then ???Print #1, a; ,; b; ,; c ??End If ?Next Next End Sub 水仙花 所谓“水仙花数”是指一个三位数，其各位数字的立方和等于本身。 如153=13+53+33 解此题的关键是怎能样从一个三位数中分离百位数、十位数、个位数。可以这样做，设该三位数以i代表，由a,b,c三个数字组成。 (1)百位数字a:a=INT(i/100). (2)十位数字b:b=INT((i-100*a)/10) (3)百位数字c:c=i-int(i/10)*10. 例:求出所有的水仙花，如153=13+53+33 Private Sub Form_Click() For i = 100 To 999 a = Int(i / 100) b = Int((i - 100 * a) / 10) c = i - Int(i / 10) * 10 If i = a * a * a + b * b * b + c * c * c Then Print i; Next i End Sub 其结果为：153 370 371 407 * 求出所有的水仙花，如153=13+53+33 Private Sub Command1_Click() Dim X As Integer, Y As Integer, Z As Integer For X = 1 To 9 For Y = 0 To 9 For Z = 0 To 9 If X ^ 3 + Y ^ 3 + Z ^ 3 = 100 * X + 10 * Y + Z Then Print 100 * X + 10 * Y + Z End If Next Next Next End Sub 如果要你写一个检测水仙花的函数呢？ Public Function sxh(x As Integer) As Boolean a = Int(x / 100) b = Int((x - 100 * a) / 10) c = x - Int(x / 10) * 10 If x = a * a * a + b * b * b + c * c * c Then sxh = True Else sxh = False End If End Function Private Sub Command1_Click() Dim n As Integer n = InputBox(请输入一个三位整数) If sxh(n) = True Then Print n; 是水仙花 Else Print n; 不是水仙花; 甘落后 End If End Sub 考生文件夹下有工程文件vbsj5.vbp及窗体文件vbsj5.frm。在名为Form1 的窗体上有3 个Label 控件和2 个名称分别为Cmd1 和Cmd2，标题分别为“开始”和“结束”的命令按钮。编写函数Item（A，N），其功能是生成N 个由数字A 组成的不多于N 位的整数， 并利用该函数求它们的和，如5+55+555+5555+55555，结果写入考生文件夹下的dw1.dat文件中。执行完毕“开始”按钮变成“完成”按钮，且无效（变灰），如图82-5 所示。 要求：程序不完整，请在问号“？”处填入正确内容，然后删除问号“？”及注释符“”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。 类似理论题 1、下面函数的功能是：求变量s（s=a+aa+aaa+aaaa+….）的值，其中，a为一个0~9的数字，总共累积a项，例如： 当a=3时，s=3+33+333 （共累积3项） 当a=5时，s=5+55+555+5555+