作业帮 > 综合 > 作业

VB编程:利用For循环,计算1-N的奇、偶数之和,其中N为自然数.窗体界面的设计要求,如图

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 15:31:31
VB编程:利用For循环,计算1-N的奇、偶数之和,其中N为自然数.窗体界面的设计要求,如图
请输入要计算的数:XXXXXXXXX
奇数和:XXXXXXX
计算
偶数和:XXXXXXXXX
ivate Sub Command17_Click()
Dim i As Long,k As Long,j As Long,o As Long
k = Val(Text1.Text)‘要计算的数
j = 0
o = 0
For i = 1 To k
If i Mod 2 = 0 Then
o = o + i
Else
j = j + i
End If
Next
Text2.Text = j'奇数和
Text3.Text = o’偶数和
End Sub
再问: 嗯 麻烦了 谢谢!