VB表达式练习

1.表达式Len(""123程序设计ABC"")的值为102.表达式LENB(""123程序设计ABC"")的值为203.求25度的正弦值的VB表达式为SIN(25*3.14/180)4.如果X是一个正实数，对X的第三位四舍五入的表达式是0.01*int(100*(X+0.005))5.函数int(rnd*100)产生的整数范围是"(0,100)"6.函数Sgn(10)的结果为 17.函数Sgn(-10)的结果为-18.函数Sgn(0)的结果为09.a=""ABCDEFGHIJK""Print mid(a,4,3)语句执行后的输出是DEF10.a=""ABCDEFGHIJK""Print mid(a,1,4)语句执行后的输出是ABCD11.a=""ABCDEFGHIJK""Print mid(a,5,4)语句执行后的输出是EFGH12. a=""ABCDEFGHIJK""Print mid(a,8)语句执行后的输出是HIJK13.执行一下程序段，变量C的值为Quick BASIC Programminga="Visual Basic Programming"b="Quick"c=b&Ucase(mid(a,7,6))&right(a,11)14.X=Ucase("AbcDEF")语句执行后的值为ABCDEF15.X=Lcase("AbcDEF")语句执行后的值为abcdef16.常量99/10/20是数值型17.常量"99/10/20"是字符型18.下面哪个赋值语句是正确的( B ) A. Let 3=a B. a=a+1 C. Let a+1=a D.a+1=s19.下面哪个赋值语句是正确的( A ) A. Let b=1=2 B. Let 2+1=b C. 2+1=b D. b+1=220.下面哪个赋值语句是正确的( C ) A.Let 0=s B.Let s+1=s C. s=s+k D. k+1=s21.常量#99/10/20#是日期型22.常量True是逻辑型23.sum% 是合法的整型变量24.xinte$ 是合法的字符变量25.mm# 是合法的双精度变量26.num$ 是长整型变量27.下面正确的变量名是( A ) A. a2 B. 2a C. a(2) D. 2*a28.下面正确的变量名是( A ) A. int-num B. int.num C. integer D. int(num)29.语句x=12 mod -5执行完毕后，变量X的值为 230.语句x=12.6 mod -5执行完毕后，变量X的值为-331.语句x=(-5)^3执行完毕后，变量X的值为-12532.语句x=(5>4)执行完毕后，变量X的值为True33.语句x=("abc">"aaa")执行完毕后，变量X的值为True34.语句x=(100-20<=50+20)执行完毕后，变量X的值为False35.语句x=not(10>6)执行完毕后，变量X的值为False36.语句x=10>8 And 8>4执行完毕后，变量X的值为True37.语句x=8>10 or 8>4执行完毕后，变量X的值为True38.语句x=10>8 or 8>4执行完毕后，变量X的值为True39.表达式int(-4.98)= -540.表达式Fix(-4.987)= -441.表达式Val("123ab"+"2345")= 12342.表达式Round(-3.5)= -443.表达式Round(3.5)= 444.表达式Val("abc")= 045.表达式16/4-2^5*8/4 mod 5\2= 446.数学关系3≦x＜10表示成VB表达式为3<=x and x<1047.滚动条的Value属性值介于Min和Max之间48.当在滚动条内拖动滚动框时触发的事件是Scroll49.如果把计时器的Interval属性设置为2000则表明2秒发生一个计时器事件50.如果希望在标签框内显示时间，在计时器的timer事件中写入命令Label1.Caption=Timer$,另外还必须设置Timer控件的Interval属性值为1000且Enabled属性值为True51.计时器Timer1,将Interval属性值设置为1000，有如下程序:Private Sub Timer1 Timer()Static s As Integers=s+1Print sEnd Sub程序运行到2.5秒时，在窗体上输出的信息是 1 252.关于框架的说法错误的是（A ）A.使用框架的主要目的是为了显示文本B.框架是一个容器控件C.框架的Enabled属性设置为True时才能保证框架内的对象是活动的D.当框架移动时，框架内的控件作为一个整体和框架一起移动53.文本框，命令按钮，复选框都可以获得焦点；但标签不可以获得焦点54.下列说法错误的是（A）A.通过适当的设置，可以在程序运行期间，让定时器控件显示在窗体上B.窗体，图片框，图像框中的图形都可以通过对象的Picture属性设置C.对象的Name属性只能通过属性窗口来设置D.组合框是组合了列表框和文本框的特性而成的控件55.命令按钮，标签，单选按钮都有Caption属性；而文本框没有Caption属性56.窗体，立即窗口，打印机都可以通过Print方法接受文本，而图像框不可以57.在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，有如下事件过程：Private Sub Command1 Click()a=Text1.Text+Tex2.TextPrint aEnd Sub程序运行后在第一个文本框和第二个文本框内分别输入123和321，然后单击命令按钮，则输出结果为12332158.假定当前目录下有一个名为"pic.gif"的图形文件，要在运行期间把文件装入一个图片框（Name属性为Picture1），应执行的语句为：Picture1.Picture=LoadPicture("pic.gif")59.文本框，列表框，组合框都具有Text属性,而图片框没有60.在属性窗口中设置窗体的属性设置为100，属性设置为200，程序运行后执行下列哪条语句后窗体的位置会发生变化（A）A."Move 200,100,100,200"B."Move 100,200,300,400"C."Move 100,200,100,100"D."Move 100,200,100,200"61.命令按钮有Setfocus62.复选框的Value属性设置为1，表示选中该复选框63.复选框的Style 属性可以使复选框的显示方式变为命令按钮方式64.一般在窗体上输入下面哪类数据时，使用复选框接收（A）A. 所学课程B. 学生姓名C. 性别D.年龄65.程序运行时，当单选按钮的中心有一个圆点时，表示该单选按钮被选中66.下面关于单选按钮的描述正确的是（A）A.在程序编制阶段，设置容器内的一个单选钮的value属性为true，同一个容器内的value属性为真的单选钮value属性变为falseB.在程序编制阶段，设置容器内的一个单选钮的value属性为true，窗体上所有容器内的单选钮的value 属性值全为falseC.在程序编制阶段，设置容器内的一个单选钮的value属性从true变为false，容器内其它的单选钮必有一个value属性值变为trueD.在程序编制阶段，设置容器内的一个单选钮的value属性为true，不影响同一容器内的其它单选钮的value属性值67.一般在窗体上输入哪类数据时，使用单选按钮接收（A） A.性别 B. 学生姓名 C.年龄 D.籍贯68.下面语句能正确的把列表框List1第4项的内容设置为"aaaa"的是（A）A."List1.List(3)"="aaaa"B."List1.List(4)"="aaaa"C."List1.List(5)"="aaaa"D."List1.List(0)"="aaaa"69.语句"List1.List(2)="上海"的作用是把列表框的第3个项目内容设置为“上海”70.决定窗体的大小属性为Width,Height71.语句"List1.selected(2)=true"表示列表框1的第3个项目被选中72.若列表框2中的项目每次只能选择一项，则将列表框2最后一次选定的项目添加到列表框1中的语句是List1.additem List2.text73.用来清除列表框List1中的全部内容的语句是List1.Clear74.当组合框的style 属性被设置为不同的值时，组合框可以有3中不同的类型，分别为下拉式组合框，简单组合框和下拉式列表框75.要获得用户在组合框输入的内容，应利用text 属性76.当组合框的style属性被设置为0时，表示下拉，可输入文本；1时，表示不下拉，不可以输入文本；2时，表示能下拉选择项目但不允许输入文本77.将文本框text1的内容增加到组合框combo1中，所使用的语句是Combo1.Additem Text1.Text78.滚动条的Value属性表示滚动框在滚动条上的当前位置79.下列说法正确的是（A）A.文本框的PasswordChar属性可用于口令的输入B.列表框不允许一次选择多个表项C.图像框能通过Print方法接收文本D.命令按钮的Style属性可以给命令按钮指定一个图形80.窗体的Name属性只能通过属性窗口设置81.在使用print方法进行输出操作时，如果省略对象名称，则把信息输出到当前窗体82.Move方法可以可以改变窗体或控件的位置及其大小83.将标签控件的Autosize属性设置为True时，可根据Caption属性指定的标题自动调整标签的大小84.用来在标签中显示文本的属性为Caption85.如果要为标签加上边框，则应将BoederStyle的属性设置为 186.当文本框的Locked 属性设为True时，可以滚动和选择控件中的文本，但不能编辑87.可以实现单击命令按钮时两个文本框（Text1和Text2）内容的交换的程序是：Private Sub Command1 Clicktext3.text=text1.texttext1.text=text2.texttext2.text=text3.textEnd Sub88.当文本框1的内容发生变化时，要求文本框2的内容同时发生变化，应使用文本框1的Change 事件89.当在窗体上建立了多个文本框后，可以用Setfocus 方法将光标置于所需要的文本框90.下列说法正确的是(A)A.图片框能通过Print方法接收文本B.图像框能通过Print方法接收文本C.图像框可以作为容器使用D.图片框不能作为容器使用91.下列说法正确的是（A）A.图像框比图片框占用的内存小，显示速度快B.图像框的Autosize属性用来自动调整图像框与图形的大小C.图片框的Autosize属性用来自动调整图片框与图形的大小D.图片框比图像框占用的内存小，显示速度快92.Stretch属性用来自动调整图像框中图形内容的大小93.形状控件的Shape 属性用来确定形状的几何特性94.当一个命令按钮的Default 属性被设为True时，按回车键和单击该命令按钮的效果相同95.为了使命令按钮的Picture属性生效，还必须设置命令按钮的Style 属性96.单击命令按钮时，触发的是命令按钮的Click事件97.将窗体上使用Print输出的内容清除应使用cls命令98.将窗体的Left属性设为200，Top属性设为1000，下面哪个命令会运行时窗体位置会移动 AA."Move 1000,200,5000,5000"B."Move 200,1000,5000,5000"C."Move form1.Left,form1.Top,5000,5000"D."Form1.Move Left,Top,5000,5000"99.当使用Print方法打印到窗体的内容，在窗体被其它窗体遮盖后，重新获得焦点时，打印的内容还能显示出来，应设置AutoRedraw属性为真100.窗体上要显示一个图片，使用Picture 属性101.Load事件会在窗体显示前被触发102.当文本框设置ScrollBars的值为2时，运行时希望文本框出现垂直滚动条，还需要设置Multiline 属性为真103.当文本框设置了PasswordChar的值为5时，运行时文本框中输入1234，显示为5555104.希望文本框在运行输入字符时，不显示输入内容，而显示#，要用到PasswordChar 属性105.当设置了文本框的Height属性时，文本框中输入的内容的字号不随Height属性值变化106.文本框的TabIndex属性值是：运行时，tab键按下时文本框获得焦点的顺序107.单击按钮后，焦点自动设置在文本框上，应书写为：Text1.SetFocus108.焦点离开文本框时，如果文本框上的数值小于60，则文本框的内容变粗体，应使用下面的程序：Private Sub Text1 LosFocusIf Val(Text1.Text)<60 ThenText1.FontBold=TrueEnd Sub109.文本框中输入数据时，键盘每按下一次都会触发Change事件110.文本框中输入的内容不允许超过8个字符，应该使用MaxLength属性111.当窗体上有一个文本框，在运行时，不能接收到焦点，原因可能是文本框的Enabled属性值为假112.下面关于图片框叙述正确的是（A）A.图片框控件中的图片可以在程序运行时使用命令指定另外的图片B.图片框中的图片只能是位图C.经过图片框控件的相关属性设置后，图片框的图片大小可以随着图片框的大小变化而变化D.图片框中的图片可以使用下面的命令设置：Picture1.Picture="D:\al.bmp"113.下面叙述哪个正确（A）A.经过图像框控件的拉伸属性设置后，图像框中的图形的大小可以随着图像框的大小变化而变化B.图像框中的图片只能是位图C.图片框比图像框占用的内存小D.图像框中除了放置图片外还可以放置其它控件114.下面叙述哪个正确（A）A.图片框可以获得焦点B.图像框可以获得焦点C.图像框中可以作为容器使用D.形状控件可以作为容器使用115.Stretch属性可以使图像框中的图片随着图像框的大小变化而变化116.Autosize属性使图片框的大小自动适应图片的大小117.图片框控件，框架，窗体都是容器118.形状控件不能设置成三角形，五角星形状119.下面叙述正确的是（A）A.形状控件的形状没有五角星形状B.形状控件的边界线必须是实线C.形状控件的边界线宽度不能改变D.形状控件不能设置形状内部的颜色120.当焦点不在按钮上时，按钮的Default属性设置为真时，运行时键入回车键，触发按钮的单击事件121.按钮控件的Cancel属性设为真时，运行时键入Esc键，触发按钮的单击事件122.当按钮的BackColor属性值为红色时，运行开始后，按钮标准按钮的灰色，原因是Style属性值为0123.若希望按钮上显示一个图片，需要按钮的Picture和Style属性124.如果按下按钮和不按按钮上显示不同的图片，需要设置按钮的DownPicture,Picture,Style属性125.按钮没有DblClick事件126.命令Command1.Value=True,Command1 Click,Call Command Click可以运行按钮的单击事件127.按钮有SetFocus,Move,LostFocus,GotFocus方法128.当标准的复选框的value属性值为1时，运行开始后，复选框中显示的是有一个黑色对勾129.当复选框的picture属性值为1个图片时，运行开始后，复选框不显示图片，原因是style属性值为0 130.当图形样式的复选框的value属性值为1时，运行开始后，复选框中显示的是一个象按钮被按下的控件131.一般在窗体上输入英语四级是否通过，婚否等类型的数据时，使用复选框接收132.单选钮的value属性设置true为时，下面哪句正确（A）A.同一容器内所有其他单选钮的value属性为falseB.同一容器内所有其他单选钮的value属性不变C.窗体上所有其他单选钮的value属性为falseD.窗体上所有其他单选钮的V ALUE属性不变133.在程序编制阶段，设置容器内的一个单选钮的value属性为true，同一容器内的value属性为真的单选钮value属性变为false134.一般在窗体上输入性别，上网方式（电话线，宽带，局域网）等类数据时，使用单选钮接收135.图形样式的单选钮的value属性值和标准样式的单选钮的value属性值在一个容器中才互相影响136.下面的程序要求双击列表框后，双击的项目显示在文本框中：private sud list1 dblclicktext1.text=list1,textend sub137.当MultiSelect设置为0，Style设置为1时，多选列表框中显示复选框样式138.多选列表框运行时，其text属性值是刚单击过的项目显示的内容139.对于列表框，list属性在运行开始后不是只读的140.输入数据时，单选列表框和单选钮可以接收同一类型的数据141.下面程序是单击按钮将复选列表框选中的项目去掉private sub command1 clickfor i=list1.listcount -1 to 0 step -1if list1.selected(i) then list1.removeitem inext1end sub142.单击按钮将复选列表框的所有项目去掉的程序private sub command1 clicklist1.clearend sub143.当组合框的style属性值为1时，组合框的下拉列表不能收起144.当组合框的style属性值为2时，组合框不能输入数据，只能通过选择下拉列表中的项目145.运行时style属性值为0时，组合框的text属性值不是只读的146.在程序设计时设置组合框中的所有项目的显示内容，应设置list属性147.当组合框的style属性值为0时，组合框能识别click,change,keypress等事件，但不能识别dblclick事件148.单击按钮将复选框选中的项目增加到组合框中的程序private sub command1 clickfor i=0 to listcount -1if list1.selected(i) then combo1.additem list1.list(i)next iend sub149.单击按钮将复选列表框选中的项目移动到组合框中的程序private sub command1 clickfor i=list1.listcount -1 to 0 stepif list1.selected(i) thencombo1.additem list1.list(i) list1.removeitem iend ifnext iend sub150. 双击列表框，将双击的项目移动到组合框中的程序private sub list1 clickcombo1.additem list1.text list1.removeitemend sub151.当组合框的style属性为0时，dblclick事件不能被触发152.change事件是组合框有而列表框没有153.单击组合框的某一项目时，此项目被清除的程序private sub combo1 clickcombo1.removeitemcombo1.listindexend sub154.要将文本框的内容作为组合框的一个项目增加到组合框中，用到语句combo1.additem text1.text 155.标签框中显示百分比，滚动条的max值为100，min的值为0，当滚动条值变化时，标签框的显示内容随着变化的程序private sub hscroll1 change()label1.caption=str(hscroll1.value)+"%"end sub156.当滚动条的值发生变化时一定会触发change事件157.关于滚动条叙述正确的是（A）A.滚动条可以设置滚动条的value属性的最大值B.水平滚动条和垂直滚动条是同种控件，可以放在一个控件数组中C.滚动条可以设置min属性值为字符串D.滚动条滚动时的值的增量为1，且不能改变增量158.一般滚动条用来接收分数类的数据159.计时器的timer事件中的程序没有运行，可能是：interval属性值为0；enabled属性值为false;interval属性值为0且enabled属性值为false160.如果希望标签框显示时间，在计时器的timer事件中写入命令label1.caption=time，另外还必须设interval 属性值为1000且enabled属性值为true161.下面对计时器控件的叙述正确的是（A）A.计时器控件可以在一定时间间隔内自动执行计时器timer事件过程中的程序B.计时器在运行时是可见的C.计时器在运行时是显示为一个随时间变化而变化的数字时间D.使用计时器控件，只需编制timer事件中的程序即可162.下面程序运行后标签框内容不改变，原因是：变量a不是模块级变量，应该在通用部分声明变量a private sub form loadtimer1.interval=1000timer1.enabled=trueend subprivate sub timer1 timera=a+1label1.caption="已经过去"+str(a)+"秒"end sub163.下面程序运行后标签框内容不改变，原因是：计时器的interval属性值为0private sub form loadtimer1.enabled=trueend subprivate sub timer1 timera=a+1label1.caption="已经过去"+str(a)+"秒"end sub164.下面哪个不是控件数组的事件(A)A.private sub text1 keypress(keyascii as integer)B.private sub command1 keypress(index as integer,keyascii as integer)C.private sub option1 click(index as integer)D.private sub check1 keypress(index as integer,keyascii as integer)165.有4个单选按钮设置为控件数组，name属性为option1,当单击其中一个单选钮时，标签的caption属性指赋值单选钮的caption属性值的程序private sub option1 click(index as integer)label1.caption=option1(index).captionend sub166.有2个控件数组，每个控件数组有3个标签框，name属性为label1和label2，当单击按钮时，控件数组中所有标签控件的caption属性值赋值为一个100以内的随机整数按钮的单击事件的程序为：private sub command1 click()for i=1 to 2label1(i).caption=int(rnd*100)label2(i).caption=int(rnd*100)next iend sub167.如果一控件数组中的控件都是按钮，所有控件数组中的控件的单击事件都是同一事件过程168.控件数组中的事件过程至少有一个形式参数，且参数的变量为index169.新建一个窗体后（名为form1），立即在该窗体上双击，编写的事件过程是form load170.在程序运行时，窗体form1中单击，发生的事件是form click171.下列关于控件数组与一般控件的区别的叙述正确的是（A）A.控件数组一定由多个同一类型的控件组成，一般控件只有一个控件B.控件数组的index属性为0，而一般控件的index为空C.控件数组的index属性为1，而一般控件的index为0D.控件数组的建立通过dim语句声明，而一般控件不必声明172.在窗体上单击鼠标键，可能触发click,mousedown,mouseup事件，不可能触发dblclick事件173.计时器timer1，将interval属性设置为1000，有如下程序：private sub timer1 timerstatic s as integers=s+1print send sub程序运行到2.5秒时，在窗体上输出的信息是 1 2174.在多窗体程序中，为了将窗体隐藏而不从内存中卸载，使用的方法是：hide175.下列方法不能让form1从视觉上消失的代码是（A）A.form1.enabled=falseB.form1.visible=falseC.form1.hideD.unload form1176.在程序中用语句unload卸载窗体时，将触发的事件是unload177.窗体有initialize,load,lostfocus,unload事件，最先触发的事件是unload事件178.假定picture1和text1分别为图片框和文本框的名称，下列不正确的是（A）A.text1.Print 25B.Print 25C.picture1.Print 25D.Debug.Print 25179.如果标签的alignment的属性设置为1，则作用为标题靠右显示180.borderstyle属性用来设置标签边框181.文本框中用来设置口令显示字符的属性是passwordchar182.下面关于图片框与图像框的说法不正确的是（A）A.在图像框里可以包含其他控件，但在图片框中则不可以B.图像框比图片框占用的内存小，显示速度快C.图片框可以通过print方法接收文本，并可以接收由像素组成的图形D.在图片框里可以包含其他控件，而在图像框里则不能183.语句command1.visible=false的作用是：使命令按钮消失184.语句command1.enabled=false的作用是：使命令按钮失去作用185.语句command1.enabled=true的作用是：使命令按钮生效186.语句command1.visible=true的作用是：使命令按钮重新出现187.语句list1.list(3)="北京"的作用是：把列表框list1的从1数起的第四个内容设置为"北京" 188.使用框架的主要目的是：对控件进行分组189.当对象得到焦点时，会产生的事件是gotfocus190.在窗体装入工作区时激发的事件是load191.若要使命令按钮不可操作，要对其设置的属性是enabled192.文本框不具备caption属性。

vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

函数与表达式练习题一、选择题1、X=，表达式INT(X)+FIX(－X)的值是( )D.－12. 执行A＝9\4后，A的值为( 2 )4 表达式Int(8*sqr(36)*10^(-2)*10+/10的值是（）.(A) .48 (B) .048 (C) .5 (D) .054.表达式Val(".123E2CD")的值是（）.(A).123 (B) (C) 0 (D) .123E2CD5. 表达式SQR(2^3^2) MOD 7的值为( )6.表达式(7\3+1)*(18\5-1)的值是（）.(A) (B) (C) 6 (D)7.表达式5^2 Mod 25\2^2的值是（）.(A)1 (B)0 (C)6 (D)48.表达式 Mod 的值是（）.(A)1 (B)5 (C)4 (D)出错9.下面表达式中,（）的运算结果与其他三个不同.(A) Exp (B) Int+(C) -Abs (D) Sgn(100*Rnd(1))产生的随机整数的闭区间是（）.(A) [0,99] (B) [1,100] (C) [0,100] (D) [1,99]11.产生[10,37]之间的随机整数的Visual Basic表达式是（）.(A) Int(Rne(1)*27)+10 (B) Int(Rnd(1)*28)+10(C) Int(Rnd(1)*27)+11 (D) Int(Rnd(1)*28)+1112.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.(A) 1 (B) 0 (C) 01 (D) 213.表达式Int( - +Sgn的值是（）.(A) 18 (B)-17 (C) -18 (D) -1614.表达式Int( - +Abs的值是（）.(A) 0 (B) (C) - (D) 015.表达式Left("how are you",3)的值是（）.(A) how (B) are (C) you (D) how are you16.表达式Right("Biejing",4)的值是（）.(A) Bei (B) jing (C) eiji (D) ijin17.表达式Abs( - 5) +Len("ABCDE")的值是（）.(A) 5ABCDE (B) 0 5ABCDE (C) 10 (D) 018.表达式Mid("SHANGHAI",6,3)的值是（）.(A) SHANGH (B) SHA (C) ANGH (D) HAI19.函数Len(Str(Val("")))的值为（）.(A) 11 (B) 5 (C) 6 (D) 820.设A="",则表达式Val(Left(A,4) + Mid(A,4,2))的值为（）.(A) 123456 (B) 123445 (C) 8 (D) 621.设A="abcdefghijklm",下面（）的函数值为"jklm".(多选)(A) Mid(A,10,14) (B) Right(A,4)(C) Mid(A,10,4) (D) Left(A,10,4)22.函数InStr("VB程序设计教程","程序")的值为（）.(A) 1 (B) 2 (C) 3 (D) 423.函数Ucase(Mid("Visual basic",8,5))的值为（）.(A) Visual (B) basic (C) VISUAL (D) BASIC24.表达式Str(Len("123")) + Str的值为（）.(A) (B) 3 (C) (D)25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）.(A) 0 (B) 1 (C) - 1 (D) 随机函数26. \2的结果是__ ___。

1. Rnd函数不可能为下列（）值（A） 0 (B) 1 (C) 0.1234 (D)0.00052. Int(198.555*100+0.5)/100的值为（）(A) 198 (B) 199.6 (C)198.56 (D)2003. Print DateAdd(“m”,1,#1/30/2000#)语句显示的结果是（）（A）00-2-29 (B)00-2-28 (C)00-2-30 (D)00-1-314. 表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是（）（A）1 (B) 11 (C)14 (D) 995. 表达式Len(“123程序设计ABC”)的值为（）（A）10 (B)14 (C)20 (D)176. 表达式LenB(“123程序设计ABC”)的值为（）（A）10 (B)14 (C)20 (D)177.赋值语句：A＝123＋MID(“1234356”,3,2) 执行后，A变量的值为（）（A）”12334” (B)123 (C) 12334 (D)1578.赋值语句：A＝123 & MID(“1234356”,3,2) 执行后，A变量的值为（）（A）”12334” (B)123 (C) 12334 (D)1579. int(-3.5),int(3.5),fix(-3.5),fix(3.5),的值分别为多少（）（）（）（）10. 表达式Ucase(Mid(“abcdefgh”,3,4))的值为（）11．在下列函数中，哪个函数的执行结果与其他三个不一样 D 。

A．String(3,”5”) B．Str(555) C．Right(“55555”,3) D．Left(“55555”,3) 12．设变量A的值为2，则哪一个函数的执行结果与其他三个不一样 A 。

A．Val(“A”) B．Int(A) C．Fix(A) D．Abs(A)13．表达式Int(-20.9)+ Int(20.9+0.5)-Fix(-17.9)的值是 C 。

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。

1、下列逻辑表达式中，能正确表示条件“x,y 都是奇数”的是（）.A x Mod 2 =1 Or y Mod 2 =1B x Mod 2 =0 Or y Mod 2=0C x Mod 2 =1 And y Mod 2 =1D x Mod 2 =0 And y Mod 2=02、逻辑与(And)运算的结果为"真"，与它所连接的两个条件必须是( )A 前一个为"真"，后一个为"假"B 前一个为"假"，后一个也为"假"C 前一个为"真"，后一个也为"真"D 前一个为"假"，后一个为"真3、设a=5，b=4，c=3，d=2下列表达式的值是。

3 > 2 * b Or a = c And b <> c Or c > dA 1B TrueC FalseD 24、在以下四个逻辑表达式中，其逻辑值为“真”的是( )A Not(3+5＜4+6)B 2＞1 And 3＜2C 1＞2 Or 2＞3D Not(1＞2)5、选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（）A、T>=1.7 And W<=62.5B、T<=1.7 Or W>=62.5C、T>1.7 And W<62.5D、T>=1.7 Or W<62.56、数学关系3〈= x〈10表示成正确的VB表达式为（）A、3〈=x〈10B、3〈= x AND x〈10C、x〉=3 OR x〈10D、3〈= x AND〈 107、语句If x=1 Then y=1,下列说法正确的是（）。

A、x=1和 y=1 均为赋值语句B、x=1和 y=1均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达8、设x = 2， y = 1， z = 2，执行以下两条语句后，输出结果是（）If z = x Then y = x : x = 4Print x, y, zA、4 2 1B、2 2 4C、4 2 2D、2 4 29、下述程序段：w=25c=0if w mod 2=1 then c=c+1 else c=c+2 c的值为：（）A、0B、1C、2D、310.编程：求一元二次方程ax^2+bx+c=0的根（a不为0）提示：如果b^2-4ac<0则输出“方程无实数根”，否则输出方程两实根具体值。

常量、变量及表达式练习题一、判断题1.ST$、B001、ASC都是合法的变量名。

（）2.表达式5*7\3与7\3*5的值相等。

（）3.”A”大于”a”。

（）二、计算下列表达式的值1. 37.9\6.6=2. 37.8 mod 7.3=3. not (2>3 and 2”>”3”)三、写出VB的运算符，按优先级别写。

1.算术运算符：2.关系运算符：3.逻辑运算符：四、填空题1.表达式4+15 Mod 8的值是_____。

2.“a”,”T”,”Z”,”9”这四个字符中，______的ASCII码值最大。

3.表达式3\3*3/3 mod 3的值是_______.4.当X=-19,Y=8,F=100,NUM=-12时，求下列表达式的逻辑值（用True和False回答）（1）X>0 OR X<=0 逻辑值为______（2）NOT (X>Y) 逻辑值为_______（3）X+Y<=NUM逻辑值为______（4）X－Y<NUM AND NOT(Y>0) OR NUM >＝－25 逻辑值为______（5）X MOD 2=0 逻辑值为____5."7 mod 3+3^3/4\5"的值为____6.True or False 的值为_____7.X,Y均小于Z的表达式为________8.表达式“4<5 and 7=5“的值为______9.若a的值为True，则表达式“a=(4=3)“的值为______10.字符串常量必须用_____括起来。

11.闰年的条件是:年份(Y)能被4整除,但不能被100整除;或者Y 能被400整除.表示该条件的逻辑表达式是:12.表示条件"变量X 为能被5整除的偶数"的逻辑表达式是:13.一元二次方程ax 2+bx+c=0有实根的条件是a ≠0,并且b 2-4ac ≥0,表示该条件的逻辑表达式是:五、选择题1.下面四个VB 关系表达式中结果为“真“的是（ ）A. “A”>”A ”B. “THAT ”>”THE ”C. ”H ”D. “b ”>”B ” 2.下面四个表达式中其值为0的是（ ）A. 4/5B. 5 mod 4C. 4\5D. 4 mod 53.下面表达式的值为真的是（ ）A. “ABC ”>”Aba ”B. “3+2”>”4”C. “ABC ”>”ABC ”D.“ABC ”>”ABB ”4、求一个三位正整数N 的十位数的正确方法是（ ）A.Int(N/10)-Int(N/100)*10B.Int(N/10)-Int(N/100)C.N-Int(N/100)*100D.Int(N-Int(N/100)*100)5、若x 是大于零的偶数，则下列关系表达式值一定为真的是（ ）A ． x Mod 2 = 1B ．x\2 = 0C ． x\2 = x/2D ．Int(x/2) <> x/26、设a=2,b=3,c=4,d=5,表达式 a>b And c<=d Or 2*a>c 的值是 （ ）A ．TrueB ．FalseC ．-1D ．1六、写出下列数学式的VB 表达式 1.xy n n n )2)(1(-- 3.4131211+++ 2.311xy + 4.y x xyx 133++。

1.表达式6+10MOD4*2+1的值是（）A. 11B. 10C. 8D. 92.表达式Abs(-5)+Len(“ABCDE”)的值为( )A. -5ABCDEB. 0C. 5ABCDED. 103.关于语句行，下列说法正确的是（）A. 一行只能写一条语句B. 一条语句可以分多行书写C. 长度不能超过去了255个字符D. 每行的首字符必须大写4.在编码器中，如果一条语句太长，无法在一行内写下（不包括注释），折行书写，可以在行末使用续行字符（），表示下一行是当前行的继续A. 一个空格加一个连字符（—）B. 一个空格加一个下划字符（_）C. 一个下划字符（_）D. 直接回车5. 有如下程序段：Dim str1 As String*5Str1=“Visual Basic”当该段程序被执行完时，变量str1的值为( )A. “Visual Basic”B. “V”C. “Visual”D. “Visua”6.把数值型转换为字符型需要使用的函数是（）A. StrB. ValC. ChrD. Asc7.下列关于变量的说法不正确的是( )A. 局部变量在声明它的过程执行完毕后就被释放了B. 局部变量的作用域仅限于声明它的过程C. 静态局部变量是在过程中用Static语句声明的D. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量8.如果希望以模态方式显示窗体Form1，下列正确的语句是（）A. Form1.Show 0B. Form1.ShowC. Form1.Show 1D. 以下都不正确9."x"是小于80的非负数，用VB表达式表示正确的是（)A. 0<=x<80B. 0<=x Or x<80C. 0<=x And x<80D. 0≤x<8010.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为()A. 星号（*）B. 减号（-）C. 加号（+）D. 感叹号（！）11.可获取字符的ASCII码的函数是（）A. FixB. ChrC. valD. Asc12.以下右以作为Visual Basic变量名的是（）A. SINB. COS(X)C. X(-1)D. COL13.按照变量的作用域可将变量划分为（）A. Public、Private、ProtectedB. 全局变量、模块级变量、过程级变量C. 公有、私有、系统D. 动态、常量、静态14.要退出Do….Loop循环，可使用的语句是（）语句A. ExitB. Exit DoC. End DoD. Exit For15.Sub过程与Function过程最根本的区别是()A. Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B. Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

VB课堂小测练习题1、VB中，要在一行书写多条语句，各语句之间使用__分隔；注释语句用____分隔。

2、在VB中，对象的三要素分别是___、__和___。

3、VB中工程文件的扩展名为____；窗体文件的扩展名为___。

4、启动VB后，系统为用户新建的工程起一个为____的临时名称。

（5、在VB中用Const将Name声明为字符串“张三”常量，使用的语句是______。

6、在VB中，常量12345678& 的类型是______。

7、VB中声明了Variant变量，但未赋值，则系统默认其初始化值为___。

8、如果将布尔常量值TRUE赋给一个整型变量，则整型变量的值为____。

9、每建立一个窗体，工程管理器窗口中就会增加一个____文件。

10、窗体的Enabled属性的属性值是_________类型的数据．11、当窗体被加载时运行，发生的事件是_________。

12、删除字符串前导和尾随空格的函数是______。

、产生[10，37]之间的随机整数的VB表达式是_____。

14、函数INT（RND（0）*100）的取值范围是_________。

、INT（100*RND（1））产生的随机整数的取值范围是_________16、如果要改变窗体的标题，需要设置窗体的属性是_______。

17、控件和窗体的Name属性只能在 _____窗口中设置，不能在____窗口中设置。

18、要在窗体上显示图片，需设置窗体的_____属性．19、把当前目录下的图形文件pic1.jpg装入窗体FORM1中的语句为________.20、能够获得一个文本框中被选取文本的内容的属性是______。

21、表达式（73+1）\ (185-1)的值是________。

22、决定标签内显示内容的属性是_________.23、为了使标签能自动调整大小以显示全部文本内容，应把标签的____属性设置为True。

24、设窗体上有一个列表框控件List1，含有若干列表项。

Vb考试复习题一、填空题1.设a=2,b=3，表达式a>b 的值是_______。

FALSE2.在VB中声明符号常量的关键字是_______。

const3. 表达式10 MOD 16\4的值是_______。

24. 设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_______。

False|0|5. 设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_______。

True6. 设a=1,b=2,c=3,则表达式：a<b or b<c and c<a 的值是_______。

True7. 在VB中，用Dim X As Integer 语句定义的变量X，系统默认其值为_______。

08. 表示x是5的倍数逻辑表达式为_______。

X MOD 5=09. 已知a=,b=,c=,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。

False|0|零|假|假值|零值10. 用dim abc as integer 定义的变量abc,其类型是______。

整型11. 表达式"12345"<>"12345" & "ABC"的值是_______。

True12. 在VB中，字符型常量应使_______将其括起来，日期/时间型常量应使用______将其括起来。

双引号井号13．在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("请输入一个整数")b = InputBox("请输入一个整数")Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为___。