这题谁能给个答案吗?

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

给下详细步骤吧谢谢~

一个textbox控件 一个commandbutton 一个label控件
代码如下

Private Sub Command1_Click()
n = Val(Text1.Text)
If n >= 100 Then
For i = 1 To n Step 2
s = s + i
Next i
Else
MsgBox "输入的数小于100"
End If
Label1.Caption = s
End Sub