VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/11 16:37:15

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
输入什么输出什么

输入的是两个变量,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）.

VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF 几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( 在VB 语句中 x = Val(Text1.Text) Val vb Private Sub Command1_Click() VB问题Private Sub Command1_Click() Private Sub Text1_Click() If Text1.Text = "请输入" Then Text1.T 帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo 请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text "" vb sgn 函数Private Sub Command1_Click()x = -5If Sgn(x) Theny = vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp