VB复习习题练习一.docx
- 文档编号:20161893
- 上传时间:2023-04-25
- 格式:DOCX
- 页数:36
- 大小:65.11KB
VB复习习题练习一.docx
《VB复习习题练习一.docx》由会员分享,可在线阅读,更多相关《VB复习习题练习一.docx(36页珍藏版)》请在冰豆网上搜索。
VB复习习题练习一
练习一
一、单选题
◆一个完整计算机系统应包括___
(1)____。
(A)主机、键盘、和显示器(B)硬件系统和软件系统
(C)主机和其他外部设备(D)系统软件和应用软件
◆打印机属于计算机部件中的___
(2)___。
(A)输出设备(B)输入设备(C)存储设备(D)缓冲设备
◆下列表示存储容量的数据中,____(3)____是最大的。
(A)20480KB(B)1.44MB(C)1GB(D)4865723Byte
◆在计算机内部能够直接执行的程序语言是___(4)____。
(A)数据库语言 (B)高级语言(C)机器语言 (D)汇编语言
◆下列叙述正确的是___(5)____。
(A)程序设计就是编制程序 (B)程序的测试必须由程序员自己去完成
(C)程序经调试改错后还应进行再测试(D)程序经调试改错后不必进行再测试
◆以下叙述中错误的是___(6)___。
(A)VisualBasic是事件驱动型可视化编程工具
(B)VisualBasic应用程序不具有明显的开始和结束语句
(C)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
(D)VisualBasic中控件的某些属性只能在运行时设置
◆以下不属于VB工作模式的是___(7)___模式。
(A)编译(B)设计(C)运行(D)中断
◆以下语句的输出结果是___(8)___。
PrintFormat$(32548.5,“000,000.00”)
(A)32548.5(B)32,548.5(C)032,548.50(D)32,548.50
◆若要使某可见控件获得焦点,则可使用___(9)_____方法来实现。
(A)Refresh(B)SetFocus(C)Value(D)GotFocus
◆在下列说法中,正确的是___(10)___。
(A)通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上
(B)在列表框中不能进行多项选择
(C)VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列
(D)复选框的Value属性值为布尔型
◆执行以下程序段,输出的结果为___(11)___。
a$="abbacddcba"
Fori=6To2Step-2
x=Mid(a,i,i):
y=Left(a,i)
z=Right(a,i):
z=UCase(X&Y&z)
Nexti
Printz
(A)ABA(B)BBABBA(C)ABBABA(D)AABAAB
◆控件在窗体上的位置是由___(12)___属性确定的。
(A)Width和Height(B)Top和Left(C)Width和Left(D)Top和Width
◆关于Name属性,以下叙述中___(13)___是正确的。
(A)窗体的Name属性指定窗体的名称,用于标识一个窗体。
(B)窗体的Name属性用于设置显示在窗体标题栏的文本。
(C)可以通过代码在程序运行中改变某个对象的Name属性值。
(D)对象的Name属性值可以设置为空。
◆下列名称中___(14)___可以作为VB的变量名。
(A)mod(B)m-d(C)tempVal(D)left
◆要求出变量x和y中较大的一个并保存在变量Max中,下面的程序段中___(15)___是不正确的。
(A)Max=IIf(x>y,x,y)
(B)Ifx>yThenMax=xElseMax=y
(C)Max=x
Ify>=xThenMax=y
(D)Ify>xThenMax=y
Max=x
◆执行以下语句后,a的值为___(16)___
DimaAsInteger
a=1
DoUntila=100
a=a+2
Loop
(A)102(B)100(C)溢出(D)101
◆对于语句Ifa=bThenc=d的语法分析,___(17)___是正确的。
(A)a=b和c=d都是赋值语句(B)a=b是关系表达式,c=d是赋值语句
(C)a=b和c=d都是关系表达式(D)a=b是赋值语句,c=d是关系表达式
◆运行下列程序段,单击两次命令按钮,则第二次单击时窗体中显示的结果是__(18)__。
PrivateSubCommand1_Click()
DimaAsInteger
StaticbAsInteger
a=a+5:
b=b+5
Printa,b
EndSub
(A)510(B)55(C)1010(D)00
◆在系统默认的情况下,Dima(3,4,2To5)定义的数组共有___(19)___个元素。
(A)36(B)48(C)60(D)80
◆下面的子过程定义语句中没有语法和逻辑错误的是___(20)___。
(A)SubS1(ByValn%())(B)SubS1(nAsInteger)AsInteger
(C)FunctionS1(ByValnAsInteger)(D)FunctionS1%(ByValS1AsInteger)
◆执行了下面程序后,组合框中数据项的值是___(21)___。
PrivateSubForm_Click()
Fori=1to6
Combo1.AddItemi
Nexti
Fori=1to3
Combo1.RemoveItemi
Nexti
EndSub
(A)156(B)135(C)456(D)246
◆设窗体上有一个列表框控件List1,且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是__(22)___.
(A)List1.ListB)List1.ListIndex(C)List1.Index(D)List1.Text
◆在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Fori=2Ton
Forj=2Tosqr(i)
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr(i)ThenPrinti
Nexti
EndSub
该事件过程的功能是__(23)__
(A)输出n以内的奇数(B)输出n以内的偶数
(C)输出n以内的素数(D)输出n以内能被j整除的数
◆如果要在菜单中添加一个分隔线,则应将其标题属性设置为___(24)_____。
(A)=(B)*(C)&(D)-
◆以下关于文件的叙述中正确的是__(25)__。
(A)一个记录中所包含的各元素的数据类型都是相同的
(B)随机文件中每个记录的长度是固定的
(C)Open命令的作用是打开一个已经存在的文件
(D)使用Input#语句可以从随时机文件中读取数据
◆以下定义数组或给数组元素赋值的语句中,正确的是__(26)__。
(A)DimaAsVariant(B)Dima(10)AsIntegera=Array(1,2,3,4,5)a=Array(1,2,3,4,5)(C)Dima%(10)(D)Dima(3),b(3)AsIntegera
(1)="ABCDE"a(0)=0:
a
(1)=1:
a
(2)=2:
b=a
窗体中有一个命令按钮,编写如下程序,程序运行后,输出结果为___(27)___。
PrivateSubtest(p,m,n)
p=p+1:
m=m+1:
n=n+1
Print“Sub:
”;p;m;n
EndSub
PrivateSubCommand1_Click()
a1=1:
b1=2:
c1=3
Calltest(a1,b1+3,(c1))
Print“Main:
”;a1;b1;c1
EndSub
(A)Sub:
264
Main:
264
(B)Sub:
264
Main:
164
(C)Sub:
264
Main:
123
(D)Sub:
264
Main:
223
◆以下语句用于打开一个顺序文件Open"C:
\MyFile.txt"ForOutPut,但是该语句的一个重要错误是没有___(28)_____。
(A)指定打开方式(B)指定文件号(C)指定打开文件名(D)指定文件类型
◆
PrivateSubTimer1_Timer()
IfLabel1.Left Label1.Left=Label1.Left+20 Else Label1.Left=0 EndIf EndSub 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500。 编写如下程序: PrivateSubForm_Load() Timer1.Enabled=False EndSub PrivateSubCommand1_Click() Timer1.Enabled=True EndSub 程序运行后,单击“开始”按钮,标签在窗体中移动。 对于这个程序,以下叙述中错误的是___(29)___ (A)标签的移动方向为自右向左 (B)单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动 (C)当标签全部移出窗体后,将从窗体的另一端出现并重新移动 (D)标签按指定的时间时隔移动 ◆设有如下程序,通过For循环计算一个表达式的值,这个表达式是___(30)____: PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble sum=0: n=0 Fori=1To5 x=n/i: n=n+1: sum=sum+x Next EndSub (A)1+1/2+2/3+3/4+4/5(B)1+1/2+2/3+3/4 (C)1/2+2/3+3/4+4/5(D)1+1/2+1/3+1/4+1/5 二、填空题 ◆VisualBasic中有三种类型的模块文件,即类模块、标准模块和___[1]___模块。 ◆将数学式 写成VB表达式,应该是___[2]____。 ◆赋值语句: a=123+MID("123456",3,2)执行后,a变量中的值__[3]____。 ◆VisualBasic提供的对数据文件的三种访问方式为顺序访问方式、___[4]____ 和二进制访问方式。 ◆执行下列语句序列,显示的结果是___[5]___。 a=2: b=3: c=4: d=5 Print3>2*bOra=cAndb<>cOrc>d ◆运行下列程序,单击命令按钮,则Text1中显示___[6]___,窗体中显示___[7]___。 PrivateSubCommand1_Click() DimiAsInteger,jAsInteger,a(5,4)AsInteger Fori=2To3 Forj=2To4 a(i,j)=i+j Nextj Nexti Text1.Text=a(3,2) Printa(3,1) EndSub ◆如下图,窗体上有两个命令按扭C1,C2及一个文本框Text1,当按下C1时,将C2的标题与Text1中的内容交换。 C2 C1 PrivateSubC1_Click() DimaAsString Form1.Caption="交换后" a=___[8]____ Text1.Text=___[9]____ C2.Caption=a EndSub ◆ 请完善以下判断完数的程序。 一个数如果恰好等于它的因子之和,这个数就被称为“完数”。 一个数的因子是指除了该数本身以外能够被其整除的数。 例如6是一个完数,因为6=1+2+3。 PrivateSubCmdJudge_Click() If___[13]____Then Picture1.Printm&"是完数" Picture1.Printm;"="; Fori=1ToUBound(a)-1 Picture1.Printa(i);"+"; Nexti Picture1.Print___[14]___ Else Picture1.Printm&"不是完数" EndIf EndSub Dima() m=Val(Text1.Text) ReDima (1) a (1)=1 k=___[10]___ j=1 Fori=2Tom-1 IfmModi=0Then k=k+i'因数和 j=j+1'因数个数 ReDim___[11]___a(j) a(j)=___[12]____ EndIf NextI(转右) ◆ 编写程序。 在窗体上显示如下图所示的“九九加法表”。 ___[15]___Explicit PrivateSubForm_Click() Dimi%,j% Print"+123456789" Fori=1To___[16]____ Printi; Forj=1To___[17]____ Ifi+j<10___[18]__Print""; Print_[19]__; Nextj ___[20]____ Nexti EndSub ◆在窗体上画一个名称为Command1的命令按钮,然后编写如下程序,通过调用过程Swap,调换数组中数值的存放位置,即a (1)与a(10)的值互换,a (2)与a(9)的值互换,……,a(5)与a(6)的值互换。 请填空 OptionBase1 PrivateSubCommand1_Click() Dima(10)AsInteger Fori=1To10 a(i)=i Next CallSwap(___[21]___) Fori=1To10 Printa(i); Next EndSub SubSwap(b()AsInteger) n=___[22]___ Fori=1Ton/2 t=b(i) b(i)=b(n) b(n)=t ___[23]___ Next EndSub ◆设当前文件夹已有文件t1.txt和t2.txt,其中各有若干文字。 现要将t2.txt的内容合并到t1.txt中。 例如t1.txt原来内容为"ABCD",t2.txt原来内容为"1234",合并后t1.txt的内容将成为“ABCD1234” PrivateSubCommand1_Click() Open"t1.txt"____[24]____As#1 Open"t2.txt"ForInputAs#2 DoWhileNotEOF (2) LineInput#2,s ____[25]____ Loop Close EndSub 三、编程题 1.编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。 2.在文本框Text1中输入一串字符,用标签Label1显示其中出现频率最高的字母(不区分大小写)及其出现次数。 例如: 输入“Thisisabeautifulworld.”则输出“使用频率最高的是i,共出现3次。 ” 参考答案: 一、选择题 1 2 3 4 5 6 7 8 9 10 B A C C C C A C B C 11 12 13 14 15 16 17 18 19 20 B B A C D C B A D C 21 22 23 24 25 26 27 28 29 30 B D C D B A D B A C 二、填空题 1、窗体2、Sqr(y^3+3/abs(a*b))3、157 4、随机访问方式5、False或06、5 7、08、Text1.Text9、C2.Caption 10、1或a (1)11、Preserve12、i 13、k=m14、a(i)或a(UBound(a))15、Option 16、917、I18、then 19、i+j20、Print21、a()或a22、Ubound(b)或10 23、n=n-1或n=10–I24、ForAppend25、Print#1,s或Write#1,s 三、编程题 1、 FunctionGcd(ByvalmAsInteger,ByvalnAsInteger)AsInteger r=mModn Ifr=0Then Gcd=n Else Gcd=Gcd(n,mModn) Loop r=mModn DoUntilr=0 m=n n=r r=mModn Loop Gcd=n DimrAsInteger Do r=mModn m=n n=r LoopUntilr=0 Gcd=m EndFunction 红部分代码可以换成蓝色或者黑色的代码。 2、 OptionBase1 PrivateSubCommand1_Click() DimA(26)AsInteger DimmaxAsInteger s=Text1.Text L=Len(s) Fori=1ToL ch=UCase(Mid(s,i,1)) Ifch>="A"Andch<="Z"Then Idx=Asc(ch)-Asc("A")+1 A(Idx)=A(Idx)+1 EndIf Nexti max=A (1) Fori=1To26 IfA(i)>maxThenmax=A(i): x=i Nexti Label1.Caption="使用频率最高的是"&Chr(x+64)&",共出现"&max&"次。 " EndSub 练习二 一、单选题 1、用______属性可唯一标志控件数组中的某一个控件。 A)NameB)IndexC)CaptionD)Tablndex 2、算法的时间复杂度是指________。 A)执行算法程序所需要的时间B)算法程序的长度 C)算法执行过程中所需要的基本运算次数D)算法程序中的指令条数 3、下列哪条语句是错的_______。 A)exitsubB)exitfunctionC)exitwhileD)exitdo 4、下列叙述中正确的是_______。 A)在窗体的FormLoad事件过程中定义的变量是全局变量 B)局部变量的作用域可以超出所定义的过程 C)在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程 D)在调用过程中,所有局部变量被系统初始化为0或空字符串 5、对建立良好的程序设计风格,下面描述正确的是_______。 A)程序应简单、清晰、可读性好B)符号名的命名要符合语法 C)充分考虑程序的执行效率D)程序的注释可有可无 6、设在菜单编辑器中定义了一个菜单项,名为menu1。 为了在运行时隐藏该菜单项,应使用的语句是_______。 A)menu1.Enabled=TrueB)menu1.Enabled=False C)menu1.Visible=TrueD)menu1.Visible=False 7、图像框有一个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是___。 A)AutoSizeB)StretchC)AutoRedrawD)Appearance 8、大部分控件都没有的属性是_______。 A)TopB)NameC)VisibleD)Interval 9、在代码中定义了一个子过程: SubP(a,b) … EndSub 下面_______调用该过程的格式是正确的。 A)CallPB)CallP10,20C)CallP(10,20)D)P(10,20) 10、将一个窗体设置为MDI子窗体的方法是________。 A)将窗体的名称改为MDIB)将窗体的MDIChild属性设为True C)将窗体的MDIChild属性设为FalseD)将窗体的Enabled属性设为False 11、在程序运行期间,如果拖动滚动条上的滚动框,则触发的滚动条事件是______。 A)MoveB)ChangeC)ScrollD)GetFocus 12、表达式4+5\6*7/8Mod9的值是______。 A)4B)5C)6D)7 13、在VisualBasic中,下列____是合法的变量名。 A)RemB)2ndC)LoapD)Sum 14、对象的三个要素是: ____。 A)属性、方法、事件B)色彩、高度、宽度 C)事件、属性、色彩D)属性、高度、宽度 15、窗体模块文件的扩展名是: ____。 A)frmB)basC)vbpD)txt 16、VisualBasic逻辑运算符Xor、0r、Not、And中,级别最高的运算符是______。 A)XorB)OrC)NotD)And 17、InputBox函数返回值的类型为_______。 A)数值B)字符串C)变体D)数值或字符串(视输入
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 复习 习题 练习