浙教版初中信息技术九年级上学期期末试卷（3）_试卷库

浙教版初中信息技术九年级上学期期末试卷（3）

年级：学科：类型：期末考试来源：91题库

一、单选题（共10小题）

1、下列选项中哪一项不属于VB系统的文件类型？（）

A . frm B . vbp C . vbg D . bar

2、下列给出的VB赋值语句中正确的个数是（）。

m=m-10;

–m=n;

m=m+n;

8=n;

A . 1个 B . 2个 C . 3个 D . 4个

3、若x=666: y=Str(x)，则下列描述正确的是（）。

A . x和y均是字符型变量 B . x是字符型变量，y是数值型变量 C . x是数值型变量，y是字符型变量 D . x和b均是数值型变量

4、在日常生活中，我们上网登录QQ时，密码和QQ号对应就可以登入，若不对应，会提示你账号有误，重新输入。这一事件若用vb中的结构图来描述，应当属于下列哪个结构（）？

A . 顺序结构 B . 分支结构 C . 循坏结构 D . 数据结构

5、下列应用程序中对应的数字用到了哪些控件？（）

A . ①Label ②Msgbox ③TextBox B . ①TextBox ②Label ③Image C . ①TextBox ②Msgbox ③PictureBox D . ①TextBox ②Label ③PictureBox

6、在Visual Basic中，表达式Sqr(4)的值是（）

A . 1 B . 2 C . 3 D . 4

7、下图所示的流程图为求分段函数。根据算法，流程图中①处应当填写的内容是( )

A . b≥a B . b≥0 C . b≤0 D . b≤a

8、如下一段VB程序运行后，变量a的值为（）。

Dim i As Integer, a As Integer

i=6

a=6

If i <6 Then

a = a +4

Else

a = a -4

End If

A . 2 B . 10 C . 6 D . 4

9、下列程序运行后，单击Command1命令按钮，变量a=（）。

Private Sub Command1_Click()

a = 0

For i = 8 To 100 Step 8

a = a + 1

Next i

End Sub

A . 0 B . 8 C . 12 D . 13

10、以下VB程序段运行后，循环体执行的次数是（）

Dim x As Integer

x=2

Do while x<=63

x=(x+1)*(x-1)

Loop

A . 2 B . 3 C . 4 D . 5

二、填空题。（共8小题）

1、计算机语言的发展经历了机器语言、和高级语言。

2、在面向对象程序设计中，用来描述对象的特征信息。

3、采用搜索的方法解决问题，如密码破解的问题，常采用的方法叫做。

4、在VB环境中，修改对象的BackColor的属性值，则对象的会发生改变。

5、将字符型变量转化为数值型变量应该用函数。

6、循环结构是指程序重复执行循环语句中的一行或多行代码，其三个要素为、循环体和循环终止条件。

7、用循环结构解决问题时，如果循环的次数已知，通常采用语句。

8、函数的作用是在窗体中直接弹出一个提示框，用于程序中的提醒、警告等信息输出。

三、综合题（共2小题）

1、有如下一个生活中常见的情况：

输入一个成绩，判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。

(1)请为上面的程序设计流程图。

(2)请把下面对应的代码填写完整。

Private Sub Command1_Click( )

Dim x As Integer

x= (Text1.Text)

Select Case x

Text2.Text=“优秀”

Case x≧75

Case Else

Text2.Text=“不及格”

End Select

End Sub

2、阅读下列程序，完成相应的问题。

(1)下列程序运行后，变量s=。

Private Sub Form_Click( )

Dim a, b, c, s As Integer

a=9

b=41

c=2*(a+b)

s=a*c

(2)若a=50,b=60，则下列程序的执行结果为。

Private Sub Form_Click( )

Dim a As Integer, b As Integer

If a>b Then

a=a-b

Else

a=b+a

End if

Print a

(3)执行下面的程序后，输出的结果是 , 。

Private Sub Form_Click( )

Dim x As Integer, a As Integer

x=0

a=0

For j=1 to 5

a=a+j

Next j

x=j

Print x, a

End Sub

(4)执行下面的程序后，输出的结果是 , 。

Private Sub Form_Click( )

Dim x As Integer

x=0

Do While x<50

x=(x+2)*(x+3)

n=n+1

Loop

Print x，n

End Sub

四、设计程序（共1小题）

1、某合唱队有100人，分别编号为1,2,3……100，现从中抽出编号为6的倍数的队员单独作为一个声部的合唱，那么这样的人数共有多少？分别是哪些编号？

请用VB程序实现上面的内容，算出人数并在窗体上列出所有编号。

界面设计参考如下：