access编程主要类型题目(上篇)
武汉实用电脑培训学校 027-87781572 qq:723833654 编程主要 类型题目 一、typeendType 语 句的考察 (1)如下程序段定义了学生成绩的记录类型,由学号,姓名和三门课程成绩(百分制)组成。Type Studno As Integername As Stringscore(1 to 3) As SingleEnd Type若对某个学生的各个数据 项进行赋值,下列程序段中正确的是(D) A)Dim S As Stud B)Dim S As StudStud.no =1001 S.no =1001Stud.name =” 舒宜” S.name =”舒宜”Stud name =78,88,96 S.score =78,88,96C)Dim S As Stud D)Dim S As StudStud.no =1001 S.no =1001Stud.name =” 舒宜” S.name=”舒宜”Stud.score(1) =78 S.Score(1)=78Stud.score(2)=88 S.Score(2)=88Stud.score(3)=96 S.Score(3)=96 (2)有如下用户定义类型及操作语句:Tyoe StudentSNo As StringSname As StringSAge As IntegerEnd TypeDim Stu As StudentWith StuSNo=”200609001”SName=”陈果果“Age=19End With执行MsgBox Stu.Age 后,消息框 输出结果是 答案 19 二、选择结构: 主要语句:1、单分支结构 If 语句 格式 1:If 条件 Then 语句 1格式 2:If 条件 Then 语句 1Endif武汉实用电脑培训学校 027-87781572 qq:723833654以上两种格式用于单分支结构,条件成立做 语句 1 ,不成立就什么都不做 例题: (1 )在窗体中有一个文本框 Test1,编写事件代码如下: Private Sub _Click() X= val (box(“ 输入 x 的值”)) Y= 1 If X0 为 true y=2 4)得 2 选 B(2)A=75If a>60 then i=1If a>70 then i=2If a>80 then i=3If a>90 then i=4Msgbox I A) 1 B)2 C)3 D)4 75>60 为真 i=1 75>70 为真 i=2 75>80 为假 75>90 为 假 所以选择 B 选项 2、多分支 if 语句 格式:if 条件 1 then语句 1elseif 条件 2 then语句 2elseif 条件 3 then语句 3endif (1)在窗体中添加一个名称为 Commandl 的命令按钮,然后 编写如下事件代码:Private Sub Cimmandl_Click ()a =75If a >60 Thenk =1Elself a>70 Thenk =2Elself a>80 Thenk =3Elself a>90 Thenk =4武汉实用电脑培训学校 027-87781572 qq:723833654EndlfMsgBox kEnd Sub窗体打开运行后,单击命令按钮, 则消息框的输出结果是A)1 B )2 C )3 D)4 解答:本题主要考察 if else 语句的用法 ,if 75>60 为 true k=1,else 分支不执行 所以得 A (2)在窗体中使用一个文本框(名为 num1 )接受输入 值,有一个命令按钮 run13 ,事件代 码如下: Private Sub run13_Click()If Me!num1 >= 60 Thenresult = “及格“ElseIf Me!num1 >= 70 Thenresult = “通过“ElseIf Me!num1 >= 85 Thenresult = “合格“End IfMsgBox result End Sub 打开窗体后,若通过文本框输 入的值为 85, 单击命令按钮 ,输出结果是 。 解答:本题主要考察 if else 语句的用法 ,if 85>=60 为 true ,result=” 及格”,else 分支不执行 所以得 及格 3、select case 语句(1)在窗体文本框 Text l 中输入“456AbC”后,立即窗口上 输出的结果是【456aBc】。Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAsciiCase 97 To 122Debug.Print Ucase(Chr(KeyAscii));Case 65 To 90Debug.Print Lcase(Chr(KeyAscii));Case 48 To 57Debug.Print Chr(KeyAscii);Case ElseKeyAscii = 0End SelectEnd Sub 本题主要考察 select 语 句和 Ascii 码,97-122 为小写字母的 Ascii 码,65-90 为大写字母,48-57 为数字 456 三个数字做 case 48 to 57 分支原样输出 A 和 C 做 Case 65 To 90 的分支通过 Lcase 变成小写,b 做 Case 97 To 122 的 分支通过 Ucase 变成大写。 三、循环结构 1、简单 for 循环 (1)设有如下窗体单击事件过程: (C )Private Sub Fom_Click()a =1For i =1 To3Select Case i武汉实用电脑培训学校 027-87781572 qq:723833654Case 1,3a =a +1Case2,4a =a +2End SelectNext iMsgBox aEnd Sub打开窗体运行后,单击窗体,则消息框的输出的结果是A)3 B)4 C)5 D )6 本题的考点是 for 语句和 select case 语句 I=1 做 case 1,3 分支 a=a+1 a=2 I=2 做 case 2,4 分支 a=a+2 a=4 I=3 做 case 1,3 分支 a=a+1 a=5 (2)由“For i=1 To 9 Step -3”决定的循 环结构,其循 环体将被 执行 AA)0 次 B)1 次 C)4 次 D)5 次 I=1 步长=9 为假 循环一次都不做 (3)设有如下程序: (C)Private Sub Cimmandl_Click()Dim sum As Double, x As DoubleSum=0n =0For i =1 To 5x =n/in =n +1sum =sum +xNext iEnd Sub