提问者: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...