高三信息技术试题答案及解析

高三信息技术试题答案及解析

1. 在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：，若用VB表达式来表示，正确的是（ ）

A．F=m(g-v*v/r) B．F=m(g-v^2/r)

C．F=m*(g-v^2/r) D．F=m*(g-v*2/r)

【答案】C

2. 下列选项中，适合用计算机编程来解决的是( )

A．统计学生半期考分数 B．截取视频

C．制作电子小报 D．求两个数的最小公倍数

【答案】D

3. 下列描述算法的流程图构件中，如果要描述“输出：高度h=sqr(a*b)”内容，应使用的流程图构件符号是（ ）

A． B． C． D．

【答案】D

4. 下面的表达式的值为"on"的是（ ）(提示：函数Replace(X,S,R)的功能是将字符串X中的字符串S替换为字符串R，然后返回)

A．Mid("cartoon",6,2) B．Mid("only",2,2)

C．Replace("cartoon",catro,on) D．Len("on")

【答案】A

5. 打开并修改考生文件夹下“VB”文件中的工程文件“test.vbp”，使其具有下列功能：

在文本框Text1中输入某场馆可容纳的观众人数，在文本框Text2中输入疏散全部观众所需的时间，单击“计算”按钮Command1，在文本框Text3中，显示该场馆至少应设置的疏散出口数（假设同一时刻走出同一大门的观众为5人，每个观众走出大门的时间为3到5秒）。程序运行效果如图所示：

完成以下操作：

（1）在窗体中添加命令按钮Command1，并将它的Caption属性设置为“计算”。

（2）将窗体Form1的Caption属性设置为“出口设置”；为命令按钮Command1选择合适的事件过程，并将VB文件夹下“code.txt”文件中的代码复制到该过程中。 （3）调试并运行程序：在注释①和②所在行中找出唯一的错误并改正，利用图中的数据进行测试，使程序实现上述功能。

保存窗体文件和工程文件。

【答案】（1）打开考生文件夹下“VB”文件夹中“test.vbp”工程，参照题中的程序运行界面，在窗体Form1中添加命令按钮Command1，并将其Caption属性值设置为“计算”。

（2）将窗体Form1的Caption属性设置为“出口设置”；选择“计算”按钮的Command1_Click()事件过程，将“VB”文件夹下“code.txt”中的程序代码全部复制到该过程中。

（3）运行程序，在文本框Text1t和文本框Text2中，分别输入题中给定的程序运行图中的数据，然后单击“计算”，出现出错信息，分析此信息，可知错误发生在注释②所在行，中止程序的运行，然后修改注释②所在行，将“Text3.Caption = Str(doors)”改为“Text3.Text = Str(doors)”，重新运行程序，利用题中程序运行图中的数据进行测试，使程序实现上述功能。

利用“文件”菜单，在“VB”文件夹中保存窗体文件和工程文件。

6. 下列程序执行后，整型变量a的值为（ ）

a=1

For p="1" to 50

If p mod 3="0" then a=a+1

Next p

A．16 B．15 C．18 D．17

【答案】D

7. 已知a=3.69，b= -6，则VB表达式int(-a)+b mod 5的值为（ ）

A．-3 B．-4 C．-5 D．-6

【答案】C

8. 下列过程中，( ) 是程序开始运行时，窗体一加载就运行的程序段。

A．Form_Load B．Form_Click

C．Form_MouseDown D．Form_KeyPress

【答案】A

9. 当a="123:" b=StrA.，则( )

A．a和b均是字符型变量

B．a是字符型变量，b是数值型变量

C．a是数值型变量，b是字符型变量

D．a和b均是数值型变量

【答案】C

10. 语句( )用于声明变量，并定义变量的数据类型，给变量分配存储空间。

A．Sub B．Dim C．Call D．End

【答案】B

11. 下列程序在调试时提示错误“块IF没有End If”，要使程序正常运行，则应该在 （填①或②）处添加语句 。

Private Sub Image3_Click(Index As Integer)

Timer1.Enabled = False

Image1.Picture = Image3(Index).Picture

If x =" Index" Then Label1.Caption = "平手"

Command1.Visible = True

①

Else

If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then

Label1.Caption = "您输"

Command1.Visible = True

Else

Label1.Caption = "您赢"

Command1.Visible = True

End If

②

End Sub

【答案】② End If

12. 在Visual Basic中，“a大于等于b且a小于等于c”的正确表达式是（ ）

A．a=>b or a=="b" or a=="b" and a<=c D．c>=a>=b

【答案】C

13. 在描述算法的流程图中，指示流程方向的符号是（ ）

A．起止框 B．判断框 C．处理框 D．流程线

【答案】D

14. 关于利用计算机编程解决问题，下列说法正确的是（ ）

A．编程解决问题就是编写程序代码

B．VB不是一种计算机编程语言

C．可以使用流程图描述算法

D．程序编写完毕后不用进行调试运行

【答案】C

15. 在VB数组说明语句Dim d(3 To 8，4 To 9)As Boolean中，数组d的变量类型是( )

A．长整数型 B．字符串型

C．单精度实数型 D．逻辑型

【答案】D

16. 下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。

Private Sub Command1_Click( )

Dim i As Integer，P As Integer

p＝0

For i＝100 To 999

If __①__ Then

List1.AddItem Str(i) ②__

End If

Next i

List1.AddItem Str(p)

End Sub 为实现上述功能，请在程序划线处填入合适的语句：

划线①处应填入的语句为：_____________________________________；

划线②处应填入的语句为：_____________________________________。

【答案】①i Mod 3＝2 And i Mod 5＝3 ②p＝p＋1

17. 寻找数组元素a(1)到a(10)中最小值min程序段如下：

For i＝2 To 10

If a(i)＜min Then min＝a(i)

Next i

方框中最合适的语句是( )

A．a(1)＝min B．a(1)＝0

C．min＝a(1) D．min＝0

【答案】C

18. 使用VB中的ADO访问文件名为“Course.accdb”的Access数据库，与数据库建立连接的程序段如下：

Dim conn As New ADODB.Connection

conn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB.12.0；Data Source＝”＋App.Path＋“/monkey.accdb”

conn.Open

在调试时出现了如图所示的错误提示框。

产生该错误提示的原因可能是( )

A．没有定义ADO的Connection对象实例

B．没有打开Connection对象实例到数据库的连接

C．指定的数据库文件不存在

D．没有添加选择Microsoft ActiveX Data Objects 6.1 Library组件

【答案】D

19. 小王编写了一个VB程序，功能为：在文本框Text1中输入三位自然数，单击“交换”按钮Command1，在文本框Text2中输出由该三位数各位数字重组后的最小数，运行界面如图所示。

（1）若要将按钮上显示的“Command1”改为“交换”，应设置Command1的________________属性。（2）小王编写的按钮事件过程代码如下：

Dim n As Integer, max As Integer

Dim a As Integer, b As Integer, c As Integer

Dim t As Integer，m As Iinteger

x = Val(Text1.Text)

a =" x" \ 100

b = ________①_______________

c =" x" Mod 10

If a >b Then t =" a:" a =" b:" b = t

If a > c Then t =" a:" a =" c:" c = t If b > c Then t =" c:" c =" b:" b = t