VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/21 01:21:36
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
输入什么输出什么
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).
输出的是循环结束后的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