VB程序题1.求S=1+3+5+7+---+99的值.
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/12 21:04:32
VB程序题1.求S=1+3+5+7+---+99的值.
1.求S=1+3+5+7+---+99的值.
2.求N!的值,其中N由键盘输入.
3.从键盘上输入这些数:10,11,6,15,33,21,7然后按相反的顺序:7,21,33,15,6,11,10在窗体上显示.
4.设计一个窗体,从键盘上输入10个数,显示其中最大的数,界面如图3-10所示.
1.求S=1+3+5+7+---+99的值.
2.求N!的值,其中N由键盘输入.
3.从键盘上输入这些数:10,11,6,15,33,21,7然后按相反的顺序:7,21,33,15,6,11,10在窗体上显示.
4.设计一个窗体,从键盘上输入10个数,显示其中最大的数,界面如图3-10所示.
1. Private Sub Command1_Click()
Dim i As Integer, s As Long
For i = 1 To 99 Step 2
res = res + i
Next i
Print s
End Sub
2. Private Sub Command1_Click()
Dim i As Integer, N As Long, s As Long
N = Val(InputBox("请输入N的值"))
s = 1
For i = 1 To N
s = s * i
Next i
Print s
End Sub
3.
Private Sub Command1_Click()
Dim i As Integer, N(7) As Long
For i = 1 To 7
N(i) = Val(InputBox("请输入要倒序的数"))
Next i
For i = 1 To 7
Print N(i);
Next i
Print
For i = 7 To 1 Step -1
Print N(i);
Next i
End Sub
4.
Private Sub Command1_Click()
Dim a(10) As Long, max As Long
Dim i As Integer
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
a(5) = Val(Text5.Text)
a(6) = Val(Text6.Text)
a(7) = Val(Text7.Text)
a(8) = Val(Text8.Text)
a(9) = Val(Text9.Text)
a(10) = Val(Text10.Text)
For i = 1 To 10
If a(i) > max Then max = a(i)
Next i
Text11.Text = max
End Su
Dim i As Integer, s As Long
For i = 1 To 99 Step 2
res = res + i
Next i
Print s
End Sub
2. Private Sub Command1_Click()
Dim i As Integer, N As Long, s As Long
N = Val(InputBox("请输入N的值"))
s = 1
For i = 1 To N
s = s * i
Next i
Print s
End Sub
3.
Private Sub Command1_Click()
Dim i As Integer, N(7) As Long
For i = 1 To 7
N(i) = Val(InputBox("请输入要倒序的数"))
Next i
For i = 1 To 7
Print N(i);
Next i
For i = 7 To 1 Step -1
Print N(i);
Next i
End Sub
4.
Private Sub Command1_Click()
Dim a(10) As Long, max As Long
Dim i As Integer
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
a(5) = Val(Text5.Text)
a(6) = Val(Text6.Text)
a(7) = Val(Text7.Text)
a(8) = Val(Text8.Text)
a(9) = Val(Text9.Text)
a(10) = Val(Text10.Text)
For i = 1 To 10
If a(i) > max Then max = a(i)
Next i
Text11.Text = max
End Su
VB程序题1.求S=1+3+5+7+---+99的值.
求s=1-1/2+1/3-1/4+..+1/99-1/100的值 用vb程序编写
试用VB程序语言写出主要程序段:求S=1!+2!+3!+……+99!的值
求1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的值,vb程序是n=1,s=0 For i=1 to 10
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
需要设计一个VB程序,求S=1+(1+3)+(1+3+5)+……+(1+3+5+……+19)的值
求vb编写程序大神求当s=1*2*3*4...*n小于或者等于5000时最大的n值及此时的s值.
用VB程序写出计算s=1!+2!+3!+…+50!的值.
VB,计算S=1!+2!+3!+4!+5!的程序.
VB程序设计 设计程序s=-1+ /3 - /5 + /7 +……+(-1)^n * /(2n-1)
用C语言编写程序,求s=1-3+5-7+...-99+101的值
一道VB题,求解答.执行下面的程序段后,s的值为______,并简述计算过程: