Question

拜谢！求VB编程大神指导，VC++都来看看啊

Private Sub Grid1_CellChange(ByVal Row As Long, ByVal Col As Long)
Grid1.Cell(0, 0).Text = "时间"
Grid1.Cell(0, 1).Text = "温度"
Grid1.Rows = 402
For i = 1 To 401 Step 1
Grid1.Cell(i, 0).Text = i - 1
Next
End Sub

我想让坐标点（0，Grid1.Cell(1, 1).Text），（1，Grid1.Cell(2, 1).Text），（2，Grid1.Cell(3, 1).Text）~~
画成线，过这些点的曲线最好！ 大概是（i-1，Grid1.Cell(i, 1).Text）这个点，其中i=1to401.

Answer 1

前面需要加对象，picture

Answer 2

for i=1 to 400
line （datediff（"s",grid1.cell(1,0).text,grid1.cell(i,0).text）,grid1.cell(i,1).text)-（datediff（"s",grid1.cell(1,0).text,grid1.cell(i+1,0).text）,grid1.cell(i+1,1).text)
next

追问

不行啊~没反应啊，应该放在command下吗？

追答

command下就好