大家一起来，帮我开发一个小的应用程序！

Question

我学过VF，现在在学JAVA，不过我现在遇到的问题他们都无法解决，这类问题用VB比较好，至少我这么觉得。先来看看是什么问题吧！我现在是某校学生干部，我想开展一次平面设计大赛，比赛的评分与歌手大奖赛类似，什么去掉一个最低分，去掉一个最高分，再去平均成绩。依次读出数据库中的编号，一一对作品进评估，最后得出奖项。ACCESS表只要三个字段就可以完成，并且只用一个表，字段是作品编号，姓名，得分。其实这个程序简单的都不能再简单了，我用VF，JAVA的控制台环境都可以完成。不过我觉得用VB+ACCESS是最完美的，不过我VB什么也不会。碰都没碰过，希望大家给我指点迷津。操作方式我觉得下一步那样就可以的，上来预先设定的是评委的人数。
希望大家帮我啊！我只有创意，别的什么也没有……

Answer 1

你既然熟悉VFP就用VFP作吧，干吗非要用vb了

Answer 2

我会VFP又会VB,我觉得如果急就自己用VFP写,写出来一样的,没问题啦。

Answer 3

VF不得劲,主要想体验一下VB的感受!
谢谢大家了

Answer 4

不考虑安全什么的，只用Access就行，半小时搞定。

Answer 5

打开VB,按ctrl+T,选择ms ado控件
在窗体上加5个text控件，两的按纽。
Option Explicit
Dim a, b, c, d, e, f As Double
Dim g, h As String
Private Sub Command1_Click() '取出最大值,最小值,平均值
a = Text1.Text '裁判1的分数
b = Text2.Text '裁判2的分数
c = Text3.Text '裁判3的分数
d = a + " " + b + " " + c
Dim my_big() As Stringmy_big() = Split(d, " ")
Dim i As Integer  d = my_big(0)
  For i = LBound(my_big) To UBound(my_big)
  Debug.Print my_big(i)
    If my_big(i) > d Then
      d = my_big(i)
      Debug.Print d & "b"
    End If
  Next
  d = a + " " + b + " " + cmy_big() = Split(d, " ")  e = my_big(0)
  For i = LBound(my_big) To UBound(my_big)
    If my_big(i) < e Then
      e = my_big(i)
    End If
  Nextf = (a + b + c - d - e) / 1g = Text4.Text '学生姓名
h = Text5.Text '作品编号End SubPrivate Sub Command2_Click() '输入数据库
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim you_connstr As String
you_connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
cn.Open you_connstr
rs.Open "insert into you_tablename(作品编号,姓名,得分) values(" & h & "," & g & "," & f & ")"
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Answer 6

中午急着吃饭，还没有完成就发出来，呵呵，改改漏洞
打开VB,按ctrl+T,选择ms ado控件
在窗体上加5个text控件（text1~text3分别输入裁判1~裁判3的分数，text4输入学生姓名，TEXT5输入作品编号）再在窗体上添加两个按纽（一个是求取出最大值,最小值,平均值
的，另一个是输入数据库的）。
具体的你在这下面改为你的
Option Explicit
Dim a, b, c, d, e, f As Double
Dim g, h As String
Private Sub Command1_Click() '取出最大值,最小值,平均值
a = Text1.Text '裁判1的分数
b = Text2.Text '裁判2的分数
c = Text3.Text '裁判3的分数
d = a + " " + b + " " + c
Dim my_big() As Stringmy_big() = Split(d, " ")
Dim i As Integer  d = my_big(0)
  For i = LBound(my_big) To UBound(my_big)
    If my_big(i) > d Then
      d = my_big(i)'这是最大值
    End If
  Next
  e = a + " " + b + " " + c
dim my_litter() as string
my_litter() = Split(e, " ")  e = my_litter(0)
  For i = LBound(my_litter) To UBound(my_litter)
    If my_litter(i) < e Then
      e = my_litter(i)'这是最小值
    End If
  Nextf = (a + b + c - d - e) / 1'这是平均值g = Text4.Text '学生姓名
h = Text5.Text '作品编号End SubPrivate Sub Command2_Click() '输入数据库
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim you_connstr As String
you_connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"'打开数据库,假设access数据库名是db1.mdb放在程序所在目录下
cn.Open you_connstr
rs.Open "insert into you_tablename(作品编号,姓名,得分) values(" & h & "," & g & "," & f & ")",cn,1,1'执行SQL语句输入数据库,假设db1.mdb中有一个表you_tablename,有3个列,分别是作品编号,姓名,得分
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub