1、I.下列不是VB常为t的是,A)3.14B)NameC)#IO/18/2007#D)True2,确定控件在窗体上位移的I性是C,A)Width和HeightB)Width和TopC)Top和1.eftDTop和Height3 .数学表达式1XIO表示成正确的VB衣达式为BA)1.XIOB)X=1.AndX1.()C)X=1OrxIOD)X=In1.104 .下面的语句可以实现：先在窗体上输出大n字母A,然后在同一行的笫IO列输出小写字母b.)PrintAjTab(9)bBPrimzSpc(8)ibC)PrintASpace(10bD)Prin1.A;TabRtrimC)1.trimDMid13
2、函数In1.(Rnd*80)+1是在.D范国内产生随机整数，A)0,80B)|0.79|O(1.79)D)(1.8014 .下列四个字符率进行比较，最大的是DC)CinemaD),ext)9977nB)CD4515 .要使文本框可以显示乡行文本,猛；设置A属性为TrUC.A)MuIti1.incB)Enab1.edCMgthD)1.ocked16 .己知f=12345678”，则表达式VaI(1.efUf.3)+va1.(Mid(f,4.2)的例是_&_，A)168B)12345C)i23DH517 .执行谙句：MSgbOX”北京欢迎您！二1.“2008”.所产生的消息对话框的标翘是上.A)
3、北京欢迎您！B)2008C)0DI18 .下面正篇的赋假语句是，_.A)y=3xB)3*x=yC)y=3*xD)x+y=1019 .设a=6,则执行IFIIF(a5,-1.0)THBNX=OEISEX=I后,x的伯为C.A)5B)6C)0D)1.20 .在ViSUa1.BaSiC中，表达式y1.+z2=a*Sin(b*x+c+k的类型是。A)算术表达式B)关系表达式O逻辑表达式D)字符表达式21.如果变果a=50、b=ABCc=*abcd=10.则表达式acAnd(vc的值是B,)TrueBFa1.seC)YesD)No22 .若Dimb(3)AsInteger.K1.UcasdChrt97)
4、UB(und(b)的结A是A。A)A3B)A2OA1.D)AO23 .下列各项不是ViSUa1.Basic的堪本数据类型的是A.A)CharB)StringC)IntegerD)Doub1.e24 .下列表达式中,友达KA的运算结果与其它3个不同“A)InH-3.5)-1.5B)Int1.5)+05C)-Abs(-4.5)D)Fix(-4.5)-0.525.对于窗体Fom1.I,执行了FQrm1.1.efi=FOnn1.1.eft+100语句后，则该窗体DA)上移B)下移O左移Di移26.1. 于窗体FOm1.I,若将其名称属性设置为Disp1Caption姐性设置为OK则下列正确的语句是_
5、A)Fm1.1.eft=I(XK)B)OK.1.ef1.=100OC)Disp,1.cft=1(XXD)以上语句都不对27 .以下程序段执行后,整型变下n的优为B.y=2OO8n=y4+y4-y1A)486B)487O507D)46728 .如果每0.1秒产生一个计时器事件,那么时果控件的In1.CrVa1.屈性成i殳为C.)1B)IOC)100D100029 .如果a=1.,b=-1.则语句PrinMa=DAnd(b=1.)的输出结果是_B_)Fa1.seB)TrueC)D)30 .将数据项“北京臾运会”添加到列表框USU中成为第2项,应使用谱句.A)1.iSt1.AddItCm”北京奥运
6、会”.2B1.ist1.Add1.tcm2.”北京奥运会”C)1.iSt1.AddhCm”北京奥运会”.ID1.ist1.AddItcmE”北京奥运会”31 .若要使标签框的大小自动与所显示的文本相适应,则可通过设置属性的值为Tme来实现。A)AutoSizeB)A1.ignmentC)AppearanceD)Visib1.e32 .表示表动条控件控件范困外人俏的屈性是A,A)MaxB)1.argCChangeC)ViI1.UCD)Min33 .窗体上有一个列表枢控件UM1.,其中含有若干列表项，则D能表示当前被选中的列表项内容。A)1.ist!.1.istB1.ist1.1.istIndex
7、C)1.is1.IJndexD)1.isi1.Tcxt34 .要消除PiCUIreBoX控件中的图形，可用语句。A)picture1.ic(ure=1.oadpic(ure()B)picture!.pictureCpicture!.pic(ure=1.oa10情况的语句为：CaseCA)Not(-I01b10)B)-IO1.bIOO!s10D)AbS(N)1038 .以下程序段运行后，输出结果是D.Fori=ITo3Forj=IToiIfjMod2=0TbenE1.sePrinSm:EndIfNcxtjPrintNextiA$B)C)D)$S$S$s39 .下列程序段的循环结构执行后，i的输出
8、伯足BCDimyAsIntegerFori=2To10S1.ep2y=y+iNextiPrintiA)1B)12C)13D)因为y初值不知道，所以不确定40.下面分别是求两个数中的人数的程序段，不IE确的是D,A)Max=1.1.f(xy,x.y)B)Ifxy,I,hcnMiix=XE1.seMax=yC)Max=xDIfy=xThenMax=yIfy=xThenMrx=yMax=X填切1 .VB工程文件的扩展名为vbp.一体文带的扩展名为.frm.2 .若要将窗体FOnn1.隐藏起来，谓用语句为ftrm1.hkk.3 .ViSUaIB於记的三种工作粮式是设计、运行和中的,4 .在调用过程时4
9、数传递的两种方式是按值和按地址，5 .卜面程序的功能是找出100到999之间所有的，水仙花数”,请用正确的内容埴空.所料水仙花数”是指一个三位数,其各位数字的立方和等干该数本身.例如153=IMM3.故153是“水仙花数”.PrivateSubFOrn1.C1.iCk()DimpsIntegerForn=100Tb999a=int(n.1.(K)b=1.nt(n-a+1.(X)IO)c=nModIOp=a3+b3+c3Ifp=nThenPrintn:是“水仙花数”EndIfNextnPrin1.”；EndSub6 .以下程序实现每次单击按钮Command1.时标签1.abd1.在窗体FonnI
10、中向右移动100个标准单位：当标签移出窗体右边界时.再次单击Command1.标签1.aben回到窗体的左边界.PrivateSubCommand1.eIiCk()If1.abcI1.1.citForm!.Widththen1.abdIhn=OE1.se1.abd1.kn=kbd1.kft+100End1.fEndSub7,执行下面过程后，窗体上显示的是130PrivateSubFo门I1.C1.iCkODima(IO,IO)asIntegerDimiasIinegerjasIntegerFori=1.(oIOForj=I(oIOa(ij)=i*jnextjnextiprinta(2,2)+a
11、3,3)endsubMM1 .编写程序，分别用InPU1.BOX函数接收两个整数，在窗体中输出其中的较大数.(10)2 .S=1.+2=3问n最小为多少时S的值大于100Oo请编程计算n的值“(10分).3 .用循环语句编程输出下列图形(10分)4 .利用随机函数模拟产生IO名学生的EVB课程*期末考试成绩(O-KX).然后将成绩按从大到小的次序排序输出.(10分)5编写程序.分别用InPUtBoX函数接收两个整数.在窗体中给出其中的较大数*(10)6 .编写程序将自然数31(X)中的所有素数打印出东,并统计其个数(10分).7 .用循环谱句编程输出下列图形(K)分)编程一，PrivateS
12、ubCommandI_C1.ick()a=VaI(InPBo*(请输入A的伯)b=Vwinpu1.BoxCiJtSJdB的值RIfabThcnPrirU,两个数中A大”E1.sePrint两个数中B大”EndIfEndSub编程二，PrivateSubCommani1._C1.ick()Dim$AS1.n(eger.nAsIntegers=0n=0DoWhi1.es=100On=nIs=sn21.pPrintnEndSub编程三，PrivateSubForm_1.oad()Form1.ShowDimAttAsStringFori0To4PrintString(i*2+1,NextEndSub编
13、程四：OpiionBase1Priva1.cSubFor11-C1.ick()Dima(10)AsIntegerFori=I1.bIOa(i)三Int(Rnd*101)Printa(i):NcxtiPrintFori=ITo9Forj=i+ITb10Ifa(i)Va(j)1.hcn=a(i)a(i)=a(j)a(j)=tEndIfEndSub编程五：同一编程六：PrivateSubComnuind1._C1.ick()DimiAsInteger,mAsInteger,f1.agAsBoo1.ean.SAsIntegerS=OForm=3To100I1.ag=TrueFori=2Tbm-1If(mModi)=0Thenf1.ag=Fa1.seNextiIff1.agThens=s+1PrintmEndIfNextmPrint一共有”&s&个素数”EndSub编程七，PrivateSubForm_1.oad()Form1.ShowDimAttAsStringFori=0To4Att=String(i*2+1,*h)PrintSpace(9-i)&AttNextEndSub
免费区 
