找出50以内的所有不可表示成两个平方数之和的数vb的程序设计！急！

Posted 2023-03-22

综合）
1、 单击“开始”按钮，则开始运行程序，“找出50以内的所有不可表示成两个平方数之和的数”，按图示格式将符合条件的数显示在多行文本框中，每行显示5个数，且“清除”按钮方可使用；
2、单击“清除”按钮，则将文本框清空， “退出”按钮方可使用；单击“退出”按钮则
，结束程序运行。
3、程序至少要有一个通用过程，该过程的功能是判断某一个数是否为平方数。
4.要求一个文本，每行显示5个。三个控制按钮。

Rem 创建窗体，在上面放Command1、Command2、Command3三个按钮，一个Text1文本框，文本框的MultiLine属性设置为True，ScrollBars设置为2

Rem 0也是平方数哈
Private Sub Command1_Click()
Dim i%, j%, k%, flag As Boolean
Text1.Text = ""
k = 0
For i = 0 To 50
flag = False
For j = 0 To i
If IsPf(j) And IsPf(i - j) Then flag = True: Exit For
Next

If flag = False Then

k = k + 1
Text1.Text = Text1.Text & " " & i
If k Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf

End If
Next

Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "清除"
Command3.Caption = "退出"
Command2.Enabled = False
Command3.Enabled = False
End Sub

Private Function IsPf(ByVal n As Integer) As Boolean
If n = Int(Sqr(n)) * Int(Sqr(n)) Then IsPf = True Else IsPf = False
End Function 参考技术A Private Sub Command1_Click()
Dim i%, j%, k%, flag As Boolean
Text1.Text = ""
k = 0
For i = 0 To 50
flag = False
For j = 0 To i
If IsPf(j) And IsPf(i - j) Then flag = True: Exit For
Next

If flag = False Then

k = k + 1
Text1.Text = Text1.Text & " " & i
If k Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf

End If
Next

Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "清除"
Command3.Caption = "退出"
Command2.Enabled = False
Command3.Enabled = False
End Sub

Private Function IsPf(ByVal n As Integer) As Boolean
If n = Int(Sqr(n)) * Int(Sqr(n)) Then IsPf = True Else IsPf = False
End Function 参考技术B 50以内的所有不可表示成两个平方数之和的数

这是什么数呀！！ 参考技术C 平方数是嘛？就是能表示为另一个数的平方？

找出1000以内的所有完数

题目：一个数如果恰好等于它的因子之和，这个数就称为 "完数 "。例如6=1＋2＋3.编程 找出1000以内的所有完数。

 

 1 package com.li.FiftyAlgorthm;
 2 
 3 /**
 4  * 题目：一个数如果恰好等于它的因子之和，这个数就称为 "完数 "。例如6=1＋2＋3.编程 找出1000以内的所有完数。
 5  * 
 6  * @author yejin
 7  * 
 8  */
 9 public class Wanshu {
10     public static void main(String[] args) {
11 
12         System.out.println("1到1000的完数有： ");
13         for (int i = 1; i < 1000; i++) {
14             int t = 0;
15             for (int j = 1; j <= i / 2; j++) {
16                 if (i % j == 0) {
17                     t = t + j;
18                 }
19             }
20             if (t == i) {
21                 System.out.print(i + " ");
22             }
23         }
24     }
25 }