我祛斑价格问问佰肌净！！ VB程序做的软件！尺码从16个搞到32个～～是不是引用32位变量！是不是有难度

来源：蜘蛛抓取(WebSpider) 时间：2016-12-23 14:45 标签： 搜搜问问
2006年7月 Windows专区大版内专家分月排行榜第一2006年7月 VB大版内专家分月排行榜第一
2009年6月 VB大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。做了个抽取学号的小程序，出现问题来求教！！_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：97,555贴子：
做了个抽取学号的小程序，出现问题来求教！！收藏
Private Sub Command1_Click()Timer1.Interval = 50a = Val(Text1.Text)b = Val(Text2.Text)End SubPrivate Sub Command2_Click()Timer1.Interval = 0XXXXXX If Val(Label4.Caption) = 32 Or 36 Or 40 Or 42 Then Label4.Caption = c + 100 End If End SubEnd SubPrivate Sub Timer1_Timer() c = Int((b - a + 1) * Rnd + 1) Label4.Caption = cEnd Sub
为什么每次点击抽取还会再继续跳动一次？在XXXXXX处加上Sleep 300也没用？我在command2.click里再加上一个Print Val(Label4.Caption)发现打印出来的都是100多是为什么？
CGWANG原画培训 「零基础全额退费保障」,原画名企委托培训,高薪工作不是梦
Option ExplicitPublic a As Integer, b As Integer, c As IntegerPrivate Sub Command1_Click() '　开始Timer1.Interval = 50a = Val(Text1.Text)b = Val(Text2.Text)End SubPrivate Sub Command2_Click() '　暂停Timer1.Interval = 0Select Case cCase 32, 36, 40, 42Label4.Caption = c + 100Case ElseLabel4.Caption = cEnd SelectEnd SubPrivate Sub Timer1_Timer()Randomizec = Int((b - a + 1) * Rnd + a)Label4.Caption = cEnd Sub
还有人吗？求助一下啊！
你要观察到数字是否跳了一次，起码你的时间精度为1秒左右，1秒的精度你想想.......只有精度越高，单击按钮暂停才会及时停止数字跳动.
改Interval为0和改Enabled为False虽然都能关闭定时器，但是效果有所不同，后者能够立刻关闭定时器，而前者会多执行一次Timer事件所以不要用改Interval这种方法了，还是改Enabled吧（感谢LZ的帖子，之前我也没发现这一点，因为我从来没用过更改Interval这种方式来关闭定时器）
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或您的位置： &
“VB程序设计”课程教学中的变量类型使用问题研究
优质期刊推荐下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最后用ReDim Preserve语句讲数组大小减一
Private Sub Command1_Click()
Dim a(), i, n
a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)
Print Join(a, ",")
n = Val(InputBox("输入一个数：", , 8))
For i = 0 To UBound(a)
If a(i) = n Then Exit For
If i < UBound(a) + 1 Then
For i = i To UBound(a) - 1
a(i) = a(i + 1)
ReDim Preserve a(UBound(a) - 1)
Print Join(a, ",")
Print "未找到：" & n
End IfEnd Sub
为您推荐：
其他类似问题
扫描下载二维码您的举报已经提交成功，我们将尽快处理，谢谢！
目前无法访问链接的问题工作人员已经进行修复完善，建议您强制刷新页面，清理浏览器缓存，更换网络环境后重新进行尝试。感谢您对新浪微博的支持！
计算机运行的程序不是你这样分级的
一个计算机要能动,首先是需要同电脑硬件打交道,这个最基础的程序是固化在BIOS中,称为基本输入输出系统,在这个基础上再开始通...
我们没有权力立即去改变什么，但是还是要说。你想想，若干年前你连说的权利都没有呢。现在能说了，不说白不说。说着说着，这社会就有进步，那怕是一点点，一时看不出来。
病情分析：
根据你提供的情况，一般的中医药考虑是血虚 血不养神引起的症状，及时的对症治疗，可以改善症状的。
指导意见：
首先需要注意饮食的调理，清淡容易消化的食...
大家还关注

我要回帖

更多关于 搜搜问问 的文章

 

随机推荐