文档库

最新最全的文档下载
当前位置:文档库 > vb填空题及答案

vb填空题及答案

1. 在VB中,用来描述一个对象外部特征的量称之为对象的_____。属性

2. 窗体_____决定了窗体的外观。BorderStyle

3. 表达式(?10)^ ?2的值是_____。0.01

4. 执行_____语句,可以清除Picture1图片框内的图片。Picture1.picture=LoadPicture('' '')

5. 当复选框被选中时,其V alue值为_____。1

6. 在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a()

ReDim a(4)

For i = 1 To 4

a(i) = i

Next i

ReDim Preserve a(6)

For k = 1 To 6

Print a(k);

Next k

Print “end”

End Sub

程序运行后,单击Command1命令按钮,则程序输出的结果是_____.1 2 3 4 end

7. 在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。Public

8. 将通用对话框的类型设置为“字体”对话框可以使用_____方法。showfont

9. 下列程序的功能是:当按下鼠标左键并在窗体上移动时,在鼠标经过的位置画点,松开鼠标移动时,不执行画点操作。当单击鼠标右键时,清除窗体上的内容。请在横线的上方填入适当的内容,将程

序补充完整。

Dim flag As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X ! ,Y !)

flag = True

If _____Then

Cls

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If flag Then

PSet (X, Y) '画点语句

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

_____

End Sub

Button=2 Flag=False

1窗体的扩展名是__frm___。

3日期表达式#2/24/02# - #2/12/02# 的值为12。4.VB的控件分为标准控件、ActiveX控件和可插入对象

5.Style属性设置为1,单选按钮和复选框以图形方式显示6在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim s As Integer

Dim arr(3, 1 To 7) As Integer

For Each test In arr

s = s + 1

Next test

Print s

End Sub

程序运行后,单击Command1命令按钮,则程序输出的结果是20.

7声明Integer类型静态变量x,写作static x% Static x%

Static x As Integer

static x as integer。

8如果把一个菜单项的V isible属性设置为False,则该菜单项不可见

9在执行KeyPress 事件过程时,KeyAscii是所按键的ascii码

10ChDir语句可以改变文件操作的当前目录

填空题

1. 面向对象的程序设计是一种以__对象___为基础,由_事件____驱动对象的编程技术。

2. 一般来说,同一窗体中的各个控件的_____属性应该各不相同;。如果几个控件具有相同的_____属性,则这些控件称为数组控件。name name

3. 求a与b之积除以c的余数,用V isual Basic表达式可表示为_____。a * b Mod c

4. 如果要每隔15s产生一个计时器事件,则Interval 属性应设置为_____。15000

5. 组合框的Style属性的取值有_____种三

6. 用ReDim语句重新分配动态数组时,如果要保留数组内容,即不清除数组中的内容,应使用的选择项是_____. preserve

7. 调用过程时对形参的改变不会导致相应实参变量的改变,则该形参

采用_____(按值传递/按地址传递)方式。按值传递

8. 在设计菜单时,可在V isual Basic主窗口的菜单栏中选择_____,

单击后从它的下拉菜单中选择“菜单编辑器”菜单项。工具

1设置对象的属性有两种办法,一种是在设计时在属性窗口窗口中设置;另一种是在运行时设置,设置格式为<对象名>.<属性名>=<表达式>。

大部分属性可以用以上两种方法进行设置,而有些属性只能用其中一种方法设置。

2决定窗体标题栏显示内容的属性是Caption

3已知a=2.5,b=5.0,c=2.5,d=True,则表达式:a>=0 AND a+c>b+3 OR NOT d的值是false

4Shape属性决定形状控件的形状,当Shape属性值为0时,它的表现形式是矩形。

5additem方法用来向列表框中加入列表项

7在窗体Form1的过程中引用窗体Form2中的全局变量y,写作form2.y

8将控件CommonDialog1设置为"颜色"对话框,可使用commondialog1.showcolor

CommonDialog1.Action =3

commondialog1.action =3

CommonDialog1.ShowColor

三、程序设计

题目:(事件)单击窗体。(响应)求10!的值,并将结果输出到窗体上。将结果存入变量SUM中

Dim i As Integer

sum = 1

For i = 1 To 10

sum = sum * i

Next

Print sum

1. 面向对象的程序设计是一种以_____为基础,由_____驱动对象的编程技术。(对象,事件)

1. 控件的Top属性是指控件的_____(上、下)边至窗体标题栏_____(上、下)边的距离;Left属性是指控件_____(左、右)边到窗体_____(左、右)边的距离。(上上左左)

2. 访问键是通过键盘来访问控件,访问键是设置是在控件的_____属性中用_____字符加在访问字符的前面,运行时按_____键+访问字符。(caption.&.Alt)

5. 在使用V isual Basic提供的列表框时,当列表框中的项目超过了列表框的长度时,

系统会自动在列表框的边上加上一个_____。(滚动条)

6. 默认情况下,数组下标的下界是_____,若要使下标的下界为1,应该使用的语句是_____(0. Option Base 1

7. 下面程序的运行结果为_____。(25)

Private Sub Command1_Click()

Dim x%, y%

x = 18

y = 25

Call swap(x, y)

Print x

End Sub

Private Sub swap(a%, b%)

Dim t%

t = a

a = b

b = t

End Sub

10. 【程序说明】文件c:\a1.dat中存放若干个学生信息的记录(行),按Command1按钮后,

查找文件中姓名与输入姓名相同的记录,找到则删除该记录。(For Output As #2)

Private Sub Command1_Click()

Dim bs As String,cs As String

Open "c:\a1.dat" For Input As #1

Open "temp.dat" _____

bs = InputBox("输入学生姓名")

Do While Not Eof(1)

Line Input #1, cs

if InStr(cs, Trim(bs)) = 0 Then print #2,cs

Loop

Close #1: Close #2

Kill "c:\a1.dat"

Name "temp.dat" As "c:\a1.dat"

End Sub

1,VB的对象主要分为窗体和_____两大类。控件

2,在Visual Basic中,要将一个窗体从内存中卸载,应该使用_____语句。Unload

3,声明单精度常量PI代表3.1415926的语句是_____。Const PI=3.1415926

5.要使用鼠标或空格键同时选择列表框中的多个选项,必须把_____属性设置为1。multiselect

7. fee = countl(title)

Print fee

End Sub

Public Function countl(x%) As Single

Dim pay!

If x < 40 Then

pay = x / 2

Else

pay = 2 * x

End If

countl = pay

End Function 10

9. 下面程序的功能:是在文本框中输入一串字符,每输入一个字符,在文本框中的显示内容增加一个"*"。

单击命令按钮,则用户输入的字符在窗体上显示出来。(提示:"*"的Ascii码的值为42)

Dim realstr As String

Private Sub Command1_Click()

Print realstr

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) realstr = realstr + Chr(KeyAscii)

_____

End Sub KeyAscii=42

2. 要使输入文本框的字符靠右对齐,可修改文本框的__alignment___属性。

3. 语句Print Not 10>15 And 8<5+2的输出结果为__False___。

5. 在程序运行时,如果将框架的__Enabled

___属性设为False,则框架的标题是灰色,表示框架内的所有对象均被屏蔽,不允许用户对其进行操作。

6. 以下程序的功能是:分别计算给定的10个数中正数之和与负数之和。请将程序补充完整。Option Base 1

Private Sub Command1_Click()

Dim ww

ww = Array(12, ?6, 15, 34, ?32, 47, 13, 9, 6, ?3)

s1 = 0

s2 = 0

For k = 1 To 10

If (ww(k) > 0) Then

s1 = __ww(k)+s1___

Else

s2 = _ww(k)+s2____

End If

Next k

Print "正数之和为"; s1

Print "负数之和为"; s2

End Sub

7. 在过程内用__Static___声明的变量为静态变量,在执行一个过程结束时,过程中所用到的静态变量的值会保留,下次再调用此过程时,变量的初值是上次调用结束时被保留的值。

8. 若已建立了Form1、Form2两个窗体,默认启动窗体设置为Form1。通过_工程____菜单的__属性___的__通用___选项卡,可将启动窗体设置为Form2。

3.用类型说明符来标识数据类型时,表示单精度使用的符号是!

5.当列表框的MultiSelect属性值为1时,单击列表项或按空格键可以实现复选。

7.声明Single类型全局变量x,写作public x!。

8.如果工具箱中还没有CommonDialog控件,则应从工程菜单中选定部件,并将控件添加到工具箱中。

10. 检测未打开的文件总的字节数,可以用FileLen_____函数。

12.要使一个控件不可用,应将该控件的enabled属性设为False

13.假设a="A",表达式:a>="0" and a<="9" and

a>="A" and a<="Z" 的值:false

15.列表框中第一项的索引值是0

20.选择了一个新的目录路径后,为了及时更新文件列表框的显示,可选用目录列表框的change事件来驱动。

22.由V isual Basic 预先设置好的、能够被对象识别的动作叫事件。

23.一个变量未被显示定义,末尾也没跟类型说明符,则变量的默认类型是变体类型。

24.图片框内可使PictureBox根据图片调整大小的属性为autosize;图像框为stretch,若使Image控件可根据图片调整大小,该属性值应为_false____。

26.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为dim a(1 to 5,-2 to 6) as integer。

27.过程形参为整型,对应实参为5.64,传递给形参的值为5。

29.读文件的line input#语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。

30. VB是一种面向对象的可视化程序设计语言,采取了事件驱动的编程机制。

31. 定时器的Interval属性值为0时,表示计时器停止工作

32.additem方法用来向列表框中加入列表项。

33. 用hide方法只能隐藏一个窗体,不能从内存中清除该窗体。。

36.长整型变量(Long类型)占用4个字节。

38.列表框的最后一项的索引号是listcount-1。

40. VB应用程序中标准模块文件的扩展名是.bas。

41. 若用户单击了窗体Form1,则启动的事件名为load

42.窗体属性决定了窗体的外观。

44.复选框的value属性设置为0?Unchecked时,将变成灰色,禁止用户选择。

45.设从键盘上输入20,下面程序的运行结果为10 Private Sub Form_Click()

Dim title%, fee!

title = V al(InputBox("请输入一个数"))

fee = countl(title)

Print fee

End Sub

Public Function countl(x%) As Single

Dim pay!

If x < 40 Then

pay = x / 2

Else

pay = 2 * x

End If

countl = pay

End Function

48.multiline属性决定文本框是否可以接受多行文本。

50.alignment属性设置为1,单选按钮和复选框的标题显示在左边。.

52. 设a$ = "V isual Basic Programing":

b$ = "Turbo"

c$ = b$&Space(1)&UCase(Mid$(a$, 12, 1)) & Right(a$, 11)

则变量c$的值是Turbo C Programing

54.当复选框被选中时,其V alue值为1。

55.. Windows环境下的菜单一般有_快捷菜单____、下拉式菜单____和_窗体控制菜单____3种基本类型。

56. 要使输入文本框的字符靠右对齐,可修改文本框的alignment属性。

62.由V isual Basic 预先设置好的、能够被对象识别的动作叫事件。

64.在使用V isual Basic提供的列表框时,当列表框中的项目超过了列表框的长度时,系统会自动在列表框的边上加上一个垂直滚动条

66. 下面程序的运行结果为28

Private Sub Command1_Click()

Dim x%, y%

x = 18

y = 28

Call swap(x, y)

Print x

End Sub

Private Sub swap(a%, b%)

Dim t%

t = a

a = b

b = t

End Sub

7、下面程序的运行结果为_18____。

Private Sub Command1_Click()

Dim x%, y%

x = 18

y = 26

Call swap(x, y)

Print y

End Sub

Private Sub swap(a%, b%)

Dim t%

t = a

a = b

b = t

End Sub

78. change语句可以改变文件操作的当前目录。69.在图片框中加一幅图片(从磁盘装入)可用loadpicture函数来实现。

70.将控件CommonDialog1设置为"颜色"对话框,可使用showcolor

73

false。

75.

maxlength

76.

int(i+1)

77..

78.

79. 要使一个控件不可用,应将该控件的_____属性设为False。

80. 滚动条的滚动滑块的位置由_V alue____属性决定的。

81. VB的控件分为标准控件、ActiveX控件和可插入对象。

82. 在菜单编辑器中建立了-个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,Form1.popupmenu

83. 在过程内用static声明的变量为静态变量,在执行一个过程结束时,过程中所用到的静态变量的值会保留,下次再调用此过程时,变量的初值是上次调用结束时被保留的值。。

85. 列表框list1中项目的序号是从0开始的,listcount-1表示列表框中最后一项的序号,cls方法可清除列表框的所有内容。

86.表达式93 \ 7 Mod 2 ^ 2 的值是1

87. 要使Form1窗体的标题栏显示的正确语句是form1.caption="欢迎使用V isual Basic程序设计集成环境"

88. #20/5/01#表示_____类型常量。

89. 要在某菜单前加上一个"√",应该将该菜单项的checked属性设置为True.

95.设置对象的属性有两种办法,一种是在设计时在__属性___窗口中设置;另一种是在运行时设置,设置格式为对象.属性=属性值。部分属性可以用以上两种方法进行设置,而有些属性只能用其中一种方法设置。

96.窗体是用来存放控件的容器,窗体的left和top 属性是相对屏幕对象的。

97.要使输入文本框的字符靠右对齐,可修改文本框的alignment属性。

98.对象的标题文字的颜色是由fontcolor属性决定的。

99.表达式81 \ 7 Mod 2 ^ 2的值是3

101. 声明单精度常量PI代表3.1415926的语句是_Const PI=3.1415926

102. 在界面设计阶段,当对窗体中的对象进行双击操作时显示该对象的_代码_窗口。

103. 设I为大于0的实数,写出大于I的最小整数的表达式_Int(i)+1____。

104. 拖动滚动条的滚动滑块时仅发生_Change____事件。

105. 在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:

Dim I as Integer,s as Long

Dim arr1(18) As Integer

For i = 0 To 18

arr1(i) = i

Next i

Erase arr1

For i = 1 To 18

s = s + arr1(i)

Next i

Print s