2014年VB试卷及其参考答案

2008全国高等学校

计算机水平考试试卷

（二级Visual Basic语言）

14.表达式Len(〝VB程序设计〞)的值是。

A）4 B）6 C）8 D）11

15.下列4个字符串进行比较，最小的是。

A)”2007” B)”About” C)”Basic” D)”DATA”

16.已知A=“12345678”，则表达式Val(Left(A,3)+Mid(A,5,2))的值是。

A）12356B）179C）12345 D）45 18.下面的语句可以实现：先在窗体上输出大写字母A，然后在同一行

的第10列输出小写字母b。

A)Print ”A”; Tab(9);”b” B) Print ”A”; Space(9); ”b”

C) Print ”A”; Space(10); ”b” D) Print ”A”; Tab(10); ”b”

19.若Dim b(3) As Integer ,则Ucase(Chr(97) & UBound(b))的结果是。

A）A3 B）A2 C）A1 D）A0

20.数字表达式1≤X＜10表示成正确的VB表达式为。

A）1≤X＜10 B）X＞=1 And X＜10

C) X＞=1 Orx＜10 D) X＞=1 And ＜10

21.下面正确的赋值语句是。

A）y=3x B)3*x=y C)y=3*x D)x+y=10

26.可通过修改命令按钮的属性值为True将其设置为默认按钮。

A）Value B)Default C)Cancel D)Enabled 27.复选框或单选按钮的当前状态可通过属性来设置或访问。

A）Caption B)Value C)Checked D)Selected

28.下列控件中，没有Caption属性的是。

A）框架B）复选框C）标签D）组合框32.窗体中有图片框Picturel和图象框Imagel两个对象，下面关于Print方法的使

用中，错误的是。

A）Picturel.Print100 B) Print100

C) Printer.Print100 D)Imagel.Print100

35.下列程序段的输出结果是。

Dim s As Integer

For i=10 To 1 Step -2

S=s+i

Next i

Print i

A)0 B)-1 C)1 D)-2

39.执行语句Open “Test.dat” For Output As #1,对文件Test.dat 中的数据能够执行的操作是 。

A ） 只能读，不能写

B ）既可以读，也可以写

C ）只能写，不能读

D ）不能读，不能写

40.Data 控件的 属性用来设置访问的数据库类型。

A ）DatabaseName B) Connect

C ）RecordSource D)RecordsetType

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

1. VB 的三种基本流程控制结构是指：顺序结构、 选择结构 与循环结构。

2. 若要求输入密码时文本框中显示“*”号，则应当在文本框的属性窗口中修改 Passwordchar 属性值为“*”。

7. 在VB 中有 顺序 、随机型和二进制型三种数据文件访问类型。

8. 若要显示一个弹出式菜单，可使用 popupMenu 方法。

9. 下面程序的功能是找出100到999之间所有的“水仙花数”，请用正确的内容

填空。所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33，故153是“水仙花数”。 Private Sub Form Click( )

Dim p As Integer

For n =100 To 999

a=int （n\100）

b=Int((n-a*100)/10)

c=n Mod10

p=a^3+b^3+c^3

If n=p Then

Print n; 是“水仙花数”

End If

Next n

End Sub

1、数学表达式

e d c

b e ++的Visual Basi

c 6.0表达式为 （1） 。

2、表达式100+25 Mod 10 \ 4+Int(3.14)的值是 （2） 。

3、已知Fibonacci数列定义如下：f(1)=1,f(2)=1,f(n)=f(n-1)+f(n-2),n>2。下列程序的功能是计算并输出此数列前20个数冰求和，且要求每行输出5个数，试填空完成以下程序。

Option Explicit

Private Sub Form_Click()

Dim f(20) As Integer

Dim n As Integer, s As Integer

f(1)=1: f(2)=1: s=2

Print f(1);f(2);

For n=3 To 20

f(n)= f(n-1)+f(n-2)

S= (3) ′求和

Print f(n);

If n Mod 5 =0 Then (4) ′打印5个数后换行Next n

Print “s=” ;s

End Sub

4、随机产生10个1~999（包含1和999）之间的整数，找出其最大值、最小值

和平均值，试填空完成以下程序。

Option Explicit

Private Sub Form_Click()

Cls

Dim a(1 To 10) As Integer , s As Single

Dim m_max As Integer, m_min As Integer, I As Integer

Randomize

For i= 1 To 10

a(i) = Int(Rnd * (5) _+1) ′产生随机数并存入数组a

Print a(i) ′打印数组元素

Next i

m_max = 0: m_min = 1000

For i = 1 To 10

If a(i) > m_max Then m_max = a(i) ′找最大的数

If a(i)< m_min Then (6) ′找最小的数

s=s+a(i) ′10个数相加Next i

Print “最大数是：”；m_max ′输出最大数

Print “最小数是：”；m_min ′输出最小数

Print “平均值是：”；s / 10 ′输出平均数End Sub

5、用一元纸币兑换一分、二分和五分的硬币；要求兑换的硬币的总数为50枚。

试填空完成以下程序，列出所有可能的兑换方案。

提示：采用穷举法。一元等于100分，考虑5分最多20枚，2分最多50枚，余下是1分硬币。

Private Sub Form_Click()