当前位置:系统粉 > 电脑问答 > 其他问答 > VB代码

VB代码

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

VB代码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 看不懂。      

已有2条答案
紫藤花雨季

紫藤花雨季

回答数:203  |  被采纳数:13

2017-03-26 13:41:25
i这个三位数,如果百位+十位+个位的和等于17
赞 20
莼芯smile

莼芯smile

回答数:46  |  被采纳数:85

2017-03-26 16:55:03
恩谢谢。
赞 4
解决方法
版权信息

Copyright @ 2011 系统粉 版权声明 最新发布内容 网站导航