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

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

2025-04-30 18:30:24

推荐回答（2个）

回答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

回答2：

隋宫(李商隐)