用VB求1到100间所有偶数和

用VB求1到100间所有偶数和？

启动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间所有偶数和

用VB求1到100间所有偶数和最好写出具体？

启动VB新建一个EXE工程双击窗体FORM1在打开的代码窗口输入以下代码：Private Sub Form_Load()Dim i， s As Integers = 0For i = 2 To 100 Step 2s = s iNext iForm1.Caption = Str(s)End Sub之后按下F5键即可在程序默认窗体的标题栏中看到1到100间所有偶数和

VB的一题计算1—100之间的偶数的和怎么求？

启动VB新建一个EXE工程双击窗体FORM1在打开的代码窗口输入以下代码：PrivateSubForm_Load()Dimi，sAsIntegers=0Fori=2To100Step2s=s iNextiForm1.Caption=Str(s)EndSub之后按下F5键即可在程序默认窗体的标题栏中看到1到100间所有偶数和

用VB求1到100间所有偶数和？

求奇偶数:

Fori=1to100

Ifi/2i2Then

msg=msg&i&"是奇数"

Else

msg=msg&i&"是偶数"

Nexti

Printmsg

能被3和5同时整除:

Fori=1to100

Ifi/3=i3Andi/5=i5Then

msg=msg&i&"能被3和5同时整除"

Else

msg=msg&i&"不能被3和5同时整除"

EndIf

Nexti

Printmsg

用VB分别求出100以内的奇数和、偶数和？

DimiAsLongDimjAsLongDimkAsLongFori=0To100IfiMod2=0Thenj=j iElsek=k iNextMsgBox"偶数和："&j&vbCrLf&"奇数和："&k希望你满意

vb中求1-100之间的偶数和奇数还有能被3和5同时整除的数的程序应该怎么编写？

求奇偶数:

For i = 1 to 100

If i/2 i2 Then

msg =msg & i & "是奇数"

Else

msg =msg & i & "是偶数"

Next i

Print msg

能被3和5同时整除:

For i = 1 to 100

If i/3 = i3 And i/5 = i5 Then

msg =msg & i & "能被3和5同时整除"

Else

msg =msg & i & "不能被3和5同时整除"

End If

Next i

Print msg