VB模拟试题8.docx
- 文档编号:5244743
- 上传时间:2022-12-14
- 格式:DOCX
- 页数:14
- 大小:73.92KB
VB模拟试题8.docx
《VB模拟试题8.docx》由会员分享,可在线阅读,更多相关《VB模拟试题8.docx(14页珍藏版)》请在冰豆网上搜索。
VB模拟试题8
一、单选题(30分,每小题1分)
1.下列软件中___A___是操作系统。
(A)Windows(B)InternetExplorer(C)WPS(D)VisualBasic
2.鼠标属于计算机中的___D___。
(A)中央处理器(B)存储器(C)输入设备(D)输出设备
3.下列表示存储容量的数据中,___C_____是最大的。
(A)20480KB(B)1.44MB(C)2.5GB(D)4865723Byte
4.十进制数13转换为二进制是___A___。
(A)1101(B)1011(C)1100(D)1010
5.WINDOWS中扩展名为___B___的文件不是图形文件。
(A)JPG(B)EXE(C)BMP(D)ICO
6.在一个多窗体的工程中,如果有一个自定义函数需要被多个窗体调用,则此函数的定义可保存在一个___B___类型的文件中。
(A)VBP(B)BAS(C)FRM(D)OCX
7.下列___B___可作为VB的变量名。
(A)A&A(B)print_2(C)12AB(D)Const
8.下列对象中___B____不能作为放置其他控件的容器。
(A)窗体(B)文本框(C)图片框(D)框架
9.以下语句中____C__能在窗体的标题栏中显示“VisualBasic窗体”。
(A)Form1.Title="VisualBasic窗体"(B)Form1.Name="VisualBasic窗体"
(C)Form1.Caption="VisualBasic窗体"(D)Form1.Text="VisualBasic窗体"
10.设窗体中有一个列表框Listt1和一个标签Label1。
列表框中显示若干城市名称,单击某个城市名时,标签中显示选中的城市名称。
以下___D___事件过程能实现该功能。
(A)PrivateSubList1_Click()
Label1.Caption=List1.ListIndex
EndSub
(B)PrivateSubList1_Click()
Label1.Text=List1.ListIndex
EndSub
(C)PrivateSubList1_Click()
Label1.Text=List1.Text
EndSub
(D)PrivateSubList1_Click()
Label1.Caption=List1.Text
EndSub
11.窗体中有一个命令按钮Command1。
运行下列程序时单击命令按钮,则窗体中显示___C___。
PrivateSubCommand1_Click()
DimcityAsString
city=Array("北京","上海","南京","广州")
Printcity
(1)
EndSub
(A)空白(B)北京(C)上海(D)出现错误提示
12.窗体中有一个命令按钮Command1。
运行下列程序,单击命令按钮,窗体中显示____C__。
DimXAsInteger,YAsInteger'(通用)(声明)
PrivateSubProc(ByValaAsInteger,ByValbAsInteger)
X=a*a
Y=b+b
EndSub
PrivateSubCommand1_Click()
X=5:
Y=3
CallProc(X,Y)
PrintX,Y
EndSub
(A)53(B)253(C)256(D)56
13.在以下过程中,Public表示____D______。
PublicSubF(xAsInteger)
……
EndSub
(A)此过程可以被任何其它过程调用(B)此过程只可以被本窗体模块中的其它过程调用
(C)此过程不可以被任何其它过程调用(D)此过程只可以被本工程中的其它过程调用
14.执行下面这段代码时,窗体中将会显示___D_____。
n=3
Fori=1Ton
x=0
Forj=1Toi
x=x+1
Nextj
Nexti
Printx
(A)3(B)4(C)5(D)6
15.需要将字符串S颠倒过来逆序排列形成字符串T,如将“ABCD”变成“DCBA”,下面的程序段中_D___不能实现该功能。
(A)s="ABCD":
t=""
Fori=1ToLen(s)
t=t+Mid(s,Len(s)-i+1,1)
Nexti
(B)s="ABCD":
t=""
Fori=1ToLen(s)
t=Mid(s,i,1)+t
Nexti
(C)S="ABCD":
T=""
Fori=Len(S)To1Step-1
T=T+Mid(S,i,1)
Nexti
(D)S="ABCD":
T=""
Fori=Len(S)To1Step-1
T=Mid(S,i,1)+T
Nexti
16.下列函数中_____D___的值与其它三个不一样。
(A)Val("1")(B)Abs(-1)(C)Int(1.3)(D)Sin
(1)
17.设有如下程序,运行时单击命令按钮,则文本框中显示___A___。
SubF(a(),ByValxAsInteger)
Fori=1To5
x=x+a(i)
Nexti
EndSub
PrivateSubCommand1_Click()
Dimarr(5),nAsInteger
Fori=1To5
arr(i)=i
Nexti
n=10
CallF(arr(),n)
Text1.Text=n
EndSub
(A)10(B)15(C)25(D)24
18.以下程序段中___C___能正确地计算并显示5的阶乘。
(A)n=5:
x=1
Do
x=x*i
i=i+1
LoopWhilei Printx (B)n=5: x=1: i=1 Do x=x*i i=i+1 LoopWhilei Printx (C)n=5: x=1: i=1 Do x=x*i i=i+1 LoopWhilei<=n Printx (D)n=5: x=1 Fori=nTo1 x=x*i Nexti Printx 19.执行如下程序,单击命令按钮3次,则标签Label1,Label2,Label3中分别显示___B___。 PrivateSubCommand1_Click() StaticyAsInteger DimzAsInteger n=10 z=n+z: y=y+z: x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z EndSub (A)101010(B)103010(C)303030(D)103030 20.设已执行b=Array(5,3,9,1,6),现要将数组b的各个元素逆序排列,程序段__B__可实现该功能。 (A)Fori=0To5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Nexti (B)Fori=0To5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Nexti (C)Fori=0To5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Nexti (D)Fori=1To5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Nexti 21.设组合框Combo1中有3个项目,则___D___可删除其中最后一项。 (A)Combo1.RemoveItemCombo1.Text(B)Combo1.RemoveItemCombo1.Index (C)Combo1.RemoveItemCombo1.ListIndex(D)Combo1.RemoveItemCombo1.ListCount-1 22.执行下列程序段,文本框Text1中显示___A___。 n=Int(Rnd)+3 SelectCasen Case1To10 x=10 Case2,4,6 x=20 CaseIs<=10 x=30 Case10 x=40 EndSelect Text1.Text=x (A)10(B)20(C)30(D)40 23.以下关系表达式中___A___的值为False。 (A)"ABC">"Abc"(B)"the"<>"they"(C)"VISUAL"=UCase("Visual")(D)"Integer">"Int" 24.窗体中有命令按钮Command1,并已编写下列代码。 运行程序时,单击命令按钮,窗体显示__C____。 FunctionF(mAsInteger) IfmMod2=0Then F=m Else F=1 EndIf EndFunction PrivateSubCommand1_Click() DimiAsInteger S=0 Fori=1To5 S=S+F(i) Next PrintS EndSub (A)11(B)10(C)9(D)8 25.设有如下代码,关于它的叙述___D___是正确的。 PrivateTypeanimal ANameAsString*20 AColorAsString*10 EndType PrivateSubCommand1_Click() DimrecAsanimal Open"c: \vbtest.dat"ForRandomAs#1Len=Len(rec) rec.AName="Elephant" rec.AColor="Black" Put#1,,rec Close#1 EndSub (A)记录类型animal不能在窗体中定义,只能在标准模块中定义,所以运行会发生错误 (B)如果文件c: \vbtest.dat不存在,则运行Open命令时发生错误 (C)由于Put命令没有指定记录号,因此每次写文件时都把记录写在文件尾 (D)语句“Put#1,,rec”的作用是把animal类型的两个数据元素写入文件 26.以下关于菜单的叙述中___D___是错误的。 (A)下拉菜单和弹出式菜单都用菜单编辑器建立 (B)在多窗体工程中,每个窗体都可是以有自己的菜单 (C)除分隔线外,所有的菜单项都能接收Click事件 (D)如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见 27.窗体中有如下事件过程,如果希望运行时窗体显示如右图的形式,请选择适合的表达式完善程序。 c=1234 1 12 123 1234 c1=Trim(Str(c)) Fori=1To4 Print___B___ Next (A)Right(c1,i)(B)Left(c,i)(C)Mid(c1,i,1)(D)Mid(c1,i,i) 28.下面这段程序的功能是___D___。 n=Val(Text1.Text) Fori=2Ton Forj=2ToSqr(i) IfiModj=0ThenExitFor Nextj Ifj>Sqr(i)ThenPrinti Nexti (A)输出n以内的奇数(B)输出n以内的偶数 (C)输出2-n的所有数的阶乘(D)输出n以内的素数 29.窗体中有4个名为Command11的命令按钮,如图,下标从0开始,从上到下顺序增大。 启动窗体时这4个命令按钮从上到下分别显示___A___。 PrivateSubForm_Load() Fori=0To3 Command1(i).Caption=Command1(i).Index Nexti EndSub (A)0123(B)1234 (C)0132(D)出错 30.窗体中有一个通用对话框CommonDialog1和一个命令按钮Command1,并有以下代码。 关于这段程序功能的描述错误的是____B__。 PrivateSubCommand1_Click() CommonDialog1.Filter="AllFile|*.*|WordDocuments|*.doc|TextDocuments|*.txt" CommonDialog1.InitDir="D: \" CommonDialog1.Action=2 EndSub (A)产生一个“另存为”对话框(B)在这个对话框中只能选择Word文档或文本文件类型 (C)对话框中初始的路径是D盘的根目录(D)这个对话框不能真正实现保存文件的功能 二、填空题(50分,每空2分,请在答题纸上标明每个空的编号) 1.函数Sin(30*3.14159/180)的值为___[1]0.5____。 2.VB中数据文件根据对文件的访问方式分为3类,即顺序文件、___[2]随机文件___和二进制文件。 3.执行下面这段程序后,窗体中显示___[3]5___和___[4]5.6___。 s=2 Fori=3.2To4.9Step0.8 s=s+1 Nexti Prints,i 4.图片框Picture1中已显示一张图片d: \pic1.jpg,单击命令按钮时希望清除该图片,使图片框显示为空白,完成下面的代码。 PrivateSubCommand1_Click() ____[5]Picture1.Picture=LoadPicture(““)____ EndSub 5.下面这段程序要在窗体显示20个[100,200]间的随机整数,求这些数的和,并显示其中5的倍数请完成程序。 Fori=1To20 x=Int(___[6]Rnd*101+100___) ___[7]s=s+x___ If___[8]xmod5=0thenprintx;___ Nexti Print"总和: ";s 6.下面的程序可根据用户所输入的数在一个数组中查找相应的下标,完成程序。 Dimarr,i%,MAs___[9]Integer___ arr=Array(12,43,76,24,54,86,49,55) M=Val(InputBox("要查找的数")) Fori=___[10]0To7___ Ifarr(i)=MThen___[11]k=i___ Nexti Print"下标是: ";k 7.窗体中有一个标签Label1和一个时钟控件Timer1。 开始运行程序时,窗体显示如图(a);单击窗体后显示如图(b),其中的时钟每秒更新一次显示当前时间。 请填空完成程序代码。 PrivateSubForm_Load() Timer1.Enabled=___[12]False___ Timer1.___[13]Interval___=1000 EndSub PrivateSubForm_Click() Timer1.Enabled=True EndSub PrivateSubTimer1_Timer() ___[14]Label1.Caption=Time___ EndSub 8.窗体中有一个文本框Text1,其MultiLine属性值为True,执行下列程序,将文件t1.txt的内容显示在文本框中,请完善程序。 PrivateSubCommand1_Click() Dimaspect$,Whole$ Open"f: \t1.txt"For___[15]InputAs#1___ DoWhileNotEOF (1) LineInput___[16]#1,aspect___ Whole=Whole+aspect+Chr(13)+Chr(10) Loop Text1.Text=Whole ___[17]Close___ EndSub 9.窗体中有文本框Text1,标签Label1和命令按钮Command1,并有如下两段事件过程: PrivateSubCommand1_Click() s$=InputBox("请输入一串字符") Text1.Text=s EndSub PrivateSubText1_Change() Label1.Caption=UCase(Mid(Text1.Text,7)) EndSub 运行时单击命令按钮,在输入框中输入字符串“VisualBasic”,确定后标签显示___[18]BASIC___。 10.把数学式 改写成VB表达式: ___[19](a+b)/(Log(Abs(a))/Log(Exp (1)))___。 11.一个数组中有10个元素,对它进行冒泡排序,元素进行交换的次数最大可能是___[20]9___次。 12.窗体中有文本框Text1、列表框List1和标签Label1,程序运行时列表框中显示若干人的简单信息。 在文本框中输入姓或姓名并回车,在列表框中查找相符的人的情况,找到时在标签中显示查找结果(如图(a));如果列表框中没有相符的项目,则显示相应的提示信息(如图(b))。 填空完成下面的程序。 PrivateSubText1____[21]KeyPress___(KeyAsciiAsInteger) DimiAsInteger,nAsInteger,FoundAsBoolean IfKeyAscii=13Then Found=___[22]False___ ___[23]n___=Len(Trim(Text1.Text)) Fori=0ToList1.ListCount-1 IfText1.Text=Left(List1.List(i),n)Then Label1.Caption=___[24]List1.List(i)___ Found=True EndIf Nexti IfNotFoundThen___[25]MsgBox(“无此人”)___ EndIf EndSub 三、编程题(20分,每小题10分,请在答题纸上标明题号) 1.随机产生10个正整数,求其中的最小值,并将原始数据和最小值显示在窗体中。 PrivateSubForm_Click() Dimi%,min% Dima(10)AsInteger Fori=1To10 a(i)=Int(Rnd*101) Printa(i); Nexti min=a (1) Fori=2To10 Ifa(i) Nexti Print Print"最小值: "&min EndSub 2.窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1。 点击滚动条,可使文本框中显示[2,20]之间的一个正整数n,标签Label1中立刻显示1! +2! +…+n! 的值。 运行界面如图。 编写完整的事件过程完成以上功能。 PrivateSubForm_Load() VScroll1.min=2 VScroll1.max=20 Label1.Caption="" Label2.Caption="n=" EndSub PrivateSubVscroll1_Change() DimsAsDouble,I%,j%,n%,tAsDouble t=1 Text1.Text=VScroll1.Value n=Val(Text1.Text) ForI=1Ton t=1 Forj=1ToI t=t*j Nextj s=s+t NextI Label1.Caption="1! +…+n! ="&s EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 模拟 试题
![提示](https://static.bdocx.com/images/bang_tan.gif)