最近学了vb,老师让我们用vb的知识编一个小程序当作期末成绩,可我没学啊.哪位大哥给我发一个小程序啊,不胜感激!!!!
參考答案:刚好在编一个程序,又搞定一个,刚好给你,答案丰富多采
放置一的命令按钮就行
Private Sub Command1_Click()
Dim k(5, 5) As Integer, i%, j%, a%, b%, c%, d%
Randomize
Form1.Cls
For i = 1 To 5
For j = 1 To 5
k(i, j) = Int(Rnd * 9)
a = a + k(i, j) '所有元素之和
Print k(i, j);
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then
b = b + k(i, j) '所有靠边元素之和
End If
Next j
c = c + k(i, i)
Next i
d = k(5, 1) + k(4, 2) + k(2, 4) + k(1, 5)
Print "所有元素之和：" & a
Print "所有靠边元素之和:" & b
Print "两条角线无素之和:" & c + d
End Sub
我不会像以下这样简单:
一句话就能写个程序啦。
msgbox "Hello Teacher,this is my vb software."
呵呵
