Question

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

1、编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。
2、勾股定理中3个数的关系是：a^2+b^2=c^2 。编写程序，输出30以内满足上述关系的正数组合，例如3、4、5 就是一个整数组合。
3、从键盘上输入两个正整数 M 和 N ，求最大公因子。
4、如果一个数的因子之和等于这个数本身，则这样的数为“完全数”。例如，整数28的因子为1、2、4、7、14 ，其和为 28 ，因此28是一个完全整数。编写一个程序，从键盘上输出正整数 N 和 M，求出 M 和 N 之间的所有完全数。
8、 从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第 10个元素互换，第2个元素与第9个元素互换......第5个元素和第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。
9、有一个 n x m 的矩阵，编写程序，找出其中最大的元素所在行和列，并输出其值及行号和列号。
10、编写程序，建立并输出一个10 x 10 的矩阵，该矩阵对角线元素为 1 ，其余元素均为 0 。
11、编写程序，实现矩阵转置，即将一个 n x m 的矩阵的行和列互换。

Answer 1

我也是自学的。看在你没老师的份上给你编了前几题。后面三个题实在不想编了。其实后三个题也很容易。
1、
Dim I As Long
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
I = I + 1
Label1 = I
Beep
End Sub
2、
Private Sub Command1_Click()
For I = 1 To 30
For J = I To 30
If Int(Sqr(I ^ 2 + J ^ 2)) = Sqr(I ^ 2 + J ^ 2) Then
If Sqr(I ^ 2 + J ^ 2) <= 30 Then Print I & "," & J & "," & Sqr

(I ^ 2 + J ^ 2)
End If
Next J
Next I
End Sub
3、
Private Sub Command1_Click()
M = Int(InputBox("请输入M的值：", "输入数据", 84))
N = Int(InputBox("请输入N的值：", "输入数据", 48))
If M < N Then Max = M Else Max = N
Do While Max > 1
Max = Max - 1
If M Mod Max = 0 And N Mod Max = 0 Then Exit Do
Loop
Print M & "与" & N & "的最大公因子是" & Max
End Sub
4、
fPrivate Sub Command1_Click()
Dim I As Long
M = Int(InputBox("请输入M的值：", "输入数据", 84))
N = Int(InputBox("请输入N的值：", "输入数据", 48))
If M < N Then
Max = M
M = N
N = Max
End If
For I = N To M
If Wqs(I) Then Print I
Next I
End Sub

Private Function Wqs(A As Long) As Boolean
For I = 1 To Int(A / 2)
If A Mod I = 0 Then k = k + I
Next I
If k = A Then Wqs = True Else Wqs = False
End Function

8、
Private Sub Command1_Click()
Dim IntS(1 To 10) As Long
Dim IntT(1 To 10) As Long
For I = 1 To 10
IntS(I) = InputBox("请输入第" & I & "个数据", "", "")
IntT(11 - I) = IntS(I)
Next I
Print "交换前："
For I = 1 To 10: Print "（" & I & "）"; IntS(I);: Next I
Print "交换后："
For I = 1 To 10: Print "（" & I & "）"; IntT(I);: Next I
End Sub

Answer 2

dim a as integer <br/> formload()里a=0 然后在 timer1_timer() 里 label1.caption=cstr(a) <br/> a=a+1 <br/>是回车

追问

响铃呢？

Answer 3

凡事都要自己先动脑动手,见题抄解,永远学不会.
鄙视一下不学只抄的学生,花钱浪费青春!
宁可被删除,宁可被扣分,谨以此唤醒像你以及和你一样的学生们!

Answer 4

诶，书店里都有

Answer 5

自己动脑筋吧，把一年的作业都贴上了？

追问

我没老师啊。。无人可问，没人教，太痛苦了！

追答

只给你第一个，其它的我用VB编程还没遇到过，
sub form_load
timer1.invetel=500
MyDate =new date
end sub

sub Tinmer1_time
label1.caption=new date-mydate
end sub