vb.net奇数偶数 vba奇偶数

用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！

dim sSum as long

for i=1 to 100

if i mod 2 =1 then

sSum=sSum + i

endif

next i

msgbox "1、100的奇数和为：" sSum,"提示"

==========================================

Sum 是关键字，是个系统函数

sSum 只是一个变量，晕，可以改成别的。

相关问答

Q1: 请教VB.net的问题

1、定义两个数，分别用来存放奇数和偶数

2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数

3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。

语句可以用If...else....end if

Q2: vb.net怎么同时判定多个数的奇偶性

这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim A(100) As Integer

Dim n1 As Integer = 0

Dim n2 As Integer = 0

For i = 1 To 100

Randomize()

A(i) = Int(Rnd() * 1000 + 1)

If A(i) Mod 2 = 0 Then

n1 += 1

Else

n2 += 1

End If

Next

MsgBox("所产生的100个数字中偶数有" n1 "个，奇数有" n2 "个")

End Sub

关于vb.net奇数偶数和vba奇偶数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。