VB中MSFlexGrid用一个循环语句将网格中第一列的数顺序相加,哪位朋友指导下哈,我这个不成无法运行
来源:百度知道 编辑:UC知道 时间:2024/05/23 02:05:28
Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1
uu = MSFlexGrid1.TextMatrix(y, 0)
Do While Not uu = ""
yy = yy + CInt(uu)
y = y + 1
Loop
Dim uu As String
yy = 0
y = 1
uu = MSFlexGrid1.TextMatrix(y, 0)
Do While Not uu = ""
yy = yy + CInt(uu)
y = y + 1
Loop
Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1
uu = MSFlexGrid1.TextMatrix(y, 0)
Do While Not MSFlexGrid1.TextMatrix(y, 0) = ""
uu = MSFlexGrid1.TextMatrix(y, 0)
yy = yy + CInt(uu)
y = y + 1
Loop
思路似乎不对。
Dim yy,y As Integer
Dim uu As String
yy = 0
y = 1
Do While Not MSFlexGrid1.TextMatrix(y, 0) = ""
uu = MSFlexGrid1.TextMatrix(y, 0)
yy = yy + CInt(uu)
y = y + 1
Loop
。
在Do While Not uu = "" 语句下面再增加
uu = MSFlexGrid1.TextMatrix(y, 0)语句,
否则第二次循环过来,uu的值没有改变。