已解决VB代码

提问者：voga_  |  浏览次  |  提问时间：2017-03-26  |  回答数量：2

Private Sub Command1_Click() Dim i As Integer Dim sum As Long sum = 0     For i = 100 To 999       If Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1)) = 17 Then         sum = sum + i       End If     Next     MsgBox sum End Sub 中“”   If Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1)) = 17 看不懂。