==================================================
1.当文本框的_____属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。
A、Locked
B、SelStart
C、Shape
D、SelText
答案：
A
2.Picture控件AutoSize属性设置为_____，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件
到恰好显示整个图片为止。
A、False
B、3
C、无
D、True
答案：
D
3.要使一个标签透明且具有边框，则应_____。
A、将其BackStyle属性设置为1，BorderStyle属性设置为1
B、将其BackStyle属性设置为0，BorderStyle属性设置为1
C、将其BackStyle属性设置为0，BorderStyle属性设置为0
D、将其BackStyle属性设置为1，BorderStyle属性设置为0
答案：
B
4.当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。
A、文本框的MultiLine属性为False
B、文本框中没有内容
C、文本框的MultiLine属性为True
D、文本框的Locked属性为True
答案：
A
5.如果文本框的Enabled属性被设置为False,则运行时_____。
A、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
B、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上
D、文本框中的文本将变成灰色，用户仍能改变文本框中的内容
C
.6要使Form1窗体的标题栏显示"欢迎使用VB"，以下_____语句是正确的。
A、Form1.Caption=/欢迎使用VB/
B、Form1.Caption=欢迎使用VB
C、Form1.Caption="欢迎使用VB"
D、Form1.Caption='欢迎使用VB'
答案：
C
7.当对象失去焦点时，将会发生_____事件。
A、LostFocus
B、Focus
C、SetFocus
D、GetFocus
答案：
A
8.在设计列表框时，若实现输入多行文字的目的，应使用_____键实现文本的换行。
A、Alt+Enter
B、Enter
C、Ctrl+Enter
D、Ctrl+Shift+Enter
答案：
C
9.下列控件中，没有Caption属性的是_____。
A、单选按钮
B、框架
C、列表框
D、复选框
答案：
C
10.以下不属于标签属性的是_____。
A、Index
B、Value
C、Caption
D、Font
答案：
B
11.有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。
A、String,""
B、Integer,0
C、Long,0,0
D、Variant,空值
答案：
D
12.下列可以将变量A、B互换的语句是____________。
A、A=B: B=C: C=A
B、A=A+B: B=A-B: A=A-B
C、A=(A+B)/2: B=(A-B)/2
D、A=C: C=A
答案：
B
13.在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，
下列赋值语句中，正确的是______。
A、Bl=#True#
B、D=#10/05/01#
C、Inta= "333" + "22"
D、St=5+ "abc"
答案：
B
14.下列____________是日期型常量
A、“江苏南京”
B、123#
C、#02/25/1999#
D、“I am a student”
答案：
C
15.表达式X+1>X是_____________.
A、字符串表达式
B、非法表达式
C、算术表达式
D、关系表达式
答案：
D
16.下面程序段的功能是 A=10.5 B=INT(A+0.5) Debug.Print B
A、求平均值
B、舍去一实数的小数部分
C、将一实数四舍五入取整数
D、求绝对值
答案：
C
17.下列叙述不正确的是___________ .
A、代码中加入注释语句的目的的提高程序的可读性
B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译
C、注释语句可以放在代码中的任何位置
D、注释语句不能放在续行符的后面
答案：
C
18.下列不正确的变量名是________。
A、Arry@
B、Text
C、Command
D、Form
答案：
A
19.假定变量Logic类型是Boolean，下面赋值语句________是正确的。
A、Logic = ‘True’
B、Logic = # True #
C、Logic = .True.
D、Logic = 3<4
答案：
D
20.以下各项中，____________不是一个合法的字符串。
A、"等级考试"
B、#Basic#
C、""
D、"Visual"
答案：
B
21.结构化程序设计方法的核心是规定了三种基本结构：_____结构、分支结构、循环结构。
A、顺序
B、条件
C、逻辑
D、当型
答案：
A
22.执行下面的程序，单击窗体后在窗体上显示的结果是_____。
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Dim Str3 As String, I As Integer
Str1= "e"
For i = 1 To 2
str2 = UCase(Str1)
Str1 = Str2 & Str1
Str3 = Str3 &Str1
Str1 = Chr(Asc(Str1)+1)
Next I
Print str3
End Sub
A、EEEE
B、eeFF
C、EeFF
D、eEfF
答案：
C
23.执行以下程序段，在窗体上显示的结果是_____。
Private Sub Form_Click()
Dim S As String, i As Integer
S = "ab"
For i = Len(S) To 1 Step -1
Print Chr( Asc ( Mid ( S , i , 1 ) ) + i )
Next I
End Sub
A、db
B、cb
C、cc
D、fd
答案：
A
24.VB也提供了结构化程序设计的三种基本结构，这三种基本结构是_____。
A、递归结构、选择结构、循环结构
B、选择结构、循环结构、顺序结构
C、过程结构、输入\输出结构、转向结构
D、选择结构、过程结构、顺序结构
答案：
B
25.存在如下程序：
Private Sub Command1_Click( )
a=Val(InputBox("请输入"))
b=Val(InputBox("请输入"))
x=a+b
If a>b Then
x=a-b
endif
Print x
End Sub
运行后，从InputBox对话框中连续输入3和4，输出结果为_____。
A、3
B、34
C、0
D、7
答案：
D
26.设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示
的结果与执行语句a=s:Text1=a的结果相同的有_____个。
①a=Int(s):Text1=a
②a=Fix(s):Text1=a
③a=CInt(s):Text1=a
④a=Format(s,"#####"):Text1=a
A、4
B、1
C、2
D、3
答案：
C
27.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_____。
A、If sex="男" And age=40 And duty="教授"And duty="副教授" Then n=n+1
B、If sex="男" And age<40 and (duty="教授" or duty="副教授") Then n=n+1
C、If sex="男" And age <40 And InStr(duty，"教授")>0 Then n=n+1
D、If sex="男" And age<40 And Right(duty,2)="教授" Then n=n+1
答案：
A
28.下面程序段，显示的结果是_____。
Dim x
x=Int(Rnd)+5
select Case x
Case 5
print "优秀"
Case 4
print "良好"
Case 3
print "通过"
Case Else
print "不通过"
End Select
A、通过
B、不通过
C、良好
D、优秀
答案：
D
29.有如下程序：
Private Sub Command1_Click( )
score=65
select Case score
Case Is<60
a$="F"
Case 60 To 69
a$="D"
Case 70 To 79
a$="C"
Case 80 To 89
a$="B"
Case else
a$="A"
End Select
MsgBox a$
End Sub
程序运行后，消息对话框中显示的内容为_____。
A、D
B、B
C、A
D、C
A
30.下面程序段运行后，显示的结果是_____。
Dim x
If x Then Print x Else Print x +1
A、-1
B、0
C、1
D、显示出错信息
答案：
C
31._____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件
B、工程
C、属性
D、方法
答案：
A
32.以下四个说法中不正确的是_____。
A、可以通过双击工具箱中的控件，将控件加入窗体上
B、在窗体上选中控件，按【Del】键可删除该控件
C、VB中所有基本控件都可以改变大小
D、控件工具箱中可以添加新的控件
答案：
C
33.以下说法错误的是_____。
A、通常情况下，集成环境中只显示标准工具栏，其他工具栏可通过视图菜单中的“工具栏”命令打开
B、SDI是指多文档界面，MDI是指单文档界面。在默认情况下，Visual Basic集成开发环境是单文档界面方式，可在“工具”菜单下的选项命令中的“高级”选项卡下进行MDI与SDI的互换
C、单击标准工具栏中的属性按钮可以打开属性窗口，相当于执行“视图”菜单下的“属性窗口”命令
D、当一个程序包括两个以上的工程时，这些工程构成一个工程组，其扩展名为.vbg
答案：
B
34.VisualBasic中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、图表、工具、外接程序、窗口和帮助。
A、浏览
C、属性
D、查看
答案：
B
35.VisualBasic程序设计时常用的Print、Cls属于_____。
A、方法
B、事件
C、打印字库
D、属性
答案：
A
36.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是____________。
A、立即窗口
B、代码窗口
C、窗体布局窗口
D、监视窗口
答案：
B
37.以下关于事件的说法，正确的是_____。
A、用户可以根据需要建立新的事件
B、事件是由系统预先定义好的，能够被对象识别的动作
C、不同类型的对象所能识别的事件一定不相同
D、事件的名称是可以改变的，由用户预先定义
答案：
B
38.对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_____过程。
A、调动
B、事件
C、方法
D、编译
答案：
B
39.保存新建的工程时，默认的路径是_____。
A、\
B、Windows
D、MyDocuments
答案：
C
40.5执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。
A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体
B、启动窗体和其他窗体一样可以隐藏和关闭
C、启动窗体一般作为用户工作的界面，不可更改
D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”
答案：
C
填空
==================================================
有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处红色一种属性，飞是一种_____。针刺是一种_____，爆破是一种_____。
答案：
空 1:
方法
空 2:
事件
空 3:
方法
Visual Basic有三种运行模式，分别是_____、运行模式和中断模式，其中_____模式可以监视表达式和变量的值。
答案：
空 1:
设计模式【或】设计
空 2:
中断模式【或】中断
要运行VB的程序可以按_____键。
答案：
空 1:
F5
Visual Basic程序在运行时中，用户可通过按_____键进入中断状态。
答案：
空 1:
Ctrl+Break
要把Label控件中显示的文字设置成左对齐，应设置Label控件的_____属性。
答案：
空 1:
Alignment
要使文本框txt1中显示的字符为黑体，使用的语句是_____。
答案：
空 1:
txt1.FontName="黑体"
要把在Label控件中显示的文字颜色设置为红色，应设置Label控件的_____属性。
答案：
空 1:
ForeColor
Visual Basic中的控件分为两类，一类是_____控件，另一类是ActiveX控件。
答案：
空 1:
标准
语句Print 12;Tab;24的执行结果是_____.
答案：
空 1:
12 24
表示"x和y都是正整数或都是负整数"的VB表达式为_____。
答案：
空 1:
X*Y>0 and int(x)=x and int(y)=y 【或】 (x>0 And x=Int(x) And y>0 And y=Int(y)) Or (x<0 And x=Int(x) And y<0 And y=Int(y)) 【或】 (x>0 and x=Int(x) and y=0 and y=Int(y))or(x<0 and x=-Int(x) and y=0 and y=-Int(y) 【或】 x*y>0 And x=int(x) and y=int(y)
表达式Fix(-48.65)+Int(-52.15)的值是_____。
答案：
空 1:
-101
表达式7^2Mod 5^2\3的值为_____
答案：
空 1:
1
执行下面的程序后，b的值为_____
a=300:b=20:a=a+b:b=a-b:a=a-b
答案：
空 1:
300
下列函数调用时弹出的对话框中按钮的个数为_____。
MsgBox ("程序非法！",vbAbortRetryIgnore,"消息提示")
答案：
空 1:
3
有如下程序：
Private Sub Command1_Click( )
a=Val(InputBox("请输入"))
b=Val(InputBox("请输入"))
x=a+b
If a>b Then x = a-b
Text1.Text=x
End Sub
运行后，从InputBox对话框中连续输入3和4，文本框中显示的是_____；若连续输入4和3，文本框中又显示的是_____。
答案：
空 1:
7
空 2:
1
程序填空
==================================================
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。' 判断密码是否正确，并显示相应提示
' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”
'请在_____处填入正确的内容
'-------------------------------------------------------
Dim x As String
Private Sub Command1_Click()
x = Text1.Text
'**********FILL**********
If x _____ "12345678" Then
MsgBox ("欢迎你用机!")
Else
MsgBox ("对不起，口令错")
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
'**********FILL**********
Text1._____ = 8
'**********FILL**********
Text1._____ = "*"
End Sub
答案：
位置 1:
=
位置 2:
MaxLength
位置 3:
PasswordChar
窗体设计
==================================================
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面。
------------------------------------------------
1：在窗体内添加2个框架(Frame1，Frame2)，1个标
签(Label1)，2个按钮(Command1，Command2)。
并在第1个框架(Frame1)内添加1个文本框(Text1)，
在第2个框架(Frame1)中添加3个单选框(Option1，
Option2，Option3)。
2：窗体设置：
设置窗体名称(Name)为"Form7"。
设置窗体标题(Caption)为"VB上机试卷"。
3：框架设置：
设置第1个框架(Frame1)的标题(Caption)为"请输入圆的半径"。
设置第1个框架(Frame1)中的文本框(Text1)的文本内容(Text)为空。
设置第2个框架(Frame2)的标题(Caption)为"计算类型"。
设置第2个框架(Frame2)中的单选框(Option1)的标题(Caption)为"直径"。
设置第2个框架(Frame2)中的单选框(Option2)的标题(Caption)为"周长"。
设置第2个框架(Frame2)中的单选框(Option3)的标题(Caption)为"面积"。
4：标签设置：
设置标签(Label1)d的标题(Caption)为"圆的面积为113.09724"。
5：按钮设置：
设置第1个按钮(Command1)的标题(Caption)为"计算"。
设置第2个按钮(Command2)的标题(Caption)为"退出"。
------------------------------------------------
【窗体设计】
------------------------------------------------
题目：请按照题目要求设计指定的窗体。
建立如(图1)所示界面：请按所给窗体的样子设计
窗体（不要求控件的尺寸一样，运行时得到所给
窗体即可，有时需要简单的事件过程）。
------------------------------------------------
1、在窗体内添加2个框架(Frame1，Frame2)。
然后在框架(Frame1)中添加1个文本框(Text1)，
1个标签(Label1)，3个按钮(Command1，Command2，
Command3)。
在框架(Frame2)中添加2个列表框(List1，List2)，
2个标签(Label2，Label3)，2个按钮(Command4，
Command5)。
2、窗体设置：
设置窗体名称(Name)为"Form29"。
设置窗体标题(Caption)为"用户与组账号"。
3、框架设置：
设置第1个框架(Frame1)的标题(Caption)为"用户"。
设置第1个框架(Frame1)中的按钮(Command1)的标题(Caption)为"新建(&W)..."。
设置第1个框架(Frame1)中的按钮(Command2)的标题(Caption)为"删除(&E)"。
设置第1个框架(Frame1)中的按钮(Command3)的标题(Caption)为"清除密码(&L)"。
设置第1个框架(Frame1)中的文本框(Text1)的文本(Text)为"管理员"。
设置第1个框架(Frame1)中的标签(Label3)的标题(Caption)为"名称(&N):"
设置第2个框架(Frame2)的标题(Caption)为"组成员"。
在第2个框架(Frame2)中的列表框(List1)中输入文本"管理员组"，"用户组"。
在第2个框架(Frame2)中的列表框(List2)中输入文本"管理员组"，"用户组"。
设置第2个框架(Frame2)中的标签(Label2)的标题(Caption)为"可用的组(&V):"。设置第2个框架(Frame2)中的标签(Label3)的标题(Caption)为"隶属于(&M):"。设置第2个框架(Frame2)中的按钮(Command4)的标题(Caption)为"添加(&D)>>"。设置第2个框架(Frame2)中的标签(Command5)的标题(Caption)为"<<移去(&R)"。
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 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的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
大一VB期末考试试卷及答案 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(3.1416)的返回值是（ 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)
请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。
3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:
大一的vb期末考试题和答案 1．在代码中引用一个控件时，应使用控件的（）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。 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产生的随机整数范围是（）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（）类型数据。 A．整型 B．单精度浮点数 C．货币 型 D．长整型 6．下列变量名中正确的是（）。
A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（）是有效的。 A.sum=sum-sum B.x+2=x+2 C.x+y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（）。 A．Print B．Textbox C．Optionbutto n D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。 https://www.doczj.com/doc/7017067806.html, B.ListIndex C．ListCount D．Text 10．下列代码的运行结果为（）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5
下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示: 1. 各题必须按要求用通用过程或函数过程进行编程。 2. “第一题”：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 阶乘自定义函数F(n)的编写参考上课讲义 计算二项式系数Cmn可以通过调用F(n)函数完成：cmn=F(m)/(F(n)*F(m-n)) 3. “第二题”：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 自定义函数Sum(n)的编写： Function Sum(n As Integer) As Long ……'编写s=1+2+...+n的程序段 Sum=s '将计算结果赋值给函数名 End Function 计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和就转化为计算Sum(1)+Sum(2)+Sum(3)+……+Sum(100)的编程。 参考计算1!+2!+……+10！的程序 4. “第三题”：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；
试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题
练习卷五 一、语言基础题（40分） 判断题（本题10分，每小题1分） 1. 可以在窗体的通用部分声明静态变量。 2. 事件过程也可以用Sub过程调用语句进行调用。 3. 表达式#5/22/99 6:22:30 PM# - #4/22/99#的值是数值型的。 4. 表达式 -5^2 > Rnd*10 的值为False. 5. 对象的Top和Left属性值都必须大于或等于零。 6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。 7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。 8. 每个Vb对象都有Name属性。 9. 组合框ComboBox和列表框ListBox都有Selected属性。 10. CommonDialog 对象的ShowSave方法能保存用户指定的文件。 单选题（本题10分，每小题1分） 1. 菜单条的顶层菜单控件＿＿。 [A] 不允许设置快捷键[B] 允许设置快捷键 [C] 不存在ShortOut属性[D] 有子菜单时允许有快捷键 2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。 [A] 该事件发生在文本框对象的KeyDown事件前。 [B] 该事件发生在文本框对象的KeyDown事件后。 [C] 随后便发生文本框对象的Lick事件。 [D] 随后便发生文本框对象的 GotFocus事件。 3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。 [A] 增加一个SmallChange量[B] 减少一个SmallChange量 [C] 增加一个LargeChange量[D] 减少一个LargeChange量 4. 执行Form1.Scale (10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。 [A] 向左和向下[B] 向右和向上 [C] 向左和向上[D] 向右和向下 5. 执行List1.List(List1.ListCount)= “80”语句后，＿＿。 [A]会产生出错信息 [B] List1列表框最后一个表项被改为“80” [C] List1列表框会增加一个“80”表项 [D] 指定List1列表框的表项个数为80个 6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要 在＿＿。 [A] Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive和在Dir1的Change事件过程 中加入File1.Path=Dir1.Path代码 [B] Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path ,在Dir1的Change事件中加 入Dir1.Path = File1.Path代码 [C] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=File1.Filename代码 [D] 在Dir1的Change事件过程中加入Dir1.Path = Drive1.Drive在File1的Click事件过程 中加入File1.Path=Dir1.Path代码 7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件 过程中加入＿＿语句。 [A] Text1.Index=0 [B] Text1.TabIndex=0 [C] Text1.Appearance=0 [D] Text1.Tag=0 8. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。 [A] Image、Form、Frame [B] Frame、Picture、Image
安全土木化工化学vb练习题4 满分： 111 分 姓名： ________ 1、单项选择题(本题共计60 分) (1、在过程调用中，参数的传递可以分 为 ) ________________ 和 ________________ 两种方式。 A 、按值传递 B 、按地址传递 C、按参数传递 D、按位置传递 按地址传递 按参数传递 按值传递 按参数传递 2、下面的过程定义语句中合法的是________________________。() A 、 Sub Procl (ByVal n () ) B 、Sub Procl ( n ) As Integer C、 Function Procl (Procl ) D、 Function Procl (ByVal n ) 3、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。( ) A 、 ByVal B 、ByRef C、 Value D、 Reference (4、要想在过程调用后返回两个结果，下面的过程定义语句合法的 是 ) ________________ 。 A 、 Sub Procl ( ByVal n , ByVal m) B 、Sub Procl ( n , ByVal m) C、 Sub Procl ( n , m) D、 Sub Procl ( ByVal n , m) 5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。( ) A、添加过程 B、通用过程 C、添加窗体 D、添加模块 6、可以在窗体模块的通用声明段中声明的是________________ 。( ) A、全局变量 B、全局常量 C、全局数组 D、全局用户自定义类型 7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。( ) A 、 Load B、Click C、 UnLoad D、 GotFocus
VB期末考试试题及答案 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。
试卷方案： 201105 Visual Basic 期末考试方案 一、单项选择 _ 共 50 题 （选： 20 题 *1 ’=20 分） 第 1 题 以下有关对象属性的说法中，错误的是 . A. 工具箱中的控件并不是 VB 中所有的控件 B. 若将 Frame 的 Enabled 属性设置为 C. 对象的 Name 属性在运行时不能改变 False ，则不能使用放置在 Frame 里面的控件 D. 对象的所有属性都可以在属性窗口中设置 第 2 题 3 x | x e 数学表达式 的 VB 算术表达式为 . sin 27 y | A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第 3 题 下列有关对象的叙述中 , 正确的是 A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由 VB 预先设置好的人工干预的动 作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第 4 题 表达式 A. 1 第 5 题 的运算结果是 CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2 . C. – 2 D. – 3 B. -1 下列关于菜单的说法中 , 错误的是 . A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应 DblClick 事件 C. VB6.0 允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的 第 6 题 属性为 Enabled False 以下关于数组的说法中 A. 使用了 Preserve , 错误的是 . 子句的 Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组 , Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第 7 题 设 运行 print a>b>c 的结果是 . a=3,b=2,c=1, D. 出错 A. True B. False C. 1 第 8 题
VB期末考试试题及答案 二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外得所有菜单控件都能识别该事件。A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)得Max属性所设置得就是 A 。 A、滚动框处于最右位置时,一个滚动条位置得Value属性最大设置值 B、单击滚动条与滚动箭头之间得区域时,滚动条中滚动块得最大移动量 C、单击滚动条得箭头区域时,滚动条中滚动块得最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中得*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签得属性就是 C 。
A、Enabled B、Caption C、 Default D、Font 5、要求改命令按钮显示得文本,应当在属性窗口中改变得属性就 是 A 。 A、Caption B、Name C、 Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项得选中状态,应当在属性窗口中改变得属性就是 D 。 A、Caption B、Name C、 Text D、Value 7、允许在菜单项得左边设置打勾标记,下面哪种论述就是正确 得？ D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打 勾D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub mand1_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得结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件就是容器控件 B 。 A、Image B、Picture C、 boBox D、 11、若要将窗体从内存中卸载出去,其实现得方法就是 D 。
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＝34.58，语句PrintFormat(x,“000.0”)的输出结果是（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*Formstudent中的*表示（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）。
VB期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框
C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗 体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2
V B期末考试试卷及答 案 文档编制序号：[KK8UY-LL9IO69-TTO6M3-MTOL89-FTT688]
V B期末考试试卷及答案一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框 C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ）
A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为 Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要 做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2 D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设 置为2 10. 以下关于文件的叙述中，正确的是（ B ） A 以Output方式打开一个不存在的文件时，系统将显示出错信息
1给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除） Private Sub Command1_Click() Dim x As Integer, y As Integer Text1.Text = InputBox("请输入年份") x = Val(Text1.Text) Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) End Sub Private Sub Command2_Click() Dim x As Integer, y As Integer Text2.Text = InputBox("请输入月份") y = Val(Text2.Text) Select Case y Case 3 To 5 Text4.Text = "春季" Case 6 To 8 Text4.Text = "夏季" Case 9 To 11 Text4.Text = "秋季" Case 1, 2, 12 Text4.Text = "冬季" End Select End Sub Private Sub Command3_Click() Dim x As Integer, y As Integer Text1.Text = InputBox("请输入年份") x = Val(Text1.Text) Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _ Or (x Mod 4) = 0 And (x Mod 400 = 0) Text2.Text = InputBox("请输入月份") y = Val(Text2.Text) Select Case y Case 1, 3, 5, 7, 8, 10, 11 Text5.Text = "31天" Case 4, 6, 9, 12 Text5.Text = "30天" Case 2 If Text1.Text = 0 Then Text5.Text = "29天" Else Text5.Text = "28天" End If End Select