vb VBS整人代码大集合小伟哥收集
上传者：韩雪培|上传时间：2015-05-07|密次下载
vb VBS整人代码大集合小伟哥收集
实验一（带有进度条的倒计时程序）
Public Class Form1
Dim timers As Integer
Dim temp As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If (ProgressBar1.Value + ProgressBar1.Maximum / timers <
ProgressBar1.Maximum) Then
ProgressBar1.Value += ProgressBar1.Maximum / timers Else
Timer1.Enabled = False
ProgressBar1.Value = ProgressBar1.Maximum
MessageBox.Show("进度完成！")
End If
temp += 1
Label1.Text = temp.ToString()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
timers = 30
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
End Class
实验二（定时器控制蝴蝶飞舞）
Public Class Form1
D
im t As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
’Dim t As Boolean
? If t = True Then
? PictureBox3.Image = PictureBox2.Image
? t = False
下载文档
热门试卷
- 2016年四川省内江市中考化学试卷
- 广西钦州市高新区2017届高三11月月考政治试卷
- 浙江省湖州市2016-2017学年高一上学期期中考试政治试卷
- 浙江省湖州市2016-2017学年高二上学期期中考试政治试卷
- 辽宁省铁岭市协作体2017届高三上学期第三次联考政治试卷
- 广西钦州市钦州港区2016-2017学年高二11月月考政治试卷
- 广西钦州市钦州港区2017届高三11月月考政治试卷
- 广西钦州市钦州港区2016-2017学年高一11月月考政治试卷
- 广西钦州市高新区2016-2017学年高二11月月考政治试卷
- 广西钦州市高新区2016-2017学年高一11月月考政治试卷
- 山东省滨州市三校2017届第一学期阶段测试初三英语试题
- 四川省成都七中2017届高三一诊模拟考试文科综合试卷
- 2017届普通高等学校招生全国统一考试模拟试题（附答案）
- 重庆市永川中学高2017级上期12月月考语文试题
- 江西宜春三中2017届高三第一学期第二次月考文科综合试题
- 内蒙古赤峰二中2017届高三上学期第三次月考英语试题
- 2017年六年级（上）数学期末考试卷
- 2017人教版小学英语三年级上期末笔试题
- 江苏省常州西藏民族中学2016-2017学年九年级思想品德第一学期第二次阶段测试试卷
- 重庆市九龙坡区七校2016－2017学年上期八年级素质测查（二）语文学科试题卷
- 江苏省无锡市钱桥中学2016年12月八年级语文阶段性测试卷
- 江苏省无锡市钱桥中学2016-2017学年七年级英语12月阶段检测试卷
- 山东省邹城市第八中学2016-2017学年八年级12月物理第4章试题（无答案）
- 【人教版】河北省2015-2016学年度九年级上期末语文试题卷（附答案）
- 四川省简阳市阳安中学2016年12月高二月考英语试卷
- 四川省成都龙泉中学高三上学期2016年12月月考试题文科综合能力测试
- 安徽省滁州中学2016—2017学年度第一学期12月月考高三英语试卷
- 山东省武城县第二中学2016.12高一年级上学期第二次月考历史试题（必修一第四、五单元）
- 福建省四地六校联考2016-2017学年上学期第三次月考高三化学试卷
- 甘肃省武威第二十三中学2016—2017学年度八年级第一学期12月月考生物试卷
网友关注
- 2017上半年全国教师资格统考冲刺指导建议
- 教师资格考试小学科目一复习计划
- 综合素质备考指导
- 全国教师资格证考试写作能力技巧提升
- 教师资格考试综合素质逻辑的考点概述
- 教师资格《综合素质》作文写作高分要点
- 教师资格考试之素质教育的内涵
- 教师资格考试职业道德备考技巧
- 教师专业素质的理解性记忆
- 教师资格考试综合素质之学生的权利
- 2017上半年教师资格证考试备考计划
- 教育法律法规-如何细致的区别学生的人身健康权和人格尊严权?
- 小学科学课程目标解读（3-6年级）
- 教师资格考试综合素质备考：法律法规知识
- 《综合素质》阅读理解能力答题技巧
- 综合素质——法律法规备考指导
- 《综合素质》之职业道德备考指南
- 《综合素质》备考知识：教师职业道德
- 职业理念——素质教育的内涵
- 教师资格备考作文素材积累
- 综合素质最后的冲刺
- 综合素质材料分析题-班级突发事件的处理
- 教师资格综合素质《职业道德规范》考点分析
- 综合素质职业理念要点分析
- 教师资格《综合素质》备考之严重不良行为的界定
- 如何解答教师资格证综合素质的材料题
- 合理规划-迅速突破教资综合素质考试
- 从隐私权看学生维权途径
- 教师资格考试考情分析及备考指导
- 教师资格备考指导之作文的结构布局和素材收集
网友关注视频
- 沪教版牛津小学英语（深圳用） 四年级下册 Unit 7
- 沪教版牛津小学英语（深圳用） 四年级下册 Unit 8
- 三年级英语单词记忆下册（沪教版）第一二单元复习
- 飞翔英语—冀教版(三起)英语三年级下册Lesson 2 Cats and Dogs
- 化学九年级下册全册同步 人教版 第22集 酸和碱的中和反应（一）
- 苏科版数学八年级下册9.2《中心对称和中心对称图形》
- 北师大版八年级物理下册 第六章 常见的光学仪器（二）探究凸透镜成像的规律
- 冀教版小学数学二年级下册第二周第2课时《我们的测量》宝丰街小学庞志荣.mp4
- 【部编】人教版语文七年级下册《老山界》优质课教学视频+PPT课件+教案，安徽省
- 七年级英语下册 上海牛津版 Unit5
- 冀教版小学数学二年级下册第二单元《有余数除法的竖式计算》
- 冀教版英语五年级下册第二课课程解读
- 第五单元 民族艺术的瑰宝_15. 多姿多彩的民族服饰_第二课时(市一等奖)(岭南版六年级上册)_T129830
- 《小学数学二年级下册》第二单元测试题讲解
- 沪教版牛津小学英语（深圳用） 四年级下册 Unit 2
- 沪教版牛津小学英语（深圳用） 四年级下册 Unit 3
- 苏科版八年级数学下册7.2《统计图的选用》
- 【部编】人教版语文七年级下册《泊秦淮》优质课教学视频+PPT课件+教案，湖北省
- 3.2 数学二年级下册第二单元 表内除法（一）整理和复习 李菲菲
- 第五单元 民族艺术的瑰宝_16. 形形色色的民族乐器_第一课时(岭南版六年级上册)_T1406126
- 冀教版小学英语五年级下册lesson2教学视频(2)
- 8.对剪花样_第一课时(二等奖)(冀美版二年级上册)_T515402
- 人教版二年级下册数学
- 沪教版八年级下册数学练习册21.3（3）分式方程P17
- 沪教版八年级下册数学练习册21.4（1）无理方程P18
- 19 爱护鸟类_第一课时(二等奖)(桂美版二年级下册)_T3763925
- 苏教版二年级下册数学《认识东、南、西、北》
- 冀教版英语四年级下册第二课
- 第五单元 民族艺术的瑰宝_16. 形形色色的民族乐器_第一课时(岭南版六年级上册)_T3751175
- 外研版英语三起5年级下册（14版）Module3 Unit1
精品推荐
- 2016-2017学年高一语文人教版必修一+模块学业水平检测试题（含答案）
- 广西钦州市高新区2017届高三11月月考政治试卷
- 浙江省湖州市2016-2017学年高一上学期期中考试政治试卷
- 浙江省湖州市2016-2017学年高二上学期期中考试政治试卷
- 辽宁省铁岭市协作体2017届高三上学期第三次联考政治试卷
- 广西钦州市钦州港区2016-2017学年高二11月月考政治试卷
- 广西钦州市钦州港区2017届高三11月月考政治试卷
- 广西钦州市钦州港区2016-2017学年高一11月月考政治试卷
- 广西钦州市高新区2016-2017学年高二11月月考政治试卷
- 广西钦州市高新区2016-2017学年高一11月月考政治试卷
分类导航
- 互联网
- 电脑基础知识
- 计算机软件及应用
- 计算机硬件及网络
- 计算机应用/办公自动化
- .NET
- 数据结构与算法
- Java
- SEO
- C/C++资料
- linux/Unix相关
- 手机开发
- UML理论/建模
- 并行计算/云计算
- 嵌入式开发
- windows相关
- 软件工程
- 管理信息系统
- 开发文档
- 图形图像
- 网络与通信
- 网络信息安全
- 电子支付
- Labview
- matlab
- 网络资源
- Python
- Delphi/Perl
- 评测
- Flash/Flex
- CSS/Script
- 计算机原理
- PHP资料
- 数据挖掘与模式识别
- Web服务
- 数据库
- Visual Basic
- 电子商务
- 服务器
- 搜索引擎优化
- 存储
- 架构
- 行业软件
- 人工智能
- 计算机辅助设计
- 多媒体
- 软件测试
- 计算机硬件与维护
- 网站策划/UE
- 网页设计/UI
- 网吧管理