[市政工程设计文件质量检查报告怎么写]填写要求： 1、通过现场全面检查，确认工程质量是否满足设计文件要求，体现了设计意图，是否认可施工单位的自评意见。2、本工程依法进行设计、执行有关部门的批文及根据勘察成果文...+阅读

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

延伸阅读：

暑期实践报告单位评语如何写实践报告单位评语1在xxx共青团委组织的基层实践活动中，xxx同学在思想上与工作能力上都得到了很好的锻炼。她参与了区一级领导的学习并随他们一道去商贸园区视察，她协助起草了...

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

求一毕业生12篇实习周记二顶岗实习报告一篇三还有电子商务系你好的！ ① 中国知网也好、万方数据也好都有例子！ ② 并且大部分的院校都有免费的接口！ ③ 如果真没有免费的接口，那就悬赏求助下载吧！ ④ 要是要外文的论文准备翻译的话，最好的办...

急需电子商务实训报告为期两周的电子商务职业资格认证实训已经接近尾声，回顾这两周的实训课程，我有一种如梦初醒的感觉。我深刻地认识到电子商务的理论核心，电子商务就是指利用国际互联网进行商务活...

电子商务专业实习报告详细的那种急需！摘要：通过这次实习我更加了解并熟悉了b2b及b2c的流程，收获很多.下面先阐述一下我对b2b的认识： b2b电子商务是指企业与企业之间，通过internet或专用网方式进行的商务活动。这里企...

实习报告中的自我鉴定要怎么写见习期间我能快速的适应公司的环境，融入企业的团体，用心跟同事沟通，更好的完成既定的任务。这些都不是信手拈来的。都是从一个逐步的点到面的认识，我庆幸也感谢有这样一个实习的...

教育调查报告要写什么内容呢要写哪些话题教育调查报告，首先是确定选题。教育是个大概念，你把握不了。必须缩小调查范围。比如幼儿教育的误区、初等教育的布局、初中毕业生的分流、高考的加分、大学的社团管理，……确定...

如何审议好国民经济计划和财政预算报告一、求真务实强化考核激励。一方面，要紧扣年初确定的主要经济指标，适度提高经济工作的考核权重，尤其是抓住一些完成率相对偏低的指标研究对策，寻求突破。同时要以《关于强化工业...

财政预算由谁发布向谁报告政府各个部门单独自己做，在一个财政年度开始的时候进行。 我国的财政预算是在财政年度的开始做，就是一边做，一边花钱的。 下级单位向上级单位报告，逐级进行，最后政府向人大报告汇...