高手啊，高手，你在哪里呀！？？

来源：百度知道编辑：UC知道时间：2024/06/07 04:55:38

注意：本人才学VB没多久，尽量用最简单的方法编程，我要能看懂的！！

1.编写程序，用计时器按秒计时。在窗体上画一个计时器和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。

2.编写程序，打印如下：
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
…………
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

3.勾股定理中三个数的关系：a^2+b^2=c^2.编写程序，输出三十以内满足上述关系的整数组合。
这是我的程序：Private Sub Form_Click()
Dim a%, b%, c%
For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If a ^ 2 + b ^ 2 = c ^ 2 Then
Print a, b, c
End If
Next
Next
Next
End Sub

这个程序不太难，但是编出来后，会重复一次，怎样不重复呢？？

4.编写程序，输出100—300之间的所有素数。
Private Sub Form_Click()
For n = 101 To 300 Step 2
k = Int(Sqr(n)) '只需要到小于平方根的整数即可
i = 2
swit = 0 '标志变量
While i <= k

Q1------------------------
Private Sub Form_Load()
Label1.Caption = ""
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
Beep
End Sub

Q2----------------------
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

For i = 1 To 9
Print Space(3 * (9 - i));
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
Print
Next i
End Sub

Q3..Q4..是对的啊。。我运行没问题

高手呀，高手你在哪里？高手啊，你在哪里？高手！！你在哪里啊高手高手，你在哪里？高手高手你在哪里高手你在哪里？高手啊.你在哪里啊! 硬件高手，你在哪里？黑客高手你在哪里？英文高手你在哪里？？？？？