当前位置:文档之家› VisualBasic程序设计复习题定稿

VisualBasic程序设计复习题定稿

VisualBasic程序设计复习题定稿
VisualBasic程序设计复习题定稿

Visual Basic复习题

一、选择题

Basic的三种工作模式是【C】。

(A)编辑、运行、中断(B)编译、中断、设计

(C)运行、设计、中断(D)编辑、编译、运行

2. 如果要使窗体的最大化按钮变成暗灰色(不起作用),应设置窗体的【C】属性。

(A)Caption (B)Icon (C)MaxButton(D)MinButton

3. 在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示【B】事件过程模板。

(A)Form_Click(B)Form_Load(C)Form1_Click (D)Form1_Load

4.设在窗体上有两个命令按扭,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不

能是【C】。

(A)cmdc (B)cmdb(C)cmdA(D)Command1

5.以下可以作为Visual Basic变量名的是【C】。

(A)(B)π(C)F2A (D)2FA

6.假设某一工程文件的工程资源管理器窗口如图2-3所示,则该工程文件的磁盘文件名为【B】。

图2-3 某工程的工程资源管理器窗口

(A)工程(B)(C)(D)

7.假设某一工程文件的工程资源管理器窗口如图2-3所示,则窗体文件的磁盘文件名为【D】。

图2-3 某工程的工程资源管理器窗口

(A)工程(B)(C)(D)

8.假设某一工程文件的工程资源管理器窗口如图2-3所示,则标准模块文件的磁盘文件名为【D】。

图2-3 某工程的工程资源管理器窗口

(A)工程(B)(C)(D)

9. Visual Basic程序设计语言属于【C】。

(A)面向过程的语言(B)面向问题的语言

(C)面向对象的语言(D)面向机器的语言

10.当将窗体的【C】属性值设置为False时,将不显示窗体的控制菜单、最大化/最小化及关闭按钮。

(A)MaxButton (B)MinButton(C)ControlBox(D)WindowState

11.要在窗体上显示图片,需设置窗体的【C】属性。

(A)Caption (B)Icon (C)Picture(D)ControlBox

12.如果设计时在属性窗口将命令按钮的【B】属性设置为False,则运行时按钮不起作用。

(A)Visible(B)Enabled(C)DisabledPicture (D)Default

13.语句X=X+1的正确含义是【C】。

(A)变量X的值与X+1的值相等(B)将变量X的值存到X+1中去

(C)将变量X的值加1后赋给变量X(D)变量X的值为1

14.变量未赋值时,数值型变量的值为【A】。

(A)0(B)空串"" (C)Null (D)没任何值

15.显示如图4-1所示的输入框的语句是【A】。

(A)A = InputBox("请输入一个正整数", "示例", "1")

(B)A = InputBox("示例", "请输入一个正整数", "1")

(C)A = InputBox("1", "示例", "请输入一个正整数")

(D)A = InputBox("请输入一个正整数", "1", "示例")

图4-1 输入框(一)

16.将文本框的【A】属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行。

(A)MultiLine(B)ScrollBars (C)Text (D)Enabled

17.如果将文本框的【A】属性设置为True,则运行时不能对文本框中的内容进行编辑。

18.在设计阶段,当双击窗体上的某一个文本框控件时,系统将在代码窗口中显示该文本框控件的【C】事件过程模板。

(A)Click (B)DblClick(C)Change(D)GotFocus

19.下面程序段的功能是【D】。

A =

B = Int(A +

B

(A)求平均值(B)将一实数四舍五入取整

(C)求绝对值(D)舍去一实数的小数部分

20.以下【C】程序段可以实现X,Y变量值的交换。

(A)Y = X: X = Y (B)Z = X: Y = Z: X = Y

(C)Z = X: X = Y: Y = Z(D)Z = X: W = Y: Y = Z: X = Y

21.语句Print "Sgn(-26)="; Sgn(-26)的输出结果为【 C 】。

(A)Sgn(-26)=26 (B)Sgn(-26)=-26(C)Sgn(-26)=-1 (D)Sgn(-26)=1

22.下列程序段的执行结果为【B】。

X=:Z=3:K=5

Print "A(";X+Z*K;")"

(A)A( 17 ) (B)A( )(C)A( 18 ) (D)A( +3*5 )

23.下列程序段的执行结果为【A】。

X=0

Print X-1

X=3

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

24.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的【D】属性。

(A)BackColor (B)BorderStyle (C)ForeColor(D)BackStyle

25.下列叙述不正确的是【B】。

(A)注释语句是非执行语句,仅对程序的有关内容起注释作用,它不被解释和编译

(B)注释语句可以放在代码中的任何位置

(C)注释语句不能放在续行符的后面

(D)代码中加入注释语句的目的是提高程序的可读性

26.下列语句正确的是【D】。

(A)If A≥B Then T=A A=B B=T (B)If A≥B Then T=A;A=B;B=T

(C)If A>=B Then T=A A=B B=T(D)If A>=B Then T=A:A=B:B=T

27. 下列语句正确的是【A】。

(A)If X<3*Y And X>Y Then Y=X^3(B)If X<3*Y And X>Y Then Y=X3

(C)If X<3*Y:X>Y Then Y=X^3 (D)If X<3*Y And X>Y Then Y=X**3

28.关于语句If x = l Then y = 1,下列说法正确的是【C】。

(A)x=1和y=1均为赋值语句(B)x=1和y=1均为关系表达式

(C)x=1为关系表达式,y=1为赋值语句(D)x=1为赋值语句,y=1为关系表达式

29.下列程序段【D】能够正确实现条件:如果X

(A)If X

A=-15 A=-15: Print A

Print A

(C)If X

下面程序段中正确的是【 C 】。

31.下列程序段的执行结果为【 C 】。 X = 6

For K = 1 To 10 Step -2 X = X + K Next K Print K; X

(A )-1 6 (B )-1 16 (C ) 1 6 (D ) 11 31 32.下列程序段的执行结果为【 D 】。 X = 1 Y = 1

For I = 1 To 3 F = X + Y X = Y Y = F Print F; Next I

(A ) 2 3 6 (B )2 2 2 (C ) 2 3 4 (D ) 2 3 5 33.下列程序段的执行结果为【 C 】。 K = 0

For J = 1 To 2 y= (A )Select Case x Case x< 0 y = 0 Case x>=0 And x<1 y = 1 Case x>=1 And x<2 y = 2 Case Else y = 3 End Select (B )Select Case x Case x< 0 y = 0 Case x< 1 y = 1 Case x< 2 y = 2 Case Else y = 3 End Select (C )Select Case x

Case Is < 0

y = 0

Case Is < 1

y = 1

Case Is < 2

y = 2

Case Else

y = 3

End Select

(D )Select Case x Case Is < 0 y = 0 Case Is >= 0, Is < 1 y = 1 Case Is >= 1, Is < 2 y = 2 Case Is >= 2 y = 3 End Select

K = I + 1

Next I

For I = 1 To 7

K = K + 1

Next I

Next J

Print K

(A) 10 (B) 6 (C) 11(D) 16

34.下列程序段的执行结果为【C】。

For X = 5 To 1 Step -1

For Y = 1 To 6 - X

Print Tab(Y + 5); "*";

Next Y

Print

Next X

(A)***** (B)***** (C)* (D)*

**** **** ** ***

*** *** *** *****

** ** **** *******

* * ***** *********

35.用于设置粗体字的属性是【C】。

(A)FontName (B)FontSize(C)FontBold(D)FontItalic

36.用于设置斜体字的属性是【D】。

(A)FontName (B)FontSize (C)FontBold(D)FontItalic

37.用于设置删除线的属性是【A】。

(A)FontStrikethru(B)FontSize (C)FontBold (D)FontItalic

38.用于设置下划线的属性是【 B 】。

(A)FontName(B)FontUnderline(C)FontBold (D)FontItalic

39.运行时,要清除图片框P1中的图像,应使用语句【B】。

(A) =""

(B) = LoadPicture()

(C) = LoadPicture

(D)Picture = LoadPicture("C:\WINDOWS\")

40.默认情况下,运行时窗体最小化图标为,如果要改变为其他图标,需设置窗体的【B】属性。

(A)Caption (B)Icon(C)MaxButton (D)MinButton

41.下列【B】程序段能删除列表框List1中的所有项。

(A)Private Sub Command3_Click() For I=0 To

I

Next I

End Sub (B)Private Sub Command3_Click() For I=0 To

Next I

End Sub

(C)Private Sub Command3_Click() For I=0 To (D)Private Sub Command3_Click() For I=0 To

42.定时器的Interval属性以【C】为单位指定Timer事件之间的时间间隔。(A)分(B)秒(C)毫秒(D)微秒

43.下面的数组声明语句中【B】是正确的。

(A)Dim A[3, 4] As Integer(B)Dim A(3, 4) As Integer

(C)Dim A[3; 4] As Integer (D)Dim A(3:4) As Integer

44.设有数组声明语句:

Option Base 0

Dim B(-1To 10,2 To 9,20) As Integer

则数组B中共有【C】个元素。

(A)1800 (B)1848 (C)2016(D)2310

45.为了添加ComboBox控件中的项目,需要使用【C】方法。

(A)Add(B)Remove(C)AddItem(D)RemoveItem

46.为了删除ComboBox控件中的项目,需要使用【D】方法。

(A)Add(B)Remove (C)AddItem(D)RemoveItem

47.要想在过程调用后返回两个结果,下面的过程定义语句合法的是【C】。

(A)Sub Proc1(ByVal n, ByVal m) (B)Sub Proc1(n, ByVal m)

(C)Sub Proc1(n, m)(D)Sub Proc1(ByVal n, m)

48.Sub过程与Function过程最根本的区别是【D】。

(A)Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以(B)Function过程可以有参数,Sub过程不可以

(C)两种过程参数的传递方式不同

(D)Sub过程的过程名不能返回值,而Function过程能通过过程名返回值

49.在参数传递过程中,使用关键字【A】来修饰参数,可以使之按值传递。(A)ByVal(B)ByRef (C)Value (D)Reference 50.通用过程可以通过执行“工具”菜单中的【A】命令来建立。

(A)添加过程(B)通用过程(C)添加窗体(D)添加模块

51.执行“工程”菜单中的【D】命令,可以添加一个标准模块。

(A)添加过程(B)通用过程(C)添加窗体(D)添加模块52.在窗体模块的通用声明段中声明变量时,不能使用【D】关键字。

(A)Dim (B)Public (C)Private (D)Static

53.使用Public Const语句声明一个全局的符号常量时,该语句应放在【C】。

(A)过程中(B)窗体模块的通用声明段

(C)标准模块的通用声明段(D)窗体模块或标准模块的通用声明段

54.可以在窗体模块的通用声明段中声明【A】。

(A)全局变量(B)全局常量

(C)全局数组(D)全局用户自定义类型

55.在用菜单编辑器设计菜单时,必须输入的项是【D】。

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

56.执行语句 = 100: = 200之后,窗体Form1的左上角坐标为【C】。

(A)(0,0) (B)(200,100)

(C)(100,200)(D)视ScaleMode属性的当前值而定57.Cls方法可以清除窗体或图片框中的【C】内容。

(B)在设计阶段放置的控件

(C)在运行阶段产生的图形和文字

(D)以上全部内容

58.通过设置Shape控件的【A】属性可以绘制多种形状的图形。

(A)Shape(B)BorderStyle (C)FillStyle (D)Style

59.以下不合法的常量是【A】。

(A)10^2(B)100 (C)(D)10E+01

60.Visual Basic中的数据也可以以十六进制或八进制表示,十六进制数据以【D】符号开头。

(A)$E (B)$H (C)&O (D)&H

61.表达式Val(".123E2CD")的值是【B】。

(A).123 (B)(C)0 (D).123E2CD

62.下列叙述中不正确的是【C】。

(A)变量名的第一个字符必须是字母

(B)变量名的长度不超过255个字符

(C)变量名可以包含小数点或者内嵌的类型声明字符

(D)变量名不能使用关键字

63.表达式5^2 Mod 25\2^2的值是【A】。

(A)1 (B)0 (C)6(D)4

64.表达式 Mod 的值是【C】。

(A)1 (B)5 (C)4 (D)出错

65.Int(100*Rnd(1))产生的随机整数的闭区间是【 A 】。

(A)[0,99] (B)[1,100] (C)[0,100] (D)[1,99]

二、填空题

1.GUI是指图形用户界面。

2.传统的编程方法是面向过程的,Visual Basic是一种面向对象的程序设计开发工具。3.Visual Basic 采用事件驱动的编程机制,程序员只需要编写响应用户动作的程序,而不必考虑按精确次序执行的每个步骤。

4.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示工程文件;扩展名为.frm 的文件表示窗体文件;扩展名为.bas的文件表示标准模块文件;包含ActiveX控件的文件扩展名为.OCX。

5.对象是代码和数据的集合,例如,Visual Basic中的窗体、控件、菜单等都是对象。6.属性用于描述对象的一些特征,设置对象的属性有两种方法,一种是在设计期在属性窗口中设置;另一种是在运行期进行设置,设置格式为对象名.属性名=属性值。大部分属性可以用以上两种方法进行设置,而有些属性只能用一种方法设置。

7.事件就是在对象上所发生的事情,Visual Basic中的事件如单击、双击、装载等。

8.一个应用程序可以有多个窗体,使用工程菜单下的添加窗体命令,或使用工具栏的添加窗体按钮可以添加一个新的窗体。

9.关系式X≤-5或X≥5所对应的布尔表达式是:X<=-5 Or X>=5

10.闰年的条件是:年号(Y)能被4整除,但不能被100整除;或者年号能被400整除,表示该条件的布尔表达式是:Y Mod 4 =0 And Y Mod 100<>0 Or Y Mod 400=0

11.写出下面Format函数的值:

(1)Format, "##,##") 值为:5,

(3)Format, "") 值为:

(4)Format, "#.00") 值为:.67

(5)Format("HELLO", "<") 值为:hello

(6)Format("This is it", ">") 值为:THIS IS IT

12.以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除,或者年份能被400整除,则该年为闰年;否则不是闰年。

Private Sub Command1_Click()

y = InputBox("请输入年份")

If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 =0 Then

Print y & "年为闰年"

Else

Print y & "年不是闰年"

End If

End Sub

13.下面的程序用于求三个数中的最大数。

Private Sub Command1_Click()

a = Val(InputBox("请输入第一个数"))

b = Val(InputBox("请输入第二个数"))

c = Val(InputBox("请输入第三个数"))

Max = a

Min = a

If b >a Then Max = b

If b

If c > Max Then Max = c

If c< Min Then Min = c

Print "最大数为"; Max

Print "最小数为"; Min

End Sub

14.下面的事件过程实现从键盘输入两个变量的值,交换这两个变量的值,并将交换后的结果显示在立即窗口中。

Private Sub Form_Load()

Dim a As Double, b As Double, c As Double

a = Val(InputBox("请输入a"))

b = A

A

a

A

End Sub

供选择的答案:

(1)(A)Val(InputBox("请输入b")) (B)(InputBox("请输入b")) (C)Val(InputBox("请输入a")) (D)(InputBox("请输入a"))

(2)(A)c = a : a = b : b = c(B)a = b : b = a

(C)c = a : b = c: a = b (D)b = a : a = b

(3)(A)(B) b

(C) b (D)Print b

Private Sub Command1_Click()

Randomize

For I = 1 To 20

X = Int(Rnd*98 + 1)

If X / 2 = Int(X / 2) 或 X \2Then Print X

Next I

End Sub

16.设某个程序中要用到一个二维数组,要求:

数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为:Dim A(1 To 5, -2 To 6) As String

17.设有数组声明语句:Dim A(-1To 2,2) As Integer,则数组A中包括的所有元素有:

A(-1,0) A(-1,1) A(-1,2)

A(0,0) A(0,1) A(0,2)

A(1,0) A(1,1) A(1,2)

A(2,0) A(2,1) A(2,2)

18.设有数组声明语句:Dim A(-1To 2,-1 To 1) As Long,则数组A中包括的所有元素有:A(-1,0) A(-1,1) A(-1,2)

A(0,0) A(0,1) A(0,2)

A(1,0) A(1,1) A(1,2)

A(2,0) A(2,1) A(2,2)

19.定义动态数组需要分两步进行,首先在模块级或过程级定义一个没有下标的数组,然后再使用ReDim语句定义数组的实际元素个数。

20.菜单分为下拉式菜单和弹出式菜单,菜单总与窗体相关联,设计菜单需要在菜单编辑器中设计。

21.不可以给顶级菜单设置快捷键。

22.菜单控件只包含一个click事件。

23.菜单编辑器的“标题”选项对应于菜单控件的Caption属性。

菜单编辑器的“名称”框对应于菜单控件的Name属性。

菜单编辑器的“索引”选项对应于菜单控件的Index属性。

菜单编辑器的“复选”选项对应于菜单控件的Checked属性。

菜单编辑器的“有效”选项对应于菜单控件的Enabled属性。

菜单编辑器的“可见”选项对应于菜单控件的Visible属性。

24.要在菜单中建立分隔符条,应在菜单编辑器的标题选项中键入一个-符号。

25.表示控件与窗体顶部距离的属性是TOP。

表示控件与窗体左侧距离的属性是Left。

表示控件宽度的属性是Width。

表示控件高度的属性是Height。

26.要同时选定多个控件,可以按住Ctrl或Shift键,再用鼠标依次单击各个控件。

27.要对选定的多个控件调整格式,如对齐、调整间距、统一尺寸等,可以使用格式菜单下的命令。

28.要运行当前工程,可以按键盘上的F5键。

三、简答题

1.设窗体Form1上有两个命令按钮C1和C2,简单说明以下各段事件代码的作用(说明当发生什么事件时完成什么功能)。

= vbRed

End Sub

当焦点在命令按钮C1上时,按下键盘上的任一键时,将窗体Form1的背景颜色设置成红色。

(2)Private Sub C1_KeyUp(KeyCode As Integer, Shift As Integer)

= vbBlue

End Sub

当焦点在命令按钮C1上时,抬起键盘上的任一键时,将窗体Form1的背景颜色设置成蓝色。

(3)Private Sub C1_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

= "你好"

End Sub

在C1按钮上按下鼠标时,将窗体Form1的标题设置为“你好”。

(4)Private Sub C1_MouseUp(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

= "再见"

End Sub

在C1按钮上抬起鼠标时,将窗体Form1的标题设置为“再见”。

(5)Private Sub C2_GotFocus()

= "使用第二个按钮"

End Sub

当C2按钮获得焦点时,将窗体Form1的标题设置为“使用第二个按钮”。

(6)Private Sub C2_LostFocus()

= "不用第二个按钮"

End Sub

当C2按钮失去焦点时,将窗体Form1的标题设置为“不用第二个按钮”。

2.在图2-5中标出以下部分:

代码区、对象下拉列表框、过程下拉列表框、过程查看按钮、全模块查看按钮、拆分栏。

图2-5 代码编辑器窗口

3.设在数字显示区上显示内容如图2-6所示,请在图上标出各数字所对应的对象的属性。

Left Top Width Height

4.将变量SUM1、SUM2定义为单精度型;M、N定义为整型;S1、S2定义为字符串类型;YN定义成布尔型,写出相应的定义语句。

Dim SUM1 As Single,SUM2 As Single

Dim M As Integer,N As Integer

Dim S1 As String,S2 As String

Dim YN As Boolean

5.写出下列代数式对应的Visual Basic 表达式。

(1)b

a a 2

+-

-a * a / (a + b)

(2)2sin α·cos(2π-α) 2 * Sin(A) * Cos(2 * - A)

(3)α-+cos ab 2b a 22

Sqr(A * A + B * B - 2 * A * B * Cos(A))

(4))

y x (t )u t ()y x (2

3-++

(X + Y) ^ 3 * (T + U) ^ 2 / (T * (X - Y))

(5)(e 3x +ln5x)y (注:e 为自然对数的底) (Exp(3 * X) + Log(5 * X)) * Y

6.设在窗体上有标签Label1,给以下程序的每一条语句(除第一条和最后一条语句之外)加上注解,说明语句的功能。 Private Sub Form_Load() Show ' 对窗体使用Show 方法

Const pi = ' 定义符号常量pi 的值为

Dim r As Single, s As Single ' 定义r,s 为单精度类型变量

r = Val(InputBox("请输入半径", "计算圆的面积", 2))' 从输入对话框输入r 的值 s = pi * r ^ 2 ' 计算s 的值

= s ' 将s 的值显示在标签Label1上 End Sub

7.设窗体上有两个标签Label1和Label2,两个文本框Text1和Text2,简单说明以下各段事件

代码的作用(说明当发生什么事件时完成什么功能)。 (1)Private Sub Text1_Change() = End Sub

当文本框Text1的内容被改变时,设置标签Label2的标题为文本框Text1中的内容。

(2)Private Sub Text1_DblClick() = End Sub

双击文本框Text1时,设置标签Label1的标题为文本框Text1中的内容。

(3)Private Sub Text1_GotFocus() = 0 = Len

当文本框Text1获得焦点时,选中其中的文本。

(4)Private Sub Text1_LostFocus()

= 0

= Len

End Sub

当文本框Text1失去焦点时,将焦点定位在Text2中,并选中其中的文本。

8.要显示以下各消息对话框,请写出相应的实现语句。

图4-3 消息对话框1

显示图4-3的语句为:MsgBox "在这里书写消息内容", 3, "注意"

图4-4 消息对话框2

显示图4-4的语句为:MsgBox "在这里书写" &Chr(13) & "消息内容", 4, "注意"

图4-5 消息对话框3

显示图4-5的语句为:M sgBox "在这里书写" &Chr(13) & "消息内容", 256 + 16 + 1, "注意"

四、判断程序段的执行结果

1.给出下面程序段的输出结果。。

A = "1"

B = "2"

A = Val(A) + Val(B)

B = Val("12")

If A <> B Then Print A - B Else Print B – A

2.给出下面程序段的输出结果。

A = "abcd"

B = "bcde"

E = Right(A, 3)

F = Mid(B, 2, 3)

If E < F Then Print E + F Else Print F + E 结果为:bcdcde

3. 给出下面程序段的输出结果。

x = Int(Rnd + 4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "通过"

Case Else

Print "不通过"

End Select

结果为:

良好

4.给出下面程序段的输出结果。

For X = To 5 Step

Print X

Next X

结果为:

3

5.给出下面程序段的输出结果。

For I = -5 To -10 Step -1

X = X + I

Print X

Next I

结果为:

-5

-11

-18

-26

-35

6.给出下面程序段的输出结果。

Dim A(5, 5)

For I = 1 To 3

For J = 1 To 4

A(I, J) = I * J

Next J

Next I

For N = 1 To 2

For M = 1 To 3

Print A(M, N);

Next M

Next N

结果为:1 2 3 2 4 6

7.给出下面程序段的输出结果。

Dim A(3, 3)

For M = 1 To 3

For N = 1 To 3

If N = M Or N = 3 - M + 1 Then A(M, N) = 1 Else A(M, N) = 0 Next N

Next M

For M = 1 To 3

For N = 1 To 3

Print A(M, N);

Next N

Print

Next M

结果为:

1 0 1

0 1 0

1 0 1

8.给出单击命令按钮Command1的输出结果。

Dim A() As Integer

Private Sub Command1_Click()

ReDimA(1 To 5)

For I = 1 To 5

A(I) = I

Next I

ReDimA(1 To 10)

For I = 6 To 10

A(I) = 2 * I

Next I

For I = 1 To 10

Next I

End Sub

结果为:0 0 0 0 0 12 14 16 18 20

9.单击命令按钮时,下列程序代码的执行结果。

Private Sub Command1_Click()

Print MyFunc(24, 18)

End Sub

Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n

Do While m > n: m = m - n: Loop

Do While m < n: n = n - m: Loop

Loop

MyFunc = m

End Function

结果为:6

10.单击窗体时,下列程序代码的执行结果。

Private Sub Form_Click()

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

x = 1: y = 2: z = 3

Call Proc1(x, x, z)

Call Proc1(x, y, y)

End Sub

Private Sub Proc1(x As Integer, y As Integer, z As Integer) x = 3 * z

y = 2 * z

z = x + y

Print x; y; z

End Sub

结果为:

6 6 12

6 10 10

五、编写程序

1.从键盘上输入N名同学的成绩,显示于文本框Text1中,按成绩从低到高的次序排序,并将结果显示于另一个文本框Text2中。

要求:(1)界面设计(描述各控件的属性设置即可,用表格形式)

(2)编写代码

Option Base 1

Dim N As Integer, X() As Integer

Private Sub Command1_Click() ' 输入成绩

N = Val(InputBox("请输入总人数", "", ""))

ReDimX(N)

= ""

For I = 1 To N

X(I) = Val(InputBox("请输入第" &Str(I)_

& "个学生的成绩", "成绩排序", ""))

= &Str(X(I))

Next I

End Sub

Private Sub Command2_Click() ' 排序

For I = 1 To N – 1 ‘进行N-1趟重复

For J = I + 1 To N ‘每趟比较N-I次

If X(I) > X(J) Then

T = X(I)

X(I) = X(J)

X(J) = T

End If

Next J

Next I

= ""

For I = 1 To N

= &Str(X(I))

Next I

End Sub

2.在窗体中单击“生成随机数”按钮,生成100个[0,100]之间的随即整数,并存入A数组中,同时显示在Label1中;单击“排序”按钮,对数组进行排序,并将结果显示在Text1中; 单击“退出”按钮,结束程序的执行。

要求:(1)界面设计(描述各控件的属性设置即可,用表格形式)

(2)编写代码

(1)界面设计略

(2) 产生随机数

Private Sub Form_Load()

= ""

N = 20

ReDimA(N)

For I = 1 To N

A(I) = Int(Rnd *91+10)

= &Str(A(I)) &“”

Next I

End Sub

(3) 排序

= ""

Private Sub Command2_Click

For I = 1 To 19

For J = I + 1 To 20

If A(I)> A(J) Then

T=A(I)

A(I)= A(J)

A(J)=T

End if

Next J

Next I

End Sub

(4) 输出

Private Sub Command3_Click()

= ""

For I = 1 To 20

= &Str(A(I))

Next I

End Sub

3.编写程序,输出100到300之间的素数。

4.在窗体上打印九九乘法表。

5.求三个数中的最大数。

Private Sub Command1_Click() x = InputBox("键入第一个数")

y = InputBox("键入第二个数")

z = InputBox("键入第三个数")

Max = x

If Max < y Then Max = y

If Max < z Then Max = z

Print "最大值"; Max

End Sub

程序设计基础试题库

练习题一Visual FoxPro 基础 、选择题 1. 关系数据库管理系统应能实现的专门关系运算包括___c __________ A 显示、打印、制表B关联、更新、排序 C 选择、投影、连接D排序、索引、统计 2. 关系是指__b__。 A 属性的集合B元组的集合 C 实例的集合 D 字段的集合 3. 如果把学生看成实体,某个学生的姓名叫“杨波”,则“杨波”应看成是___b ______ 。 A)属性型B )属性值C )记录型D )记录值 4. 关系数据库系统中所使用的数据结构是 _______ d ___ 。 A)图B )树C )表格D )二维表 5. 对表进行水平方向的分割用的运算是 _______ b ___ 。 A)交B )选择C )投影D )连接 6. 下列数据库技术的术语与关系模型的术语的对应关系中_______ d _____ 是正确的。 A)实例与关系 B )字段与元组C )记录与属性 D )记录类型与关系模式 7. 下列关于数据库系统的叙述中,正确的是 _____ c _____ 。 A)数据库系统中数据的一致性是指数据类型一致 B)数据库系统只是比文件系统管理的数据更多 C)数据库系统减少了数据冗余 D数据库系统避免了数据冗余 8. 关系数据模型 ______ d ___ 。 A)只能表示实体间的1:1联系 B)只能表示实体间的1:n C只能表示实体间的m:n D 可以表示实体间的上述三种联系 9. 在一个关系中如果有这样一个属性存在,它的值能惟一地标识关系中的每一个元组,称

这个属性为 _____ a____ 。 A)关键字B )主属性C )数据项D )主属性值 10. 关系数据库管理系统中的元组是______ b ____ 。 A)关系中的垂直方向的列 B )关系中的水平方向的行 C属性或属性的组合 D )以上的答案均不正确 11. 从数据库的整体结构看,数据库系统采用的数据模型有_________ a __ 。 A)层次模型、网状模型和关系模型 B)层次模型、网状模型和环状模型 C)网状模型、链状模型和层次模型 D链状模型、关系模型和层次模型 12. 设有属性A B、C D以下表示中不是关系的是___________ d__。 A)R( A) B )R( A, B)C )R (A, B, C, D) D )R (A X B X C X D) 13. 若实体间联系是M N的,则将联系类型_________ a___ 。 A)也转换为关系模型 B)属性加入任一个关系模式中 C)属性加入N端实体类型相应的关系模式中 D)属性加入M端实体类型相应的关系模式中 14. 数据库系统的构成为数据库、计算机硬件系统、用户和________ a ____ 。 A 数据库管理系统 B 操作系统 C 数据集合 D 文件系统 15. 层次型、网状型和关系型数据库划分原则是________ c ___ 。 A 文件大小 B 记录长度 C 数据之间的联系 D 联系的复杂程度 16. 在数据库设计中用关系模型来表示实体和实体之间的联系,关系模型的结构是 _____ d ___ 。 A 封装结构 B 层次结构 C 网状结构 D 二维表结构 17. 在关系模型中,实现“关系中不允许出现相同的元组”的约束是通过__a ________ 。 A 主键 B 超键 C 外键 D 候选键 18. 层次模型不能直接表示 ______ b __ 关系。 A 1:1 B m:n C 1:m D 1:1 和1:m 19. DBAS旨的是_____ d____ 。

《程序设计基础》试卷B及答案

黄淮学院计算机科学系2007-2008学年度第一学期 期末考试《程序设计基础》B 卷 注意事项:本试卷适用于计科系06级本科计算机科学与技术专业学生。 1.__ ____函数是程序启动时惟一的入口。 2.算法的复杂性包含两方面: 和 。 3.已知 char c= 'a' ; int x=2,k; 执行语句k=c&&x++ ; 则x 为 ,k 为 。 4.数值0x34对应的十进制为 。 5.已知int a ; 则表达式”(a=2*3 , 3*8), a*10”的结果为_ _ ____,变量a 的值为___ ___。 6.面向对象程序开发步骤为: 、 和面向对象实现。 1.下列程序设计语言中( )是面向对象语言。 A. FORTRAN B. C 语言 C. C++ D. 汇编语言 2.下列关于注释的说法哪个是错误的( )。 A. 注释不是程序中的可执行语句 B. 注释对于程序的执行有很重要的意义 C. 注释将在程序的编译阶段被编译器剔除 D. 编程时在程序中添加适当的注释是一个良好的编程风格 3.算法设计应该遵守( )的设计原则。 A. 自底向上,逐步求精 B. 自顶向下,逐步求精 C. 自底向上,同步扩展 D. 自顶向下,同步扩展 4.下列语句执行后a 的值为( )。 int a=4, &z=a, k=3; a=k; z+=2; k++; A. 0 B. 4 C. 1 D. 5 5.以下程序执行后,屏幕输出为( )。 #include “iostream.h ” void fun(int d) {d++;} void main() { int d=3; fun(d); d++; cout<=’a ’)&&(d<=’z ’) B. ‘a ’<=d<=’z ’ C. (d>=’a ’)||(d<=’z ’) D. ‘A ’<=d<=’Z ’ 8.已知:int k=7, x=12; 则执行语句( )后x 的值为0。 A. x+=k-x%5; B. x+=(x-k%5); C. x%=(k-=5); D. (x-=k)-(k+=5); 9.运行下列程序,其输出结果为( )。 #include “iostream.h ” void main() { int x(5),y(5),z(5); y--&&++x&&z--||y++; cout<

《基于WEB程序设计》期末考试及答案

-精品- 《基于WEB 程序设计》 期末考试试卷 考生注意:1.本试卷共有六道大题,满分100分。 2.考试时间90分钟。 3.卷面整洁,字迹工整。 4.填写内容不得超出密封线。 总分 题号 一 二 三 四 五 六 核分人 题分 10 10 20 10 30 20 复查人 得分 得分 评卷人 一、HTML 代码分析(每小题5分,共10分) (5分) ___1______ </ 2 > </ 3 > <body> </ 4 > </ 5 > 2. 根据网页截图效果补充代码。(5分) <table border="1"> <tr> <td>row 1, cell 1</td> <td>row 1, cell 2</td> </tr> < 1 > <td>row 2, cell 1</ 2 > < 3 >row 2, cell 2</td> </ 4 > </ 5 > 得分 评卷人 二、数据库基础代码分析 (每小题5分,共10分) (5分) INSERT INTO article ( title, writer, content ) VALUES (‘实验’, ‘学生’, ‘插入数据’); 2.解释代码:请解释下述代码的含义。(5分) DELETE * FROM article WHERE 编号=1; 得分 评卷人 三、标准控件代码分析(每小题10分,共20分) (10分) ButtonEx.aspx : <%@ Page Language="VB" AutoEventWireup="false" CodeFile=" ButtonEx.vb " Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.doczj.com/doc/c17873790.html,/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="https://www.doczj.com/doc/c17873790.html,/1999/xhtml" > <head runat="server"> <title>无标题页 密 封 线 学习中心: 姓名: 专业: 学号: 座位号:

程序设计基础试题和答案解析二

《程序设计基础》考试试卷二 1.1966年,Bohra和Jacopini提出的三种基本程序设计结构是:________ A.if、while和for; B. switch、do-while和for; C.while、do-while和for; D.顺序结构、分支结构和循环结构。 2.算法的特征不包括:______。 A.有穷性 B.可行性 C.确定性 D.有1个或者多个输入。 3.C语言源程序的基本组成单位是______。 A.函数 B. 语句 C. 声明和语句 D. 文件 4.下列标识符中,只有______是合法的。 A.if B. 3ab C. Int D. A-4 5.下列常量中,只有______是合法的。 A.3e-0.3 B. ‘abc’ C. 02a1 D. ‘\377’ 6.下列说法中正确的是:______。 A.C语言中的for语句的三个表达式都可以省略,而且分号也可以省略。 B.宏替换比函数调用的执行速度慢。 C.实质上,C语言中的指针就是一个变量的地址。 D.C语言中的任何函数都可以由程序员命名。 7.C语言中,运算对象必须是整型的运算符是_______。 A./ B. % C. + D. - 8.以下叙述中错误的是_______。 A.C语句必须以分号结束 B.复合语句在语法上被看作一条语句 C.空语句出现在任何位置都不会影响程序运行 D.赋值表达式末尾加分号就构成赋值语句 9.以下叙述中正确的是_______。 A.调用printf函数时,必须要有输出项 B.使用putchar函数时,必须在之前包含头文件stdio.h C.在C语言中,整数可以以十二进制、八进制或十六进制的形式输出 D.调用getchar函数读入字符时,可以从键盘上输入字符所对应的ASCII码10.以下关于函数的叙述中正确的是_______。 A.每个函数都可以被其它函数调用(包括main函数) B.每个函数都可以被单独编译 C.每个函数都可以单独运行 D.在一个函数内部可以定义另一个函数 11.有以下程序段typedef struct NODE{ int num; struct NODE *next;

WEB程序设计试题及答案

一、填空题 1. HTTP协议的工作模式是基于________、_________。 2. Web全称是____________,Web是一种体系结构,通过它可以访问分布于Internet主机上的通过_________联接在一起的链接文档。 3. JavaScript是由Netscape开发的一种_______语言,可以直接插入到_______文档中。 4. IP地址中一个C类地址最高三位是110,接下来21位是________,其余___位是主机地址。 5. DHTML中的D指的是_______。 6. DOM,即__________________,是由W3C提出的,从_______对象模型技术发展而来。它将文档作为一个______结构,其中的每个节点表现为一个HTML标记或者HTML标记内的文本项。 7. ASP运行于________端,是Microsoft公司在1996年底推出的一种取代______的Web应用程序开发技术。 8. ASP通过后缀名为____的文件来实现,一个ASP文件相当于一个_______文件。 9. ________技术是一种良好的Web数据库访问解决方案,通过一组对象的______和方法来完成相应的数据库访问的目的。 10. 可以直接在Internet Explorer浏览器中打开XML文档,更多的是通过________和_________方式来显示XML文档。 二、选择题 1.相对比较早出现的服务器端技术是: A.ASP B.CGI C.JSP D.JavaScript 2. Web的工作模式是: A. 客户端/服务器端 B. 浏览器/服务器 C. 浏览器/浏览器 D. 浏览器/客户端 3.
表示: A.分段 B.产生空格 C.强制换段 D.强制换行 4.一组选项中可以选择多项的表单元素是: A.Checkbox B.Radio C.Text D.Textarea 5. 在DHTML中把整个文件的各个元素作为对象处理的技术是: A.HTML B.CSS C.DOM D.Script 6. 下面那种语言是解释执行的: A.C++ B.Delphi C.JavaScript D.Java 7. ASP文件所有的Script程序代码均须放在下列符号之间: A./* */ B.