VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = Val(Text2.Text)If vl < vj Then Exit SubFor i = 1 To vl Step 2sumi = sumi + iIf sumi >= vj ThenExit ForEnd IfNext iText3.Text = iText4.Text = sumiEnd SubPrivate Sub Form_Load()Me.Capti

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 17:17:45
VB奇数求和PrivateSubCommand1_Click()vl=Val(Text1.Text)vj=Val(Text2.Text)Ifvl=vjThenExitForEndIfNextiText

VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = Val(Text2.Text)If vl < vj Then Exit SubFor i = 1 To vl Step 2sumi = sumi + iIf sumi >= vj ThenExit ForEnd IfNext iText3.Text = iText4.Text = sumiEnd SubPrivate Sub Form_Load()Me.Capti
VB奇数求和
Private Sub Command1_Click()
vl = Val(Text1.Text)
vj = Val(Text2.Text)
If vl < vj Then Exit Sub
For i = 1 To vl Step 2
sumi = sumi + i
If sumi >= vj Then
Exit For
End If
Next i
Text3.Text = i
Text4.Text = sumi
End Sub
Private Sub Form_Load()
Me.Caption = "奇数求和"
End Sub
输入什么输出什么

VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = Val(Text2.Text)If vl < vj Then Exit SubFor i = 1 To vl Step 2sumi = sumi + iIf sumi >= vj ThenExit ForEnd IfNext iText3.Text = iText4.Text = sumiEnd SubPrivate Sub Form_Load()Me.Capti
输入的是两个变量,vi和vj(要注意的是vi和vj中的i与j只是字母,是不变的vi是一个整体就相当于v,vj也是一个整体相当于w.不要和变量i 搞混掉.)
输出的是循环结束后的i和sumi.
具体如下:
输入vi:就是输入的最大的数的范围,比如我们要求1到100内的奇数的和,那么vi就是100.
输入vj:就是所求范围内奇数的和不超过这个范围中的一个数,比如vi是100的话,那么vj你只能取100内数,如50.
输出i:就是参与计算的奇数个数.
输出sumi,就是所有满足条件的奇数的和.
整个程序实现这样一个功能:
从1到vi这么多个奇数之中,特取其中一个数vj,使他们的和不超过vj,这样的奇数有多少个(i个),这些奇数的和是多少(sumi).