Question

设计一个窗体，用InputBox函数输入一个自然数n，单击计算按钮后打印1到n之间的奇数之和，退出按钮实现结束

Answer 1

往窗体上画两个按钮，然后进入代码窗口，粘贴以下代码，运行即可。

Dim n As Integer

Private Sub Command1_Click()
s = 0
For i = 1 To n
If i Mod 2 <> 0 Then
s = s + i
End If
Next
Print s
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "计算"
Command2.Caption = "退出"
n = InputBox("输入一个自然数")
End Sub

Answer 2

qq留下