Access编程主要类型题目(上篇)

解答：本题主要考察 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 DeyAscii Case 97 To 122 Debug.Print Ucase(Chr(KeyAscii)); Case 65 To 90 Debug.Print Lcase(Chr(KeyAscii)); Case 48 To 57 Debug.Print Chr(KeyAscii); Case Else KeyAscii = 0 End Select End 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 变成大写。
2、多分支 if 语句 格式：if 条件 1 then 语句 1 elseif 条件 2 then
语句 2 elseif 条件 3 then 语句 3 endif （1）在窗体中添加一个名称为 Commandl 的命令按钮，然后编写如下事件代码： Private Sub Cimmandl_Click（） a =75 If a >60 Then k =1 Elself a>70 Then k =2 Elself a>80 Then k =3 Elself a>90 Then k =4 Endlf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 A）1 B）2 C）3 D）4 解答：本题主要考察 if else 语句的用法 ,if 75>60 为 true k=1，else 分支不执行 所以得 A
n=1+1=2 sum=0+1/2=1/2 i=2+1=3 n=2+1=3 sum=1/2+2/3 i=3+1=4
n=3+1=4 sum=1/2+2/3+3/4 i=4+1=5
n=4+1=5 sum=1/2+2/3+3/4+4/5 i=5+1=6 6<=5 假结束 所以选择 C
（4）在窗体中使用一个文本框（名为 x）接受输入值，有一个命令按钮 test，事件代码如下： Private Sub test_Click() y=0 For i = 0 To Me!x y=y+2*i+1 Next i MsgBox y End Sub 打开窗体后，若通过文本框输入值为 3，单击命令按钮，输出的结果是 （16） 。 本题的考点是 for 语句 Y=0 i=0 0<=3
三、循环结构 1、简单 for 循环 （1）设有如下窗体单击事件过程： （C） Private Sub Fom_Click（） a =1 For i =1 To3 Select Case i Case 1,3 a =a +1 Case2,4 a =a +2 End Select Next i MsgBox a End 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”决定的循环结构，其循环体将被执行 A A)0 次 B)1 次 C)4 次 D)5 次
I=1 步长<0 时 比 1>=9 为假 循环一次都不做
（3）设有如下程序： (C) Private Sub Cimmandl_Click（） Dim sum As Double, x As Double Sum=0 n =0 For i =1 To 5 x =n/i n =n +1 sum =sum +x Next i End Sub 该程序通过 For 循环来计算一个表达式的值，这个表达式是 A）1+1/2+2/3+3/4+4/5 B）1+1/2+1/3+1/4+1/5 本题的考点是 for 语句 Sum=0 n=0 i=1 1<=5 第 1 次循环 x=0/1=0 n=0+1=1 sum=0+0=0 第 2 次循环 x=1/2 第 3 次循环 x=2/3 第 4 次循环 x=3/4 第 5 次循环 x=4/5 i=1+1=2 2<=5 3<=5 4<=5 5<=5 C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/5
解答：1) x=12 2)y=1 3)12<>0 为 true y=2 4)得 2 选 B
（2）A=75 If a>60 then i=1 If a>70 then i=2 If a>80 then i=3 If a>90 then i=4 Msgbox I A) 1 B)2 C)3 D)4 75>60 为真 i=1 75>70 为真 i=2 75>80 为假 75>90 为假 所以选择 B 选项
（2）有如下用户定义类型及操作语句： Tyoe Student SNo As String Sname As String SAge As Integer End Type Dim Stu As Student With Stu SNo=”200609001” SName=”陈果果“ Age=19 End With 执行 MsgBox Stu.Age 后，消息框输出结果是 答案 19
2、简单的 do while until 循环 While 循环 条件为 true 时执行循环 条件为 false 时结束循环 Until 循环 条件为假 时执行循环 条件为真时结束循环
（1）下列四种形式的循环设计中，循环次数最少的是 A）a=5:b=8 Do a=a+1 Loop While a<b C）a=5:b=8 Do Until a<b a=a+1 Loop B)a=5;b=8 Do a=a+1 Loop Until a<b D）a=5:b=8 Do Until a>b a=a+1 Loop
（2）在窗体中使用一个文本框（名为 num1）接受输入值，有一个命令按钮 run13，事件代码如下： Private Sub run13_Click() If Me!num1 >= 60 Then result = "及格" ElseIf Me!num1 >= 70 Then result = "通过" ElseIf Me!num1 >= 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为 85，单击命令按钮，输出结果是 。
第 1 次循环 y=0+2*0+1=1 i=0+1=1 1<=3 第 2 次循环 y=1+2*1+1=4 i=1+1=2 2<=3 第 3 次循环 y=4+2*2+1=9 i=2+1=3 3<=3 第 4 次循环 y=9+2*3+1=16 i=3+1=4 4<=3 假结束 所以 y=16
（5）在窗体中有一个名为 Command1 的命令按钮，Click 事件的代码如下： Private Sub Command1_Click( ) f=0 For n=1 To 10 Step 2 f=f+n Next n Me!Lb1.Caption=f End Sub 单击命令按钮后，标签显示的结果是___________。 本题的考点是 for 语句 F=0 n=1 1<=10 第 1 次循环 f=0+1=1 n=1+2=3 3<=10 第 2 次循环 f=1+3=4 n=3+2=5 5<=10 第 3 次循环 f=4+5=9 n=5+2=7 7<=10 第 4 次循环 f=9+7=16 n=7+2=9 9<=10 第 5 次循环 f=16+9=25 n=9+2=11 11<=10 假结束 所以本题得 25
二、选择结构： 主要语句： 1、单分支结构 If 语句 格式 1：If 条件 Then 语句 1 格式 2：If 条件 Then 语句 1 Endif 以上两种格式用于单分支结构，条件成立做语句 1，不成立就什么都不做 例题: （1）在窗体中有一个文本框 Test1，编写事件代码如下： Private Sub Form_Click() X= val (Inputbox(“输入 x 的值”)) Y= 1 If X<>0 Then Y= 2 Text1.Value = Y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Text1 中输出的结果是 A）1 B)2 C)3 D ）4
（6）在窗体中有一个命令按钮（名称为 run34） ，对应的事件代码如下： Private Sub run34_Click( ) sum=0 For i=10 To 1 Step -2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是（） A）10 B）30 C）55 D）其他结果