55问答网
所有问题
用VB求1到100间所有偶数和
最好写出具体步骤!!谢谢!!
举报该问题
推荐答案 推荐于2018-03-19
启动VB
新建一个EXE工程
双击窗体FORM1
在打开的代码窗口输入以下代码:
Private Sub Form_Load()
Dim i, s As Integer
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
Form1.Caption = Str(s)
End Sub
之后按下F5键即可在程序默认窗体的标题栏中看到1到100间所有偶数和
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://55.wendadaohang.com/zd/e4eQLcFR.html
其他回答
第1个回答 2007-07-09
sub Calc()
dim a as integer
dim b as integer
b=0
for a=0 to 100 step 2
b=b+a
next a
msgbox "1至100的所有偶数和是" & b , vbinformation , "完成"
End sub
第2个回答 2007-07-09
For i = 1 To 100
If i Mod 2 = 0 Then k = k + i
Next
Print k
相似回答
VB
做
计算1
-
100间所有
奇数(
偶数
)的和。
答:
=(2-1)+(4-3)+(6-5)+...+(
100
-99)=50 设奇数和为x,
偶数和
为y 所以 x+y=5050 y-x=50 所以 偶数和y=2550 奇数和x=2500
用VB
编写:循环语句的应用,
计算1
~
100的偶数和
?
答:
用VB编写:循环语句的应用,计算1~100的偶数和,
最简单的方法是采用计数循环来实现
。dim i as integer,s as integer s=0 for i = 2 to 100 step 2 s = s + i next i print "Sum ="; s
VB
作业求助
答:
1、
计算1
-100间所有奇数(偶数)的和。Private Sub Command1_Click()For i = 1 To 99 Step 2 sumj = sumj + i Next i For j = 2 To 100 Step 2 sumo = sumo + j Next j Print "1-100间所有奇数的和:"; sumj Print "1-
100间所有偶数
的和:"; sumo End Sub 2、键盘输入三...
VB
问题,一道
计算1
-
100
所以
偶数和的
问题
答:
把窗体的Autoredraw属性改为True
vb中求1
-
100之间的偶数和
奇数还有能被3和5同时整除的数的程序应该怎么编...
答:
求奇
偶数
:For i = 1 to
100
If i/2 <> i\2 Then msg =msg & i & "是奇数"Else msg =msg & i & "是偶数"Next i Print msg 能被3和5同时整除:For i = 1 to 100 If i/3 = i\3 And i/5 = i\5 Then msg =msg & i & "能被3和5同时整除"Else msg =msg & i &...
大家正在搜
0到100奇数和和偶数和
输出1到100之间所有偶数的和
1到1000所有偶数的和
1到100中有几个奇数有几个偶数
求1到50之间所有偶数之
1到100所有的偶数
求1到100偶数之和
自然数1到100中偶数有多少个
计算1到100之间的偶数和
相关问题
c语言编程求1到100之间所有的偶数的和,怎么编?
以下vb程序用来输出1到100之间所有偶数的和,请将该程序补...
用vb算1至100内所有偶数,所有奇数,所有数的和
求VB编程1~100的偶数和
用VB写出1-100的所有奇数和偶数和
VB做 计算1-100间所有奇数(偶数)的和。
用c++输出1到100的偶数,一行五个
用VB 求 1到100的奇数和 和 偶数和的函数怎么写 用f...