- 119
- 0
- 约1.05万字
- 约 15页
- 2016-12-02 发布于湖北
- 举报
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数据库“所用文件
您可能关注的文档
最近下载
- 商业交房标准.pdf VIP
- 幼儿小班教学节气课件.ppt VIP
- 维保工程施工方案(3篇).docx VIP
- 2021-2022学年福州市连江县八年级上学期期中数学试卷(B卷)(含答案解析).docx VIP
- 《植物激素》(教案)-中职农林牧渔大类《植物生长和环境》同步教学(高教版)(第四版)(全一册).docx VIP
- 诊断学学习资料:西医诊断学总结.pdf VIP
- 幼儿小班教学节气.pptx VIP
- 《光合作用与呼吸作用的关系》(教案)-中职农林牧渔大类《植物生长和环境》同步教学(高教版)(第四版)(全一册).docx VIP
- 小学生入学行为规范课件.pptx VIP
- 马铃薯组培技术全流程.pdf VIP
原创力文档

文档评论(0)