D) 0
【解析】本题考查For循环。初始将intsum和I都定义为整型。因此循环初始I值为0，进入第一次循环，执行intsum=0+0；进入下一循环前执行Step 10，I值变为10，进入第二次循环，intsum=0+10；以此类推直至I值变为50，intsum=0+10+20+30+40+50=150，之后I值变为60不再符合循环条件，跳出循环。因此intsum值为150。
下列程序的功能是计算 10 的阶乘，程序空白处应该填写的语句是 Dim t as single Dim k as Integer k = 0 : t = 1 While _______ k = k + 1 t = t * k Wend A) k < 10 B) k > 10 C) k <= 10 D) k >= 10
【解析】本程序作用是计算10的阶乘，While空白处是用来进行条件限制，满足循环条件则执行k = k + 1，t = t * k操作，实现k值加1和阶乘的计算。因此当循环至k值为9时，执行循环体k=k+1=9+1=10，t=1*2*3*4*5*6*7*8*9*10完成10的阶乘的计算，循环到此结束，因此循环的条件应为k < 10或k<=9。
如果要将3KB的纯文本块存入一个字段，应选用的字段类型是
A) 文本 B) 备注 C) OLE对象 D) 附件
【解析】文本类型最多存储255个字符，故选项A错误；备注适用于长文本和数字，例如注释或说明，其存储最大长度为64000个字符，故B选项正确；OLE对象类型用来存放数据表中的表格、图形、图像、声音等嵌入或链接对象，而不是用于存放长字段的文本,故选项C错误;附件类型可以将图像、电子表格文件、文档、图表等各种文件附加到数据库记录中去，故选项D错误。因此，本题答案为B。
若“教师基本情况”表中职称为以下五种之一：教授、副教授、讲师、助教和其他，为提高数据输入效率，可以设置字段的属性是
A) \显示控件\ B) \有效性规则\ C) \有效性文本\ D) \默认值\
【解析】B、C选项是针对输入内容作出限制，包括格式或者内容，当输入内容不合法时，系统会给出提示；D选项是针对出现频率很高的字段，设置一个默认值；由于本题职称包含多个值，可通过显示控件罗列出选项，供用户从中选择，从而使输入效率比较高。因此，本题答案为A。
在“成本表”中有字段：装修费、人工费、水电费和总成本。其中，总成本=装修费+人工费+水电费，在建表时应将字段“总成本”的数据类型定义为
A) 数字 B) 单精度 C) 双精度 D) 计算
【解析】选项A数字用于存储数学计算的数字数据；B、C选项是数字的具体数据类型，包含于选项A；而D选项是保存通过计算得到的数据类型，因此，选择D选项。
在“成绩表”中有字段：平时成绩、期中考试、期末考试和总评成绩。其中，总评成绩=平时成绩＋期中考试×20%＋期末考试×70%，在建表时应将字段“总评成绩”的数据类型定义为
A) 文本 B) 长整型 C) 单精度 D) 计算
【解析】此题保存结果是数字类型，A选项用于保存文本数据，；B、C选项是具体的数字类型；D选项是保存通过计算得到的数据类型，因此，选择D选项。
体检表中有日期/时间型数据\体检时间\，若规定在体检4周后复检，建立生成表查询，生成列\复检时间\要自动给出复检的日期，正确的表达式是
A) 复检时间:DateAdd(\体检时间]) B) 复检时间:DateAdd(\体检时间]) C) 复检时间:Datediff(\体检时间]) D) 复检时间:Datediff(\体检时间])
【解析】DateAdd(interval， number， date)，其中，interval必选：表示要添加的时间间隔。W表示天，WW表示周。number必选：标识要添加的间隔数，它可以为正（以获取将来的日期）也可以为负（以获取过去的日期）。date必选：变量型（日期型）或文字，表示已添加间隔的日期。因此，本题应选择B选项。
要使打印的报表每页显示 3 列记录，在设置时应选择
A) 工具箱 B) 页面设置 C) 属性表 D) 字段列表
【解析】报表页面设置主要包括设置边距、纸张大小、打印方向、页眉页脚样式等。在“打印”选项卡中单击打印按钮打开“打印”对话框，在“列”选项卡中可以设置一页报表中的列数。因此，答案是B选项。
窗体中有文本框Text1。运行程序，输入大于0的整数m，单击按钮Command1，程序显示由星号组成的高度为m的等腰三角形。例如，当m=5时，显示图形如下。
*
* * * * * * * * * * * * * * * * * * * * * * * * 事件代码如下。
Private Sub Command1_Click() m = Val(Me!Text1) result = \ For k = 1 To m
For n = 1 To k + m - 1 If 【 】 Then
result = result & \ Else
result = result & \ End If Next n
result = result + Chr(13) Next k
MsgBox result, , \运行结果\End Sub
程序【 】处应填写的语句是
A) n < m - k + 1 B) n <= m - k + 1 C) n > m - k + 1 D) n >= m - k + 1
【解析】题目第一个for循环用于控制输入的行数，第二个for循环控制每行前面的空格数。我们可以看到，当K初始值为1，第一行需要输出4个空格和一颗星简单方法是，一个一个代进去测试。如在k=1情况下满足<5或者<=4的选项，题目中只有A满足。因此，本题应选择A选项。
窗体中有文本框Text1和标签Label1。运行程序，输入大于0的整数m，单击按钮Command1，程序判断m是否为素数，若是素数，则Label1显示\是素数\，否则显示\是合数\。事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) result = m & \是素数\ k = 2
Do While k <= m / 2
If m Mod k = 0 Then result = m & \是合数\ 【 】 End If k = k + 1 Loop
Me!Label1.Caption = result End Sub
程序【 】处应填写的语句是
A) Exit B) Exit Loop C) Exit While D) Exit Do
【解析】 本题是考察输入的m是否为素数，素数是指除了1和它本身之外没有别的约数，所以在while循环里只要m对k不能整除，说明k不是m的约数，否则M有小于本身的约数就不是素数，下面就不用再判断了，直接跳出DO循环。DO?while退出时，用Exit do。因此，本题应选择D选项。
窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n（n>0），单击按钮Command1计算下列表达式的值：
SUM=m-(m+1)/2+(m+2)/3-(m+3)/4+…+(-1)(m+n-1)/n 在Text3给出结果，事件代码如下： Private Sub Command1_Click()
程序【】处应填写的语句是：
Dim sum As Double m=Val(me!Text1) n=Val(me!Text2) sum=0 For k=1 to n
sum=sum+【 】/k Next k Me!text3=sum
n+1
End Sub
A) IIf(k Mod 2 = 0, -(m + k - 1), (m + k - 1)) B) IIf(k Mod 2 = 0, (m + k - 1), -(m + k - 1)) C) IIf(k Mod 2 > 0, -(m + k - 1), (m + k - 1))