第二步：编写程序代码。 程序提供的代码： Option Base A Private Sub CommandA_Click() Dim arrN(B0) As Integer Dim Sum As Integer Randomize For i=A To B0 ’arrN(i)=Int(Rnd * ) Next i ’Sum= For i=A To B0 ’If Then ’Sum= End If Next i Print Sum End Sub 参考代码： Option Base A Private Sub CommandA_Click() Dim arrN(B0) As Integer Dim Sum As Integer Randomize For i=A To B0 arrN(i)=Int(Rnd * A000) Next i Sum=0 For i=A To B0 If arrN(i)＞E00 Then Sum=Sum+arrN(i) End If Next i Print Sum End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (B) [解析] 判断0～A00范围内的数能不能被G整除，使用求余运算符Mod，如果余数不为0，则表示该数不能被整除。设置一个变量，来计算不能被G整除的数的和。解题步骤： 第一步：编写程序代码。 程序提供的代码： Sub SaveData() Open App.Path & "/" & "outtxt.txt" For Output As #A Print #A, TextA.Text Close #A End Sub Function Fun() End Function Private Sub CommandA_Click() d=Fun() TextA.Text=d SaveData End Sub 参考代码： Sub SaveData() Open App.Path & "/" & "outtxt.txt" For Output As #A Print #A, TextA.Text Close #A End Sub Function Fun() Dim i As Integer Dim temp As Integer For i=0 To A00 If i Mod G ＜＞ 0 Then temp=temp + i End If Next i Fun=temp End Function Private Sub CommandA_Click() d=Fun() TextA.Text=d SaveData End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。
第14题: [单项选择]在劳动合同条款中，属于约定条款的是( )。 A. 劳动报酬 B. 劳动纪律 C. 试用期限 D. 劳动合同终止的条件 参考答案:C 答案解析:[解析] 约定条款的内容包括：①试用期限；②保守商业秘密条款；③培训；④保密事项；⑤补充保险和福利待遇；⑥第二职业条款；⑦变更、解除合同；⑧当事人协商约定的其他事项。《劳动合同法》第十七条规定，劳动合
第15题: [单项选择]成功译读象形文字的是( )。 A. 伊文思 B. 卡特 C. 托马斯·杨 D. 商博良 参考答案:D 答案解析:[解析] 1822年，法国语言学家商博良根据罗塞塔碑文和另一块尖碑上的铭文，成功地译读了埃及象形文字，解开了这古老文字之谜，同时创立了一门新兴学科——埃及学。
第34题: [单项选择]在SQL的计算查询中，用于求平均值的函数是______。 A. AVG B. AVERAGE C. average D. AVE 参考答案:A 答案解析:[知识点] 关系数据库标准语言SQL/SQL的数据查询功能/分组与计算查询
[评析] SQL的求平均值的函数是AVG，求最大值的函数是MAX，求最小值的函数是MIN，求和函数是SUM，计数的函数是C
