大神，vb有几个程序题要考，可是一点也不会，能麻烦您帮忙写一下嘛😭谢谢谢谢！

Question

【程序设计】
第一个: 1的n次方＋2的n次方＋3的n次方＋……
第二个: 随机产生6个30～40的随机数，并判断奇偶
第三个: 100以内所有奇数的和
万分感谢！！

Answer 1

Private Sub Command1_Click()
   Dim n As Integer
   n = Text1
   For i = 1 To n
     s = s + i ^ n
   Next i
   Print "Sum=1^"; n; "+2^"; n; "+...+"; n; "^"; n; "="; s
End Sub

Private Sub Command1_Click()

Dim n As Integer

Dim s As String

Randomize

For i = 1 To 6

n = Rnd * 11 + 30

s = IIf(n Mod 2 = 1, "奇数", "偶数")

List1.AddItem n & "  æ˜¯" & s

Next i

End Sub

Private Sub Command1_Click()

For i = 1 To 100 Step 2

s = s + i

Next i

Print "Sum=1+3+5+...+99="; s

End Sub

Answer 2

隋宫(李商隐)