微信小程序 > 微信公开课 > 帮忙编一个小程序（VC/VB）
微信小程序，微信公开课，帮忙编一个小程序（VC/VB）

帮忙编一个小程序（VC/VB）

2019-03-12 17:01:43

微信公开课小程序热门讨论「帮忙编一个小程序（VC/VB）」最新回复-这是VB6的程序在窗体中添加两个Timer控件，把Timer2的时间间隔设置为1，再添加一个文本框。添加代码DimTTimesAsIntegerDimRTimeAsIntegerDimNTimesAsIntegerDimNums(1To50)AsInteger这里的50你可以改为更大的数字,这要看你的时间间隔而定，如果运行到一半突然下标越界就丑了~DimTotalNumAsIntegerPrivateSubText1_ChangeDimNumasDoubleNum=Val(Text1.Text)TTimes=Int(Num/32767)RTimes=NumTTimes*32767NTimes=0IfTTimes0ThenTimer1.In=32767不太记得那个属性的名称去了，反正TIMER就只有那几个属性，是IN开头的ElseTimer1.In=RTimesEndIfEndSubPrivateSubTimer1_TimerIfTTimes=0ThenAddNum:ExitSubIfNTimesTTimesThenNTimes=NTimes+1:ExitSubIfNTimes=TTimesThenTimer1.In=RTimesNTimes=NTimes+1ElseAddNumTimer1.In=32767NTimes=0EndIfEndSubPrivateSubTimer2_TimerIfHour+Minute+Second=0ThenSaveNums因为时间不可能是负数，因此此时一定是0:0:0，开始写数据，那些取得系统时间的是这几个吧，半年没玩VB了，有些不记得了EndSubPrivateSubAddNumRandmize那个初始化随机数的函数TotalNum=TotalNum+1Nums(TotalNum)=(Rnd*999.9999999#)这里抽取0999的随机数EndSubPrivateSubSaveNumsOpenC:\a.txtForAppendAs#1向C:\a.txt写数据ForA=1ToTotalNumPrint#1,Nums(A)NextATotalNum=0MsgBox已写入数据。EndIf运行就可以了，在文本框中输入时间间隔，单位是毫秒，由于采用极品算法，因此可以输入大于32767的数字~
我也想知道，签名，过会过来看看 更多有关「帮忙编一个小程序（VC/VB）」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，帮忙编一个小程序（VC/VB）

「帮忙编一个小程序（VC/VB）」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「帮忙编一个小程序（VC/VB）」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「帮忙编一个小程序（VC/VB）」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「帮忙编一个小程序（VC/VB）」

微信公开课小程序热议话题「帮忙编一个小程序（VC/VB）」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「帮忙编一个小程序（VC/VB）」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:01:43

一键制作小程序 全国代理小程序 订阅微信公开课