VB程序设计期末复习资料

VB 程序设计期末复习题

一、填空题

1.在VB 6.0中,变量名最长可达个字符.

答案：255

解析：规定

2.男性(sex)，年龄(age)在18—20岁之间，身高(size)在 1.65米以上，列出逻辑表达式。

答案：sex and age>=18 and age<=20 and size>=1.65

解析：规定

3.要使一个按钮设为默认按钮,应把此按钮的属性的值设为True.

答案：Default

解析：规定

4.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示文件. 答案：工程

解析：规定

5.VB表达式9^2 MOD 45 \2 *3 的值 .

答案：4

解析：表达式的计算，优先级

6.如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为 .

答案：退出(&X)

解析：规定

7.拖动滚动条中的滚动块将会产生Scroll和事件.

答案：Change

解析：规定

8.在利用Visual Basic设计应用程序时，一般会遇到三类错误：语法错误、执行错误和。

答案：逻辑错误

解析：规定

9.Option Base 1的作用是确定数组的下界为 .

答案：1

解析：规定

10.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为True.

答案：MultiLine

解析：规定

11.表达式81\7 MOD 2^2 的值是 .

答案：3

解析：规定

12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .

答案：0

解析：规定

13.把条件1<=X<12写成VB关系表达式为 .

答案： x>=1 and x<12 或 x<12 and x>=1

解析：规定

15.如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.

答案：click

解析：规定

16.写出清除标签Label1的显示信息的语句为 .

答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""

解析：规定

17.如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义 .

答案： public mystring as string*15

解析：规定

18.将焦点定位于命令按钮Command1之上的语句为 .

答案：Command1.SetFocus 或 SetFocus

解析：规定

19.滚动条控件有水平滚动条和滚动条.

答案：

1). 垂直

解析：规定

20.把整型数1赋给一个逻辑型变量,则逻辑变量的值为 .

答案：True

解析：规定

21.写出清除标签Label1的显示信息的语句为 .

答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""

解析：规定

22.设置计时器对象触发事件的时间间隔用属性.

答案：interval

解析：规定

23.VB中,变量的声明可分为两种方法: 数组和动态数组.

答案：静态

解析：规定

24.大于X 的最小整数的VB表示形式为 .

答案：Int(x)+1 或 Int(x) + 1

解析：规定

25.文本框中所显示的内容是它的属性的值.

答案：Text

解析：规定

26.设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为 . 答案：False

解析：规定

27.设置计时器控件只能触发事件.

答案：timer

解析：规定

28.文件按照存取方式及其组成结构可以分为顺序文件和 .

答案：随机文件

解析：规定

28.声明单精度常量g(重力加速度)代表9.8可写成 .

答案：const g=9.8 或 const g as single =9.8

解析：规定

29.在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和 .

答案：Integer

解析：规定

30.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有个元素.

答案：21

解析：规定

31.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .

答案：0

解析：初值超过终值

32.表达式 1 and 0的值 .

答案：False

解析：规定

33.一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达

式 .

答案：a<>0 and b^2-4*a*c>=0

解析：逻辑表达式的书写

34.变量min@表示类型的变量.

答案：货币型

解析：数据类型

35.想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上 .

答案：&

解析：规定

二、程序填空

1.以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。

Private Sub Form_Click()

Const n = 15

Dim a(1 To n) As Integer

Dim i As Integer, j As Integer, t As Integer, min As Integer

Randomize

For i = 1 To n

'**********SPACE**********

a(i) =

Next i

For i = 1 To n

Print a(i);

Next i

Print

For i = 1 To n - 1

'**********SPACE**********

For j = i + 1 To n

If a(j) < a(t) Then t = j

Next j

'**********SPACE**********

If Then

min = a(i): a(i) = a(t): a(t) = min

End If

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

答案：

1). Int( 91 * Rnd ) + 10

2). t=i

3). t <> I 或 tt 或 not t=i 或 not i=t

解析：键盘事件、消息框

2.在文本框内输入一串字符后，统计并显示各字母出现的次数不区分大小写字母。

'-------------------------------------------------------

Private Sub Command1_Click()

Dim a(1 To 26) As Integer, c As String * 1

'**********SPACE**********

= Len(Text1)

For I = 1 To l1

'**********SPACE**********

c = (Mid(Text1, I, 1))

If c >= "a" And c <= "z" Then

'**********SPACE**********

j = Asc(c) - + 1

a(j) = a(j) + 1

End If

Next I

Picture1.Cls

For j = 1 To 26

If a(j) > 0 Then

Picture1.Print " "; Chr(j + 96); "="; a(j);

End If

Next j

End Sub

答案：

1). l1 或 l1%

2). LCase

3). 97

解析：规定

3.本程序用于实现：从键盘接收一数字，判断其是否在数组中，如果在数组中则将其删除，否则显示该数字不在数组中。（如果该数字在数组中有的话，假定该数字在数组中只有一个）

Private Sub Form_Click()

Dim a(10) As Integer, x As Integer

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

Print a(i);

Next i

Print

x = InputBox("请输入要删除的整数")

For i = 1 To 10

'**********SPACE**********

If a(i) = x Then

Next i

'**********SPACE**********

If Then

For k = i To 9

'**********SPACE**********

Next k

Print "删除后的数组:"

For i = 1 To 9

Print a(i);

Next i

Else

Print "该数字不在数组中"

End If

End Sub

答案：如果有两个数相同呢？？

1). Exit For

2). i<10 或 10>i

3). a(k) = a( k + 1 )

解析：规定

4.过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。所谓"水仙花数"是指一个3位数，其各位数字立方和等于该数本身。

Private Sub Form_Click()

Dim i As Integer

For i = 100 To 999

'**********SPACE**********

Next i

End Sub

Public Sub suixian(x As Integer)

Dim i%, j%, k%

'**********SPACE**********

i =

j = (x - i * 100) \ 10

k = x - i * 100 - j * 10

'**********SPACE**********

If Then Print x

End Sub

答案：

1). suixian (i) 或 call suixian (i) 或 suixian i

2). x \ 100 或 int(x/100)

3). x = i ^ 3 + j ^ 3 + k ^ 3 或 x = i*i*i + j*j*j + k *k*k

解析：规定

5.以下程序段用于计算若干个数字的最大公约数。

Option Base 1

Private Function gcd(ByVal m%, ByVal n%) As Integer

If m < n Then t = m: m = n: n = t

Do

r = m Mod n

If r = 0 Then Exit Do

m = n

n = r

Loop

'**********SPACE**********

= n

End Function

Private Sub Command1_Click()

Dim a() As Integer

n = InputBox("输入n")

ReDim a(n)

For i = 1 To n

a(i) = InputBox("输入数据")

Next i

n1 = a(1)

For i = 2 To n

m1 = a(i)

mn = gcd(m1, n1)

If mn = 1 Then Exit For Else n1 = mn

Next i

'**********SPACE**********

Print

End Sub

答案：

1). gcd

2). mn

解析：规定

三、程序改错

1.由输入对话框输入n （设n 为大于零且小于30的自然数），计算sum 表达式的值，并在标签框Label1上显示。

)

1(1431321211+?++?+?+?=n n sum Option Explicit

Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer

n = Val(InputBox("n=", "请输入自然数n(n>0 且n<30)"))

'**********FOUND**********

Do While n > 0 Or n < 30

n = Val(InputBox("n=", "请重输入"))

Loop

sum = 0

k = 0

Do

'**********FOUND**********

k = sum + k

sum = sum + 1 / (k * (k + 1))

'**********FOUND**********

Loop Until k > n

Label1.Caption = "Sum=" + Str(sum)

End Sub

答案：

1). Do While n <= 0 Or n >= 30 或 Do While n <= 0 Or n>= 30

2). k = k + 1 或 k = 1 + k

3). Loop Until k >= n 或 Loop Until n <= k

解析：

2.在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示"不能构成三角形"

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

'**********FOUND**********

Dim x%, y%, z%, s%, b As Boolean, h As Single

x = InputBox("请输入三角形的边长")

y = InputBox("请输入三角形的边长")

z = InputBox("请输入三角形的边长")

b = pd(x, y, z)

h = (x + y + z) / 2

'**********FOUND**********

If Not b Then

s = Sqr(h * (h - x) * (h - y) * (h - z))

Print "三角形面积是"; s

Else

Print "不能构成三角形"

End If

End Sub

'**********FOUND**********

Public Function pd() As Boolean

If x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then

pd = True

Else

pd = False

End If

End Function

答案：

1). Dim x% , y% , z% , s! , b As Boolean , h As Single 或 Dim x% , y% , z% , s as Single , b As Boolean , h As Single

2). If b=not false Then 或 If b=true Then或 If b Then

3). Public Function pd(x%, y%, z%) As Boolean 或 Public Function pd(x, y, z) As

Boolean 或 Public Function pd(x as Integer, y as Integer, z as Integer) As Boolean 解析：规定

3.以下程序段用于输出100-300的所有素数

Option Explicit

Private Sub Form_Click()

Dim n As Integer, k As Integer, i As Integer, swit As Integer

For n = 101 To 300 Step 2

k = Int(Sqr(n))

i = 2

'**********FOUND**********

swit = 1

'**********FOUND**********

While swit = 0

If n Mod i = 0 Then

swit = 1

Else

'**********FOUND**********

i = i - 1

End If

Wend

If swit = 0 Then

Print n;

End If

Next n

End Sub

答案：

1). swit=0

2). While i <= k And swit = 0 或 While k>=i And swit = 0

3). i= i + 1

解析：规定

4.下面程序段将7个随机整数从小到大排序

Option Explicit

Private Sub Form_Click()

Dim t%, m%, n%, w%, a(7) As Integer

For m = 1 To 7

a(m) = Int(10 + Rnd() * 90)

Print a(m); " ";

Next m

Print

For m = 1 To 6

t = m

'**********FOUND**********

For n = 2 To 7

'**********FOUND**********

If a(t) > a(n) Then n = t

Next n

'**********FOUND**********

If t = m Then

w = a(m)

a(m) = a(t)

a(t) = w

End If

Next m

For m = 1 To 7

Print a(m)

Next m

End Sub

答案：

1). For n = m + 1 To 7

2). If a(t) > a(n) Then t = n 或 If a(n)

3). If t <> m Then 或 If not t = m Then

解析：规定

5.编程求一个m*n矩阵中最大元素及其所在的行列号。

Option Explicit

Private Sub Form_Click()

Dim A() As Integer, max As Integer

Dim M As Integer, N As Integer

Dim i As Integer, j As Integer

Dim col As Integer, row As Integer

M = InputBox("输入矩阵的行数：")

N = InputBox("输入矩阵的列数：")

ReDim A(1 To M, 1 To N) As Integer

For i = 1 To M

For j = 1 To N

A(M, N) = InputBox(" 输入数组元素:")

Next j

Next i

'**********FOUND**********

max = A(0, 0)

For i = 1 To M

For j = 1 To N

If max < A(i, j) Then

max = A(i, j)

'**********FOUND**********

row = j

End If

'**********FOUND**********

col = i

Next j

Next i

Print

Print "该矩阵元素的最大值:"; max

Print "最大值所在的行:"; row; "所在的列:"; col

End Sub

答案：

1). max = A(1, 1)

2). col = j

3). row = i

四、程序设计

1.编写函数fun其功能是：根据整型形参m，计算如下公式的值：y=1/2!＋1/4!＋...＋1/m! (m是偶数)

答案：

Dim i As Integer, j As Integer, t As Integer

fun = 0

For i = 2 To m Step 2

t = 1

For j = 1 To i

t = t * j

Next

fun = fun + 1 / t

Next

解析：

2.单击窗体时，输出所有的三位数，它满足该数中有某两位为相同的数，且该数是一个完全

平方数。

答案：----------------------

dim a as integer,b as integer

dim b3 as integer,b2 as integer,b1 as integer

for a=10 to 31

b=a*a

b3=b\100

b2=(b\10) mod 10

b1=b mod 10

if b1=b2 or b1=b3 or b2=b3 then

print a,b

end if

next a

----------------------

解析：规定

5.求数列sum=1+3+9+27++…3(n-1)…前6项的和，并将结果输出到窗体上。

答案：

Dim i As Integer

Dim j(1 To 6) As Integer

Sum=0

For i = 1 To 6

If i < 3 Then

j(i) = 3 ^ (i - 1)

End If

sum = sum + j(i)

Next

Print sum

解析：规定