到底要怎么学VB，跪求学习资料啊啊啊不想重修到大四呜呜呜

这次真的就彻底分手了吧，你挺厉害的，你是我处的最认真的对象，在我心里的只有你一个，为你拒绝那么多人你还告诉我在你那里不算什么，为你哭你说没必要，我和你的脾气可能真的太不合适了吧，说什么都晚了，这是第一次对你说了这么多，就是想再跟你说说话，你自己好好的吧，这次说了和你分手，我就不会再相信爱情了，这次真的分手了，至于朋友们，你们随意怎么看， 反正我是复制的。
我只是想在情人节之前装装逼。

自学

背那个习题集的题就行了

Private Sub Form_Click()
Dim a(1 To 100) As Integer, b%, c!, n%, i%
b = 0
i = 0
n = InputBox("请输入 n 的值")
For k = 1 To n
a(k) = InputBox("请输入第" & k & "个元素的值")
b = b + a(k)
Next k
c = b / n
For r = 1 To n
If a(r) > c Then
i = i + 1
End If
Next r
Text1 = c
Text2 = i
End Sub

我们是任选。。。

我只能在精神上为你加油