vb练习题有答案.docx
- 文档编号:10706245
- 上传时间:2023-05-27
- 格式:DOCX
- 页数:13
- 大小:20.11KB
vb练习题有答案.docx
《vb练习题有答案.docx》由会员分享,可在线阅读,更多相关《vb练习题有答案.docx(13页珍藏版)》请在冰点文库上搜索。
vb练习题有答案
1 以下函数中,能判断是否到达顺序文件的结束位置(也称文件尾)的是D
A.BOFB.LOCC.LOFD.EOF
2为了把焦点移到某个指定的控件,所使用的方法是_A____。
A.SetFocusB.ShowC.GetFocusD.Move
3下列关于菜单的论述中,错误的是______。
A.每个菜单项都是一个控件,与其他控件一样也有其属性和事件
B.菜单项只能识别Click事件
C.不能在顶层菜单上设置快捷键
D.在程序运行过程中,不可以重新设置菜单项的Visible属性
4 设有语句
Open"C:
\test.txt"ForOutputAs#1
则以下叙述中错误的是B
A.该语句以Output模式打开C:
\test.txt文件,若该文件不存在,则建立一个新文件
B.该语句打开一个已存在的文件C:
\test.txt,若该文件不存在,则程序出错
C.该语句建立的文件的文件号为1
D.执行该语句后,就可以通过Write#语句向文件test.txt中写入数据
5在窗体上已经建立了一个文本框Txt1和一个命令按钮Comd1,运行程序后单击命令按钮,则在文本框Txt1中显示的内容是A
DimaAsInteger'模块级变量
PrivateSubComd1_Click()
DimbAsInteger
a=1:
b=20
CallMySub(b)
Txt1.Text=a+b
EndSub
SubMySub(x)
x=xMod7+a
EndSub
A.8B.9C.6D.7
6在设计阶段,为了清除窗体上的一个控件,以下正确的操作是__C___。
A.按回车键
B.按Esc键
C.选定(单击)要清除的控件,然后按Delete键
D.选定(单击)要清除的控件,然后按回车键
7VB6.0中可以用类型说明符来标识变量的类型,其中表示双精度类型的___B_。
A.@B.#C.$D.%
8 下列程序运行后的输出结果是__B____。
PrivateSubForm_Load()
Show
p=1:
m=5
CallSub1(p)
CallSub1(m)
EndSub
PrivateSubSub1(x)
Ifx>1Thenx=x-1
x=x*4
Printx;
EndSub
A.415B.416
9以下叙述中,错误的是_B____。
A.在VB中,对象所能响应的事件是由系统定义的
B.对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定
C.VB中允许不同对象使用相同名称的方法
D.VB中的对象具有自己的属性和方法
10当用户按下并释放键盘上的某个键时,将触发KeyPress、KeyDown和KeyUp事件。
这三个事件发生的顺序是_____D__。
A.KeyPress、KeyDown、KeyUp
B.KeyPress、KeyUp、KeyDown
C.KeyUp、KeyPress、KeyDown
D.KeyDown、KeyPress、KeyUp
11有如下程序:
PrivateSubForm_Click()
ForK=1to10
Forj=1ToK
Print"*";
Nextj
NextK
EndSub
运行时,输出星号的行数是__C___。
A.50B.20C.10D.100
12 要使过程的实际参数变量在过程调用后其值不会改变,应在定义该参数时,选用___A___。
A.ByValB.Static
C.PublicD.ByRef
13 下列关于全局变量的叙述中,错误的是A
A.在窗体模块或在标准模块中定义的Public变量,都是全局变量
B.全局变量必须在标准模块中定义
C.全局变量不能采用Dim语句来定义
D.在标准模块中定义的全局变量,可在整个工程的所有模块中引用,也可以在其他模块中对它重新赋值
14列表框中的列表内容是通过属性来设置,这个属性是___A__。
A.ListB.HeightC.ColumnsD.Index
15 下列函数中,__C____的值不是字符“B”。
A.Chr(66)B.Left("B",1)
C.ASC("66")D.String(1,66)
16在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则应使用____D__关键字在过程中定义局部变量。
A.DimB.PrivateC.PublicD.Static
17以下叙述中,错误的是__B___。
A.双击鼠标可以触发DblClick事件
B.窗体或控件的事件的名称可以由编程人员确定
C.移动鼠标时会触发MorseMove事件
D.控件的名称可以由编程人员设定
18从字符串s中,取第5个字符起的6个字符,应使用___C____。
A.Mid(s,6,5))B.Left(s,5,6)
C.Mid(s,5,6)D.Right(s,6,5)
19窗体上有一个按钮Command1和一个标签Label1,程序执行后,单击按钮时标签的显示内容是___21__。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
a=2:
b=3:
c=4
Label1.Caption=p2(c,b,a)
EndSub
PrivateFunctionp1(xAsInteger,yAsInteger,zAsInteger)
p1=2*x+y+3*z
EndFunction
PrivateFunctionp2(xAsInteger,yAsInteger,zAsInteger)
p2=p1(z,x,y)+x
EndFunction
20用Print方法可以在窗体中显示文本信息,若想清除这些信息,可用的方法是___A___。
A.ClsB.ClearC.RemoveD.Delete
21表达式x+1>x是_C_____。
A.算术表达式B.字符串表达式C.关系表达式D.日期表达式
22函数UCase(Mid("VisualBasic",7,5))的值为___C__。
A.VisuaB.BasicC.BASICD.VISUA
23设x=4,y=8,z=7,以下表达式的值是__C___。
x A.TrueB.1C.FalseD.–1 24要建立一个学生成绩的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是__C____。 A.Typestudl noAsString*8 nameASString score(1to3)AsSingle EndType B.Typestudl noAsString*8 nameAsString*10 score()AsSingle动态数组 EndType C.Typestudl noAsString*8 nameAsString*10 score(1to3)AsSingle EndType D.Typestudl noAsString*8 nameAsString score(1to3)AsString EndType 25在窗体上放置两个文本框,名字分别为Text1和Text2,然后编写下列程序: PrivateSubForm_Load() Text1.Text="" Text2.Text="" EndSub PrivateSubText2_KeyPress(KeyAsciiAsInteger) Text1.Text=Text1.Text+Chr(KeyAscii-5) EndSub 程序运行后,如果在文本框Text2输入“lmn”,那么在文本框Text1中显示的内容将是_____。 A.abcB.hijC.ghiD.fgh 26编写如下三个事件过程: PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode+1); EndSub PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode+2); EndSub PrivateSubForm_KeyPress(KeyAsciiAsInteger) PrintChr(KeyAscii+3); EndSub 运行程序后,直接打入“a”键符,则程序输出___D____。 A.DCBB.CbAC.AcBD.CdB 27设在窗体上有两个命令按钮,其中一个命令按钮的名称为CmdA,则另一个命令按钮的名称不能是_A____。 A.CmdaB.CmdbC.CmdcD.Command1 28窗体KeyUp事件过程如下,启动程序后按小写字母“a”,输出结果为__B___。 PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub A.aB.AC.65D.97 29 设有以下语句: str1=InputBox("输入","","练习") 执行后用户从键盘上输入字符串“示例”后,str1的值是__D____。 A."输入"B.""C."练习"D."示例" 30设a$="12-9",表达式Val(a$)-Len("0"+a$)的值是__B____。 A.6B.7C.8D.9 31下列程序段运行后,变量x的值是_____A__。 x=0 Fork=10To19Step3 x=x+1 Nextk A.4B.5C.6D.7 32 “x是介于50和100之间(不含50和100)的数”,用VB表达式表示的是__C____。 A.50 C.50 33在下列控件中,_EC_____不允许用户在程序运行时输入文字。 A.文本框B.下拉组合框C.标签 D.简单组合框E.下拉列表框 34VB允许的常量有_AC____。 A.4.8E-2B."VB"&"程序设计"C.False D.4*10E.d1 35单选(多) 数组a中有20个元素(a (1)~a(20)),要求调换数组中数值的存放位置,即a (1)与a(20)的值互换,a (2)与a(19)的值互换,……,a(10)与a(11)的值互换。 请完善下列程序段。 Forj=1To____[1]_C___ n=____[2]__A__ t=a(j) a(j)=a(n) ____[3]_A___ Nextj [1]A.20B.19C.10D.n [2]A.21-jB.jC.20-jD.1 [3]A.a(n)=tB.t=a(n) C.n=jD.a(n)=a(j) 36设在窗体上有一个文本框Text1和一个文本框数组Text2,数组Text2有15个文本框,索引号0~14,其中存放的都是数字数据。 现由用户单击选定数组Text2中的任一个文本框,然后计算从该文本框开始,到最后一个文本框为止的若干个文本框中的数值总和,把计算结果显示在文本框Text1中,请完善下列事件过程。 PrivateSubText2_Click(IndexAsInteger) DimsAsSingle s=0 Fork=____[1]___D_To14Step1 s=s+Val(____[2]_A___) Nextk ____[3]___B_ EndSub [1]A.0B.Index+1C.1D.Index [2]A.Text2(k).TextB.Text1(k).Text C.Text2.Text(k)D.Text1.Text(k) [3]A.Val(Text1.Text)=sB.Text1.Text=s C.Text1(k).Text=sD.s=Text1.Text 37 窗体上放置一个命令按钮Cmd1和一个标签Lab1。 请完善下列程序,使之完成以下操作: (1)程序开始运行时,两个控件的Visible属性被设置为False(隐藏起来); (2)单击窗体时显示出命令按钮; (3)单击命令按钮时显示标签,并在标签上显示“标签在这里! ”。 PrivateSub_____[1]_____(C) Lab1.Visible=False Cmd1.Visible=False EndSub PrivateSub_____[2]_____(D) Lab1.Visible=True Lab1.Caption="标签在这里! " EndSub PrivateSubForm_Click(A) _____[3]_____ EndSub [1]A.Form_UnLoadB.Lab1_Click C.Form_LoadD.Form_Click [2]A.Form_ClickB.Lab1_Click C.Form_LoadD.Cmd1_Click [3]A.Cmd1.Visible=TrueB.Lab1.Visible=False C.Cmd1.Visible=FalseD.Form.Visible=True 38 设计一个简单的倒计时器。 在窗体上放置一个计时器Timer1和一个标签Label1。 程序运行后,用输入对话框输入倒计时数x(小于100的正整数),然后开始倒计时(x值逐次减1),倒计时数在标签上显示。 当计到0时,通过消息对话框显示“倒计时结束”。 请将程序补充完整。 ____[1]_B____ PrivateSubForm_Load() Timer1.Interval=1000 Timer1.Enabled=False t=InputBox("倒计时数=") ____[2]___B__ EndSub PrivateSubTimer1_Timer() ____[3]___C__ Label1.Caption=t Ift=0Then MsgBox"倒计时结束! ! " Timer1.Enabled=False EndIf EndSub [1]A.OptionBase1B.DimtAsInteger C.DimtAsStringD.DimtAsString*100 [2]A.t=t-1B.Timer1.Enabled=True C.t=Time()D.Timer1.Visible=True [3]A.t=Time()B.Timer1.Enabled=False C.t=t-1D.Timer1.Enabled=True 39填空 在窗体上建立了一个名称为Label1的标签和一个名称为Command1的命令按钮数组,数组元素按排列顺序赋予索引号(从0开始),并编写如下代码: PrivateSubCommand1_Click(IndexAsInteger) IfIndex>1Then Label1.Caption=Left(Label1.Name,5)&Index Else Label1.Caption=Label1.Name EndIf EndSub 运行时,当单击按钮数组中的第3个按钮时,标签上显示的内容是____Label2___。 40 通过编程求出结果。 把9786表示为两个加数之和,使其中一个加数能被91整除,而另一个加数能被87整除。 请求出: 在这两个加数中,能被91整除的加数等于多少? PrivateSubForm_Load() Show Forx=91To9786Step91 If(9876-x)Mod87=0Then Printx EndIf Next EndSub 41 编写程序求结果。 取一元、二元、五元的硬币共23枚(每种硬币至少取1枚),付给45元钱,有___5___种不同的取法。 (仅回答有多少种) PrivateSubForm_Load() Show n=0 Fora=1To23 Forb=1To23 c=23-a-b Ifa*1+2*b+c*5=45Andc>0Then n=n+1 EndIf Nextb Nexta Printn EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 练习题 答案