数学中有很多公式,例如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***.Tex
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 09:40:25
数学中有很多公式,例如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***.Tex
数学中有很多公式,例如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
数学中有很多公式,例如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***.Tex
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 Sub