Question

用VB按以下要求制作一个程序：设计一个窗体，用InputBox函数输入一个自然数n， 【接下行】

单击计算按钮后打印1到n之间的奇数之和，退出按钮实现结束功能，如图1所示。
要求： n的值由InputBox函数输入，界面参考图1。

Answer 1

Private Sub Command1_Click()
Dim n, i, S As Long
n = InputBox("请输入自然数n的值", "期末考试第一题")
For i = 1 To n Step 2
S = i + i
Next
Label1.Caption = "1到" & n & "之间奇数的和为：" & S
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

窗体中有Command1、Command2和Label1