经核实吧主武林神话之剑客 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 武林神话之剑客吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

vb吧吧主来一下 @chengd222 现在vb贴吧怎么基本处于无人管理状态啊？甚至一个吧主因为属于管理被下台了。。。无语，我已经申请了吧主职位，麻烦通过一下吧，谢谢！

在VB中，随机数用Rnd产生，简述： Rnd的范围为[0,1)，意思就是包括0，不包括1，就是说rnd()能产生0-0.999999999之间的小数，不能产生1. 因此，很简单，比如随机产生一个10以内的整数，那么整数用int，包括10的话就是int(rnd*11)，rnd*11产生的是0-10.9999999之间的数，取整后就是0-10之间的数了。 @feihu004 以后有问题到这里来问，因为在别人的帖子中教你不是好的行为。

终于我也高三了，现在马上就到高考了，可是我现在还是纠结去学习，还是学编程，因为自己不一定考得上大学，就想着还是多学点编程吧，可是又觉得再加把劲，又能上，。。。。好纠结

我去~贴吧不能换个好的名字么？别人还以为是小说贴吧呢！

专门为与猫君交流而创建 召唤术 @传说中嘚男人

@传说中嘚男人

vbs，它好想不需要vb编译就可以直接使用啊，可是好想只能用msg 和input 交流，

水水更健康 @传说中嘚男人

随机生成60个学生成绩，并求出总成绩和平均成绩，分段统计各分数段人数。最后将结果保存到文本文件。 Option Base 1 Private Sub Form_click() Dim Ar(60) As Integer, Tj(10) As Integer, k As Integer, n As Integer, Txtpath As String, z As Integer Txtpath = App.Path & "\a3.txt" z = 0 For i = 1 To 60 k = 0 Ar(i) = Int(Rnd * 100) n = Ar(i) z = z + Int(n) For j = 1 To 10 If n >= k And n < k + 10 Then Tj(j) = Tj(j) + 1 If n = 100 Then Tj(10) = Tj(10) + 1 k = k + 10 Next Next Open Txtpath For Append As #1 k = 0 Print #1, "60个学生的成