在VB中，若要在Text1控件中显示DataGrid1控件某一列的和，可以通过遍历DataGrid1中的该列所有行，并将每行的值累加起来实现。假设我们要统计的是第一列，可以使用以下代码：vbDimsumAsDoubleDimiAsInteger'初始化求和变量sum=0'遍历DataGrid1中的所有行Fori=0ToDataGrid1.Rows.Count-1'假设我们要累加的是第一列，且该列数据类型为Double'使用CDbl函数确保数据类型转换正确sum=sum+CDbl.Cells.Value)Nexti'将计算结果赋值给Text1控件Text1.Text=CStr这段代码首先声明了一个用于求和的变量`sum`和一个用于循环的变量`i`。接着，通过For循环遍历DataGrid1中的所有行。在每次循环中，通过访问`DataGrid1.Rows.Cells.Value`来获取第一列当前行的值，并使用`CDbl`函数将其转换为双精度浮点数进行累加。最后，使用`CStr`函数将求和结果转换为字符串，并赋值给Text1控件的Text属性，以便在界面上显示。请注意，上述代码假设DataGrid1已经正确绑定数据源，并且第一列中的数据可以转换为Double类型进行数学运算。如果实际情况有所不同，可能需要对代码进行相应调整。