UC知道关于VB编程的很菜的问题
来源：百度知道 编辑：UC知道 时间：2024/05/06 20:24:20
1）如何编所有在30以内，列出算A平方+B平方=C平方的正整数A，B，C：
2）单击一个菜单时如MANU1，转入另一个窗口FORM2，并且将现有的窗口FORM1关掉
3）随机产生三位数
4）怎样建立坐标系
第一个问题最后要输出的所有符合小于30的 A平方+B平方=C平方
怎样再建立一个FORM2？？
第三个问题补充：随机产生10个三位整数，单击列表内某数据项，可将该数据移动到文本框内
1,在窗体上添加一个命令按钮，程序运行单击按钮，打印出所有符合要求的数，代码如下：
Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 30
For j = 1 To 30
For k = 1 To 30
If i ^ 2 + j ^ 2 = k ^ 2 Then
Print i, j, k
End If
Next k
Next j
Next i
End Sub
2，在菜单中写上如下代码：
form2.show
unload me
3 Int(900 * Rnd + 100)
4 用scale方法，说明如下：
Scale 方法
用以定义 Form、PictureBox 或 Printer 的坐标系统。不支持命名参数。
语法
object.Scale (x1, y1) - (x2, y2)
Scale 方法的语法包含下列部分：
部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。
x1, y1 可选的。均为单精度值，指示定义 object 左上角的水平（x-轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略。
x2, y2 可选的。均为单精度值，指示定义 object 右下角的水平和垂直坐标。这些值必须用括号括起。如果省略，则第一组坐标也必须省略。
说明
Scale 方法使您能够将坐标系统重置到所选择的任意刻度。Scale 对运行