计算机题库VB期末考试试题（A、B卷）.pdf

该【计算机题库VB期末考试试题（A、B卷） 】是由【小屁孩】上传分享，文档一共【13】页，该文档可以免费在线阅读，需要了解更多关于【计算机题库VB期末考试试题（A、B卷） 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:..计算机题库VB期末考试试题(A、B卷)VB期末考试试题(A卷)一、,应修改该控件的(B)属性。A、TOPB、widthC、LeftD、,应修改该命令按钮的(A)属性。A、VisibleB、ValueC、CaptionD、,将触发该滚动条的(C)事件。A、ScrollB、KeyDownC、changeD、Dragver4.(D)对象具有clear方法。A、图片框B、窗体C、复选框D、,可采用该图片框的(A)A、scaleB、ScaleXC、scaleYD、,可调用该控件的(B)方法。:..A、ShowopenB、ShowsaveC、ShowColorD、(D)A、圆B、椭圆C、圆角正方形D、=10TOoslept3:nextK循环语句控件的循环次数是(B)A、12B、0C、-11D、-,占用内存最大值是(D)A、BoolwanB、ByteC、LntegerD、,则图片框的(C)属性决定了该图片的颜色。A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、,应利用控件的(C)属性。A、LeftB、Width:..C、TopD、(密码)符,在属性设置时,首先必须设置(D)属性为False。A、TxetB、EnabledC、VisibleD、,并按回车触发菜单的(C)的A、KeyPressB、KeyDownC、ClickD、(D)对象不具有Clear方法。A、列表框B、组合框C、剪贴框D、“文件列表”显示文件类型应改该控件的(D)属性。A、PathB、FileNameC、NameD、,它们由Style属性所决定,其中为简单组合框时,Style属性值应为(B)A、0B、1C、2:..D、(B)A、StretchB、autosizeC、pictureD、(A)进行。A、CaptionB、TextC、ClearD、,其值为0的是(C)A、7/9B、7mod15C、D、(A)A、LoG(X)/LoG(10)B、LN(X)C、LoG(X)/LoG(E)D、LoG(X)二、填空题(每空2分,共20分)((x^3+exp(-6)*log(y))*atn(a*)/(x*x+y*y))=2,y=4,a=4,b=6,表达式(a>,相应的VisualBasic逻辑表达式为a<>1xorb<>1。￡x￡5写成VB表达式为:x>=1andx<=5。(1000,1000)-Step(2000,1500),vbRed,BF的含义是:在窗体上绘制以角点为(2000,2000)和(4000,3500)的:..红色实心的矩形。~500的整数,其表达可为:forI=1to10a(i)=100+int(400*rnd)=2时,语句ifx=2thenPrintx=2的结果值是True。()DimSumasintegerSum=2*Sum+1EndSub问:第三次单击命令按钮cmdSum后,Sum的值为:7。(重力加速度):constg=。,不中止本程序的运行,同时又可调用系统中已有的应用程序可在程序代码窗口必要的地方添加语句:shell(“c:”)。三、编程题1随机产生n个两位正整数(n由对话框输入,切n>0)。求出其中的偶数之和,并在标签框Labol1上显示。mand1的click事件中。mand1_Click()DimnAsIntegerDimiAsInteger,sumAsLongn=inputaNrnddat=(10+Int(90*Rnd))IfrnddatMod2=0Thensum=sum+=sum:..EndSub2由输入对话框中输入100个数值数据,放入数组a,将其中的整数放入数组b,然后运用选择分类将数组b中的数据按从大到小的顺序排列,并以每行5个数据在窗体上输出。注:程序写在窗体form的click事件上。PrivateSubForm_Click()Dima(1To100)Dimb()asintegerDimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasintegerFori=1To100Ifa(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=1Toj:..IfkMod5=0ThenPrintb(k)ElsePrintb(k);NextkEndSub四、程序阅读题(每小题6分,共18分):DimYAsIntegermand_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):privatesubForm_click()N=3DimA(3,3)AsIntegerForI=IToNForJ=IToNA(I,J)=(J–l)*N+INextJ:..NextIForI=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结果:(**********):PrivateSubForm_click()Dimf1AsInteger,f2AsInteger,f3AsIntegerf1=2:f2=3ForI=5To7f3=f1+f2f1=f2f2=f3NextIClose#。(:..)五、程序填空题(每小题9分,共18分),找出中间数PrivateSubFindMidNum()X=INPUTBOX(“PLEASEINPUTTHEFIRSTNUMBER”)Y=INPUTBOX(“PLEASEINPUTTHESECONDNUMBER)Z=INPUTBOX(“PLESSEINPUTTHETHIRDNUMBER)IF(X<y)A=XX=YY=AENDIFIF(Y>=Z)THENPRINTYELSEIF(X>=Z)()AsInteger:..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卷)()。二、,则大于x的最小奇数的VisualBasic表达式是_IIF(int(x)mod2=0,int(x)+2,int(x)+1)。,相应的VisualBasic逻辑表达式是:__a1=a3xora2=a3。若a1和a2之中没有一个与a3的值相等,则相应的表达式是:__a1<>a3anda2<>a3___。,则由下列循环语句控制的循环次数是__6__。DoWhileinit>=5init=init-,变量从它的作用范围来看,可分为_全局变量___、_模块级变量_____和___过程级变量__三种。:..(800,1000),500的含义是_以圆心为(800,1000)半径为500的圆_。:_DimSstrasString*10_。三、程序阅读题,阅读下列程序书写结构。程序1mand1_Click()DimxAsInteger,sAsInteger请输入一个正整数=Ifx<5Thens=s*xElses=s+xEndIfEndSubmand1,且设输入的数是5,2和4时,。结果:(s=5s=10s=40)b)程序2PrivateSubForm_Click()=3Fork=2To6Step2w=w+1NextkEndSub写出程序运行时单击窗体后,Form1上输出结果。:..结果为:(w=3k=2W=4k=4W=5k=6W=6k=8)c)程序3Rem在窗体的通用声明区声明两个模块级变量a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Close#1EndSubmand1_Click()Callaa(5)y=y+aSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSubmand1后,:(y=5a=5yy=15a=10yy=30a=15)五、程序填空题(每小题9分,共18分):..a)程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表,如图1所示。单击“开始“命令按钮,秒表开始计时,单击“结束“命令按钮,秒表结束计时,并在标签框显示运行时间,如“运行了0小时2分10秒“。(假设对象的属性都在程序代码中设定)。DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()动态秒表(小时:分:秒)=2'==Falsex=0mand1_Click()=True___EndSubmand2_Click()=Falsex=_0___运行了小时分秒EndSubPrivateSubTimer1_Timer()x=x+1