在VB中，若要在Text1控件中顯示DataGrid1控件某一列的和，可以通過遍歷DataGrid1中的該列所有行，并將每行的值累加起來實現。假設我們要統計的是第一列，可以使用以下代碼：vbDim sum As DoubleDim i As Integer' 初始化求和變量sum = 0' 遍歷DataGrid1中的所有行For i = 0 To DataGrid1.Rows.Count - 1' 假設我們要累加的是第一列，且該列數據類型為Double' 使用CDbl函數確保數據類型轉換正確sum = sum + CDbl.Cells.Value)Next i' 將計算結果賦值給Text1控件Text1.Text = CStr這段代碼首先聲明了一個用于求和的變量`sum`和一個用于循環的變量`i`。接著，通過For循環遍歷DataGrid1中的所有行。在每次循環中，通過訪問`DataGrid1.Rows.Cells.Value`來獲取第一列當前行的值，并使用`CDbl`函數將其轉換為雙精度浮點數進行累加。最后，使用`CStr`函數將求和結果轉換為字符串，并賦值給Text1控件的Text屬性，以便在界面上顯示。請注意，上述代碼假設DataGrid1已經正確綁定數據源，并且第一列中的數據可以轉換為Double類型進行數學運算。如果實際情況有所不同，可能需要對代碼進行相應調整。