提問者：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 看不懂。
紫藤花雨季
回答數：203 | 被采納數：13
蓴芯smile
回答數：46 | 被采納數：85
今天給大家帶來怎樣利用vb繪製雙曲螺線，利用vb繪製雙曲螺線的方法，讓您輕鬆解決問題。利用編程繪製數學圖案，一方麵繪製比較精準，另一方麵又比較美觀，現在就給大家介紹繪製雙曲螺線的方...
如何在不同的電腦編寫代碼《雲代碼》？ 在不同的電腦編寫代碼《雲代碼》怎麼解決
今天給大家帶來如何在不同的電腦編寫代碼《雲代碼》？，在不同的電腦編寫代碼《雲代碼》怎麼解決，讓您輕鬆解決問題。發現問題如何在不同的電腦,編寫和維護已經寫過的代碼?我們有時會在不同的...
vs2010 2013怎麼格式化代碼 vs2010 2013格式化代碼的方法
今天給大家帶來vs2010，2013怎麼格式化代碼，vs2010，2013格式化代碼的方法，讓您輕鬆解決問題。vs2013取消了宏，這裏介紹一個插件具體方法如下:1打開Vs找到to...
Dreamweaver如何格式化代碼 Dreamweaver格式化代碼的方法
今天給大家帶來Dreamweaver如何格式化代碼，Dreamweaver格式化代碼的方法，讓您輕鬆解決問題。很多新手朋友對Dreamweaver軟件的格式化功能不是太會用，那麼D...
