VB程序设计期末试卷及答案

选择题

1. Visual Basic中的窗体文件的扩展名是

A、.reg

B、.frm

C、.bas

D、.vbp

2. Visual Basic中的模块文件的扩展名是

A、.reg

B、.frm

C、.bas

D、.vbp

3. Visual Basic中的工程文件的扩展名是

A、.reg

B、.frm

C、.bas

D、.vbp

4. 一个对象可以执行的动作和可被对象识别的动作分别称为

A、事件、方法

B、方法、事件

C、属性、方法

D、过程、事件

5要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，要对下列属性进行设置。

A．MaxButton B．Width C．MinButton

D．BorderStyle

6 在用菜单编辑器设计菜单时，必需输入的项有＿＿＿＿。

A．快捷键B．索引C．标题D．名称

8 文件号最大可取的值为

A 255 B511 C512 D256

9 以下能判断是否到达文件尾的函数是＿＿＿＿

A BOF

B LO

C C LOF

D EOF

10 Visual basic 常见的颜色设置中，表示红色的是

A vbblue

B vbred

C vbblack

D vbcyan

11当使用line方法画直线后，当前坐标在

A （0,0）

B 直线起点

C 直线终点D容器的中心

12语句circle（500,500），300,8，-6，-3将绘制

A圆 B 椭圆 C 圆弧D扇形

13坐标度量单位可以通过来改变

A Drawstyle

B Drawwidth

C Scale

D Scalemode

14对象的边框类型由设置

A Drawstyle

B Drawwidth

C Borderstyle

D Scalemode 15以下的属性和方法中可重新定义坐标系

A Drawstyle

B Drawwidth

C Scale

D Scalemode

16执行语句line（1200,1200）——step(1000,500),B后，CurrentX=

A 2200

B 1200

C 1000

D 1700

17 在下列通用对话框的叙述中，错误的是

A Commondialogl.showfont显示字体对话框

B 在打开或另存为对话框中，用户选择的文件名可以通过Filetitle 属性返回

C在打开或另存为对话框中，用户选择的文件名及其路径可以经Filetitle属性返回

D 通过对话框可以用来制作和显示帮助对话框

填空题

1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。

2欲定义一个定长为10的字符串变量Mystr，可写成：Dim Mystr As String*10

3把条件为1≤ x ≤ 5 写成VB表达式为：1<=x And x<=5

4 在菜单编辑器中菜单项前面4个小点的含义是该菜单项为下一级的菜单项

程序运行题1.

Private Sub Form_Click()

Dim y As Integer

Do

y = InputBox("y=")

If (y Mod 10) + Int(y / 10) = 10 Then Print y

Loop Until y = 0

End Sub

运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。

37 55 64 28 19

程序运行题2.

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim x As String, c As String

x = InputBox("x=")

n = Len(x)

If n Mod 2 = 1 Then c = Mid(x, n \ 2 + 1, 1)

For i = 1 To Len(x) \ 2

c = Mid(x, Len(x) + 1 - i, 1) + c + Mid(x, i, 1)

Next i

x = c

Print x

End Sub

运行时，第一次单击Command1后输入“abc”，写出运行结果。第二次单击Command1后输入“abcd”，写出运行结果。

cba cdab

程序运行题3

Private Sub Command1_Click()

Dim m As Integer, n As Integer

Dim a(3, 3) As Integer

For m = 1 To 3

For n = 1 To 3

a(m, n) = (m - 1) * 3 + n

Next n

Next m

For m = 2 To 3

For n = 1 To 2

Print a(n, m);

Next n

Next m

End Sub

写出程序运行后，单击命令按钮，窗体上显示的结果。

2 5

3 6

程序运行题 4

Private sub form_click()

Dim a(2,3) as integer

For i =1 to 2

For j=1to 3

a(i,j)=2*i-j

next j,i

for h=1to 3

for k=1to 2

form1.print a(k,h),

next k

print

next h

end sub

写出程序运行后，单击窗体，form1 上的输出结果

1 3

0 2

-1 1

程序运行题 5

Public Function f(m as integer , n as integer)as integer Do while m<>n

Do while m>n : m=m-n : loop

Do while n>m : n=n-m : loop

Loop

f=m

End function

Private Sub Command1_Click( )

Print f(24,18)

End Sub

写出程序运行时单击Command1后，Form1上的输出结果。6

程序运行题6

Dim a as integer, b as integer c as integer

Public sub p1(x as integer,y as integer)

Dim c as integer

X=2*x y= y+2 c=x+y

End sub

Public sub p2(x as integer, byval y as integer)

Dim c as integer

X=2*x y= y+2 c=x+y

End sub

Private sub command1_click()

a =2 :b=4:c=6

call p1(a,b)

print “a=”; a; “b=”; b

call p2(a,b)

print “a=”; a; “b=”; b

end sub

写出程序运行后，单击command1 按钮，form1 上的输出结果

a=4 b=4 c=8

a=4 b=4 c=4

程序运行题7

请写出在文本框中输入“321”（3个字符）并按回车键后标签控件上的显示结果。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim a As String * 1, b As String, n As Byte, i As Integer

If KeyAscii = 13 Then

b = Text1.Text: n = Len(b)

For i = 1 To n \ 2

a = Left(b, 1)

b = Right(b, n - 1) + a

Label1.Caption = Label1.Caption + b +vbCrLf

Next i

End If

End Sub

213

程序运行题8

请写出在文本框中输入“ABCD”（4个字符）并按下回车键后，窗体上显示的结果。

Private Sub Text1_Change()

Print Text1.Text

End Sub

A

AB

ABC

ABCD

程序填空题 1

Option Base 1

Private Sub Form_Click()

Dim a(5, 5) As Integer

Dim i As Integer, j As Integer, p As Integer Print "排序前5*5矩阵"

Randomize

For i = 1 To 5

For j = 1 To 5

a(i, j) = Int(Rnd * 100)

Print Tab(6 * j); a(i, j);

Next j

Print

Next i

For i = 1 To 4

p = i

For j = i + 1 To 5

If a(p, p) > a(j, j) Then

p = j

End If

Next j

k = a(i, i)

a(i, i) = a(p, p)

a(p, p) = k

Next i

Print

Print "排序前5*5矩阵"

For i = 1 To 5

For j = 1 To 5

Print Tab(6 * j); a(i, j);

Next j

Print

Next i

End Sub

程序填空题2

本程序求3-100之间的所有素数（质数）并统计个数；素数的个数显示在窗体Form1上。

Private Sub Command1_Click()

Dim count As Integer, flag As Boolean

Dim t1 As Integer, t2 As Integer

count = 0

For t1 = 3 To 100

flag = True

For t2 = 2 To Int(Sqr(t1))

If t1 mod t2=0 Then flag = False

Next t2

If flag then

count = count + 1

End If

Next t1

Form1.print count

End Sub

程序填空题3

如果一个整数的所有因子之和与自身相等，则称该数为完数。例如：6=1+2+3，所以6是一个完数。以下程序输出1000之内的完数。Function IsWs(m as integer) As Boolean

Dim i as integer , t as integer

For i = 1 To m-1

If m Mod i = 0 Then t = t + i

Next i

If t=m Then

IsWs = True

Else

IsWs = False

End Function

Private Sub Form_Click()

Dim i%

For i = 1 To 1000

If isws(i)Then Print i

Next i

End Sub

程序填空题4

下面程序是在用户按了Enter后将一个组合框(Cbo)中没有的项目添加到组合框中。

Sub Cbo_Keypress(Keyascii As Integer)

Dim flag as Boolean

If Keyascii=13 then

Flag=False

For i=0 to Cbo.ListCount-1

If Cbo.list(i)=cbo.text Then

Flag=True

Exit For

End If

If not flag （2） Then

Cbo.additem cbo.text （3） Else

Msgbox (“ 组合框中已有该项目”)

End if

End if

End sub

程序设计题 1

1. 用输入对话框输入x ，根据下式计算对应的y ，并在窗体上输出y 的值。

Dim x as single,y as single

X=inputbox(“input x ”)

If x>10 then

Y=sqr(x)+sin(x)

Elseif x=10 then

Y=0 3sin 10

010

2610x x y x x x >==??+

Else

Y=2*x^3+6

Endif

Print y

程序设计题2.

打印出所有的水仙花数，所谓水仙花数是指一个三位数，其各位数字立方和等于该数。例如，153是一水仙花数，因为333153153=++。 Dim a as integer,b as integer ,c as integer,I as integer for i=100 to 999

a=i\100

b=i\10 mdo 10

c=I mod 10

if a^3+b^3+c^3 =I then

print i

endif

next i

程序设计题3

输入10个数给x 数组，找出其中值为最大的元素并将其与第一个元素互换，找出值最小的元素并将其与最后一个元素互换，其他元素不动。如

原来：8，7，9，15，0，3，-8，19，31，5

输出：31，7，9，15，0，3，5，19，8，-8

Dim x(1 to 10) as integer,I as integer, max as integer,min as integer

For i=1 to 10

X(i)=inputbox(“input x(i)”)

Print x(i);

Next i

Max=1

Min=1

For i=2 to 10

If x(i)>max then max=i

If x(i)

Next i

T=x(1)

X(1)=x(max)

X(max)=t

T=x(10)

X(10)=x(min)

X(min)=t

print

For i=1 to 10

Print x(i);

Next i

程序设计题4

编一求素数的函数过程Prime(x)，若x是素数返回True，否则返回False。主调程序调用Prime(x)函数输出100之内的所有素数。Function prime(x as integer) as Boolean

Dim I as integer

For i=2 to sqr(x)

If x mod I =0 then exit for

Next i

If i.sqr(x) then

Prime=true

Else

Prime=false

Endif

End function

Sub command1_click()

Dim I as integer

For i=2 to 100

If Prime(i) then

Print i

Endif

Next i

End sub