大二上学习期末复习题

1、VBBA、C、将命令按钮按钮的（A ）A、VisibleB、D、动条的（ C ）事件。BC、4.（ DA框的（ A 框VBBA、C、将命令按钮按钮的（A ）A、VisibleB、D、动条的（ C ）事件。BC、4.（ DA框的（ A 框6.CYD框，可调用该控件的（ C、D7.形状控件所显示的图形不可能是（ D 8.由FroK件的循环次数是（ ）A、C、-D）框的（B、D、CABackColro D 、Dlawstyle一、 选择题1.要在垂直位置上移动控件，应利用控件的（ ）A、C、设置时，首先必须设置（ A、C、D、单的C）A、B、D、4.一下（D ）对象不具有ClearD框控件的（ A、

2、C、D、A、C、设置时，首先必须设置（ A、C、D、单的C）A、B、D、4.一下（D ）对象不具有ClearD框控件的（ A、C、D、）A、D、7. 下列可调整（ B 框的大小以适合的属性是AStretch BDAA、B、C、ClearD、）A、B、7modC、D、159A、C、D、1代数式 的VisualBasicsqr(x3+exp(-2.设x=2,y=4,a=4,b=6（ax Xorbx）IMPybTrue3ab1，相应的a1xorb11x5VBx=1and 义是在窗体上绘制以角点为（200020003ab1，相应的a1xorb11x5VBx=1and 义是在窗体上绘制以角点为（2000

3、20003500）的红色实心的矩形. 可为：for I=1 to 10next I。x=2ifx=2thenx=2值是 True8. icPrivateSubDimSumEnd7单精度常量 g(重力加速度)代表 98 可写成constg=9.810欲使在自己设计 VB不中止本程序的运行， 同时又可调用系统中已有的应用程序 c:windowsnotepad.exe,可在程序代码窗口必要的方添加语句：(“c:windowsnotepad.exe”)Labol1Privated1clickDimnAs Dim isumAsn=aInputN For i = 1 To n rnddat=(10+Ifr

4、nddatsum= End IfNext (90*2 = 0 Then sumInputN For i = 1 To n rnddat=(10+Ifrnddatsum= End IfNext (90*2 = 0 Then sum+rnddatLabel1.Caption=sum End Sub5Subeger,jAsiAs i = eger,kAs eger,tempas To 100a(i)=Val(InputBox(PleaseinputIfa(i)j = j (a(i)1ReDimPreserveb(j) b(j) = a(i)EndIf Next iFork=1Toj -= For m

5、= kToIfb(m)b( Next m)=If k temp=b(k)=)EndNext )=For k=1ToIfb(k)=)EndNext )=For k=1ToIfkMod5=0ThenPr Next kEnd b(k)Else1程序 1： Dim Y As PrivateStubDimXAs EndX,Y,PrivateSubAA(ByValZAs Y = Z + XZ = X + EndPrivateFunction BB(ByRefY Y = Y + 1BB=X+ 结（22）privatesubN = DimA(3，3)As ForI=ITo ForJ = INext INJ)=

6、(J l) *N IForI = 2N = DimA(3，3)As ForI=ITo ForJ = INext INJ)=(J l) *N IForI = 2ForJ= TEMP = A(I,N1To I = NextNext I ForX=1Next X EndSubTo X,A(X,N+X-I),结果：（204783)PrivateDim f1 eger,f2 Openc:a1.datForOutput As#1,NO.;#1,NO.;ToForNext CloseEnd Sub2（358PrivateSubFindMidNum(X=INPUTBOX(“PLEASECloseEnd Sub

7、2（358PrivateSubFindMidNum(X=INPUTBOX(“PLEASEINPUTIF（IF YELSEIF （） ZX形11112116311N 454151InputBox(PLEASEINPUTReDimQ(N,ForI = 1ForN=1ToQ(I,形11112116311N 454151InputBox(PLEASEINPUTReDimQ(N,ForI = 1ForN=1ToQ(I,J)= （）NextJ Next IForK = 0（N 1 Q(K +1,1) 1ForI = To（Q(K,I+）+ Q(K, （+ 1,I +）NextNext KVB期1卷（）2设

8、 x 为大于零的实数，则大于 x表 达 式 是 _ (x) (x)+1)达式是：_ a1a3 and a2a3_。4init(x)+1)达式是：_ a1a3 and a2a3_。4init10，则由下列循环语句控制的Do5.在 VisualBasic 中，变量从它的作用范围来看，可分为 _全局变量_模块级变量_ _和_过程 级变量_ 三种。6 语句 的含义是 _以圆心为（800，1000）半径为 的圆_SstrasString*10_PrivateicDimx eger, sxVal(InputBox(请输入一个正整数Ifx a = a + x = x + Endd1）DimxAsx = x

9、+ Endd1）DimxAsDimh eger,meger,sPrivateSubForm1.Caption（小时：分：秒） d1.Caption = 开始&Sd2.Caption =Label1.Caption2ervalTimer1.Enabled=False x = 0EndPrivate_timer1.enabled=True_ End SubPrivate Sub x=_0_ = Str(hStr(mStr(s End SubPrivateSubTimer1_Timer() x = x + 1m = (x Mod 3600) 60 s=_(x mod 3600) mod 60 Label1.Caption=Str(h)+Private Sub x=_0_ = Str(hStr(mStr(s End SubPrivateSubTimer1_Timer() x = x + 1m = (x Mod 3600) 60 s=_(x mod 3600) mod 60 Label1.Caption=Str(h)+:+Str(m)+:+ Endbefact()求e，其中绝对值小于 1E-8 的项被忽略。Function fact(m As