VB试卷3(考试必备)

————————装——————————订————————线————————

辽源职业技术学院考试答案（三）

20 –20 学年第学期期《Visual Basic程序设计》考试试卷命题教师：审批人：

考试方式：笔试答题时间100 分钟考生人数: 人

一、填空题（每空1分，共20分）

1．对象的方法应用于(程序代码中) ，当对象不需要任何参数并且也没有返回值时，调用对象的方法的格式为( 对象名.方法名)，例如，对窗体Form1使用Show方法，应写成( Form1.Show ) 。

2．变量名称的长度最长不超过（ 255 ）个字符

3．字符串型的类型名称是（ string ）、类型声明符是（ $ ）

4．函数sgn(-5)的返回值是（ -1 ）、函数round(12.3456,2)的返回值是( 12.3400 )、函数len(‘计算机A1’)的返回值是（ 5 ）

5．要使文本框显示滚动条，需要将其( Multiline ) 属性设置为 ( true )

6．欲设置定时器的时间间隔为4秒，则属性的Interval属性设置为（ 4000 ）

7．参数传递的形式有（按地址传递）和（按值传递）两种。

8．有数组的定义语句dim a1(2to 4,-2to 2) as single，此数组是（二）维数组，大小是（ 15 ），类型是（单精度）

9.窗体和控件的边框样式用（ borderstyle ）设置，边框宽度用（ borderwidth ）设置

10．在过程内容声明静态变量采用的关键字是（static ）

二、选择题（每题2分，共30分）

1．窗体的Load事件的触发时机是（ B ）。

A．用户单击窗体时 B．窗体被加载时

C．窗体显示之后 D．窗口被卸载时

2．与传统的程序设计语言相比，Visual Basuc最突出的特点是（ C ）。

A．结构化程序设计 B．程序开发环境

C．事件驱动编程机制 D．程序调试技术

3．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ B ）。

A．Text.Mytext B．Mytext.text C．Mytext.（Text） D．Mytext*Text 4．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，

预先应制造的操作是（ A ）。

A．单击窗体上没有控件的地方 B．单击任一个控件

C．不执行任何操作 D．双击窗体的标题栏

5．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ B ）属性。

A．Caption B．PasswordChar C．Text D．Char 6．对于定时器（Timer）控件，设计其定时是否开启的属性是（ C ）。

A．Index B．Tag C．Enabled D．Left 7．在窗体Form1内显示“myfrm”，使用的语句是（ B ）。

A．Form.Caption=“myfrm” B．Form1.Caption=“myfrm”

C．Form1.Print=“myfrm” D．Form.Print=“myfrm”

8．下列正确的赋值语句是（ B ）。

A．x+y=20 B．y=x+20 C．3x=y D．s=π*r*r 9．当使用上下文相关的帮助时，选择要帮助的内容，然后按（ D ）键，就可出现MSDN窗口直接显示所需的帮助信息。

A．Help B．F10 C．ESC D．F1 10．在窗体或图片框中画直线的方法是（ A ）

A．Line B．Circle C．Scale D．Pset

11．用下面的语句声明的数组元素的个数是（ C ）

Dim a1( 4 to 6,-3 to 3) as integer

A．24 B．36 C．21 D．18

12．运行时要向列表框中添加项目，应调用（ B ）方法

A．Add B．AddItem C．Fill D．FillItem

13．工程文件的扩展名是（ B ）

A．vbg B．vbp C．vbw D．vbl

14．窗体标题栏的显示内容由窗体对象的（ D ）属性决定

A．Backcolor B．Backstyle C．Text D．Caption

15．InputBox函数返回值的类型为（ B ）

A．数值 B．字符串 C．变体 D．数值或字符串（视输入的字符串而定）

三、读程序写相应的答案（每题6分，共30分）

1．n=0

for i=1 to 3

for j= -4 to -1

n=n+1

next j

next i

运行完毕后，n的值是 12

2. Dim a As Integer, s As Integer

s = 1

Do While a <= 5

s = s + a

a = a + 1

Loop

Print s; a

结果： 16 6

3. Dim a(5)

For i=1 to 5

A(i)=i*i

Next i

Print a(5)

结果： 25

4．Private sub m1(byval a as integer,byref b as integer) a=a*3：b=b-6

Print a+b

End sub

Private sub command1_click()

Dim x as integer,y as integer

X=3:y=10

M1 x,y

Print x-y

End sub

单击按钮后，程序的执行结果 13 -1

5．Private Sub Command1_Click( )

Dim x As Integer, y As Integer, z As Integer

x = 5 : y = 7 : z = 0

Me!Text1= ""

Call p1(x, y, z)

Me!Text1 =z

End Sub

Sub p1(a As Integer, b As Integer, c As Integer)

c = a + b

End Sub

打开窗体运行后，单击命令按钮，文本框中显示的内容是 12

四、编程题（每题10分，共20分）

1、计算1到100之间所有的素数和。

dim sum as integer

Sum=0

For i=1 to 100

For j=2 to sqr(i)

If I mod j=0 then exit for

Next j

If j>sqr(i) then sum=sum+j

Next i

2、有矩阵 2 5 7，求矩阵两条对角线元素的和

4 3 9

5 1 8

dim a(3,3) as integer

A(1,1)=2:a(1,2)=5:a(1,3)=7

A(2,1)=4:a(2,2)=3:a(2,3)=9

A(3,1)=5:a(3,2)=1:a(3,3)=8

For i=1 to 3

For j=1 to 3

If i=j or i+j=4 then sum=sum+a(i,j) : Next j,i