发布时间 : 星期五 文章计算机二级Access单项选择3更新完毕开始阅读5a1dc2d0767f5acfa1c7cdaf
程序【 】处应填写的语句是
A) k = IIf(m Mod 2 = 0, m, m + 1) B) k = IIf(m Mod 2 <> 0, m, m + 1) C) k = IIf(m Mod 2 > 0, m, m + 1) D) k = IIf(m Mod 2 < 0, m, m + 1)
【解析】For循环的初始条件是找出大于等于m的最小偶数，A 选项中如果m mod 2=0，说明m为偶数，则返回m；否则m为奇数，m+1则为偶数，返回m+1。因此满足条件的只有选项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选项。
如果变量 A 是 Boolean 型，则下列赋值语句中，正确的是
A) A = \ B) A = .No. C) A = #TURE# D) A = 2<10
【解析】这一题考察是Boolean类型变量的取值只能取true或false，其中选项A是字符型常量；B选项写法有误； C选项可能在数据库查询中作为查询条件使用；D选项是将一个表达式的值赋给Boolean型变量A，选项中2<10为真，所以A取值为true。因此，本题应选择D选项。
窗体中有文本框为Text1和Text2。运行程序时单击\运行\按钮Command1，在Text1中输入整数m（m>0），在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2,4,5,10，输出结果为\；16的因子为2,4,8，输出结果为\。 事件代码如下：
Private Sub Command1_Click() m = Val(Me!Text1) resule = \ k = 2 Do
If m Mod k = 0 Then result = result & k & \ k = k + 1 Loop While 【 】 Me!Text2 = result End Sub
程序【 】处应填写的语句是
A) k > m B) k < m C) k >= m D) k <= m
【解析】 Do循环是查找m的因子，循环的条件是因子k小于m，因子k初始值为2，循环结束的条件是k增加到m-1结束，即k 在窗体中有文本框Text1和Text2。运行程序时，在Text1中输入整数m（m>0），单击Command1\运行\按钮，程序能够求出m的全部除1之外的因子，并在Text2显示结果。例如，18的全部因子有2,3,6,9,18，输出结果为\；28的全部因子为2,4,7,14,28，输出结果为\。 事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) resule = \ For k = 2 To 【 】 If m Mod k = 0 Then result = result & k & \ End If Next k Me!Text2 = result End Sub 程序【 】处应填写的语句是 A) m B) k < m C) k <= m D) m - 1 【解析】本题考查的是for循环，只要k满足条件就一直循环。本题要找输入值m的除1之外所有的因子，循环结束的条件是k>m，因此k的取值为2，...，m-1，m。括号内应该填写一个数值，因此B和C选项不正确，D选择去除了m本身。因此，本题应选择A选项。 在窗体中变量m对应的文本框为Text1，\运行\按钮Command1对应的事件代码如下： Private Sub Command1_Click() Dim result As String m = Val(Me!Text1) result = \ For k = 1 To m For n = 1 To k + m - 1 If n < m - k + 1 Then result = result & \ Else result = result & \ End If Next n result = result + Chr(13) Next k MsgBox result, , \运行结果\End Sub 单击运行按钮后，输入m的值为5，程序的运行结果是 A) 由星号组成的高为5的等腰三角形 B) 由星号组成的高为5的等腰梯形 C) 由星号组成的边长为5的平行四边形 D) 由星号组成的边长为10的平行四边形 【解析】本题考查是for循环知识点，本题第一个for循环用于控制输出的行数，m从1取到5，所以共5行；第二个for循环控制每一行前段空格数目以及字符\的个数，每次循环之后空格数逐渐减少，而*逐渐增加。本题输出的是一个高为5的等腰三角形。因此，本题应选择A选项。 窗体中有文本框Text1、Text2和Text3。运行时在Text1中输入整数m，在Text2中输入整数n（m For【 】To n Step 2 sum = sum + k Next k Me!Text3 = sum End Sub 程序【 】处应填写的语句是 A) k = IIf(m Mod 2 = 1, m, m + 1) B) k = IIf(m Mod 2 <> 1, m, m + 1) C) k = IIf(m Mod 2 > 1, m, m + 1) D) k = IIf(m Mod 2 < 1, m, m + 1) 【解析】本题考查的是for循环的初始条件。题目要求输出m和n的所有奇数之和，因此初始条件应该是一个奇数，即大于或等于m的最小奇数。本题m mod 2=1，说明m为奇数，则表达式返回m值，即k=m，否则m mod 2 =0；m为偶数，则m+1为奇数，返回m+1。因此，本题应选择A选项。若B选项中的m和m+1互换，则也满足要求。 窗体中有文本框为Text1和Text2。运行程序，在Text1中输入整数m（m>0），单击\运行\按钮Command1，将m分解为质因子之积，并在Text2中给出结果。例如，18=2*3*3，输出结果为\；28=2*2*7，输出结果为\。事件代码如下： Private Sub Command1_Click()