




已阅读5页,还剩4页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
Access数据库=题号:12003设计程序,对用户输入的任意两个整数,按升序输出。将任意两个数按指定顺序排列是必须掌握的基本算法,基本要领就是借助第三个变量将x变量和y变量进行交换。代码为:temp=x:x=y:y=temp操作提示:新建一个窗体swap如下图所示控件名称标题或功能Label1请输入x的值Label3请输入y的值Label5x=Label6y=Text0x:格式:常规数字Text2y:格式:常规数字Command4交换代码写在command4的单击事件过程中,执行效果如图所示。Private Sub Command4_Click()x = Text0.Valuey = Text2.ValueIf x y Thentemp = x: x = y: y = tempEnd IfLabel5.Caption = x= & xLabel6.Caption = y= & yEnd Sub题号:12006编写程序,当用户在窗体的文本框中输入一个0100的数字时,标签上立即能够显示对应等级:不及格、及格、中、良、优。(1)窗体构建: 控件标题属性Label1请输入你的成绩:Label3你的等级是:Text0无Command4判断(2)使用Select case End Select分支结构(3)整形变量Score存放分数,StrX字符串用于显示等级(4)窗体保存名为:M21Private Sub Command4_Click()Dim Score As Integer, StrX As StringScore = Text0.ValueSelect Case ScoreCase 0 To 59 StrX = 不及格Case 60 To 69 StrX = 及格Case 70 To 79 StrX = 中Case 80 To 89 StrX = 良Case 90 To 100 StrX = 优End SelectLabel3.Caption = 你的等级是: & StrXEnd Sub题号:12007计算的值。本题使用模块过程函数实现(1)函数名为FC,私有类(2)选择结构采用IfElseEnd if结构(3)x用于接受用户输入值,y用来存放输出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox(请输入x的值:)If x = N ThenMsgBox N & 是素数ElseMsgBox N & 不是素数End IfEnd Sub题号:12010编程实现输入一个正数M(M1),能输出1M间3的倍数,以及倍数和。注意:(1)通过模块子函数实现,子函数名为trad,私有类型(2)定义M,N,S整型变量,M为用户输入的数,N为循环计数器,S存放倍数和 定义K为字符串变量,用于存放显示1M间3的倍数(3)循环主体采用Do Whileloop结构(4)其中每个能被3整除的数之间用,隔开如图所示。(5)模块保存名字为M-23Private Sub trad()Dim M As Integer, N As Integer, S As IntegerDim K As StringN = 0M = 0M = InputBox(请输入M的值:)Do While N MIf N Mod 3 = 0 ThenK = K + Str(N) & ,S = S + NEnd IfN = N + 1LoopMsgBox 1到M间3的倍数为: & K & 它们的和为 & SEnd SubM = Val(InputBox(请输入M的值:)Do While N 100s = s + nn = n + 1LoopMsgBox 100以内自然数的和是: & sEnd Sub题号:12013求自然数n的阶乘(1)使用模块插入过程子函数fact实现(2)模块保存为M45Private Sub fact()Dim k As Double, i As Integer, n As Intege
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- GB/T 45653-2025新能源汽车售后服务规范
- GB/T 28634-2025微束分析电子探针显微分析块状试样波谱法定量点分析
- 护理服务品牌建设与管理
- 轮流接送小孩协议书
- 餐饮股权收购协议书
- 车位喷绘转让协议书
- 车辆借款使用协议书
- 轮胎维修合同协议书
- 合作伙伴签合同协议书
- eve物品委托协议书
- 矿坑涌水量预测计算规程
- 娱乐用高空滑索装置项目可行性实施报告
- 广东省深圳市罗湖区2023-2024学年二年级下学期期末考试数学试题
- 四川省成都市2024年中考道德与法治真题试卷 附答案
- 液化天然气汽车加气站技术规范
- (正式版)SHT 3158-2024 石油化工管壳式余热锅炉
- 加油站百日攻坚行动实施方案
- 供电企业舆情的预防及处置
- GB/T 41666.4-2024地下无压排水管网非开挖修复用塑料管道系统第4部分:原位固化内衬法
- 4、《通向金融王国的自由之路》
- 大学生职业素养(高职)全套教学课件
评论
0/150
提交评论