版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
关于数据类型说明整型Integer符号表示:%长整型Long符号表示:&单精度Single符号表示:!双精度Double符号表示:#字符串String符号表示:$1/26常量和变量常量申明
consta=10变量申明
Dimxassingle
通用申明处只能进行常量和变量申明,不能进行变量赋值。变量赋值应放在事件过程中。
PrivateSubForm_Click()
x=20.8
‘不可放在通用申明处
EndSub2/26运算符^(乘方)*/(乘除)\(整除)Mod(取余数)字符连接运算符+&优先级运算符含义1^幂2-负数3*、/乘、除4\整除5Mod取模6+、-加、减3/26随机函数:产生一个在区间[a,b]范围内随机整数公式
dimx%
x=int((b-a+1)*Rnd+a)取绝对值abs(x)计算ex次方exp(x)求X平方根,sqr(x)Int(x),fix(x),round(x)val(x),str(y)Trim(s),Left(s,n),right(s,n),mid(s,n1,n2)惯用函数4/26惯用控件属性窗体captionMaxButtonMinButton文本框(textMaxLength,PasswordCharMultiLine)文本框没有caption属性按钮:caption,Cancel,default,Style
标签:caption
框架:先绘制框架再在其中放置其它对象5/26次序结构说明次序结构就是程序执行次序就是语句书写次序inputbox函数使用n=val(inputbox(“”))其中红色部分是必须Msgbox函数和Msgbox语句区分6/26关于print说明[对象.]print字符串在print中只能出现逗号或者分号Tab(n)确定图形输出位置Spc(n)输出字符之间加入几个空格7/26选择结构单分支结构格式1:IF条件THEN语句格式2:IF条件THEN语句ENDIF输入三个任意整数,将这三个数按由大到小排序后输出。提醒:①假如A<B,则交换A和B值;②假如A<C,则交换C和A值;③假如B<C,则交换C和B值。8/26关于选择结构使用方法双分支结构IF条件THEN语句1ELSE语句2ENDIF9/26多分支结构
IF条件1THEN语句1ELSEIF条件2THEN语句2ELSEIF条件3THEN语句3…….ELSE语句NENDIF10/26常见条件倍数关系ifxmod5=0个位是3数字ifxmod10=3假设X是一个四位数,其个、十、百、千位上数据提取方法为:xmod10,x\10mod10,x\100mod10,x\1000满足条件求个数z=z+1满足条件求数和sum=sum+x11/26循环结构计数型循环(循环次数已知)for循环变量=初值to终值[step步长]语句…..next循环变量其中[step步长]可缺省,则步长是112/26数组先申明再使用数组元素(动态数组申明)Dima(1to10)asintegerDimb%(10)对于数组元素经过下标来引用在数组中数组元素产生和输出都要在FOR循环中实现13/26数组1、交换(1/6交换/首尾交换)假设有10个数组元素14/26求最大、最小值问题分3大部分编写代码:1、用FOR循环产生并输出数组元素(输出时格式控制)2、取出数组中第一个元素值给变量MAX和MIN3、再用一个FOR循环进行比较15/26依据条件求解问题分2大部分编写代码:1、用FOR循环产生并输出数组元素2、再用一个FOR循环进行比较条件测试,看是否满足条件,再来做对应处理。16/26设有申明语句Dimb(-1To10,2To9,20)AsInteger,则数组b中全部元素个数是语句DimA&(10),B#(10,5)定义了两个数组,其类型分别为17/26编写命令按钮"计算"单击事件过程。要求在文本框1中输入n值,单击命令按钮,求1^0+3^1+5^2+7^3+……+(2n-1)^(n-1)值,并将结果放入标签2中。结果为长整型。将窗体文件和工程文件分别保留在K盘根目录上18/26编写命令按钮“计算”单击事件过程。要求在文本框1中输入n值,单击命令按钮,求1/2+2/3+3/5+4/8+5/12……前n项和,并将结果放入标签2中。结果为单精度型。(3)将窗体文件和工程文件分别以vb2f04.frm和vb2p04.vbp保留在K盘根目录上。19/26编程求:s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29…,直到最终一项绝对值小于0.00001为止。20/26DimsAsSingleDimiAsIntegerDimmAsIntegerDimtAsSinglet=1s=0i=0n=1
参考程序DoWhilet>=0.00001s=s+ti=i+1n=n+it=1/nLoopPrints21/26一个富翁试图与陌生人做一笔换钱生意,换钱规则为:陌生人天天给富翁10万元钱,直到满30天,而富翁一天给陌生人1分钱,第二天2分,第三天4分,……,富翁天天给陌生人钱是前一天2倍,直到满一个月,分别显示他们相互给钱金额?22/26PrivateSubForm_Click()Dimi%,s&,x&x=1Fori=1To30s=s+xx=2*xNextPrint"富翁给陌生人钱为";x/1000000;"万元"Print"陌生人给富翁钱为";30*10;"万元"EndSub23/26随机产生20个学生成绩,统计各分数段人数,即0-59,60-69,70-79,80-89、90-100,并显示结果,产生数据在picture1显示,统计结果在picture2显示.分析:本程序有两个事件过程,都要用到存放20个学生数组,所以学生成绩数组在通用申明段申明,在command2事件过程中申明一个数组s(5to9),分别存放分数段人数24/26PrivateSubComm
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 《描述简单的路线图》课件
- 《将相和》课件(第二课时)
- ISO 11199-12021 双臂步行辅助产品.要求和试验方法.第1部分步行架标准立项发展报告
- ISO 3739-22021 工业轮胎和轮辋 - 第2部分5度锥形或平底轮辋上的充气轮胎(公制系列) - 额定载荷标准立项发展报告
- 注册消防师易错试题及答案详解
- 商场消防培训练习题及答案呈现
- 彩超培训测试题及参考答案
- 2026年华医网继续教育答案
- 无菌单知识测试题目与答案
- 高中物理必修第一册第一章 综合提升
- 2025-2026年高中一年级地理(人文地理)下学期期中测试卷
- 2025年郧西县事业单位联考招聘考试真题汇编必考题
- 2025高中历史大事年表完整版文档
- 移动式操作平台专项施工方案(二期)
- 断电上锁挂牌安全培训课件
- 开学食堂安全培训课件
- 消防工程造价控制重点、难点分析及应对措施
- 宿管员管理课件
- 工程铺砖合同协议
- 消防-认识及使用消防器材
- 泥头车防御性驾驶技术培训
评论
0/150
提交评论