现在谁还用VB编程啊 你可能连 Basic 语言有上百个版本都不清楚吧。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 lz刚上一年级吧?我建议你,如果你说不出 VB.NET 的具体问题,那么你就自己去用别的语言,不要没事找事。如果你想切实地讨论一下 VB.NET 的具体问题,那么请认真发帖,不要浪费csdn的版面啊。毕竟还有别人比你更需要用这个版面讨论实际的问题啊! 受教了。前辈,请指点一下:为什么basic语言就不适合娱乐。如果你说不出 basic的具体问题,那么你就自己去用别的语言,不要没事找事。如果你想切实地讨论一下basic 的具体问题,那么请认真发帖,不要浪费csdn的版面啊。毕竟还有别人比你更需要用这个版面讨论实际的问题啊! 谁跟你说过“为什么basic语言就不适合娱乐”了?所以我说你只有一年级的逻辑水平,语言逻辑都没有学好。你先说“buaa1121 只会吃饭,不会干正经事!”。然后别人给你指出“buaa1121 是会干正经事的”,你就来一句“为什么buaa1121 不会吃饭?”。你这种倒打一耙随便栽赃的语言逻辑,除了会让你显得像个惯坏了的孩子,还能有什么? 一般来说我们讨论技术问题就行了。但是我觉得你应该从已写涉及人品方面的角度开始,才能学好编程技术。不然你在开发过程中会经常遇到很多诡异的BUG,不是电脑或者用户有问题,而是你的人品问题造成了你把责任推卸给了电脑设备或者用户。 Basic语言没有过时,但是VB过时了。Basic语言具有简单,贴近数学表达式和英语,适合初学者的特点。Basic语言很适合编程爱好者,微软的Small Basic就在中小学很受欢迎。 怎么这段时间这个buaa1121老是各种喷? 故意来黑北航的? 第二个OkGoood? 用VS2003 做VB开发中... public sub InTurn()dim ppe(0 to 55) as integerdim p as integerdim i as integerdim 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 nextend sub 《PowerPoint2007相册翻页动画随机轮换器》PowerPoint2007相册翻页动画选随机时效果很不理想。先按Alt+F11键进入Visual Basic(可能需要事先点‘控制面板、添加或删除程序、Office 2007、更改’,然后选择安装‘Office共享功能\Visual Basic for Applications’),再选菜单‘插入、模块’,粘贴此代码,再按F5键运行,即可自动轮换使用56种各不相同的翻页动画。 不过VB6现在是主力,C#是替补语言,月薪还在涨!哎,说实话,码农到后面,根本不是语言的问题,我现在C# ,VB6,VB.NET都再用感觉没啥好大区别,什么好用就用什么 呗。纠结个屁哦。 软件内嵌代理vpn发多线程数据包,vpn从哪弄,有啥思路不? HOHO,自己撞一撞,有可能成功.不去撞一撞,永远不会成功.就像买彩票,只要你买了,那么你的中奖率就不是0了,不买永远都是0 Visual Basic 6.0 一直在手。看我使用vb,哼哼哈嘿~ vb屏幕找图代码 怎么做到在程序打开50秒以后才执行比如打开某个网页? 如何复制ie缓存的某内容到别的目录 请教个问题 关于MSFlexGrid 如何把excel的单元格格式从“数值型”设置为“文本型”? 如何获得用友华表控件完全解密版! 如何理解ado中的帮助文件 学vb难吗,要学多少,开始要不要什么基本的 会的进来,给100分! vb控件MSFlexGrid问题 VB与数据库的基本应用问题
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
哎,说实话,码农到后面,根本不是语言的问题,我现在C# ,VB6,VB.NET都再用感觉没啥好大区别,什么好用就用什么 呗。纠结个屁哦。
软件内嵌代理vpn发多线程数据包,vpn从哪弄,有啥思路不?
看我使用vb,哼哼哈嘿~