VB2.docx
- 文档编号:8158273
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:13
- 大小:68.46KB
VB2.docx
《VB2.docx》由会员分享,可在线阅读,更多相关《VB2.docx(13页珍藏版)》请在冰豆网上搜索。
VB2
一、单项选择
1.用_D_关键字声明的模块级变量可以在其它模块中使用。
A.Dim B.Public
C.Static D.Private
2.在窗体的过程定义中,Private表示_D_。
A.此过程可以被其他过程调用
B.此过程不可以被任何其他过程调用
C.此过程只可以被本工程中的其他过程调用
D.此过程只可以被本窗体模块中的其他过程调用
3.在窗体上添加一个列表框List1和一个文本框Text1,然后编写如下两个事件过程:
PrivateSubForm_Load()
List1.Clear
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
List1.AddItem"222"
EndSub
PrivateSubList1_Click()
Text1.Text=List1.ListIndex
EndSub
程序运行后,如果依次单击列表框中选项“246”和“123”,则文本框中的内容是_D_。
A.246 B.123
C.3 D.2
4.组合框和列表框都可以用_B_方法添加新的列表项。
A.AddB.AddItem
C.ItemD.Remove
5.若要使某个命令按钮成为窗体的取消按钮(即能用Esc键直接选择),应将其_C_属性值设置为True。
A.DefaultB.Value
C.CancelD.Ok
6.在窗体中添加一个文本框(其Name属性为Text1),然后编写如下代码:
PrivateSubForm_Click()
DimsAsString
Fori=1To5
s=s+IIf(iMod3=1,CStr(i),"0")
Nexti
Text1.Text=s
EndSub
上述程序运行后,单击窗体,则Text1的内容是_D_。
A.5 B.14
C.出错 D.10040
7.改变菜单项的虚实状态主要是设置其_B_属性值。
A.CaptionB.Enabled
C.VisibleD.Checked
8.如果希望一个窗体在显示的时候没有边框,应该设置的属性是_C_。
A.将窗体的标题(Caption)设成空字符
B.将窗体的Enabled属性置成False
C.将窗体的BorderStyle属性置成None
D.将窗体的ContalBox置成False
9.当执行下面语句后,A和B的值依次为_B_。
A=1
B=2
A=A+B:
B=A-B:
A=A-B
A.1和2 B.2和1
C.1和1 D.2和2
10.在中文VB6.0环境中,错误的变量名是_D_。
A.我们 B.Integers
C.a123 D.a.c
11.在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1,然后编写如下代码:
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮,然后再单击Command1按钮,最后在文本框中显示_A_。
A.AB B.CD
C.ABCD D.CDAB
12.表达式4^2mod6/2的值是_B_。
A.0 B.1
C.2 D.3
13.如果系统日期正确,那么在立即窗口中执行以下操作,最后输出的结果是_D_。
(
x=#2002/12/25#
y=date
printx
A.-1 B.0
C.False D.True
14.在某菜单中,有一菜单项(Caption)内容是“NEW”,名称(Name)是“Create”,则单击该菜单项所产生的事件过程应是_B_。
A.PrivateSubMnuNEW_Click()
B.PrivateSubCreate_Click()
C.PrivateSubNEW_Click()
D.SubMnu_Create_Click()
15.下列不能打开属性窗口的操作是_D_。
A.执行“视图”菜单中的“属性窗口”命令
B.按F4键
C.单击工具栏上的“属性窗口”图标
D.按Ctrl+T
16.在窗体中添加两个文本框Text1和Text2,一个命令按钮Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=Text1.Text&Text2.Text
Printa
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
EndSub
程序运行后,在Text1和Text2中分别输入12和34,然后单击命令按钮,则输出结果为_D_。
A.12 B.34
C.46 D.1234
17.设有如下程序:
PrivateSubForm_Click()
Dima(10),P(3)AsInteger
k=0
Fori=1To10
a(i)=i
Nexti
Fori=1To3
P(i)=a(10-2*i)
Nexti
Fori=1To3
k=k+P(i)
Nexti
Printk
EndSub
程序运行后,单击窗体,则在窗体上显示的是_D_。
A.7 B.6
C.19 D.18
18.PrivateSubForm_Click()
DimSAsInteger
S=Val(InputBox("请输入成绩:
"))
SelectCaseS\10
Case9
a="A"
Case8
a="B"
Case7
a="C"
Case6
a="D"
CaseElse
a="E"
EndSelect
Printa
EndSub
程序运行后,单击窗体并输入100,则在窗体上显示的是_B_。
A.A B.E
C.C D.D
19.在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:
PrivateSubCommand1_Click()
x=0
DoUntilx=-1
a=Val(InputBox("请输入A的值"))
b=Val(InputBox("请输入B的值"))
x=Val(InputBox("请输入X的值"))
a=a+b+x
Loop
Printa
EndSub
程序运行后,单击命令按钮,依次在输入对话框中输入
1
A.8 B.9
C.14 D.15
20.通过_B_可以在设计时直观的调整窗体在屏幕上的启动位置。
A.代码窗口 B.窗体布局窗口
C.窗体设计窗口 D.属性窗口
21.要在菜单控件或命令按钮控件的标题中定义热健,在热健字母前必须要用_C_字符。
A._ B.@
C.& D.$
22.如果在立即窗口中执行以下操作(
a=8
b=9
printa>b
则输出结果是_C_。
A.-1 B.0
C.False D.True
23.如果要向工具箱中加入其它控件,可以利用“工程”菜单中的_B_命令。
A.引用 B.部件
C.工程属性 D.加窗体
24.以下叙述正确的是_A_。
A.组合框包含了列表框的功能
B.列表框包含了组合框的功能
C.组合框和列表框的功能完全不同
D.组合框和列表框的功能完全相同
25.在窗体中添加一个名称为Command1的命令按钮,然后编写如下代码:
FunctionF(aAsInteger)AsInteger
StaticcAsInteger
b=0
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click()
Fori=1To3
PrintF
(2);
Nexti
EndSub
程序运行后,如果单击命令按钮,则窗体上显示的内容是_B_。
A.444B.456
C.666D.468
二、多项选择
1.下列表达式中能从当前日期中取出年号的表达式有____。
A、E
A.Year(Date)B.Year
C.Year(Time)D.Year(Day)
E.Year(Now)
2.用Open语句以读的方式打开顺序文件后,可以进行读操作的方式有____。
A、B、D
A.LineInput#语句B.Input函数
C.Get#语句 D.Input#语句
E.Open
3.属于VB关系运算符的有____。
A、C、D
A.>B.≤
C.== D.<>
E.and
4.下列选项中属于复选框CheckBox控件的属性有____。
A、B、C、D、E
A.BackColorB.Caption
C.PictureD.Value
E.ForeColor
5.Shape控件能绘制的图形有____。
A、B、C、D
A.三角形B.正方形
C.圆 D.椭圆
E.多边形
-----------------------------------------------
三、判断
1.在一个窗体中每一个对象都有自己的名称,不同类型的对象名称不能相同。
∨
2.可以利用Shape控件的Shape属性画椭圆。
∨
3.InputBox函数返回的是数值型数据。
×
4.AddItem方法可以向一个组合框中添加项目。
∨
5.VB是一种面向对象的程序设计语言。
∨
6.如果让时钟控件每半秒钟触发一个Timer事件,则Interval属性应设置为0.5。
×
7.在VB中,事件LostFocus是在一个对象失去焦点时发生。
∨
8.命令按钮的标题属性值可以在属性窗口中设置,也可以在程序中设置。
∨
9.DoWhile...Loop循环语句中的循环体至少要执行一次。
×
10.在程序运行期间,滚动条的Value属性发生变化时,一定会触发Scroll事件。
∨
---------------------------------------------------------------
四、填空
1.a="abc"
b=Left(a,1)&a+Mid(a,3)
则变量b的值为__aac__。
(注意:
答案必须用西文半角字母填写,要区分大小写字母,且不能出现空格和多余字符!
)。
2.__LargeChange、SmallChange__属性设置滚动条两端箭头移动的增量值(注意:
答案必须用西文半角小写字母填写,且不能出现空格、小数点和多余字符!
)。
3.借助通用对话框控件显示一个颜色对话框,得使用该控件的__ShowColor__方法(注意:
答案必须用西文半角小写字母填写,且不能出现空格、小数点和多余字符!
)。
4.Dima(1To4,-1To3,3)AsByte
一个Byte类型的变量在内存中占1个字节,则上面数组在内存中占__80__字节。
(注意:
答案必须用半角阿拉伯数字填写,且不能出现空格、小数点和多余字符!
)。
5.PrivateSubCommand1_Click()
DimxAsString,yAsString
DimiAsByte
x="ABCXYZ"
Fori=1ToLen(x)Step2
y=Mid(x,i,1)
Nexti
Printy
EndSub
执行上面程序后,在窗体中输出的内容是__Y__。
(注意:
答案必须用西文半角字母填写,要区分大小写字母,且不能出现空格和多余字符!
)。
6.PrivateSubCommand1_Click()
Dimx$,y$,z$
x="新疆维吾尔自治区"
y=Mid(x,3)
z=Left(x,2)
MsgBoxy,vbInformation,z
EndSub
执行上面程序后,所弹出的消息框的提示内容Prompt是_维吾尔自治区___。
(注意:
答案中不能出现空格和多余字符!
)。
7.Ifx>0Then
y=-1
ElseIfx<0Then
y=1
Else
y=100^0.5
EndIf
Printy
若x的值为0,则以上程序段输出的结果为__10__。
(注意:
答案必须用半角阿拉伯数字填写,且不能出现空格、小数点和多余字符!
)。
8.程序的功能是在文本框中输入一篇中文短文,统计其中句子的个数,并在标签中显示。
假定每个句子以“,”或“。
”结束。
请将下列程序补充完整。
(注意:
答案必须用西文半角字母填写,要区分大小写字母,且不能出现空格和多余字符!
PrivateSubCommand1_Click()
x=Text1.Text
n=Len(Text1.Text)
m=0
Fori=1Ton
y=Mid(x,i,1)
Ify="," _Or_____y="。
" Then
m=m+1
EndIf
Nexti
Label1.Caption="本文共有"&m&"个句子。
"
EndSub
9.以下程序的功能是:
求1到100之间奇数的和。
请将程序补充完整。
(注意:
答案必须用西文半角字母填写,要区分大小写字母,且不能出现空格和多余字符!
DimsAsDouble,nAsInteger
s=0
n=1
Do
s=s+n
n=n+2
Loop___Until_____n>100
Prints
10.Int(Rnd*90)+10
上面表达式的最大值为_99___。
(注意:
答案必须用半角阿拉伯数字填写,且不能出现空格、小数点和多余字符!
)。
五、基本操作1
单击考试系统界面左下角的VisualBasic图标,启动VisualBasic。
打开考试文件夹下的工程文件project11.vbp,在窗体Form1中完成下列操作:
如图所示,设计一个字符变换应用程序。
其中:
窗体的标题为"字符变换"。
在窗体上画一个标签Label1,标题分别为"程序设计",左边界为0,顶边界为0,标签能自动调整大小以显示所有的内容;再画一个水平滚动条HScroll1,刻度值范围为12--96;再画一个文件框Text1。
要求:
改变HScroll1的值时,在文本框Text1中显示HScroll1的值,标签Label1中的字符大小取HScroll1的值(代码中不能用变量)。
注:
本题中工程文件名为project11.vbp,工程名为工程1,窗体文件名为Form11.frm,窗体名为Form1。
答案:
PrivateSubHScroll1_Change()
Text1.Text=HScroll1.Value
Label1.FontSize=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll()
HScroll1_Change
EndSub
六、基本操作2
单击考试系统界面左下角的VisualBasic图标,启动VisualBasic。
打开考试文件夹下的工程文件project12.vbp,在窗体Form1中完成下列操作:
如图所示,设计一个单选按钮应用程序。
其中:
窗体的标题为"单选按钮例子"。
在窗体上画一个文本框Text1,文本为"测试字体",字体大小为四号;再画一个框架Frame1,标题为"字体";在框架Frame1中画三个单选按钮,标题分别为"宋体"、"楷体"、"黑体",单击这三个单选按钮时,文本框Text1中的字体变为与单选按钮标题相对应的字体。
注:
本题中工程文件名为project12.vbp,工程名为工程1,窗体文件名为Form12.frm,窗体名为Form1。
答案:
PrivateSubOption1_Click()
Text1.FontName="宋体"
EndSub
PrivateSubOption2_Click()
Text1.FontName="黑体"
EndSub
PrivateSubOption3_Click()
Text1.FontName="楷体"
EndSub
七、简单应用题
单击考试系统界面左下角的VisualBasic图标,启动VisualBasic。
打开考试文件夹下的工程文件project2.vbp,在窗体Form1上,文本框Text1用于显示五个学生的六次测验成绩;右边的五个标签是一个数组,名称为Label3,用于显示每个学生的平均测验成绩;命令按钮Command1(读取数据),将考试文件夹下的文件in1.dat中的姓名和测验成绩分别读到数组n和a中;命令按钮Command3(保存结果),将标签数组Label3中的所有平均测验成绩存入out1.dat文件中。
在窗体Form1中完成下列操作:
将命令按钮Command1、Command2和Command3的标题分别改为"读取数据"、"计算"和"保存结果";为"计算"按钮(Command2)编写适当的事件代码实现下述功能:
(1)单击"读取数据"按钮,把考试文件夹下的文件in1.dat中的所有内容读到数组n和a中(此代码已经给出);
(2)单击"计算"按钮,计算每个学生的平均测验成绩,并显示在标签数组Label3中,所有平均测验成绩均四舍五入取整或截尾取整(要求考生编写代码);
(3)单击"保存结果"按钮,将标签数组Label3中的所有平均测验成绩存入out1.dat文件中(此代码已经给出)。
注意:
程序按原文件名存盘。
不得修改窗体文件中已经存在的代码。
计算每个学生的平均测验成绩后,必须单击"保存结果"按钮存储计算结果,否则无成绩。
注:
本题中工程文件名为project2.vbp,工程名为工程1,窗体文件名为Form2.frm,窗体名为Form1。
答案:
S=0:
a(i,j)AsInteger:
t(i)AsInteger
Fori=1To5
Forj=1To6
S=S+a(i,j)
Nextj
t(i)=Fix(s/6)
Label3(Index).Caption=t(i)
Index=Index+1
Nexti
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB2