VB第五章

一、选择题。

1、在程序中添加一个命令按钮，并编写如下代码：

Private Sub Command1_Click()

X=”12.34”:y=”56.78”

Z=x+y

P=val(Z)

Print P

End Sub

运行后，单击命令按钮后的输出结果为（）

A、12.34

B、56.78

C、69.12

D、

2、在VB中，表达式X=8的类型是（）

A、错误的表达式

B、关系表达式

C、算术表达式D逻辑表达式

3、下列表达式中，非法的表达式为（）

A、x=x+y

B、x+y>z

C、x=(x+y) D以上均为合法

4、数学式子sin30o写成VB表达式为（）

A、sin30

B、sin(30)

C、sin(300)

D、sin(30/180*3.14)

5、用于获得字符串S最右边4个字符的函数是（）

A、Ringht(s,4)

B、Left(s,4)

C、RinghtStr(s)

D、RinghtStr()

6、用于获得字符串S从第6个字符形始的4个字符的函数是（）

A、Mid(s,6,4)

B、Mid(s,4,6)

C、MidStr(s,4,6)

D、MidStr(s,4,6)

7、用于得到字符串长度的函数是（）

A、Len()

B、Lenth()

C、StrLen()

D、StrLenth()

8、用于获得字符串S左边4个字符的函数是（）

A、Left(s,4)

B、Left(1,4)

C、LeftStr(s,4)

D、Ringht (s,4)

9、达式4+5\6*7 mod 8/9的值是（）

A、5

B、7

C、4

D、9

10、Int(Rnd *100)表示的是（）范围的整数。

A、［0，100］

B、［1，99］

C、［0，99］

D、［1，100］

11、表达式16/4—2^5*8/4 mod 5\2的值为（）

A、14

B、4

C、20

D、2

12、数学关系式3≤x<10表示成正确的VB表达式为（）

A、3<=x<10

B、3<=x and X<10

C、3<=x or X<10

D、3<=x and <10

13、/、\、mod、*运算符中，优先级最低的是（）

A、/

B、\

C、mod

D、*

14、Rnd 函数的值不可能为（）

A、0

B、1

C、0.1234

D、0.0005

15、int(198.555*100+0.5)/100的值为（）

A、198

B、199.6

C、198.56

D、200

16、已知A$=“1234567”，则表达式Val(left(a$,4)+mid(a$,4,2))的值为（）

A、123456

B、123445

C、8

D、6

17、print DateAdd(“m”,1,#1/13/2000#)的结果是（）

A、00-2-29

B、00-2-28

C、00-2-30

D、00-1-31

18、表达式DateDiff(“yyyy”,#12/30/1999#,#1/13/2000#)的结果是（）

19、表达式Len(“123程序设计ABC”)的值是（）

A、10

B、14

C、20

D、17

20、表达式LenB(“123程序设计ABC”)的值是（）

A、10

B、14

C、20

D、17

21、在Visual Basic 中，下列( )函数的值只为1，0，-1。

A、INT(X)

B、AbS(X)

C、SQR(X)

D、SGN(X)

22、表达式25.28 Mod 6.99的值是（）

A、1

B、5

C、4

D、出错

23、下列逻辑运算结果为"true"的是

A、flase or not true

B、flase and not true

C、true or not true

D、true and not true

24、强制显示声明变量，在窗体模块或标准模块的声明段中加入语句（）

A、Option Base 0

B、Option Explicit

C、Option Base 1

D、Option Compare

25、代数式x1 - | a | + ln10 + sin(x2 + 2л) / cos(57 o)对应的VB表达式是（）

A、X1 - Abs(A) + Log(10) + Sin(X2+2*3.14) / Cos(57*3.14/180)

B、X1 - Abs(A) + Log(10) + Sin(X2+2*л) / Cos(57*3.14/180)

C、X1 - Abs(A) + Log(10) + Sin(X2+2*3.14) / Cos(57)

D、X1 - Abs(A) + Log(10) + Sin(X2+2*л) / Cos(57)

26、代数式exSin(30)2x/(x+y)lnx对应的VB表达式是( )

A、E^X*Sin(30*3.14/180)*2*x/x+y*log(x)

B、Exp(x)*Sin(30)*2*x/(x+y)*ln(x)

C、Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)

D、Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)

27、表达式X+1>X and X>Y是( )

A、算术表达式

B、非法表达式

C、逻辑表达式

D、关系表达式

28、如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是

A、0.01*int(x+0.05)

B、0.01*int(100*(x+0.005))

C、0.01*int(100*(x+0.05))

D、0.01*int(x+0.005)

29、下列程序段输出的结果为（）

a=10:b=10000:x=log(b)/log(a):print “lg(10000)=”:x

A、lg(10000)=5

B、lg(10000)=4

C、4

D、5

30、表达式Right(String(65,Asc(“abc”)),3)的值是()

A、abc

B、ABC

C、aaa

D、AAA

31、与数学表达式ab/3cd对应，不正确的表达式为()

A、a*b/(3*c*d)

B、a/3*b/c/d

C、a*b/3/c/d

D、a*b/3*c*d

32、设有如下声明：Aim x As Integer,如果Sgn（x）的值为-1，则x的值为（）

A、整数

B、大于0的数

C、小于0的数

D、等于0的数

33、产生[5,46]之间的随机整数的VB表达式为（）

A、Int(Rnd (1) *42)+6

B、Int(Rnd (1) *42)+5

C、Int(Rnd (1)3)+6、Int(Rnd (1) *41)+5

34、设a=”Visual Basic”,下面使b=” Basic”的语句是（）

A、b=Left(a,9,5)

B、b=Right(a,5,5)

C、mid(a,8,5)

D、instr(a,8)

35、表达式Int(-17.8)+Sgn(17.8)的值是（）

36、表达式Val(.123e2cd)的值是（）

A、123

B、0

C、12300

D、123e2cd

37、以下关系表达式中，其值为False的是（）

A、”ABC”>”Abc”

B、”the”<>”they”

C、”VISUAL”=Ucase(“visual”)

D、“Integer”>”Int”

38、表达式Str(Len(“1234”))+Str(5.9)的值为（）

A、45.9

B、4 5.9

C、12345.9

D、1234 5.9

39、如果x是一个正实数，对X的第三位四舍五入的表达式是（）

A、0.01*Int（x+0.05）

B、0.01*Int(100*（x+0.005）)

C、0.01*Int(100*（x+0.05）)

D、0.01*Int(x+0.005）)

40、函数String(n,”str”)的功能是（）

A、把数值型数据转换为字符串

B、返回由n个字符组成的字符串

C、从字符串中取出n个字符

D、从字符串中第n个字符开始取子串

41、在窗体上画一个文本框，然后编写如下事件过程：

Print Sub Form_Click()

X=InpruBox(“输入一个整数”)

Print X+Text1.Text

End Sub

程序运行时，在文本框中输入了456，然后单击窗体，在输入对话框中输入123，单击确定后，窗体上显示的内容是（）

A、123

B、456

C、579

D、123456

42、执行下列程序后，变量变量c$的值为（）

a$=”Good”: b$=”Bye”:c$=a$+Lcase(b$)

A、goodbye

B、Goodbye

C、goodBye

D、GoodBYE

43、Print Sgn(-6^2)的输出结果为（）

A、1

B、36

C、-1

D、-36

44、设A=“12345678”，则表达式Val(Left(a,4)+Mid(a,4,2))的值为（）

A、123456

B、123445

C、8

D、6

45、下面程序段输出的结果是（）

X=10:Y=20

Print X;”+”;Y;”=”;

Print X+Y

A、X+Y=30

B、10+20= 30 C 、30 D、10+20=30

46、若要处理一个值为50000的整数，应采用哪种VB的基本数据类型描述（）

A、Integer

B、Long

C、Single

D、String

二、填空题。

1、整型变量X中存放了一个二位数，要将二位数交换位置，例如，13变31，实现的表达式为（）

2、数学表达式sin15o +lg(3x)的VB表达式为（）。

3、表示X是5的倍数或是9的倍数的逻辑表达式为（）。

4、已知a=3.5,b=5.0,c=2.5,d=true则表达式a>=0 and a+c>b+3 or not d的值是（）。

5、表达式Ucase(Mid(“abcdefgh”,3,4))的值是（）。

6、计算离你毕业还有多少个星期的函数表达式为（）。

7、Mid(“什么是ASCII 编码”，5，6)的结果是（

）。 8、数学表达式)3ln(|

|15sin 3

x y x e x --++ 的VB 算术表达式为( )。 9、表达式abs(sgn(int(3*6-8.4*10)-3)+3)-3)的值是( )。

10、将45.714四舍五入保留二位小数的VB 表达式为( )。

11、ABS （—34）＝（ ），函数值类型为（ ）

1２、Sgn(0)=( )、Sgn （23.5）=（ ）、Sgn （—23）=（ ），这三个函数值类型为（ ）

13、Sqr （25）=（ ），函数值类型为（ ）

14、Exp(0)=( ), 函数值类型为（ ）Log(1)=(

), 函数值类型为（ ）,

写出对数的换底公式（ ）。

15、在Basic 中三角函数主要有（ ）、（ ）、（

）、（ ）,

其中要求参数必须为（ ）值。

16、Int(2.6)=( ), 函数值类型为（ ）,

Int(—2.6)=（ ），函数值类型为（ ）。

Fix(—2.6)=（ ）, 函数值类型为（ ）

Fix(—2.6)=（ ）, 函数值类型为（ ）。

17、Dim a As Variant

a=10

则IsNumeric(a)=( )

a=”10”

则IsNumeric(a)=( )

18、 Dim a, b

a=10 : b=7.5

则，VarType(a)=( ) ,VarType(b)=( ) ,

函数值类型为（ ）。

TypeName(a)=( ), TypeName(b)=( ),

函数值类型为（ ）。

19、Asc(“ABC ”)=( ), Asc(“aBC ”)=( ), Asc(“123”)=(

)。 Chr(70)=( ), Chr(102)=( )。

20、Str(12345)=( ), Str(—12345)=( ),

函数值类型为（ ）

21、Val(“12345abc ”)=( ), Val(“12d3abc ”)=( )，

函数值类型为（ ）

22、Len(“GoodMorning ”)=( ),

LenB(“GoodMorning ”)=( ),

Len(“字符串”)=( ),

LenB(“字符串”)=( )。

这个函数的函数值类型为（ ）

23、Ucase(“GoodMorning ”)=( ),

Lcase(“GoodMorning ”)=( )。

24、Len(Space(5.6))=( ),Len(Space(4.5))=( ),

Len(Space(4.53))=( )。

25、String(6,”Abc”)=( ), String(4,73)=( ).。

26、Left(“Computer”,10)=( ),

Left(“Computer”,4)=( )，

Left(“Computer”,0)=( )。

27、Rignt(“Computer”,0)=( ),

Rignt(“Computer”,10)=( ),

Rignt(“Computer”,4)=( ).

28、Mid(“Computer”,2,3)=（）,

Mid(“Computer”,2)=（）。

29、删除字符串尾随空格和前导空格的函数是（）、删除字符串尾随空格函数是（）、删除字符串前导空格的函数是（）。

30、StrComp(“basic”,”BASIC”,1)=( )

StrComp(“basic”,”BASIC”,0)=( )

StrComp(”BASIC”, “basic”,0)=( )。

31、假如当前日期是1999年8月30日下午2点28分25秒，则下列函数的值为:

Now=( ),

Date=( ),

Time=( )

32、执行下列命令后：Dim a As Date

a = #8/30/1999 2:25:35 PM#

则：Year(a)=( ),Day(a)=( ),

Month(a)=( ),Hour(a)=( ),

Minute(a)=( ),Second(a)=( )。

假设这一天是星期五，则，WeekDay(a)=( )。

33、将表格填充完整。

34、执行下列命令后：Dim a As Date

a= #8/30/1999 2:25:35 PM#

b=#8/30/2003 3:35:00AM#

则：DateAdd(“m”,2,a)=( ),

DateAdd(“ww”,2,b)=( ),

DateDiff(“yyyy”,a,b)=( ),

DateDiff(“m”,b,a)=( ).

IsDate(a)=( ),

IsDate(1977—8—30)=( ),

IsDate( “1977—8—30”)=( ),

35、使用（）语句可以改变随机数发生器，如果要随机产生（10，100）之间的整数，应使用的表达式为（）

36、写出运行结果：

Private Sub Command_Click()

Dim a As Integer , b AS Single , c As Long

a=10.5 : b=3.63 : c=0

Print CCur(b),CDate=(a),CBool(a),Cbool(c)

Print CLng(b),TypeName(CVar(b)),TypeName(CDbl(a))

End Sub

运行结果：

37、描述“X是小于100的非负整数”的VB表达式为（）

38、在一个表达式中含有逻辑、关系、算术三种运算，由高至低的优先顺序是( )。

第五章 VB中的数组

第五章VB中的数组 5.1数组的概念 1．引例 求100个学生的平均成绩及超过平均成绩的人数。 如果用一般变量来表示成绩，需要用100个变量，如：mark1、mary2、……mark100。若用数组，可以只用一个来表示mark（1 To100）。 2．基本概念 数组：是同类型变量的一个有序的集合。 如：A（1 To 100），表示一个包含100个数组元素的名为A的数组。 数组元素：即数组中的变量。用下标表示数组中的各个元素。 表示方法：数组名（P1，P2，……） 其中P1、P2表示元素在数组中的排列位置，称为“下标”。 如：A（3，2）代表二维数组A中第3行第2列上的那个元素。 数组维数：由数组元素中下标的个数决定，一个下标表示一维数组，二个下标表示二维数组。 VB中有一维数组、二维数组、……最多60维数组。 下标：下标表示顺序号，每个数组有一个唯一的顺序号，下标不能超过数组声明时的上、下界范围。下标可以是整型的常数、变量、表达式，甚至又是一个数组元素。 下标的取值范围是：下界To 上界，缺省下界时，系统默认取0。 3．数组声明 数组必须先声明后使用。声明数组就是让系统在内存中分配一个连续的区域，用来存储数组元素。 声明内容：数组名、类型、维数、数组大小。 一般情况下，数组中各元素类型必须相同，但若数组为Variant时，可包含不同类型的数据。 静态数组：声明时确定了大小的数组。 动态数组：声明时没有给定数组大小（省略了括号中的下标），使用时需要用ReDim语句重新指出其大小。

使用动态数组的优点是根据用户需要，有效地利用存储空间，它是在程序执行到ReDim语句时才分配存储单元，而静态数组是在程序编译时分配存储单元。 5.2静态数组及声明 1．一维数组 静态一维数组的声明形式： Dim数组名（下标）[As类型] 说明：（1）下标必须为常数，不可以为表达式或变量； （2）下标下界最小为-32768，最大上界为32767；省略下界，其默认值为为0，一维数组的大小为：上界-下界+1 （3）如果省略类型，则为变体型 例：（1）Dim A（10）As Integer 声明了A是数组名、整型、一维数组、有11个元素，下标的范围是0～10。 （2）Dim B（-3 To 5）As String*3 声明了B是数组名、字符串型、一维数组、有9个元素，下标的范围是-3～5，每个元素最多存放3个字符。 2．多维数组 静态多维数组的声明形式： Dim数组名（下标1[，下标2…]）[As类型] 说明：（1）下标个数决定数组的维数，最多60维。 （2）每一维的大小=上界-下界+1；数组的大小=每一维大小的乘积。 例：Dim C（-1 To 5，4）As Long 声明了C是数组名、长整型、二维数组、第一维下标范围为-1～5，第二维下标的范围是0～4，占据7x 5个长整型变量的空间。 3．注意事项 （1）在有些语言中，下界一般从1开始，为了便于使用，在VB的窗体层或标准模块层用Option Base n语句可重新设定数组的下界，如Option Base 1。 （2）在数组声明中的下标关系到每一维的大小，是数组说明符，而在程序其他地方出现的下标为数组元素，两者写法相同，但意义不同。 （3）在数组声明时的下标只能是常数，而在其他地方出现的数组元素的下标可以是变量。 5.3动态数组及声明 1．动态数组的建立与声明 建立动态数组的方法是：利用Dim、Private、Public语句声明括号内为空的数组，然后在过程中用ReDim语句指明该数组的大小。语法是： ReDim数组名（下标1[，下标2…]）[As类型] 其中下标可以是常量，也可以是有了确定值的变量，类型可以省略，若不省略，必须与Dim 中的声明语句保持一致。

VB第五章测试题

. 单选题：（4.0分） 有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 假设运行时从键盘上输入-5，输出结果是_______。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答：A 参考答案： A 2. 单选题：（4.0分） 下列程序段的执行结果是_______。 X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 A. True B. False

C. -1 D. 1 解答：B 参考答案： B 3. 单选题：（2.0分） 关于语句If x=1 Then y=1，下列说法正确的是_______。 A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D. x=1为赋值语句，y=1为关系表达式 解答：C 参考答案： C 4. 单选题：（2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。 A. Case 20>Is B. Case x<=8 ，10 to 25 C. Case Is>9 And Is<25 D. Case Is>x 解答：D 参考答案： D 5. 单选题：（4.0分） 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

【测试】分支循环测试作业(VB第五章测试题)

我的试卷 测试得分： 88.0 分 1. 单选题：（4.0分） 有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 假设运行时从键盘上输入-5，输出结果是_______。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答：A 参考答案： A 2. 单选题：（4.0分） 下列程序段的执行结果是_______。 X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 A. True

B. False C. -1 D. 1 解答：B 参考答案： B 3. 单选题：（2.0分） 关于语句If x=1 Then y=1，下列说法正确的是_______。 A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D. x=1为赋值语句，y=1为关系表达式 解答：C 参考答案： C 4. 单选题：（2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。 A. Case 20>Is B. Case x<=8 ，10 to 25 C. Case Is>9 And Is<25 D. Case Is>x 解答：D 参考答案： D 5. 单选题：（4.0分）

VB第五章 窗体和控件

图片框与图像框 图片框控件（PictureBox）和图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。VB支 持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的图形文件。 一、图片框、图像框的常用属性 1．Picture属性 图片框和图像框中显示的图片由Picture属性决定。图形文件可以在设计阶段装入，也可以在运行期间装入。（1）在设计阶段装入 在设计阶段，可以用属性窗口中的Picture 属性装入图形文件。 （2）在运行期间装入 在运行期间，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下： 对象名.Picture=LoadPicture（文件名）2．AutoSize 属性 该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）2．CurrentX和CurrentY属性 [对象].CurrentX[=X] [对象].CurrentY[=Y] “对象”可以是窗体,图片框和打印机,确省是以twip为单位.如果省略”=X”或”=Y”则显示当前的坐标值;如省略对象,则是当前窗体. 3．stretch 属性 用于图像框。当该属性的取值为False时，图像控件将自动改

变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。 4、Autosize 用于图片框。当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。 二、图片框、图像框的事件和方法 图片框的图像框可以接收click和dbclick事件，可以在图片框中使用cls（清屏）和print方法。 三、图片框、图像框的区别 （1）图片框中可以包含其它控件，而其它控件不能“属于”一个图像框。 （2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。 （3）图像框比图片框占用的内存少，显示速度快。 【例】编写程序，交换两个图片框中的图形。 首先在窗体上建立3个图片框（并在picture1、picture2中装入图形），其中两个在上，一个在下。 程序代码如下： Private Sub Form_click() Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture Picture3.Picture = LoadPicture() End Sub 选项钮和复选框

VB知识点总结

VB知识点总结 目录 1 第一章知识点 (2) 2 第二章知识点 (2) 3 第三章知识点 (3) 4 第四章知识点 (7) 5 第五章知识点 (8) 6 第六章知识点 (8) 7 第七章知识点 (10) 8 第八章知识点 (12)

（1）VB的语言特点 可视化开发环境：界面设计所见所得；面向对象程序设计：程序和数据封装作为一个对象，在工具箱里面的都是一个一个的类，比如commandbutton类，当你把它从工具箱拖出来已经，它就被实例化成了一个对象，名称叫command1，如果你拖了2个command，就是2个不同的对象；事件驱动编程：VB程序没有明显的入口和出口，都在等待用户或者系统或者代码触发某个事件，然后执行事件对应的任务 （2）VB的工作模式 设计模式，运行模式，中断模式；程序在运行模式是没有办法修改代码和设计界面窗口的。 （3）VB的文件类型 窗体文件frm；程序模块文件bas；类模块文件cls；工程文件vbp；工程组文件vbg；资源文件res；保存工程的时候应该同时保存工程文件vbp和窗体文件frm。 （4）VB的窗口 任何的窗口被关闭了找不到了，都应该在视图菜单下面来寻找，工具箱窗口，代码窗口，窗体布局窗口，立即窗口（可以在中断模式下查询程序运行对象值，ctrl+G打开立即窗口） 2 第二章知识点 （1）面向对象的基本概念 类：具有类似属性和方法的对象的抽象，比如大学；对象：类实例化就成为一个对象，每个对象都具有自己的属性和方法，比如西南财经大学天府学院。属性：对象的静态特征，最重要的属性是name，在VB里面对象的name是不能省略的，而且在程序运行的过程中是不能修改的；事件：人或者系统对对象的作用，对象是被动者，比如load，unload，timer；click等；方法：对象发出的行为，对手是主动者，比如move，show，hide等。 （2）VB的开发流程 第一步分析后画流程图 第二步界面设计 第三步编写代码 第四步测试运行

计算机VB二级答案第五章(答案完整)

设计题No . 1 No . 2 No . 3 No . 4

步骤一：设计窗体如图所示，窗体的Caption属性值修改为“课程选择“ 步骤二：添加一列表框控件，打开属性窗口，为其List属性输入四个题目要求的选项。 步骤三：设置列表框控件的Style属性值为1－checkBox （注：让选项以复选框显示） No . 5 在窗体上添加一个列表框，修改其属性：name(名字)设置为MyList ，设置其Left属性为700，Top属性值为100 ；在其List属性中添加数据项“篮球”，“唱歌”，“旅游”，“阅读”，,修改其MultiSelect属性值为2－Extended使得列表框可以多选 No . 6 窗体的Caption属性设置为”课程” 组合框Style属性设置为1-SimpleCombo，List属性中根据要求添加选项，Text属性中输入“课程”

No . 7 1.在窗体添加一个标签，修改其名称属性为L1，修改其Caption属性为“水平滚动条”，修改Alignment 属性为2，修改Font属性为四号 2.在窗体上添加一个水平滚动条，修改其名称属性为HS1，修改其Min属性为0，修改Max属性为80， 修改其Value属性为40 No . 8 在窗体上添加一图像框控件image，在属性窗口中，修改图像框控件的名字(名称属性)为Img，在属性窗口中修改图像框Img的Picture属性为“K:\fjexam95\Athena.bmp”,在属性窗口中修改图像框Img的Stretch属性的值为True No . 9 图像框控件(image)，修改名称属性为Img，Picture属性为K:\fjexam95\Artist.gif，设置Stretch属性为True No . 10

VB课本习题答案第五章

第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（ Dim s(1 To 10) As String ）。 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（ Dim a(0 To 5,-3 To 6) As Integer ）。 3．如果数组元素的下标值为实数，则VB系统会按（四舍五入原则）进行处理。 4．数组元素个数可以改变的数组称为（可调数组）；数组元素可以存放不同类型数据的数组称为（可变类型数组）。 5．数组刷新语句用于（清除指定数组内容）。若被刷新的数组是数值数组，则把所有元素置（０）；若被刷新的数组为字符串数组，则把所有元素置（空字符串）。 6．设有表格控件grd1，若设置grd1的第2行第5列的单元格为当前活动单元格，使用的语句为（grd1. Row =2 ）和（grd1.Col=5 ）。 7．要使表格控件grd1的当前活动单元格显示字符串“姓名”，使用的语句是（grd1.Text=“姓名”）。 8．建立一个具有10行10列的表格控件grd2，需使用的语句为（grd2. Row =10 ）和（grd2.Col=10 ）。 9．在程序的运行中，对表格控件grd1的某些列的数据按降序并且区分大小写排序，使用的语句是（grd1.Sort=8 ）。 10．控件数组是由一组类型和（名字）相同的控件组成，共享（同一个事件过程）。 11．控件数组中的每一个控件都有惟一的下标，下标值由（ Index ）属性指定。 12．建立控件数组有两种方法：（在设计阶段通过相同Name属性值来建立）和（在程序代码中使用Load方法）。 5．2 选择题 1．下列一维数组说明语句错误的是（ d ）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（ d ）。 a) 5 b) 8 c) 11 d) 12 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（ c ）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 4.下列数组说明语句中正确的是（ a ）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double 5．设有数组说明语句：Dim b（-１To２，-２To２），则数组b中元素的个数是（ d ）。 a) 12 b) 15 c) 16 d) 20 6．设有数组说明语句：Dim c（-１To 2，１To５），则下列表示数组c的元素选项中（ c ）是正确的。 a) c(i+j) b) c(i)(j) c) c(i+1,i-1) d) c(1,0) 7．若有数组说明语句：Dim a()AS Integer，则a被定义为（ b ）。 a)定长数组 b)可调数组 c)静态数组d)可变类型数组

第五章VB中的数组

第五章VB 中的数组 5.1 数组的概念 1．引例 求100 个学生的平均成绩及超过平均成绩的人数。 如果用一般变量来表示成绩，需要用100个变量，如：markl、mary2、marklOO。若用 数组，可以只用一个来表示mark(1 To 100)。 2．基本概念 数组：是同类型变量的一个有序的集合。 女口：A ( 1 To 100 )，表示一个包含100个数组元素的名为A的数组。 数组元素：即数组中的变量。用下标表示数组中的各个元素。 表示方法：数组名(P1, P2,……) 其中P1、P2 表示元素在数组中的排列位置，称为“下标”。 如：A(3，2)代表二维数组 A 中第3行第2列上的那个元素。 数组维数：由数组元素中下标的个数决定，一个下标表示一维数组，二个下标表示二维数组。 VB中有一维数组、二维数组、……最多60维数组。 下标：下标表示顺序号，每个数组有一个唯一的顺序号，下标不能超过数组声明时的上、下界范围。下标可以是整型的常数、变量、表达式，甚至又是一个数组元素。 下标的取值范围是：下界To 上界，缺省下界时，系统默认取0。 3．数组声明 数组必须先声明后使用。声明数组就是让系统在内存中分配一个连续的区域，用来存储数组元素。 声明内容：数组名、类型、维数、数组大小。 一般情况下，数组中各元素类型必须相同，但若数组为Variant 时，可包含不同类型的数据。 静态数组：声明时确定了大小的数组。 ReDim 语句动态数组：声明时没有给定数组大小（省略了括号中的下标），使用时需要用重新指 出其大小。

使用动态数组的优点是根据用户需要，有效地利用存储空间，它是在程序执行到ReDim 语句时才分配存储单元，而静态数组是在程序编译时分配存储单元。 5.2 静态数组及声明 1．一维数组 静态一维数组的声明形式： Dim 数组名（下标）[As 类型] 说明：（1）下标必须为常数，不可以为表达式或变量； （2）下标下界最小为-32768，最大上界为32767；省略下界，其默认值为为0，一维数 组的大小为：上界-下界+1 （3）如果省略类型，则为变体型 例：（1）Dim A（10）As Integer 声明了A是数组名、整型、一维数组、有11个元素，下标的范围是0?10。 （2）Dim B（-3 To 5）As String*3 声明了B是数组名、字符串型、一维数组、有9个元素，下标的范围是-3?5,每个 元素最多存放3 个字符。 2．多维数组 静态多维数组的声明形式： Dim 数组名（下标1[,下标2…]）[As类型] 说明：（1）下标个数决定数组的维数，最多60 维。 （2）每一维的大小=上界-下界+1；数组的大小=每一维大小的乘积。 例：Dim C（-1 To 5 ，4）As Long 声明了C是数组名、长整型、二维数组、第一维下标范围为-1?5,第二维下标的范围是 0?4，占据7x 5 个长整型变量的空间。 3．注意事项 （1）在有些语言中，下界一般从1 开始，为了便于使用，在VB 的窗体层或标准模块层用Option Base n 语句可重新设定数组的下界，如Option Base 1 。 （2）在数组声明中的下标关系到每一维的大小，是数组说明符，而在程序其他地方出现的下标为数组元素，两者写法相同，但意义不同。 （3）在数组声明时的下标只能是常数，而在其他地方出现的数组元素的下标可以是变量。

计算机二级VB第5章选择题及答案

1、为了把焦点移到某个指定的控件，所使用的方法是（）。A 、Setfocus B 、Visible C 、Refresh D 、Getfocus 2、对文本框text1编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As String b =Chr(KeyAscii)KeyAscii =Asc(UCase(b))End Sub 运行时，下列叙述中，正确的是（）。 A 、Text1中无法输入字符 B 、Text1中内容为“b ” C 、Text1中输入的字符都变为大写 D 、Text1中输入的字符都被转换成ASCII 码 3、为了暂时关闭计时器，应把该计时器的（）属性设置为False 。A 、Visible B 、Timer C 、Enabled D 、Interval 4、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程；Private Sub Form_Load()List1.Additem”357”List1.Additem”246”List1.Additem”123”List1.Additem”456”Text1.Text=””End Sub Private Sub List1_Dblclick()A =List1.Text Print A +Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为（）。A 、1245B 、456789C 、789456D 、0 5、假设时钟控件的Interval 属性为1000，Enabled 属性为True ，则下列事件过程每隔一秒计算机将发出（）次Beep 铃声。 Private Sub Timer1_Timer()For I=1to 10Beep Next End Sub A 、1000B 、10C 、100D 、10000 6、设置图片框的（）使其按图片尺寸自动调整大小。A 、AutoSize 属性为True B 、AutoSize 属性为False C 、Stretch 属性为True D 、Stretch 属性为False 7、下列叙述中正确的是（）。

vb第四章第五章基础考试题

第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_ ________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____ ________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是___________ ____。 7、VB中的每个对象(控件)都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计(Design)模式、_____________和中断(Break)模式。 二、选择题

1、以下能够触发文本框Change事件的操作是( ) A.文本框失去焦点 B.文本框获得焦点 C.设置文本框的焦点 D.改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是( ) A.只保存窗体文件即可 B.只保存工程文件即可 C.先保存工程文件，之后保存窗体文件 D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件 3、VB应用程序的运行模式是( ) A.解释运行模式 B.编译运行模式 C.两者都有 D.汇编模式 4、任何控件都具有的属性是( ) A.TEXT B.CAPTION https://www.wendangku.net/doc/bf3995445.html, D.FORECOLOR 5、决定控件上文字的字体、字形、大小及效果的属性是( ) A.TEXT B.CAPTION https://www.wendangku.net/doc/bf3995445.html, D.FONT 6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的( )设置为0 A.INDEX B.TABINDEX C.TABSTOP D.ENABLED

《VB程序设计》第五章第五节 递归过程

《VB程序设计》第五章第五节递归过程 第五节递归过程 Sub过程可以是递归的，递归调用是指在过程中直接或间接地调用过程本身。 例如： Private Funion FNC(x As Integer) …… Dim y As Integer,z As Single Z=FNC(y As Integer) …… End Function 在函数FNC的过程中，要调用FNC函数本身。 递归是一种十分有用的程序设计技术，很多数学模型和算法设计本身就是递归的。因此用递归过程描述它们比用非递归方法要简洁，可读性好，可理解性好。 从上例中看到，在函数FNC中调用函数FNC本身，似乎是无终止的自身调用，显然程序不应该有无终止的调用，而只应该出现有限次数的递归调用。因此应该用If语句（条件语句）来控制终止的条件（称为边界条件或结束条件），只有在某一条件成立时才继续执行递归调用，否则不再继续。若一个递归过程无边界条件，则是一个无穷的递归过程。 在编写递归程序时应考虑两个方面：这就是递归的形式和递归的结束条件。如果没有递归的形式就不可能通过不断的递归来接近目标；如果没有递归的结束条件，递归就不会结束。 [例Ex_MuiNl]用递归的方法计算n!，即5！=4！*5，4！=3！*4，…。 根据阶乘得出表达式：n!=1*2*3*…*(n-1)*n,但这不是递归的形式，因此需要对它进行改造如下： n!=n*(n-1)! (n-1)!=(n-1)*(n-2)！ …… n=1时，n!=1 于是得出下面的递归公式：

递归的结束条件为：n=1时，n!=1。 程序代码如下，Muln函数过程就是递归求解函数： Private Function Muln(n As Integer) As Integer If n=0 or n=1 Then ′结束条件n=0或n=l Muln=1 Else Muln=Muln(n-1)*n End if End Function Private Sub Form_Click() Dim M As Integer, I As Integer I=InputBox(″请输入一个正整数″) M=Muln((i) Print I; "!="; M End Sub 递归求解的过程分成两个阶段：第一阶段是“回推”，第二阶段是“递推”。 在回推阶段，每一步都是未知的，即求Muln(5)必须先得出Muln(4)*5的值，而Muln(4)的值又必须得出Muln(3)*4的值，…直到推到Muln(1)为止。前面的都是执行Muln函数的Else语句，当n=1时才满足If条件。 递推阶段： 递推阶段是根据Muln(1)的值得出，Muln(2)：Muln(1)*2，一直到得出Muln(5)为止。因此，递推执行“Muln：1”将函数值返回到调用函数，计算出Muln(2)再返回，直到Muln(5)。 [例Ex_Fibonacci2] 用递归的方法求Fibonacci数列第n个数的值，Fibonacci数列各元素关系如下： F1=1 F2=1 Fn=Fn-1+Fn-2 已知Fn=Fn-1+Fn-2因此可以推出： Fib(n-1)=Fib(n-2)十Fib(n-3) Fib(n-2)=Fib(n-3)十Fib(n-4) …… 得出下面的递归关系和终止条件：

VB单选题(第5章)

315 用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是(). A) 6 B) 7 C) 8 D) 9 答案 D 316 若有数组说明语句为:Dim a(-3 to 8),则数组a包含元素的个数是(). A) 5 B) 8 C) 11 D) 12 答案 D 317 以下属于合法的数组元素是(). A) x8 B) x[A] C) x(3) D) x{6} 答案 C 318 若有数组说明语句为:Dim a(10),则数组a包含元素的个数是(). A) 10 B) 11 C) 8 D) 12 答案 B 319 如果TAB函数的参数小于1,则打印位置在第()列. A) 0 B) 1 C) 2 D) 3 答案 B 320 为了防止用户随意将光标置于控件上,应(). A) 将控件的TABINDEX属性设置为0 B) 将控件的TABSTOP属性设置为TRUE C) 将控件的TABSTOP属性设置为FALSE D) 将控件的ENABLED属性设置为FALSE 答案 D 321 如果要设置窗体的标题栏,应选择以下那种属性(). A) Name B) Caption C) Tips D) Text 答案 B 322 可以惟一标识控件数组中的每一个控件属性的是 A) Name B) Caption C) Index D) Enabled 答案 C 323 有以下的语句: Option Base 1 Dim xscj(3,4,5) As String 声明的数组xscj有个数组元素. A) 120

B) 20 C) 12 D) 60 答案 D 324 下面程序段输出的结果是 Private Sub Command1_Click() Dim a(1 To 3, 4) As Integer Print LBound(a, 1), UBound(a, 1), LBound(a, 2), UBound(a, 2) End Sub A) 1 3 0 4 B) 0 3 1 4 C) 1 3 1 4 D) 0 3 0 4 答案 A 325 设执行以下程序段时依次输入11、33、55,执行结果为 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox("请输入数据")) b(3 - K) = a(K + 1) Next K Print b(K) A) 11 B) 33 C) 55 D) 0 答案 A 326 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(1, 2, 3, 4, 5) Sum = 0 For i = 1 To 5 Sum = Sum + a(i) Next i x = Sum / 5 For i = 1 To 5 If a(i) > x Then Print a(i); Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是 A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5 答案 D 327 有以下程序: Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3

(整理)计算机二级VB第5章选择题及答案

1、 2、 11、为了把焦点移到某个指定的控件，所使用的方法是（）。 A、S etfocus B、V isible C、R efresh D、G etfocus 12、对文本框text1编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim b As String b = Chr(KeyAscii) KeyAscii = Asc(UCase(b)) End Sub 运行时，下列叙述中，正确的是（）。 A、T ext1中无法输入字符 B、T ext1中内容为“b” C、T ext1中输入的字符都变为大写 D、T ext1中输入的字符都被转换成ASCII码 13、为了暂时关闭计时器，应把该计时器的（）属性设置为False。 A、V isible B、T imer C、E nabled D、I nterval 14、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程； Private Sub Form_Load() List1.Additem” 357” List1.Additem”246” List1.Additem” 123” List1.Additem” 456” Text1.Text=”” End Sub Private Sub List1_Dblclick() A = List1.Text Print A + Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为（）。 A、1245 B、456789 C、789456 D、0 15、假设时钟控件的Interval属性为1000，Enabled属性为True，则下列事件过程每隔一 秒计算机将发出（）次Beep铃声。 Private Sub Timer1_Timer() For I=1 to 10 Beep Next End Sub A、1000 B、10 C、100 D、10000 16、设置图片框的（）使其按图片尺寸自动调整大小。 A、A utoSize属性为True B、A utoSize属性为False