已解決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 看不懂。