关于VB的问题～！

来源：百度知道 编辑：UC知道 时间：2024/06/07 20:04:31
在TextBox中输入一个数N(N>100)，鼠标单击按钮（CommandButton）后，计算1+3+5+…+K，K是小于或等于N的最大奇数，并显示计算结果在Label上。
要求： （1） 建立VB工程
（2） 安排界面
（3） 使用For或Do循环计算

Private Sub Command1_Click()
Dim i, sum As Long
sum = 0
For i = 1 To Val(Text1.Text) Step 2
sum = sum + i
Next
Label1.Caption = sum
End Sub

-----------------------
界面应该就不用设计了吧，就那几个东西

新建一标准EXE工程，在窗体上画一个Textbox控件、一个Label控件、一个Command控件，复制下面的代码到代码窗口，运行就行。（别告诉我你不会新建工程、不会画控件、不知道代码窗口。）
Private Sub command1_click()
Dim N As Integer, S As Integer, i As Integer
N = Text1.Text
For i = 1 To N Step 2
S = S + i
Next i
Label1.Caption = S
End Sub

我来个do的计算
Private Sub command1_click()
Dim N As Integer, S As Integer, i As Integer
N = val(Text1.Text)
i=1
do while i<=n
S = S + i
i=i+2
loop
Label1.Caption = S
End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To Val(Text1.Text) Step 2
Label1.Caption = Val(Label1.Caption) + i
Next i
End Sub