作业帮 > 综合 > 作业

数学中有很多公式,例如x=1*n+2*(n-1)+……+(n-1)*2+n*1,试设计程序当用户输入n的值时求出x的值.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/16 11:39:13
数学中有很多公式,例如x=1*n+2*(n-1)+……+(n-1)*2+n*1,试设计程序当用户输入n的值时求出x的值.
Private Sub Command1_Click()
Dim n,i As **** '定义n和i为整形数
Dim x As Long '定义x为长整形数
n = Val(Text***.Text) '将用户输入的n的值赋值给n
x = 0 'x的初始值为0
'以下代码用来计算x的值
For i = *** To *** 'i为循环变量
*** '计算x的值
Next i
Text***.Text = x '将x的值在下面的文本框中输出
End Sub
Private Sub Command1_Click()
Dim n,i As Integer '定义n和i为整形数
Dim x As Long '定义x为长整形数
n = Val(Text1.Text) '将用户输入的n的值赋值给n
x = 0 'x的初始值为0
'以下代码用来计算x的值
For i = 1 To n 'i为循环变量
x = x + i * (n + 1 - i) '计算x的值
Next i
Text1.Text = x '将x的值在下面的文本框中输出
End Su