1、给输入的内容给出判断:
练习册六:在考生文件夹下打开Access数据库prog0214.mdb,在窗体FormGrade中,编写“等级”按钮的单击事件处理代码,实现如下功能:根据下表,将由文本框Text1输入成绩对应的等级显示有文本框Text2中。
Dim a As Integer
Dim s As String
a = Text1
If a = 0 And a = 100 Then
If a = 90 Then
s = A
ElseIf a = 75 Then
s = B
ElseIf a = 60 Then
s = C
Else
s = D
End If
Text2 = s
End If
练习册八:在考生文件夹下打开Access数据库prog0216.mdb。在窗体FormNumber中,编写“位数”按钮的单击事件处理代码,实现如下功能:在文本框Text1中输入一个不超过4位的正整数,判断它的位数,结果显示在文本框Text2中。
Dim a As Integer, b As Integer
a = Text1
If a 0 And a 1000 Then
If a = 100 Then
b = 3
ElseIf a = 10 Then b = 2
Else
b = 1
End If
End If
Text2 = b
例1:打开Access数据库“所用文件
您可能关注的文档
- 动量守恒定律(分类)技术报告.doc
- 动设备施工方案-燃料乙醇技术报告.doc
- 都江堰市初2015届九年级零诊-物理技术报告.doc
- 段生火1210121083550连轧机热轧带钢温度优化设计-1技术报告.doc
- 对影响我国各省市车险费率因素交通事故发生频数的技术报告.doc
- 盾构机掘进作业指导书技术报告.doc
- 多尺度版加弯矩技术报告.doc
- 多功能演播室装修方案技术报告.doc
- 多目标遗传算法中文技术报告.doc
- 多台塔机防碰撞方案技术报告.doc
- 安全生产管理员能力培训.pptx
- 咽异感症与心理健康促进.pptx
- 咽异感症与扁桃体炎的鉴别.pptx
- 咽异感症与抑郁症的关系.pptx
- 咽异感症与环境污染的关系.pptx
- 《生动的数据》课件-2025-2026学年沪教版(新教材)小学美术三年级下册.pptx
- 《校园微电影宣传策划》教学课件-2025-2026学年人美版(北京)(2024)初中美术七年级下册.pptx
- 《 春华秋实绘花鸟》教学课件-2025-2026学年人美版(北京)(2024)初中美术七年级下册.pptx
- 管理层安全培训策略.pptx
- 《把“大自然”穿在身上》教学课件-2025-2026学年人美版(北京)(2024)初中美术七年级下册.pptx
最近下载
- DL_T 843-2010大型汽轮发电机励磁系统技术条件.pdf
- 福建省宁德市2020-2021学年八年级下学期期中测试英语试题(含答案).pdf VIP
- 精品解析:北京市通州区2024-2025学年高一下学期期末物理试卷(原卷版).docx VIP
- DB61T321-2025 飞播造林(种草)技术规程.pdf
- 英语语法思维导图(全)(20201225234857).doc VIP
- 2025年山东高考化学试卷真题及答案详解解读(精校打印).pdf VIP
- 山东省青岛市李沧区2026年中考一模语文试题(含答案).pdf VIP
- 2025及未来5年中国内衣洗衣液市场分析及数据监测研究报告.docx
- 2026山西T8联考(高三年级四月阶段练习)英语+答案.pdf
- (正式版)D-L∕T 607-2017 汽轮发电机漏水、漏氢的检验.docx VIP
原创力文档

文档评论(0)