VB期末考试试题

VB期末考试试题（A卷）一、选择题要改变控件的宽度，应修改该控件的（B）属性。A、TOPB、widthC、LeftD、Height将命令按钮Command役置为不可见，应修改该命令按钮的（A）属性。A、VisibleB、ValueC、CaptionD、Enabled单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（C）事件。A、ScrollB、KeyDownC、changeD、Dragver（D）对象具有 clear方法。A、图片框B、窗体C、复选框D、列表框中心定义图片框控件的坐标系统，可采用该图片框的（A）A、scaleB、ScaleXC、scaleYD、setFocus将通过对话框CommdDialogl的类型设置成另存为对话框，可调用该控件的（B）方法。A、ShowopenB、ShowsaveC、ShowColorD、ShowFont形状控件所显示的图形不可能是（D）A、圆B、椭圆C、圆角正方形 D、等边三角形由FroK=10TOoslept3 ：nextK循环语句控件的循环次数是（B）A、12B、0C、-11D、-10下列数据类型中，占用内存最大值是（D）A、BoolwanB、ByteC、LntegerD、Single如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（C）属性决定了该图片的颜色。A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、选择题.要在垂直位置上移动控件，应利用控件的（C）属性。A、LeftB、WidthC、TopD、Height.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属性为False。A、TxetB、EnabledC、VisibleD、Multline.用键盘的光标键选中某一菜单项，并按回车触发菜单的(C)的事件。AKeyPressB、KeyDownC、ClickD、Keyllp.一下(D)对象不具有Clear方法。A、列表框B、组合框C、剪贴框D、图片框.软件列表中设定“文件列表”显示文件类型应改该控件的(D)属性。APathB、FileNameC、NameD、Patterw.组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为(B)A0B、1C、2D、3.下列可调整图片框的大小以适合图片的属性是( B)AStretchB、autosizeC、pictureD、oledropmode.要想清除文本框中的内容则可利用( A)进行。ACaptionB、TextC、ClearD、Cls.下列表达式中，其值为0的是(C)A7/9B、7mod15C、7\9D、15mod9.求以10为底X的常用对数的表达式为(A)ALoG(X)/LoG(10)B、LN(X)C、LoG(X)/LoG(E)D、LoG(X)二、填空题(每空2分，共20分).代数式的VisualBasic 表达式是sqr((xA3+exp(-6)*log(y))*atn(a*180)/(x*x+y*y)).设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)ORx<yIMPy<b的结果为True。.a和b中有仅只有一个不为 1,相应的VisualBasic逻辑表达式为a<>1xorb<>1。.把条件为1£x£5写成VB表达式为：x>=1andx<=5。.语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为(2000,2000)和(4000,3500)的红色实心的矩形。.用随机函数产生10个100〜500的整数，其表达可为：forI=1to10a(i)=100+int(400*rnd)nextI。.当x=2时，语句ifx=2thenPrintx=2的结果值是True。.StaticPrivateSubcmdSum_Click()DimSumasintegerSum=2*Sum+1EndSub问：第三次单击命令按钮 cmdSumt,Sum的值为：乙.声明单精度常量g(重力加速度)代表9.8可写成^nstg=。.欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序 c:\windows\,可在程序代码窗口必要的地方添加语句：shell(“c: ")。三、编程题1随机产生n个两位正整数(n由对话框输入，切n>0)o求由其中的偶数之和，并在标签框 Labol1上显示。程序写在命令按钮Command的click事件中。PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,sumAsLongn=Val(InputBox("Pleaseinputainteger","InputNvalue"))Fori=1Tonrnddat=(10+Int(90*Rnd))IfrnddatMod2=0Thensum=sum+rnddatEndIfNexti=sumEndSub2由输入对话框中输入100个数值数据，放入数组a,将其中的整数放入数组b,然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行 5个数据在窗体上输出。注：程序写在窗体 form的click事件上。PrivateSubForm_Click()Dima(1To100)Dimb()asintegerDimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasintegerFori=1To100a(i)=Val(InputBox("Pleaseinputdata"))Ifa(i)=Int(a(i))Thenj=j+1ReDimPreserveb(j)b(j)=a(i)EndIfNextiFork=1Toj-1pos=kForm=kTojIfb(m)<b(pos)Thenpos=mNextmIfk<>posThentemp=b(k)b(k)=b(pos)b(pos)=tempEndIfNextkFork=1TojIfkMod5=0ThenPrintb(k)ElsePrintb(k);NextkEndSub四、程序阅读题(每小题 6分，共18分)1．程序1：DimYAsIntegerPrivateStubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger)Y=Z+XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction结果：(222 )2．程序 2：privatesubForm_click()N=3DimA(3，3)AsIntegerForI=IToNForJ=IToNA(I,J)=(J-l)*N+INextJNextIForI=2ToNForJ=1ToI-1TEMP=A(I,J)A(I,J)=A(J,I)A(J,I)=TEMPNextJNextIForX=1ToNPrintX,A(X,N+X-I),A(X,X)NextXEndSub结果：(10427831112)3．程序 3：PrivateSubForm_click()Dimf1AsInteger,f2AsInteger,f3AsIntegerOpen"c:\"ForOutputAs#1f1=2:f2=3Print#1,"NO.";3,f1Print#1,"NO.";4,f2ForI=5To7f3=f1+f2Print#1,"NO.";I,f3f1=f2f2=f3NextIClose#1EndSub写出文件的最终结果。(235813 )五、程序填空题(每小题9分，共18分)1.从计算机输入三个数,找出中间数PrivateSubFindMidNum()X=INPUTBOX“(PLEASEINPUTTHEFIRSTNUMB”)ERY=INPUTBOX“（PLEASEINPUTTHESECONDNUMBER）Z=INPUTBOX“（PLESSEINPUTTHETHIRDNUMBER）IF（X<Y）THENA=XX=YY=AENDIFIF（Y>=Z）THENPRINTYELSEIF（X>=Z）THENPRINTZELSEPRINTXENDIFEndSub2.打印以下杨辉三角形 11112113311464115101051DimQ()AsIntegerN=InputBox("PLEASEINPUTN")ReDimQ(N,N)ForI=1ToNForJ=1ToNQ(I,J)= (0)NextJNextIForK=0To(N-1)Q(K+1,1)=1Print1;ForI=1ToKQ(K+1,I+1)= (Q(K,I+1) )+Q(K,I)Print(Q(K+1,I+1) )NextIPrintNextKVB期末考试试题(B卷).下列代数式的VisualBasic表达式是( )。二、填空.设x为大于零的实数，则大于x的最小奇数的VisualBasic表达式是IIF(int(x)mod2=0,int(x)+2,int(x)+1)。.a1和a2之中有且只有一个与a3的值相等，相应的VisualBasic逻辑表达式是: a1=a3xora2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是： a1<>a3anda20a3 。.设init的初值为10,则由下列循环语句控制的循环次数是__6。DoWhileinit>=5init=init-1Loop.在VisualBasic中，变量从它的作用范围来看，可分为_全局变量、模块级变量和过程级变量三不中。.语句(800,1000),500 的含义是—以圆心为(800,1000)半径为500的圆。.声明定长为10个字符变量Sstr的语句为：DimSstrasString*10。三、程序阅读题，阅读下列程序书写结构。程序1PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("请输入一个正整数="))Ifx<5Thens=s*xElses=s+xEndIf="s="+Str(s)EndSub程序运行时连续三次单击 Command1且设输入的数是5,2和4时，分别写由文本框的值。结果：(s=5s=10s=40程序2PrivateSubForm_Click()w=3Fork=2To6Step2"w=";w,"k=";kw=w+1Nextk"w=";w,"k=";kEndSub写生程序运行时单击窗体后， Form1上输生结果。结果为：(w=3k=2W=4k=4W=5k=6W=6k=8 )程序3Rem在窗体的通用声明区声明两个模块级变量 a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Open"c:\"ForOutputAs#1Close#1EndSubPrivateSubCommand1_Click()Open"c:\"ForAppendAs#1Callaa(5)y=y+aPrint#1,"y=";y,"a=";a:Close#1EndSubSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSub写生程序运行时连续三次单击 Command后，文件的最终结果为：(y=5a=5y=15a=10y=30a=15 )五、程序填空题(每小题9分，共18分)a)程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表， 如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间， 如“运行了0小时2分10秒(假设对象的属性都在程序代码中设定)。DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()="动态秒表(小时：分：秒)"="开始[&S]”="结束[&E]”=2'居中对齐="0:0:0"=__1000______=Falsex=0E