数学中有很多公式,例如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/07/08 15:09:18
![数学中有很多公式,例如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](/uploads/image/z/8286079-31-9.jpg?t=%E6%95%B0%E5%AD%A6%E4%B8%AD%E6%9C%89%E5%BE%88%E5%A4%9A%E5%85%AC%E5%BC%8F%2C%E4%BE%8B%E5%A6%82x%3D1%2An%2B2%2A%EF%BC%88n-1%EF%BC%89%2B%E2%80%A6%E2%80%A6%2B%EF%BC%88n-1%EF%BC%89%2A2%2Bn%2A1%2C%E8%AF%95%E8%AE%BE%E8%AE%A1%E7%A8%8B%E5%BA%8F%E5%BD%93%E7%94%A8%E6%88%B7%E8%BE%93%E5%85%A5n%E7%9A%84%E5%80%BC%E6%97%B6%E6%B1%82%E5%87%BAx%E7%9A%84%E5%80%BC.Private+Sub+Command1_Click%28%29Dim+n%2Ci+As+%2A%2A%2A%2A+%27%E5%AE%9A%E4%B9%89n%E5%92%8Ci%E4%B8%BA%E6%95%B4%E5%BD%A2%E6%95%B0Dim+x+As+Long+%27%E5%AE%9A%E4%B9%89x%E4%B8%BA%E9%95%BF%E6%95%B4%E5%BD%A2%E6%95%B0n+%3D+Val%28Text%2A%2A%2A.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***.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