单击计算按钮后打印1到n之间的奇数之和,退出按钮实现结束功能,如图1所示。
要求: n的值由InputBox函数输入,界面参考图1。
用VB按以下要求制作一个程序:设计一个窗体,用InputBox函数输入一个自然数n, 【接下行】
答案:1 悬赏:40
解决时间 2021-03-22 08:31
- 提问者网友:乱人心
- 2021-03-21 22:25
最佳答案
- 二级知识专家网友:万千宠爱
- 2021-03-21 23:00
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯