请用vb程序输出30以内所有勾股数组合,求语句

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/10/02 17:32:59

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 编写程序,输出100以内所有勾股数用VB编写程序,输入一个正整数n,求所有大于1且小于n,同时与n互质的数,存入一个数组并每行5个的格式输出【VB】由程序随机产生一个6*6的二维数组,输出数组中的最大元素,统计最大元素所在行的所有元素的乘积. 用VB函数计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出输出2000以内能被3除余1的所有正整数,写出基本语句,并画出算法程序框图. 用WHILE语句写出求1000以内所有能被3整除的正整数的和的程序求出1到100的自然数系列中能被3整除的所有数之和,并在文本框中输出结果,请编程 (要求用VB程序写) C语言：输出500以内所有勾股数用C语言程序表达! 用while,语句实现输出100以内所有能被4整除的数 while 语句输出100以内所有7的倍数? VB程序：将10个数12,23,10,8,6,45,56,7,16,30存入数组中,输出其中最大值及其所在位置用JAVA编写一个程序,求1000以内所有偶数的和以及奇数的和,并将偶数和以及奇数和输出到屏幕上.