用VB写出1-100的所有奇数和偶数和
用VB写出1-100的所有奇数和偶数和
数学人气:118 ℃时间:2019-08-18 22:14:03
优质解答
Private Sub Command1_Click()Dim i,sum1,sum2 As Integersum1 = 0sum2 = 0For i = 1 To 100If i Mod 2 = 1 Thensum1 = sum1 + iElsesum2 = sum2 + iEnd IfNext iPrint "奇数和为" & sum1Print "偶数和为" & sum2End...
我来回答
类似推荐
猜你喜欢
- 1英语的26个字母按照音标分类怎么分?
- 2如果一个数加上它的倒数的和是2,那么这个数是_.
- 3I think___necessary for us to learn English well.
- 4关于儿时美好回忆的优美句子
- 5f(x)=(g(x)-e^(-x))/x,(x不等于0);0(x=0).g(x)有二阶连续导数,g(0)=1,g'(x)=-1..求f'(x)在R上的连续性
- 6将一定量的金属钠投入24.6gt℃的水中,得到t℃时的NaOH饱和溶液31.2g.则t℃时的氢氧化钠的溶解度是?
- 7怎么用英语翻译:虽然仍然有很多猜测,但是还没有人知道真正的原因
- 8有关于爱心的作文500字
- 9理加一笔或减一笔变成新字然后组词
- 10高度概括了红军的英雄气概和百折不挠的勇敢精神.以诗句“_________,________”收篇,取得长征时喜悦心情