去哪找程序设计员帮我设计一个简单的VB程序

来源：百度知道 编辑：UC知道 时间：2024/06/17 23:05:01
我们会计专业要上管理信息系统我考，还要做个项目出来，偏偏我的Parter都是幻想派加根本不会程序，编了一个贼TM漂亮的一个可行性分析报告和系统设计报告，小弟我直接被打败，现求高手帮忙设计一下，适当收费是可以理解的，狮子大开口就算了。。。细节详谈
不是……非常感谢您如此快的回答，可是答不对题啊，我们做的是银行管理信息系统，已经做好项目设计报告，要根据报告作的啊

QQ:603970320详谈。。。。

需求实在太简单了，给你写一个过程 用到这三种结构就可以了吗？

---------------

Text1 的MultiLine 设为 True

---------------

Private Sub Command1_Click()
'十个裁判给跳水运动员打分，最低分为0分，满分为100分
'去掉最高分和最低分，最后的平均分为运动员最后得分

Dim i As Integer
Dim iMax As Integer
Dim iMin As Integer
Dim iRsult As Integer
Dim s As String
Dim score(9) As Integer
Dim sLevel As String

iMax = 0
iMin = 100

For i = 0 To 9
score(i) = Val(InputBox("第" & (i + 1) & "个裁判的分数："))
lsum = lsum + score(i)

s = s & "第" & (i + 1) & "个裁判的分数：" & score(i) & vbCrLf

If iMax < score(i) Then iMax = score(i)
If iMin > score(i) Then iMin = score(i)

Next

iRsult = (lsum - iMax - iMin) / 8

Select Case iRsult
Case Is >= 80
sLevel = "优秀"
Case Is >= 60
sLevel