vb；Dim sum As Double。Dim i As Integer。&#39；初始化求和变量。sum = 0；&#39；遍历DataGrid1中的所有行。For i = 0 To DataGrid1.Rows.Count - 1。&#39；假设我们要累加的是第一列，且该列数据类型为Double。&#39；使用CDbl函数确保数据类型转换正确。sum = sum + CDbl.Cells.Value)。Next i；&#39；将计算结果赋值给Text1控件。Text1.Text = CStr。