请用vb程序输出30以内所有勾股数组合,求语句
发布网友
发布时间：2022-05-29 19:09
我来回答
共1个回答
热心网友
时间：2023-11-08 18:51
Private Sub Command1_Click()
Dim k1 As Long, k2 As Long, k3 As Long
For k2 = 1 To 30
For k1 = 1 To k1
k3 = Sqr(k1 ^ 2 + k2 ^ 2)
If k3 <= 30 And k1 ^ 2 + k2 ^ 2 = k3 ^ 2 Then Print k1, k2, k3
Next
Next
End Sub
追问运行不了啊
追答窗体上加个按钮Command1
请用vb程序输出30以内所有勾股数组合,求语句
Private Sub Command1_Click()Dim k1 As Long, k2 As Long, k3 As LongFor k2 = 1 To 30 For k1 = 1 To k1 k3 = Sqr(k1 ^ 2 + k2 ^ 2) If k3 <= 30 And k1 ^ 2 + k2 ^ 2 = k3 ^ 2 Then Print k1, k2, k3 NextNextEnd Sub ...
勾股数 vb
Next k Next j Next i End Sub
编程求“最素勾股数”
} if(x==1) //最大公约数是1 { cout<<(++count)<<":"<<i<<" "<<j<<" "<<k<<endl;} } } } 这样判断。还有 i 是不可能为 1 的， 不存在 1 + y^2 = z^2 , 所以改为2起步了
求解vb编写过程求出100以内的所有勾股数(设a为沟,b为股,c为弦,a²+...
Private Sub Form_Click() For i = 1 To 100 For j = i + 1 To 100 For x = 1 To 100 If i ^ 2 + j ^ 2 = x ^ 2 Then Print i; j; x Next x Next j Next iEnd Sub
VB编程问题。如何让计算出的100以内的勾股数的计算结果显示在List中...
添加一个Listbox 控件 然后If c = Fix(c) And c <= 100 Then Print a, b, c 改成If c = Fix(c) And c <= 100 Then List1.AddItem a & Space(1) & b & Space(1) & c space(1) 表示一个空格
用vb 编写程序,输出100以内所有勾股数
这个算法不是很好，请谅解，如果要另一种算法的话，请回复。
设计一个算法,求1000以内的勾股数
Label1.Caption = "" '清空LABEL1 Timer1.Interval = 200 '定义时间控件为200豪秒 End Sub Private Sub Timer1_Timer()For ft2 = 1 To i 'ft2为股 For ft1 = 1 To i 'ft1为勾 If ft1 * ft1 + ft2 * ft2 = i * i Then '勾平方+股平方=弦平方吧~,如果成立则输出到LABEL...
vb求100以内的勾股数 我这么写怎么就死机了
vb对字符串操作很慢的，你循环次数多了，机器就假死了，其实是太忙了。另外每次对text控件进行赋值，都会触发控件刷新界面的操作，而刷新界面就意味着要将内存中的string通过DrawText函数画成图像再输出到屏幕上，所以先定义一个字符串变量dim txt as string，中间用txt=***来进行赋值，最后再用text1....
60以内的勾股数有多少组?
(09) 16 30 34 (10) 35 12 37 (11) 32 24 40 (12) 9 40 41 (13) 27 36 45 (14) 48 14 50 (15) 20 48 52 (16) 45 28 53 (17) 40 42 58 公式:a=m^2-n^2,b=2mn,c=m^2+n^2 ...
vb缺少子程序函数或属性?!!
代码中错误较多 dim a,b,c as integer 应写作 dim a as integer,b as integer ,c as integer a,b,c=1 应写作a=1 : b=1: c=1 此外，每个for 都要有一个next 来标志循环体的范围，否则是要报错的。
