UC知道在VB计算中，S=1+12+22+32+…n2老师又要求按计算后显示运算式，比如输入n=3,就显示1+12+22+32=67,输入n=4,
来源：百度知道 编辑：UC知道 时间：2024/06/19 23:54:38
我用的是比较简单的程序
Private Sub Command1_Click()
Dim n as integer, s as integer, a as integer
s=1:n=0:a=0
do while n<= text1
a=n*10+2
s=s+a
n=n+1
loop
text2.text=s
End sub
怎么弄下能显示式子带答案
Private Sub Command1_Click()
Dim n as integer, s as integer, a as integer
s=1:n=0:a=0
do while n<= text1
a=n*10+2
s=s+a
n=n+1
loop
text2.text=s
End sub
怎么弄下能显示式子带答案
Private Sub Command1_Click()
Dim a As Integer
Sum = 1
a = Val(Text1.Text)
b = a * 10 + 2
For i = 12 To b Step 10
Sum = Sum + i
Next i
Print Sum
End Sub
这样就可了，有一个文本框，一个按钮