1、11、给输入的内容给出判断：练习册六：在考生文件夹下打开 Access 数据库 prog0214.mdb，在窗体FormGrade 中，编写“等级”按钮的单击事件处理代码，实现如下功能：根据下表，将由文本框 Text1 输入成绩对应的等级显示有文本框 Text2 中。Dim a As IntegerDim s As Stringa = Text1If a = 0 And a = 90 Thens = “A“ElseIf a = 75 Thens = “B“ElseIf a = 60 Thens = “C“Elses = “D“End IfText2 = sEnd If练习册八：在考生文件夹下打
2、开 Access 数据库 prog0216.mdb。在窗体FormNumber 中，编写“ 位数”按钮的单击事件处理代码，实现如下功能：在文本框 Text1 中输入一个不超过 4 位的正整数，判断它的位数，结果显示在文本框 Text2 中。Dim a As Integer, b As Integera = Text1If a 0 And a = 100 Thenb = 3ElseIf a = 10 Then b = 2Elseb = 1End IfEnd IfText2 = b2例 1：打开 Access 数据库“所用文件.mdb” 。要求编写窗体 djzh 上“成绩等级”按钮的单击事件处理代
3、码，实现如下功能：当成绩小于 0 或大于 100，显示“非法数据” ，否则按如下规则转换：成绩85：优秀60成绩 0) Or y Mod 400 = 0 ThenText2.Value = “是闰年 “ElseText2.Value = “不是闰年 “End If3例 3：打开 Access 数据库“所用文件.mdb” 。要求编写窗体 FrmPrime 上“判断素数”按钮的单击事件处理代码，判断文本框 text1 中自然数是否为素数（只能被 1 和本身整除的自然数） ，并将判断结果显示在标签 Label1 中。Dim i As Integer, j As Integer, x As Integ
4、er, pd As Stringx = Text1For i = 2 To xpd = “素数“For j = 2 To Sqr(i)If i Mod j = 0 Thenpd = “不是素数 “End IfNext jNext iLabel2.Caption = pd练习册三：在考生文件夹下打开 Access 数据库 prog0226.mdb，在窗体FormNum 中，编写“判断”按钮的 Click 事件代码，实现如下功能：根据输入的字符判断是否为数字，若是显示“Yes” ，否则显示“No” 。Dim a As Stringa = Text1If a = “0“ And a = “0“ An
5、d C 999 ThenDoCmd.CloseElsegw = Int(a / 1) Mod 10sw = Int(a / 10) Mod 10bw = Int(a / 100) Mod 10Text2.Value = bwText3.Value = swText4.Value = gwEnd If2、对输入的两个值进行运算或判断：练习册一：在考生文件夹下打开 Access 数据库 prog0224.mdb，按图在窗体FormJudge 中，编写“判断”按钮的 Click 事件代码，实现如下功能：根据输入的三条边长 a、b、c ，判断能否构成三角形，如果可以，显示“Yes” ，否则显示“No”
6、 。Dim a As Integer, b As Integer, c As Integera = Text1b = Text2c = Text3If (a + b) c And (a + c) b And (b + c) a ThenText4 = “Yes“ElseText4 = “No“End If5例 1：打开 Access 数据库“所用文件.mdb” 。要求编写窗体 Compare 上“比较”按钮的单击事件处理代码，判断文本框 Text1、Text2 中两个数的大小，将比较结果（ab）显示在标签 Label1 中。Dim a As Integer, b As Integera = T
7、ext1.Valueb = Text2.ValueIf a b ThenLabel1.Caption = “ab“ElseIf a = b ThenLabel1.Caption = “a=b“ElseLabel1.Caption = “a= 0 And a = “0“ And a = 0 Theny = x 2 + 8Elsey = 2 * x - 5End IfText2 = y练习册十：在考生文件夹下打开 Access 数据库 prog0218.mdb。在窗体FormChange 中，编写“转化”按钮的单击事件处理代码，实现如下功能：分别在在文本框 Text1 和 Text2 中输入1，9
8、区间内的整数数 n，a ，将它们转化为数值 aaaaaaaa（n 个 a） ，结果显示在文本框 Text3 中。Dim a As Integer, b As String, c As Stringa = Text1b = Text2If (a = 1 And a = 1 And b = 10 Then y = x 2 + 1Elsey = x + 1End IfLabel1.Caption = y例 3：打开 Access 数据库“所用文件.mdb” 。要求编写窗体 areaorgirth 上的组合款的 change 事件处理代码，实现依据组合框中选择“计算面积”和“计算周长” ，计算圆的面积
9、或周长，圆的半径由文本框 Text1 输入，计算结果显示在标签 Text2 中。Dim r As Single, c As SingleConst PI = 3.14159r = Text1.ValueIf Combo1.Value = “计算面积“ Then c = PI * r * rElsec = 2 * PI * rEnd IfText2.Value = c9例 4：打开 Access 数据库“所用文件.mdb” 。对窗体 tstj，编写“计算”按钮的单击事件处理代码，实现如下功能：（1）若两种商品的总计金额小于 300，按原价付款，否则打九折；（2）实际付款额四舍五入取整。dj1 =
10、 Text1.Valuesl1 = Text2.Valuedj2 = Text3.Valuesl2 = Text4.Valuefke = dj1 * sl1 + dj2 * sl2If fke 300 Thenfke = fke * 0.9End IfText5.Value = Round(fke, 0)5、利用循环遍历输入的字符或数字的每一位，做出运算或判断练习册四：在考生文件夹下打开 Access 数据库 prog0227.mdb。在窗体FormSum 中，编写“求和”按钮的 Click 事件代码，实现如下功能：根据输入的整数 n，计算 1+22+32+42+n2 的值。Dim n As
11、IntegerDim s As Longn = Text1s = 0For i = 1 To ns = i 2 + sNext iLabel2.Caption = s10例 1：打开 Access 数据库“所用文件.mdb” 。要求编写窗体 szzh 的“ 计算”按钮的单击事件处理代码，实现如下功能：求一个三位正整数的各位数字之和，若输入的整数小于 100 或大于 999，则显示“输入有误” 。Dim num As Integernum = Text1.ValueIf num 999 Or num = “0“ And c Space(1) Thencount = count + 1End If
12、Next iText2.Value = count例 4：打开 Access 数据库 “所用文件.mdb”。要求编写窗体 stfn 上“偶数字符串”按钮的单击事件处理代码，实现如下功能：在 Text1 中输入一个字符串，单击“偶数字符串”按钮，在 Text2 中显示删去其他字符后的偶数字符串。Dim s As String, n As Integer, i As IntegerDim c As String, zfc As Strings = Text1.Valuen = Len(s)zfc = “For i = 1 To nc = Mid(s, i, 1)If c = “0“ And c =
13、 “a“ And c = “A“ And c = “0“ And c 0 Thenjsh = jsh + iEnd IfNext iText2.Value = jsh注：如果题目改为偶数，则改为 If i Mod 2 = 0 Then例 9：打开 Access 数据库 “所用文件.mdb”。要求编写窗体 qh2 上“计算” 按钮的单击事件处理代码，实现如下功能：在文本框 Text1 中输入一个正整数，单击“计算”按钮，计算从 1 到该数之间（含该数）能被 5 整除的奇数之和，结果显示在 Text2 中。a = Text1.Valuejsh = 0For i = 1 To aIf i Mod 2
14、 0 ThenIf i Mod 5 = 0 Thenjsh = jsh + iEnd IfEnd IfNext iText2.Value = jsh注：题目如果改为被 3 整除的偶数之和，则改为 If i Mod 2 = 0 Then 和 If i Mod 3 = 0 Then14例 10：打开 Access 数据库 “所用文件.mdb”。要求编写窗体 calcexp 上“计算”按钮的单击事件处理代码，实现计算等差数列：1，2，N 各项的和，数列最后一项 N 由文本框 Text1 中输入，计算结果显示在标签 Label1 中。Dim n As Integer, sum As Integern
15、= Text1.Valuesum = n * 1 + n * (n - 1) / 2Label1.Caption = sum例 11：打开 Access 数据库 “所用文件.mdb” 。要求编写窗体 qh3 上“计算”按钮的单击事件处理代码，实现如下功能：在文本框 Text1 中输入一个 3 位正整数，单击“计算”按钮，计算从 1 到该数之间（含该数）个位数是 6 的整数之和，结果显示在 Text2 中。a = Text1.Valueqh = 0For i = 1 To aIf Int(i / 1) Mod 10 = 6 Thenqh = qh + iEnd IfNext iText2.Value = qh例 12：打开 Access 数据库 “所用文件.mdb” 。要求编写窗体 qh4 上“计算”按钮的单击事件处理代码，实现如下功能：在文本框 Text1 中输入一个正整数，单击“计算”按钮，计算从 1 到 1000 之间（含 1000） ，以该输入数为个位数的各自然数之和，结果显示在 Text2 中。a = Text1.Valueqh = 0For i = 1 To 1000If Right(Str(i), 1) = a Thenqh = qh + iEnd IfNext iText2.Value = qh15
