VB
1.编写程序,打印如下金字塔:1
121
12321
... ...
123456789 987654321
2.找出30以内满足勾股定理的整数组合并打印.例如:3,4,5.
3.点击窗体,出现两个INPUTBOX,在里面输入正整数M与N,求M与N的最大公因子并打印出来...
4.例如:28的因子为1.2.4.7.14 1+2+4+7+14=28,这样的数叫完全数.电击窗体.出现两个INPUTBOX,在里面输入M与N两个数字,找出M与N之间所有的完全数并打印出来。 ..
5.例如:12+32=23+12 56+43=34+65
找出并打印所有满足条件的两位正整数A与B并打印!
怎么编译啊 去网上看看算法
[[i] 本帖最后由 610548422 于 2008-2-22 13:23 编辑 [/i]] 帮你看看，不过一下子算不过来，以前大学里用C做过些这样的题目 最后那道题目
Private Sub Command1_Click()
Text1.Text = ""
Dim a, b As Integer
For a = 10 To 99
For b = 10 To 99
If a + b = Int(a Mod 10 & a / 10) + Int(b Mod 10 & b / 10) Then
Print a & " " & b
End If
Next b
Next a
End Sub
页:
[1]
