vb程序 麻烦那个大大帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/20 10:40:54
在文本框TEXT1中输入一个正整数N，按“计算”命令按钮command1，计算级数1+22+33+…+NN的值，结果显示在标签框Label1中，按“结束”命令按钮command2，结束程序

----楼上错了，99后应该是1010，楼上的是110了
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
s = 1
For i = 2 To n
s = s + int（i & i）
Next i
Label1.Caption = s
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
n = Val(Str(n) + Str(n))
s = 1
For i = 22 To n Step 11
s = s + i
Next i
Label1.Caption = s
End Sub

Private Sub Command2_Click()
End
End Sub

===============
输入2 结果23
输入6 结果221