错误 1 类型"Integer"的值无法转换为"System.Windows.Forms.Label". J:\VB\2
编vb程序DimM,N,S,iAsIntegerVal(M<N)S=0i=1M=Val(InputBox("N)"))N=Val(InputBox("M"))WhileM...
编vb程序
Dim M, N, S, i As Integer
Val(M < N)
S = 0
i = 1
M = Val(InputBox("N)"))
N = Val(InputBox("M"))
While M < i < N
If i / 3 = Int(i / 3)and i/4<>int(i/4) then
S = S + i
Else : S = S
End If
i = i + 1
End While
TextBox1 = S
End Sub
最后出现错误 1 类型“Integer”的值无法转换为“System.Windows.Forms.TextBox”。 展开
Dim M, N, S, i As Integer
Val(M < N)
S = 0
i = 1
M = Val(InputBox("N)"))
N = Val(InputBox("M"))
While M < i < N
If i / 3 = Int(i / 3)and i/4<>int(i/4) then
S = S + i
Else : S = S
End If
i = i + 1
End While
TextBox1 = S
End Sub
最后出现错误 1 类型“Integer”的值无法转换为“System.Windows.Forms.TextBox”。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询