麻烦那个大大帮忙写下程序 我没学过

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

2单击命令按钮command1,在Label1中随机产生10个25-99的随机整数，单击命令按钮command2，在Label2中对产生的10个随机整数按升序排序。单击命令按钮command2，则结束程序运行。

'第一题
n = InputBox("")
s = 1
For a = 2 To n
s = s + a * 10 + a
Next
Label1.Caption = s
'第二题
'先定义个全局数组dim x(10) as integer
'产生随机数
For a = 1 To 10
x(a) = Int(Rnd() * 75 + 25)
Label2.Caption = Label2.Caption & " " & x(a)
Next

'排序
For a = 1 To 10
For b = 10 To 1 Step -1
If x(b) < x(b - 1) Then s = x(b): x(b) = x(b - 1): x(b - 1) = s
Next
Next
For a = 10 To 1 Step -1
Label3.Caption = Label3.Caption & " " & x(a)
Next

'结束程序可以用end函数
Private Sub Command2_Click()
End
End Sub

5