[中学生寒假社会实践报告]实践报告正文 一、实践目的：现在的小孩，大多都是独生子女，很少做家务，我也不例外。上学时，天天只顾着学，放假时，心里只有玩了，没有时间做家务.减轻父母的重担，为了不荒废这个有意义的...+阅读

Option Explicit

Const Max As Long = 10000 '最高价格，自己修改

Dim high, low

Private Sub Command1_Click(Index As Integer)

If Index = 0 Then '高

low = Val(Label1.Caption)

Label1.Caption = Int((low - high) / 2) + high

ElseIf Index = 1 Then '低

high = Val(Label1.Caption)

Label1.Caption = Int((low + high) / 2)

Else '重来

reset

End If

End Sub

Private Sub Form_Load()

Command1(0).Caption = ＂&High＂

Command1(1).Caption = ＂&Low＂

Command1(2).Caption = ＂&Reset＂

With Label1

.AutoSize = True

.FontSize = 24

.FontBold = True

.ForeColor = vbRed

.Caption = Max

End With

reset

End Sub

Function reset()

high = 0: low = 0

Label1.Caption = Max

End Function

以下为关联文档：

怎么写寒假实践报告寒假的生活总是多姿多彩而又轻松的，我们有着充足的时间去安排各项活动，当然也少不了寒假的社会实践。 在这个暑假里，我们实践小组决定到宾馆实习，学习服务和管理的技能，体验真实...

急急急求3000字的会计社会实践报告本人特奉上会计社会实践报告一份，供人参考，本人所从事会计实践的会计主体是个事业性质企业化治理的单位，也就是说机关科室部门实行的是预算会计轨制，其下属从事市场经济流动的实...

请问有什么好的小游戏可以用于培训课程中活跃气氛吗培训游戏：趣味跳绳 内容 大家都跳过绳吧，在玩的时候会发生很多事，不同的人会有不同反应，为什么呢？这是一个典型的团队活动，需要大家共同配合，怎样取得最佳合作效果？这些问题，您是否想...

企业管理培训课程包括哪些企业管理培训课程包括；意志培训、认知培训、技能培训、职业培训等。 1、意志培训 意志培训的形式主要是军训，其目的是为了培养新人的吃苦耐劳的精神、朴素勤俭的作风和团队协...

员工素质培训都有哪些课程职业素质的内涵 不同职业的职业素质表现 企业需要什么样素质的人——团队导向——重标准、整体差异、协同、合作 职业导向——对待上级：职业化的服从、沟通意识 对待同事：职业...

在医院检测的报告单病情分析：您好：很高兴能为您解答问题。乙肝病毒引起，以乏力、食欲减退、恶心、呕吐、厌油、肝大及肝功能异常为主要临床表现。部分病例有发热和黄疸；少数病例病程迁延转为慢性，或...

教育科学出版社四年级上册科学一杯水能溶解多少食盐实验报告第一种实验方法：先把盐一份2克的称好，再一份一份的加入水中，直到不能溶解为止，算一算加了几份盐，就可以得知加了多少克了。 第二种实验方法：平勺定量法。就是用小药勺盛一勺盐，用牙...

素质教育课程标准浅谈新课程标准下如何推进素质教育 近年来，教育部启动了新一轮基础教育课程改革，这次课改要求我们在总结经验教训的基础上，对语文教学的观念、目标、内容、策略、手段、评价等...

求帮做VB课程设计打字游戏Dim h As Integer Dim n As Integer Private Function zi() Randomize If Form1.Option1.Value Then a = Int((122 - 97 + 1) * Rnd + 97) ElseIf Form1.Option2.Value Then...