高分实现vb程序

Question

从Excel中导出负荷数据和变形数据分别装入数组a[i],b[j],然后求出数组a[i]的最大值输出到界面，要求有完整的代码和界面，要能在VB6.0中直接运行的。因为我不是做VB的，所以请附详细的说明。谢谢各位。Excel文件内容如下：
负荷(N)          变形1(mm)
0           0
1365.541992 0.002981085
1487.66394 0.002981085
1587.582031 0.003495065
1740.541992 0.00390625
1939.144043 0.004009046
2221.62793 0.005037006
2290.707031 0.005345394
2483.141113 0.005756578
2592.927002 0.006064967
2722.449951 0.006681743
2832.237061 0.006681743
2982.72998 0.007298519
3008.63501 0.007401315
3039.4729          0.007606908
3044.406982 0.007709702
3044.406982 0.007915296
3054.275879 0.008018092
3067.844971 0.008120888
3096.217041 0.008120888
3099.916992 0.008326479
3129.521973 0.008429277
3144.324951 0.008429277
3152.959961 0.008840458
3213.404053 0.008840458

Answer 1

我没有用高分求程序，实际上我是JAVA程序员，我已经用JAVA实现了这个程序，其实我求助的只是这个程序的一部分，它还有很大一部分，但我的Leader说不能用JAVA，我当时都都蒙了，我刚刚毕业，在学校学的东西有限，并且VB不是很精通，他给我的时间又很少，我只能采取这种办法，希望大家能帮个忙！

Answer 2

楼主好歹自己也动动手吧，界面代码文档全都要还不如用money去购呢

Answer 3

其实很简单,就是给原代码大家都不愿意给!!
   懒得去写,你可以使用excel对象来操作!

Answer 4

想了想,还是写一个把,难得碰到我会的Private Sub Form_Load()
    Dim xls As Excel.Application
    Dim wbk As Excel.Workbook
    Dim sht As Worksheet
    Dim a() As Variant
    Dim b() As Variant
    Dim mydata() As Variant
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim max#
    
    On Error Resume Next
    Set xls = CreateObject("excel.application")
    Set wbk = xls.Workbooks.Open("c:\1.xls")
    Set sht = wbk.Worksheets("sheetname1")
    i = sht.UsedRange.Rows.Count - 1
    ReDim a(i), b(i), mydata(i, 1)
    mydata = sht.Range("A1", "B" & i)
    Set sht = Nothing
    wbk.Close
    Set wbk = Nothing
    xls.quit
    Set xls = Nothing
    
    max = 0
    k = 0
    For j = 0 To i
        If IsNumeric(mydata(j, 0)) And IsNumeric(mydata(j, 1)) Then
            a(k) = mydata(j, 0)
            b(k) = mydata(j, 1)
            If max < a(k) Then max = a(k)
            k = k + 1
        End If
    Next j
    MsgBox max
End Sub