会vb的请帮帮忙

王朝知道·作者佚名  2010-04-23
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

最近学了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)

Print

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."

呵呵

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航