微信公开课

微信公开课小程序热门讨论「vb定时器是什么怎么用代码举例 vb循环语句是什么怎么用代码举例 vb判断语句是什么怎么用代码举例」最新回复-vb定时器就是timer控件，它的interval属性值控制着两次调用timer控件的Timer事件间隔的毫秒数。例如：小程序用定时器控制实现图片自动移位（每隔100毫秒，图片的left和top值发生一次变化。vb循环语句格式有for循环控制变量初值to循环控制变量终值step控制变量递增（递减）值循环语句体next循环控制变量作用就是，当循环控制变量不满足终值条件时，执行循环语句体，执行一次后，循环变量值自动递增（递减），然后再判断是否到达终值，如果到达就退出循环，不到达就继续循环。还有while……wenddo……whiledo……loopuntil循环的意思是一样的，就是判断条件与执行顺序有些变化。例如：打印九九乘法表（循环嵌套）PrivateSubForm_Click()Dimi,jAsIntegerFori=1To9Forj=1To9Printi*j&vbTab;NextjPrintNextiEndSubvb判断语句格式有if条件判断then条件为真要执行的语句endifif条件判断then条件为真要执行的语句else（elseif）条件为假要执行的语句endifSelectCase变量名Case常数值（情况1）变量值=常数值（情况1）时要执行的语句EndSelect例如：PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa1000ThenText2.Text=aElseIfa2000ThenText2.Text=0.9*aElseIfa3000ThenText2.Text=0.8*aElseText2.Text=0.7*aEndIfEndsub改成Select形式PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)SelectCaseInt(a/1000)Case0:Text2.Text=aCase1:Text2.Text=0.9*aCase2:Text2.Text=0.8*aCaseElseText2.Text=0.7*aEndSelectEndSub综合应用的例子，找第几个素数PrivateSubCommand1_Click()Dimsum,m,n,ssAsIntegersum存放找到素数的累计数，n用户输入数值，ss存放素数DimfAsBoolean布尔变量f作为判断是否为素数的标志sum=0ss=1n=Val(InputBox(请输入要查找的第n个素数))用户输入要查找的素数位置Whilesumn循环当前查找到的素数是否为第n位素数f=Truess=ss+1Form=2Toss1判断ss是否为素数IfInt(ss/m)=ss/mThenf=FalseExitForEndIfNextmIff=TrueThen找到一个素数就记一次数sum=sum+1EndIfWendPrint要查找的第&n&个素数是&ss打印输出第n位的素数PrintEndSub
定时器，timer循环 for……next  do……while do……until判断if……then……endif  if……then……else（elseif）……endif你为什么不百度呢？ 更多有关「vb定时器是什么怎么用代码举例 vb循环语句是什么怎么用代码举例 vb判断语句是什么怎么用代码举例」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「VB小程序」最新回复-首先插入一个Command，之后写入代码：PrivateSubForm_Load()a=1EndSubPrivateSubCommand1_Click()Ifa=1ThenPrint欢迎进入a=2ElseprintVB初学者EndifEndSub
PrivateSubCommand1_Click()StaticaAsIntegera=a+1IfaMod2=1ThenMe.ClsPrint欢迎进入ElseMe.ClsPrintVB初学者EndIfEndSub做任务借用下 更多有关「VB小程序」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「vb有趣小程序」最新回复-PrivateWithEventsTimer1AsTimerDimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b#PrivateSubForm_Load()Me.Width=4500:Me.Height=4500Me.Move(Screen.WidthMe.Width)\2,(Screen.HeightMe.Height)\2Me.AutoRedraw=TrueMe.Caption=CBM666的万花筒SetTimer1=Controls.Add(vb.timer,Timer1)Timer1.Interval=10EndSubPrivateSubTimer1_Timer()Randomizer=340*RndIfr0Thenr1=500s=r*Rndb=RGB(256*Rnd,256*Rnd,256*Rnd)Fort=1To10000a1=t*3.1415926/180a2=(r1/r)*a1xb=500+((r1r)*Cos(a1)s*Cos(a2a1)+420)*4yb=500+((r1r)*Sin(a1)s*Sin(a2a1)+380)*4Me.PSet(xb,yb),bNexttEndIfEndSub
整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改)，经测试肯定可以使用。onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdown-r-t60-c说[我是猪]，不说[我是猪]，不信，试试···,0,true  dimadowhile(a我是猪)a=inputbox(说[我是猪],就不关机，快撒，说[我是猪],说不说,不说,8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdown-a,0,true msgboxchr(13)+chr(13)+chr(13)+承认就好了嘛阻止关机的方法:按键盘上的Win键+R键，在出来的窗口中输入:shutdown-a再按回车即可取消关机命令。 更多有关「vb有趣小程序」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「vb编的一个小程序，如何让他在点击右上角关闭按钮（就是那个叉号）时，在托盘 里继续运行？」最新回复-VB6：你可以在工程里多建一个窗体，操作的菜单写在这里，不显示9OK了当你要的窗体关闭后再+载托盘VB.NET里直接9有Closing和Closed事件以下9是托盘：DimOldWindowProcAsLongDimTheFormAsFormDimTheMenuAsMenuDeclareFunctionCallWindowProcLibuser32AliasCallWindowProcA_(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,_ByValwParamAsLong,ByVallParamAsLong)AsLongDeclareFunctionSetWindowLongLibuser32AliasSetWindowLongA_(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongDeclareFunctionGetWindowLongLibuser32Alias_GetWindowLongA(ByValhwndAsLong,ByValnIndexAsLong)AsLongDeclareFunctionSetLayeredWindowAttributesLibuser32_(ByValhwndAsLong,ByValcrKeyAsLong,ByValbAlphaAsByte,_ByValdwFlagsAsLong)AsLongDeclareFunctionShell_NotifyIconLibshell32.dllAliasShell_NotifyIconA_(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLongTypeNOTIFYICONDATAcbSizeAsLonghwndAsLongUidAsLongUFlagsAsLongUCallbackMessageAsLongHIconAsLongSzTipAsString*64EndTypePrivateTheDataAsNOTIFYICONDATAPublicFunctionNewWindowProc(ByValhwndAsLong,ByValMsgAsLong,_ByValwParamAsLong,ByVallParamAsLong)AsLongIfMsg=(&H400+1001&)ThenIflParam=&H205ThenFormM.SetFocusTheForm.PopupMenuTheMenuExitFunctionEndIfEndIfNewWindowProc=CallWindowProc(OldWindowProc,hwnd,Msg,wParam,lParam)EndFunctionPublicSubAddToTray(frmAsForm,mnuAsMenu)SetTheForm=frmSetTheMenu=mnuOldWindowProc=SetWindowLong(frm.hwnd,(4),AddressOfNewWindowProc)WithTheData.Uid=0.hwnd=frm.hwnd.cbSize=Len(TheData).HIcon=frm.Icon.Handle.UFlags=2.UCallbackMessage=(&H400+1001&).UFlags=.UFlagsOr1.cbSize=Len(TheData)EndWithShell_NotifyIcon0,TheDataEndSubPublicSubRemoveFromTray()WithTheData.UFlags=0EndWithShell_NotifyIcon2,TheDataSetWindowLongTheForm.hwnd,(4),OldWindowProcEndSubPublicSubSetTrayTip(tipAsString)WithTheData.SzTip=tip&vbNullChar.UFlags=4EndWithShell_NotifyIcon1,TheDataEndSub
上网查查,有很多的托盘控件.在FORM_QUERYUNLOAD中写代码,最小到托盘就行了.可以HI我. 更多有关「vb编的一个小程序，如何让他在点击右上角关闭按钮（就是那个叉号）时，在托盘 里继续运行？」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「vb运用控件数组，编写一个数据降序排列的小程序」最新回复-ModuleModule1SubMain()Dima(500)AsIntegerDimtempAsIntegerFori=1To500Step1a(i)=Int(Rnd()*1000+10)NextFori=1To500Step1Forj=1To500iStep1Ifa(j)a(j+1)Thentemp=a(j+1)a(j+1)=a(j)a(j)=tempEndIfNextjNextiFori=1To500Step1Console.Write(a(i)&vbCrLf)NextEndSubEndModule这个是随机生成500个随机数字，并将数据降序排列的例子，不会再追问。满足的话请采纳吧，谢谢
这个可以用for  to  next来实现 更多有关「vb运用控件数组，编写一个数据降序排列的小程序」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「VB里怎么设置完全关闭程序」最新回复-可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为Calculator的窗口。下面的代码放到模块中DeclareFunctionFindWindowLibuser32AliasFindWindowA(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongFindWindowAPI函数DeclareFunctionPostMessageLibuser32AliasPostMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPostMessageAPI函数PublicConstWM_CLOSE=&H10常用变量定义程序代码DimwinHwndAsLong定义一个长整形变量winHwndDimRetValAsLong定义一个长整形变量RetValwinHwnd=FindWindow(vbNullString,Calculator)API函数查找Calculator这个窗口Debug.PrintwinHwnd显示这个窗口句柄IfwinHwnd0Then如不为0,表示找到窗口RetVal=PostMessage(winHwnd,WM_CLOSE,0&,0&)向这个窗口发送关闭信息IfRetVal=0Then如果返回信息为0.表示失败，未发送成功MsgBoxErrorpostingmessage.提示发送失败EndIfElseMsgBoxTheCalculatorisnotopen.提示没有找到打开的程序EndIf
在窗体的Unload过程中，加人End命令：PrivateSubForm_Unload(CancelAsInteger) 做好退出前的收尾工作 …… EndEndSub 更多有关「VB里怎么设置完全关闭程序」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「VC++ 一段小程序，请大大们帮忙逐行解释下，万分感谢。我初学」最新回复-很简单的程序,我写注释好了.祝LZ学习顺利.#includeiostream.h//IO头文件#includestring.h//字符串处理头文件classCMyPoint//开始一个类CMyPoint的定义{private:intm_nX;//私有成员xintm_nY;//私有Ychar*m_pName;//这个对象的名字public://开放的成员函数CMyPoint();//默认构造函数CMyPoint(intnX,intnY);//带xy参数的构造函数~CMyPoint();//默认析构函数voidSetX(intnX);//设置x函数voidSetY(intnY);//设置y函数intGetX();//获取x函数intGetY();//获取y函数voidDisplay();//显示xy的显示函数.};//下面开始定义各个成员函数的函数体//默认缺省的xy值是00,点被命名为ACMyPoint::CMyPoint(){//缺省构造函数m_nX=0;m_nY=0;m_pName=newchar[2];//2是因为A和结束符\0strcpy(m_pName,A);//设置m_pName为A,字符串复制函数}//带参数的构造函数点被命名为BCMyPoint::CMyPoint(intnX,intnY){m_nX=nX;m_nY=nY;m_pName=newchar[2];strcpy(m_pName,B);//设置m_pName为A}//析构函数,当这个类超出作用区域的时候,编译器会添加这个函数在代码中,我们要做的就是写对这个函数.CMyPoint::~CMyPoint(){//析构函数//delete一个指针的时候一定要检查是否为null,否则是个严重的应用程序错误.//由于m_pName是用new产生的空间所以需要delete来释放掉,new的东西都不会自己消除,需要我们在适合的使用调用deleteif(m_pName!=NULL){delete[]m_pName;//因为它是一个数组所以需要用delete[]m_pName=NULL;//将它设置为null防止再次使用这个指针去访问原来的地址,原来的地址已经被我们delete了.但编译器不会帮我们自动清它为null所以我们自己清.}}//这些成员函数就不用说了.intCMyPoint::GetX(){returnm_nX;}intCMyPoint::GetY(){returnm_nY;}voidCMyPoint::SetX(intnX){m_nX=nX;}voidCMyPoint::SetY(intnY){m_nY=nY;}//显示一个字符串.endl是回车键加清空缓冲区的综合体.//貌似m_pName是不应该加*号的,它是字符串指针,cout会自动输出整个字符串,若加了*则成为字符,则cout只输出了第一个字符,由于名字只有一个字符所以没产生错误.voidCMyPoint::Display(){cout*m_pNameGetX()GetY()endl;}//程序运行完成后对象point调用析构函数voidmain(){//这样的声明是在栈上的,系统会自动帮我们删除这个变量.CMyPointpoint;//调用了构造函数//显示A:00point.Display();//这样的声明使用了new,需要我们自己使用delete才会删除内存.CMyPoint*Ppoint=newCMyPoint(2,3);//调用了构造函数//显示B:23PpointDisplay();//DELETE我们new的对象.deletePpoint;//调用了析构函数//其实不delete的话,当程序退出的时候,内存都会被系统释放,不会有内存泄漏的问题.内存泄漏说的是长时间运行的程序(几年几月),如果不管理好你的内存,到时候会无内存可用.}
还是学VC吧,可视化的C语言!方便易学! 更多有关「VC++ 一段小程序，请大大们帮忙逐行解释下，万分感谢。我初学」的疑问请扫码关注微信公开课+小程序！

微信公开课小程序热门讨论「VC++实用小程序，自己编的，简单点就好」最新回复-boolis_prime(intn)//判断素数{inti;for(i=2;i=floor(sqrt(n));i++)if(n%i==0)returnflase;returntrue;}intf(intn)//递归求阶乘{returnn==0?1:f(n1)*n;}
可视化还是控制台 更多有关「VC++实用小程序，自己编的，简单点就好」的疑问请扫码关注微信公开课+小程序！