10.日期表达式 #2/24/02# - #2/12/02# 的值为___________。
11.数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________。
12.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为___________________________。
13.事件就是在对象上所发生的事情,Visual Basic中的事件如___________、___________、
______________等。一个对象响应的事件可以有_____个,用户不能建立新的事件。事件过程是指_____________________________________________。假设某一事件过程如下:
Private Sub cmd1_Click()
="VB示例"
End Sub
则响应该过程的对象名是______________,事件名是_____________。
14.对象的方法用于__________________。当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为________________,例如,对窗体Form1使用Show方法,应写成
_________________。
15.PictureBox控件可通过设置其__________属性为True使之可自动调整大小;而Image控件可通过设置其___________属性为True,使其加载的图片能自动调整大小以适应Image。
16.在Visual Basic程序中实现复制文件“c:\”到d:盘根目录下的语句为
_______________________________________。
二、单项选择题
1.下列控件中没有Caption属性的是()
A、标签
B、文本框
C、框架
D、命令按纽
2.除框架外,能对单选按纽分组的控件是()。
A、窗体
B、标签
C、图片框
D、图像
3.下列符号不能作为VB中变量名的是()。
A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz
4.下列不属于Visual Basic数据文件的是()。
A、顺序文件
B、随机文件
C、二进制文件
D、数据库文件
5.若要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性窗口中设置()。
A、Text属性值为*
B、Caption属性值为*
C、Password属性值为空
D、PasswordChar属性值为*
6.表达式2*3^2+2*8/4+3^2的值为()。
A、64
B、31
C、49
D、42
7.表达式mid("abcdefg",3,2)的值是()
A、abc
B、cd
C、bcd
D、abcde
8.数学表达式Sin25°写成VB表达式是()。
A、Sin25
B、Sin(25)
C、Sin(25°)
D、Sin(25*180)
9.Sub过程与 Function过程最根本的区别是()。
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以。
B、Function过程可以有参数,Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值。
10.选拔身高T超过米且体重W小于公斤的人,表示该条件的布尔表达式为()
A、T>= And W<=
B、T<= Or W>=
C、T> And W<
D、T>= Or W<
11.下列对象不能响应 Click事件的是()
A、列表框
B、图片框
C、窗体
D、计时器
12.在Visual Basic中,按文件的访问方式不同,可以将文件分为()
A、顺序文件、随机文件和二进制文件
B、文本文件和数据文件
C、数据文件和可执行文件
D、ASCⅡ文件和二进制文件
13.将通用对话框CommonDialog的类型设置成“颜色”对话框,可调用该对话框的()方法。
A、ShowOpen
B、ShowSave
C、ShowColor
D、ShowFont
三、指出下列句中的错误,修改或者说明原因。
1.sum和都可以作为VB的变量名。
2.变量名的长度最长可达1024个字符。
3.下列程序运行结果:3,3
Option Explicit
Private Sub Command1_Click()
Dim a,b As Integer
a =
b =
= a
= b
End Sub
4.程序可以改变定长字符串的内容和长度。
5.Variant是一种特殊的数据类型,可以包含任何种类型的数据。
6.下列程序运行结果为True
Private Sub Command1_Click()
b = 2
c = 3
= c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2
End Sub
7.#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999#
8.可以在窗体的通用部分声明静态变量。
9.使用声明语句建立一个变量后,Visual Basic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串"",定长字符串用空格填充,Variant变量被初始化为 Empty,布尔型的变量被初始化为False。
10.事件过程通常由事件驱动执行,而Sub过程通过过程调用执行。
11.将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。
12.当图像控件(Image)的Stretch属性为True时,Image控件能自动调整自己的尺寸与显示的图片匹配。
四、读程序题,写出程序运行结果。
1.Private Sub Form_Click()
For I = 1 To 9
For j = 1 To 30 - 3 * I
Print " ";
Next j
For k = 1 To I
Print k;
Next k
For k = I - 1 To 1 Step -1
Print k;
Next k
Print
Next I
End Sub
Option Explicit
Private Sub Command1_Click()
Static S As Integer
Dim i As Integer
S = 1
For i = 1 To 5
S = S * i
Next i
Print S
End Sub
3.
For X = 5 To 1 Step -1
For Y = 1 To 6 - X
Print Tab(Y + 5); "*";
Next Y
Print
Next X
4.
Private Sub Form_Activate()
Print "aa" & "bb",-5 * 6,Not 2 <= 3 Print "aa" & "bb"; -5 * 6; Not 2 <= 3 Print
Print "30+60",
Print 30 + 60
?
"30+60"; 30 + 60
End Sub
X=1
Do While X<=10
If X Mod 7 =0 Then
Y = X + 6
Else
Z = X
End If
X = X + 2
Loop
Print X,Y,Z
五、编程题
1.设计一个计算程序。该程序用户界面如图所示,由四个文本框:文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮:命令按钮1(command1)、命令按钮2(command2)、命令按钮3(command4)组成。程序运行后,用户单击清除按钮,则清除文本框中显示的内容。单击计算按钮,如果成绩填写不完全,则给出提示信息,否则计算三科平均成绩。单击退出按钮则退出。
2.设计程序。要求:从文本框Text1中接收输入的数据,当单击确定按钮(command1)时,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出;否则将焦点定位在文本框Text1中,选中其中的文本。
3.设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后,用户选中粗体复选框时,标签(Label1)中的文字(欢迎您!)的字体变成粗体,用户选中斜体复选框时,标签的字体变成斜体。若取消选中,则恢复原字体。单击结束,则退出。
4.任意输入3个数,求大小排第二的那个数,写出程序代码。
《VB》期末复习参考答案
一、填空题
1.创建应用程序界面设置属性编写代码
2.属性、text
3.Label TextBox
4.Load方法 Show方法 Hide方法 Unload方法
5.="GOOD WORK"
6.Click()、
7.算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符
8.1
9.True False
10.12
11.Sin(x) ^ 2 + Sqr(x ^ 2 - y ^ 2) / (2 * x)
12.Dim A(1 To 5,-2 To 6) As String
13.单击双击装载多响应某个事件后所执行的程序代码 cmd1 Click
14.完成某种特定的功能对象名.方法名
15.AutoSize Stretch
16.FileCopy "c:\","d:\"
二、单项选择题
1.B 2.C 3.C 4.D 5.D 6.B 7.B
8.D 9.D 10.C 11.D 12.A 13.C
三、指出下列句中的错误,修改或者说明原因。
1.不正确。变量名中不能包括小数点。
2.变量名的长度最长可达255个字符。
3., 4
因为a 不是整型变量。
4.不正确。程序不可以改变字符的长度,这是VB规定。
5.不完全正确。Variant是一种特殊的数据类型,除了定长字符串数据及用户定义类型外,可以包含
任何种类型的数据,这是VB规定。
6.False 。逻辑表达式计算结果。
7.不正确。两个日期型数据相减,其结果是一个数值型数据。
8.不正确。静态变量为局部变量,只能在过程中声明。
10.正确。
11.正确。
12.不正确。该属性设为Ture时,Image控件不能自动调整自己的尺寸与显示的图片匹配,而可以
使图片自动扩展以适应控件的尺寸。
四、读程序题,写出程序运行结果。
1.程序运行后,单击窗体,输出结果为:
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
2.程序运行后,单击按钮Command1,输出结果为:120。
3.
*
**
***
****
*****
4.
aabb -30 False
aabb-30 False
30+60 90
30+60 90
5.
11 13 9
1.
Private Sub Command1_Click()
= ""
= ""
= ""
= ""
End Sub
Private Sub Command2_Click()
a = Trim
b = Trim
c = Trim
If a = "" Or b = "" Or c = "" Then
MsgBox "成绩填写不完全!", vbCritical
Else
= (Val(a) + Val(b) + Val(c)) / 3
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
2.
Private Sub Command1_Click()
x = Val
If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then
Print x
Else
= 0
= Len
End If
End Sub
3.
Private Sub Check1_Click()
?
Else
?
End If
End Sub
Private Sub Check2_Click()
If = 1 Then
?
Else
?
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
4.
a = Val(InputBox("输入第一个数:"))
b = Val(InputBox("输入第二个数:"))
c = Val(InputBox("输入第三个数:"))
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = b: b = c: c = t
MsgBox ("求大小排第二的数是:" & b)?
VB期末考试试题 A卷
一、填空题
1、VB程序设计的主要特点是(1)和(2)。
2、在VB中,最主要的两种对象是(3)和(4)。
3、工程是构成应用程序文件的(5)。
4、方法是VB提供的一种(6),用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___(8)____。
7、可用窗体的___(9)_ 方法在窗体中显示文字。
8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。
9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。
10、双击工具箱中的控件图标,可在窗体的(13)出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。
12、设x=,语句Print Format(x,“”)的输出结果是(15)。
13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的
初值为(18)。
14、设置窗体的(19)属性,可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。
二、选择题
1、菜单控件只包括一个事件,即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus
B、Load
C、Click
D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是(2)。
A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示(3)。
A、所有记录
B、所有字段
C、所有表
D、都不对
4、以下选项中,不属于标签的属性是(4)。
A、Enabled
B、Caption
C、Default
D、Font
5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5)。
A、Caption
B、Name
C、Text
D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是(6)。
A、Caption
B、Name
C、Text
D、Value
7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的(7)。
A、在标题项中输入&,然后打勾
B、在索引项中打勾
C、在有效项中打勾
D、在复选项中打勾
8、当执行以下过程时,在窗体上将显示(8)。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB
B、 VB
Hello!VB
C、 VB
D、 VB
Hello! VB Hello!
VB
9、语句Print "The answer is:";20/4-2的结果为(9)。
A、The answer is 20/4-2
B、The answer is 3
C、The answer is "20/4-2"
D、非法语句
10、下列哪个控件是容器控件(10)。
A、Image
B、Picture
C、ComboBox
D、FileListBox
11、若要将窗体从内存中卸载出去,其实现的方法是(11)。
12、以下选项中,不是 Visual Basic控件的是(12)。
A.窗体
B.定时器
C.单选框
D.命令按钮
13、双击窗体中的对象后,Visual Basic将显示的窗口是(13)。
A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是(14)。
15、设有如下语句:
Strl=InputBox("输人","","练习")
从键盘上输人字符“示例”后,Strl的值是(15)。
A.“输入” B.“” C.“练习” D.“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是(16)。
?? A. Form1_Click C. Frm1_Click D. Me_Click
17、窗体的hide属性的含义是(17)。
?? A.隐藏 B.展现 C.装入 D.卸载
18、若要设置定时器控件的定时时间,需设置的属性是(18)。
A.Enabled B.Value C.Interval D.Text
19、能够改变复选框中背景颜色的属性是(19)。
A.Value B.FontColor C.BackColor D.Font
20、窗体能响应的事件是(20)。
A.ActiveForm B.Load C.Drive D.Change
三、判断题(判断下列正确与否,正确的打√,错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”。
4、通过改变属性窗口中的Name属性,来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是:(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。
7、已知P=MsgBox(“Howareyou",VbYesNo+VbQuestion,“Hello!”),变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList 是一个图像容器控件,可用作工具栏的图像库。
14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除(真正删除)。
16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句:Dim D$(10),则数组D中各元素的值为空。
19、如果在一行中输入多条语句,各语句之间用使用;分隔。
20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误。
四、读程序题,写出程序运行结果
1、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序,第一次单击窗体:
第二次单击窗体:
2、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
Print
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Print
Next I
End Sub
程序运行结果:
五、编程题
(一)窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip(20分之一像素)。请填空:
Private Sub Form_load( )
(1)=loadPicture(“c:\pic\”)
(2) .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
(3)
End Sub
(二)有一个单击按钮过程,其作用是产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。请填空:
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
(1) Timer
For N=1 To 50
X=Rnd()* (2)
If (3) =2 Then
Print x
Counter= (4)
(5)
Next N
Print Counter
End Sub
(一)(10分)
1 、 55
2、 110
(二)、(10分)
* 2 5
15 30 75
16 32 80
五、编程题(20分)
(一)1、
2、 Timer1
3、 x ,y
(二) 1、 Randomize
2、 Rnd()*41+60
3、 x Mod 6
4、 Counter+1
5 End If
一、单项选择题(共10分)
1.在代码中引用一个控件时,应使用控件的(B)属性。
A.Caption B.Name C.Text D.Index
2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式(A)的值为“假”。 A.x+a <= b-y B. x > 0 AND y < 0
C.a = b OR x>y D. x+y > a+b AND NOT (y < b) 3.表达式Int(Rnd*71)+10产生的随机整数范围是(C )。
A.(10,80) B.(10,81) C.[10,80] D.[10,81] 4.函数Sgn的返回值是(C )。
A.-1 B.0 C.1 D.以上都不对
5.67890属于( D )类型数据。
A.整型 B.单精度浮点数 C.货币型 D.长整型
6.下列变量名中正确的是(D)。
A.3S B.Print C.Select My Name D.Select_1
7.下列赋值语句( A )是有效的。
A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0
8.以下的控件或方法具有输入和输出双重功能的为(B)。
A.Print B.Textbox C.Optionbutton D.Checkbox
9.若要获得列表框中被选中的列表项的内容,可以通过访问(D)属性来实现。
A.Name B.ListIndex C.ListCount D.Text
10.下列代码的运行结果为(B )。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A.2 B.3 C.4 D.5
二、填空题(10分)
1.写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0
式。
2.代码窗口中有两个下拉列表框:左侧是(对象)列表框,右侧是过程列表框。
3.写出在字符串”Visual Basic ” 中截取”Visual” 的Basic表达式LEFT(“Visual Basic ”,6)。4.函数Len(“abcdef”)的返回值是(6) 。
5.设a = 2,b = 5,c = -2,d = 100,则a > b >= c AND a < b >= d的值为False 。
三、将下列数学表达式转换为VB表达式。(6分)
1.a2+2ab+b2 : a^2+2*a*b+b^2
2.8exln10 :8*exp(x)*log(10)
3.2sin(450)cos(450) :2*sin4)*cos4)
6.在VB中,用户定义常量使用 Const 语句,声明变量使用 Dim语句。
1.在VB 中,扩展名为.vbp的文件称为 A 。
A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件
2.在VB 集成开发环境的设计模式下,用鼠标双击窗体上的某个对象后,打开的窗口是 A 。
A) 代码窗口B) 窗体设计窗口
C) 属性窗口D) 工程资源管理器窗口
3.设有变量定义语句Dim a%,则变量a的数据类型是 A 。
A) 整型B) 单精度类型C) 双精度类型D) 字符串类型
4.下列表达式中,值为False的是 D 。
A) "AB"<"abc" B) "ABC" = UCase("abc")
C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3)
5.函数InStr("ABCDEF", "CD")的值是 B 。
A) 2 B) 3 C) True D) CDEF
6.下列程序运行后,单击窗体,输出结果是 C 。
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 3
b = 5
Print a + b; a & b End Sub A) 8 8
B) 35 35 C) 8 35 D) 35 8
7.下列程序运行后,单击窗体,输出结果是 B 。
Private Sub Form_Click() a = 3: b = 7
a = a +
b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3
C) 3 7 D) 10 7
8.下面程序段所表示的数学关系式是 C 。
If (a < b) Then If d = c Then x = 1 Else x = 2 End If
A) ?
??≠≥=<=)(2)c (1d c b a d b a x 且且
B) ?
??≠<=<=)(2)
c (1
d c b a d b a x 且且
C) ??
?≥=<=)(2)
c (1b a
d b a x 且
D) ??
?≠=<=)
(2)
c (1
d c d b a x 且
9.下列程序运行后,单击窗体,输出结果是 C 。
Private Sub Form_Click() s = 0: k = 1 Do
s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10
C) 1 D) 0
10.下列程序段的输出结果是 B 。
For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0
11.用下面的语句定义数组,则数组中的元素个数是 D 个。
Option Base 1
Dim A(-1 To 2,5) As Integer
A) 5 B) 10
C) 15
D) 20
12.下面程序段的输出结果是 C 。
Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k
For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8 B) 20
C) 2 8 D) 2 6 12 20
13.设有如下的用户自定义类型
Private Type Stu
name As String * 10
age As Integer
End Type
则以下正确引用该类型成员的代码是 B 。
A) ="zhang" B) Dim s As Stu
= "zhang"
C) Dim s As Type Stu = "zhang" D) Dim s As Type = "zhang"
14.用“ B ”关键字声明的变量称为全局变量。
A) Private B) Public C) Dim D) Static
15.在窗体上放置一个文本框,程序运行后,在文本框中输入abc,但显示的却是***,可能的原因是该文本框的 D 属性值已经被设置为"*"。
A) Font B) Text C) Name D) PasswordChar
16.在VB 中,Print是对象的 B 。
A) 属性B) 方法C) 事件D) 名称
17.在VB 中,要判断复选框是否为选中状态,使用的属性是 D 。
A) Caption B) Checked C) Selected D) Value
18.设列表框List1中共有3个列表项,如右图所示。则下列语句中,能够删除最后一个列表项的是 A 。
A) 2
B) "项目C"
C) List1. Listcount
D) List1. ListIndex
19.组合框分为下拉式组合框、简单组合框和下拉式列表框,在“属性”窗口中这三种类型是由 A 属性设置的。
A) Style B) FillStyle C) BackStyle D) BorderStyle
20.用户单击滚动条的空白处(滑块与两端滚动箭头之间的区域)时,Value属性所增加或减少的值,是由 D 属性决定的。
A) Min B) Max C) SmallChange D) LargeChange
21.将图片文件“”作为背景图片,装入当前窗体,正确的语句是 D 。
A) = B) = LoadPicture
C) ="" D) = LoadPicture("")
22.要将两个单选按钮放置在同一个框架内,使它们成为一组,正确的操作是 A 。
A) 先放置一个框架,然后在框架中放置两个单选按钮
B) 先放置两个单选按钮,再放置一个框架,放置框架时覆盖在单选按钮上
C) 先放置两个单选按钮,再放置一个框架,然后将两个单选按钮拖动到框架内
D) 以上三种方法都正确
23.计时器控件能够响应的事件是 D 。
A) Load B) Click C) Change D) Timer
24.要使命令按钮处于无效状态,可以设置按钮的 B 属性值为False。
A) Caption B) Enabled C) Style D) Visible
25.如果在一个工程中有多个窗体和模块,则VB默认的启动对象是 C 。
A) 第一个标准模块B) 最后一个被添加的窗体
C) 设计时的第一个窗体D) 最后一个被添加的标准模块
26.在窗体上放置一个图像框,名称为Image1。程序运行时,要保持图像框大小不变,使框中的图片能
够自动适应图像框的大小,可以执行语句 B 。
A) =True B) =True C) =False D) =False 27.使用“菜单编辑器”建立菜单项之间的分隔线时,在菜单项的“标题”中输入的符号是 A 。 A) 减号- B) 下划线_
C) &
D) #
28.要将窗体Form1从内存中卸载,正确的语句是 D 。
A) B) Load Form1 C)
D) UnLoad Form1
29.在窗体上单击时,会触发鼠标事件MouseDown ,其事件过程的一般格式如下:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub
此时,如果单击的是鼠标右键,则Button 参数的值是 B 。 A) 1 B) 2 C) 3 D) 4 30.获取文件的长度(字节数),可以使用的函数是 B 。
A) LEN( )
B) LOF( )
C) EOF( )
D) LOG( )
1.数学表达式
y
x y
3改写为VB 表达式,形式是 【1】 。答案 sqr(3*y) /(x+y) 2.在VB 中,InputBox 函数返回值的数据类型是 【2】 。答案:字符串类型或String 3.语句 Print Tab(5);"ABC" 的功能是 【3】 。
答案:从第5列开始输出字符串“ABC ”
4.下面程序段的功能是:在文本框Text1中输入一个数值x ,如果满足5If 【4】 Then Print "Yes" Else Print "No"
5.设a=1,b=2,c=3,语句 Print a < b Or b < c And c < a 的输出结果是 【5】 。答案:True
6.在窗体上放置一个标签,名称为Label1,使用语句 【6】 可以把标签的前景色设置为蓝色。 = vbBlue 或 RGB(0,0,255) 或QBColor(9) 7.在窗体上放置一个图像框,名称为Image1,要使该图像框向下移动10个默认单位(twip ),正确的语句是 = 【7】 答案: + 10 8.使用“菜单编辑器”建立了一个主菜单,名称为menu1。要把它作为窗体Form1的快捷菜单(也称为弹出式菜单)弹出,使用的语句是: 答案:Popupmenu Form1. 【8】 menu1
9.在窗体上放置一个通用对话框控件,名称为CommonDialog1。使用该控件建立“打开”文件对话框时,要求只能显示文本文件(即扩展名为“.txt ”的文件),则正确的设置语句是CommonDialog1. 【9】 ="文本文件(*.txt)|*.txt"。 答案:Filter 10.设磁盘上已存在顺序文件“”,为了从文件中顺序读取数据而打开该文件,正确的语句是 Open ""
For 【10】 As #1。 答案:Input 1.下列面程序运行后,单击窗体,输出结果是 【1】 。答案:1 3 9
Private Sub Form_Click() s = 0
For n=1 To 3 p = 1
For k = 1 To n
p = p * k
Next k
s = s + p
Print s;
Next n
End Sub
2.下列程序运行后,单击窗体,输出结果是【2】。答案:7
Private Sub Form_Click()
m = 0
For k = 1 To 4
Select Case k
Case 1, 2
m = m + 1
Case Is > 3
m = m + 2
Case 1 To 4
m = m + 3
End Select
Next k
Print m
End Sub
3.?在窗体上放置一个文本框,名称为Text1。下列程序运行后,单击窗体,Text1中显示的内容是【3】。答案:ade
Private Sub Form_Click()
= ""
s = "aBd12Re"
For k = 1 To Len(s)
ch = Mid(s, k, 1)
If ch >= "a" And ch <= "z" Then
= + ch
End If
Next k
End Sub
4.?下列程序运行后,单击窗体,输出结果是【4】。答案:11 24
Option Base 1
Private Sub Form_Click()
x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4)
p = x(1): s=0
For k = 2 To UBound(x)
If x(k) > p Then
p = x(k)
s = s + p
End If
Next k
Print p; s
End Sub
5.?下列程序运行后,单击窗体,输出结果是【5】。答案:1 5 1
Private Sub Form_Click()
Dim a(1 To 3, 1 To 3)
For i = 1 To 3
For k = 1 To 3
If k = 1 Or i = k Then
a(i, k) = 1
Else
a(i, k) = i + k
End If Next k Next i
Print a(1, 1); a(2, 3); a(3, 3) End Sub
6.在窗体上放置一个命令按钮,名称为Command2,并编写如下代码。
Private Sub Command2_Click()
Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; g End Sub
Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub
程序运行后,单击命令按钮,则输出结果是 【6】 。答案:18 12 6 7.在窗体上放置一个命令按钮,名称为Command3,并编写如下代码。
Private Sub Command3_Click() Dim k As Integer k = 1
Print fun1(k); Print fun1(k); Print fun1(k); End Sub
Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer
a = a + 2:
b = b + 2:
c = c + 2 fun1 = a + b + c En
d Function
程序运行后,单击命令按钮,则输出结果是 【7】 。答案:7 11 15 8.在窗体上放置一个文本框,其名称为Text1,并编写如下代码。
Dim s As String
Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s; End Sub
程序运行后,在文本框中输入abc ,则窗体上输出的内容是 【8】 。答案:aababc
1.在窗体上放置一个计时器和一个标签,计时器名称为Timer1,标签名称为Label1。下列程序的功能是:
(1)在窗体加载事件中设置计时器每秒钟能够触发5次Timer 事件;
(2)每触发一次Timer 事件能够将标签上的字号加大2,当字号超过当前窗体的宽度时,将字号恢复为8。
程序中有一处..
错误,请更正。说明错误时可以使用每条语句前的编号。 (1) Private Sub Form_Load() (2) = 5 答案:200 (3) = True (4) End Sub (5) Private Sub Timer1_Timer()