VB编程达人来
VB编程达人请速进,今晚必需,在线等【穷举法】?？
Option Explicit Private Sub Command1_Click()Dim i As Integer Dim j As Integer Dim k As Integer Dim Y As Integer Dim n69 As Integer Dim n39 As Integer Dim n29 As Integer Y = 600 For i = 1 To 8 '设截取69CM的有i根🤮🐊|🐯，600/69 最多为8 For j = 1 To 15 '设截好了吧🎋|_🐾🌾！
Private Sub Command1_Click() '单击按钮事件开始🐄🦠-|🐝，使程序运行🧩🤡||*🐖！Dim a As Integer, b As Integer, s As Integer '定义变量数据类型Dim j As Integer, k As Integer '定义变量数据类型🌻|😯🦑！a = 1: b = 1: s = 0 '给变量初始赋值😝🏆-_😆🦡！For j = 2 To 4 '让j的值循环2次For k到此结束了？🐗_-🦘。
Option Explicit Private Sub Command1_Click()Dim i As Integer Dim j As Integer Dim k As Integer Dim Y As Integer Dim n69 As Integer Dim n39 As Integer Dim n29 As Integer Y = 600 For i = 1 To 8 '设截取69CM的有i根🤮🐊|🐯，600/69 最多为8 For j = 1 To 15 '设截好了吧🎋|_🐾🌾！
Private Sub Command1_Click() '单击按钮事件开始🐄🦠-|🐝，使程序运行🧩🤡||*🐖！Dim a As Integer, b As Integer, s As Integer '定义变量数据类型Dim j As Integer, k As Integer '定义变量数据类型🌻|😯🦑！a = 1: b = 1: s = 0 '给变量初始赋值😝🏆-_😆🦡！For j = 2 To 4 '让j的值循环2次For k到此结束了？🐗_-🦘。
（9）学VB要付出代价的🕸——🐈⬛，没有不劳而获的🪡——_⚾😻。如果想成为高手🐗🐑——-🎲🐓，还要会好多与VB不相关的东西🤠😥|😿，但这些东西都能用到VB上🐅🌴-🐥，如photoShop可以做界面美化⚡️🎄——🦇🕹，TCP/IP协议可以帮你更容易的开发网络程序😥🐃——🌻，MCI和WFV多媒体接口可以更好的开发多媒体应用🧵_-🦎，英语可以使用更好的学习英文文档🦧🍃——-🐯🐥。等等好多的🐚__🌼。（10）祝你成功后面会介绍*🌱_——🐃🦦。
Print Tab(n + 1 - a); ’输入空格（不是空格🦂🪰——🦀，只是相当于空出来几个位置）🌖__🐙。如n是5🦔🪁——_🐔😄，第一行输入5空格🐈🌸_🐕🦺，第2行4个空格💮——🎴。👿_🦁。🌩——😛🦒。For b = 1 To 2 * a - 1 ‘在第一个循环中嵌套的循环*——_😚🌦。在第一行中☁️——♟，由上一句输入了5个空格🦍🦫_🦁，然后接着输入2*1-1=1个“”🥉-🎋🌥，第二行先输入了4个空格🧩🐷-_😒😺，..
寻求VB达人编程~!?？
汗🦙😧||😯，看不到图啊👿🤗——-🌓🦜，
其实这个问题特简单🐒|🌓🐋，但是三色需要三个文本框(数组控件)分别输入🦣-_🥇，设置红色🤯🦃_🐕😵、绿色🤩🎰-*、蓝色🐜-|🐉，在文本框的Text1_Change事件中设置Text2的颜色就可以了*🌨|🌩🐉。Private Sub Form_Load()Text2.Text = "你好吗？quot;Text2.FontSize = 20Text2.FontBold = TrueEnd SubPrivate Sub Text1_Change(Index As Integer)Dim 等我继续说🦓——🎆☄️。
求一vb编程,编写一个数组,将一个数据系列最后一个元素移动到第一个...
Debug.Print strEnd Sub 本回答由电脑网络分类达人董辉推荐举报| 答案纠错| 评论4 1 Archlen 采纳率🦏-🌧：65% 来自团队🐟✨_*：BAT-GO 擅长**——🦚： 历史话题宗教VB C/C++ 操作系统/系统故障其他回答 把最后一个放到一个临时变量👺🦏————🦖🦒，然后运用循环将倒数第二个赋给倒数第一个🧶——🐱🐳，倒数第三个赋给倒数第二个🐖🌍_|😭🦢，🐳————😾🤐。🌙|🦨🤓。🐱||🌴🐉。最后有帮助请点赞🤿🌎-——*❄🐨。
Print "排序前"For i = 1 To n MsgBox "请输入第" & Str(i) & "个数🐭🐜|-🥀："sngsq(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型Print sngsq(i);Next Print Print "排序后"'排序For i = 1 To n - 1 intmin = i '对第i遍排序🦎🧧_🐷😎，初始假定第i个元素最小For j =有帮助请点赞😘||🐄🧶。
VB编写能播放音频的程序。。。100分提供?？
我用vb编了一套播放器程序😥--🌏🐅，有源代码🦅🌾|🦠，要的话发email我frankkanks@yahoo.com.cn下文为程序的参考资料(详)MCI Command String总览MCI Command String是多媒体设备的程序接口🏈🦚-|🖼。通过它🦣🌤--🎯🌻，我们可以打开一个多媒体文件🦀🤕——🎄，例如mp3,VCD文件🦉🃏-😪，Mpeg4格式的文件等等🦦_-🐿🍃，并对它进行播放🤿🐯|_🤿，暂停😘|🎨🌒，关闭等操作♣🧿_-🦓😡。现在小弟有幸给大家介绍一下是什么🐚————🪲。
2014-04-03 VB编写程序求S=A!+B!+C!的值6 2010-05-19 急需一VB程序🐰🦕_|🐫：编写程序🦍-🌗😍，求S=A!+B!+C!,阶乘的计算到此结束了？🦫🤗-|🐆🛷。 2015-11-07 VB编写程序🐗😎_💐🦇，求S=1!+2!+3!,阶乘的计算用函数过程实到此结束了？🐥🧧_🐬。更多类似问题> 正在求助换一换 回答问题🪀🦢|⛈，赢新手礼包 苦等1分钟🕸——🐲： 时樾跑酷追地铁可能吗回答 苦等12分钟到此结束了？🦒_🐔。