Question

VB 作业 帮我编写一下程序谢谢！！

请在窗体文件form1中，编写程序代码,实现以下功能:
计算S=1*3+2*4+.....+n*(n+2)
1 单击命令按钮“计算”即Button1， 则出现一个输入框,输入框内的提示信息为"请输入n值:".
2 在输入框中输入n值后,自动计算1*3+2*5+.....+n*(n+2)的结果
3 将2中的计算结果以字号15，红色字在文本框textbox1中显示结果。

Answer 1

Dim n As String
Dim i, c As Integer
c = 0
n = InputBox("请输入n值:")
If IsNumeric(n) Then
For i = 1 To n
c = c + n * (n + 2)
Next
End If

Text1.Text = c
Text1.FontSize = 15
Text1.ForeColor = &HFF&

追问

我刚关电脑……
等我晚上试试，再问下你可以吗