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.设计一个窗体,从键盘上
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/30 21:27:51
![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.设计一个窗体,从键盘上](/uploads/image/z/4944572-44-2.jpg?t=VB%E7%A8%8B%E5%BA%8F%E9%A2%981.%E6%B1%82S%3D1%2B3%2B5%2B7%2B---%2B99%E7%9A%84%E5%80%BC.1.%E6%B1%82S%3D1%2B3%2B5%2B7%2B---%2B99%E7%9A%84%E5%80%BC.2.%E6%B1%82N%21%E7%9A%84%E5%80%BC%2C%E5%85%B6%E4%B8%ADN%E7%94%B1%E9%94%AE%E7%9B%98%E8%BE%93%E5%85%A5.3.%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A%E8%BE%93%E5%85%A5%E8%BF%99%E4%BA%9B%E6%95%B0%3A10%2C11%2C6%2C15%2C33%2C21%2C7%E7%84%B6%E5%90%8E%E6%8C%89%E7%9B%B8%E5%8F%8D%E7%9A%84%E9%A1%BA%E5%BA%8F%EF%BC%9A7%2C21%2C33%2C15%2C6%2C11%2C10%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E6%98%BE%E7%A4%BA.4.%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E7%AA%97%E4%BD%93%2C%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A)
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.设计一个窗体,从键盘上
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所示.
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.设计一个窗体,从键盘上
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 Sub