现在谁还用VB编程啊
过时啦！Basic 语言适合娱乐，不适合开发。 你可能连 Basic 语言有上百个版本都不清楚吧。 lz刚上一年级吧？我建议你，如果你说不出 VB.NET 的具体问题，那么你就自己去用别的语言，不要没事找事。如果你想切实地讨论一下 VB.NET 的具体问题，那么请认真发帖，不要浪费csdn的版面啊。毕竟还有别人比你更需要用这个版面讨论实际的问题啊！ 受教了。前辈，请指点一下：为什么basic语言就不适合娱乐。如果你说不出 basic的具体问题，那么你就自己去用别的语言，不要没事找事。如果你想切实地讨论一下basic 的具体问题，那么请认真发帖，不要浪费csdn的版面啊。毕竟还有别人比你更需要用这个版面讨论实际的问题啊！
谁跟你说过“为什么basic语言就不适合娱乐”了？所以我说你只有一年级的逻辑水平，语言逻辑都没有学好。
你先说“buaa1121 只会吃饭，不会干正经事！”。然后别人给你指出“buaa1121 是会干正经事的”，你就来一句“为什么buaa1121 不会吃饭？”。
你这种倒打一耙随便栽赃的语言逻辑，除了会让你显得像个惯坏了的孩子，还能有什么？ 一般来说我们讨论技术问题就行了。但是我觉得你应该从已写涉及人品方面的角度开始，才能学好编程技术。不然你在开发过程中会经常遇到很多诡异的BUG，不是电脑或者用户有问题，而是你的人品问题造成了你把责任推卸给了电脑设备或者用户。 Basic语言没有过时，但是VB过时了。
Basic语言具有简单，贴近数学表达式和英语，适合初学者的特点。Basic语言很适合编程爱好者，微软的Small Basic就在中小学很受欢迎。 找骂的吧,sb 怎么这段时间这个buaa1121老是各种喷？ 故意来黑北航的？ 第二个OkGoood？ 很多这样的，只是道听途说，没有自己甄别的习惯。 比尔盖茨在用，认识吗？ 一直在用。赚钱养家。月薪是最小的五位数。 还在用，觉得挺好的，简单方便
不是在京沪深等地的话已经不错了。毕竟想靠当码农发财难度可不小
用VS2003 做VB开发中...
public sub InTurn()
dim ppe(0 to 55) as integer
dim p as integer
dim i as integer
dim n as integer
ppe( 0)=1537 '迭化 ppEffectDissolve
ppe( 1)=1281 '向左覆盖 ppEffectCoverLeft
ppe( 2)=3587 '从内到外垂直分割 ppEffectSplitVerticalOut
ppe( 3)=3854 '向右推进 ppEffectPushRight
ppe( 4)=2054 '向右上揭开 ppEffectUncoverRightUp
ppe( 5)=3846 '菱形 ppEffectDiamondOut
ppe( 6)=1285 '向左上覆盖 ppEffectCoverLeftUp
ppe( 7)=3861 '轮辐8 ppEffectWheel8Spokes
ppe( 8)=3848 '垂直梳理 ppEffectCombVertical
ppe( 9)=3845 '圆形放射 ppEffectCircleOut
ppe(10)=2052 '向下揭开 ppEffectUncoverDown
ppe(11)=1026 '纵向棋盘式 ppEffectCheckerboardDown
ppe(12)=2818 '向上擦除 ppEffectWipeUp
ppe(13)=2055 '向左下揭开 ppEffectUncoverLeftDown
ppe(14)=3588 '从外到内垂直分割 ppEffectSplitVerticalIn
ppe(15)=3859 '轮辐3 ppEffectWheel3Spokes
ppe(16)=2305 '随机水平条 ppEffectRandomBarsHorizontal
ppe(17)=2051 '向右揭开 ppEffectUncoverRight
ppe(18)=1288 '向右下覆盖 ppEffectCoverRightDown
ppe(19)= 769 '水平百叶窗 ppEffectBlindsHorizontal
ppe(20)=3857 '轮辐1 ppEffectWheel1Spoke
ppe(21)=2053 '向左上揭开 ppEffectUncoverLeftUp
ppe(22)=2568 '条纹右下展开 ppEffectStripsRightDown
ppe(23)=1283 '向右覆盖 ppEffectCoverRight
ppe(24)=3860 '轮辐4 ppEffectWheel4Spokes
ppe(25)=2562 '条纹上右展开 ppEffectStripsUpRight
ppe(26)=2820 '向下擦除 ppEffectWipeDown
ppe(27)=2056 '向右下揭开 ppEffectUncoverRightDown
ppe(28)=3852 '向上推进 ppEffectPushDown
ppe(29)=2306 '随机垂直条 ppEffectRandomBarsVertical
ppe(30)=3853 '向左推进 ppEffectPushLeft
ppe(31)=3847 '水平梳理 ppEffectCombHorizontal
ppe(32)=3858 '轮辐2 ppEffectWheel2Spokes
ppe(33)=2566 '条纹右上展开 ppEffectStripsRightUp
ppe(34)=2564 '条纹下右展开 ppEffectStripsDownRight
ppe(35)=2049 '向左揭开 ppEffectUncoverLeft
ppe(36)=2565 '条纹左上展开 ppEffectStripsLeftUp
ppe(37)=3855 '向上推进 ppEffectPushUp
ppe(38)=2563 '条纹下左展开 ppEffectStripsDownLeft
ppe(39)=3585 '从内到外水平分割 ppEffectSplitHorizontalOut
ppe(40)=1286 '向右上覆盖 ppEffectCoverRightUp
ppe(41)= 770 '垂直百叶窗 ppEffectBlindsVertical
ppe(42)=3851 '十字形扩展 ppEffectPlusOut
ppe(43)=3073 '盒状展开 ppEffectBoxOut
ppe(44)=3856 '楔入 ppEffectWedge
ppe(45)=2817 '向左擦除 ppEffectWipeLeft
ppe(46)=2561 '条纹上左展开 ppEffectStripsUpLeft
ppe(47)=1282 '向上覆盖 ppEffectCoverUp
ppe(48)=2819 '向右擦除 ppEffectWipeRight
ppe(49)=1284 '向下覆盖 ppEffectCoverDown
ppe(50)=3074 '盒状收缩 ppEffectBoxIn
ppe(51)=2567 '条纹左下展开 ppEffectStripsLeftDown
ppe(52)=3586 '从外到内水平分割 ppEffectSplitHorizontalIn
ppe(53)=2050 '向上揭开 ppEffectUncoverUp
ppe(54)=1025 '横向棋盘式 ppEffectCheckerboardAcross
ppe(55)=1287 '向左下覆盖 ppEffectCoverLeftDown
n=ActivePresentation.Slides.Count
p=0
for i=1 to n
ActivePresentation.Slides(i).SlideShowTransition.EntryEffect = ppe(p)
p=(p+1) mod 56
next
end sub
《PowerPoint2007相册翻页动画随机轮换器》
PowerPoint2007相册翻页动画选随机时效果很不理想。
先按Alt+F11键进入Visual Basic（可能需要事先点‘控制面板、添加或删除程序、Office 2007、更改’，然后选择安装‘Office共享功能\Visual Basic for Applications’），再选菜单‘插入、模块’，粘贴此代码，再按F5键运行，即可自动轮换使用56种各不相同的翻页动画。 不过VB6现在是主力，C#是替补语言，月薪还在涨！
哎，说实话，码农到后面，根本不是语言的问题，我现在C# ,VB6，VB.NET都再用感觉没啥好大区别，什么好用就用什么 呗。纠结个屁哦。 我每天在使用，用的很好，什么都可以用，
软件内嵌代理vpn发多线程数据包，vpn从哪弄，有啥思路不？ 自己做产品自己卖才是码农终极出路。
+1,真是和你想一起了.
这样成功率太低，基本没前途的，除非额头撞到天花板 都还没尝试就说不行没有前途，这才是成功率最低呢，为0
那就大胆的向自主撞去吧。。。反正摔的是自己[抠鼻] 呵呵,我也是老vb粉絲
是啊, 俺到最后洗手不干的时候连源码都卖了. HOHO,自己撞一撞,有可能成功.不去撞一撞,永远不会成功.
就像买彩票,只要你买了,那么你的中奖率就不是0了,不买永远都是0
傻逼楼主，风靡这么久的语言，被你称作娱乐用的玩具。。。你真牛逼。。。。。。补充：VB , 非技术类
