广东药学院VB考试复习题

广东药学院VB考试复习题一、单项选择题（每题2分，共30分）我们往常说的U盘属于计算机零件中的___( )___。(A)输出设施(B)输入设施(C)储存设施(D)打印设施以下表示储存容量的数据中，____( )____是最小的。一个完好计算机系统应包含___( )____。(A)主机和显示器(B)硬件系统和软件系统(C)系统软件和应用软件(D)内存和外存4.二进制数10101变换为十进制是___( )____。(A)17(B)21(C)42(D)101015.在VB中，保留一个工程起码应保留两个文件，这两个文件分别是___( )____。(A)文本文件和工程文件(B)窗体文件和工程文件(C)窗体文件和标准模块文件(D)类模块文件和工程文件6.设a=6，则履行x=IIf(a>5,-1,0)后，x的值为___( )____。(A)5(B)6(C)0(D)-17.以下Case语句中错误的选项是__( )_____。(A)Case0To10(B)CaseIs>10(C)CaseIs>10AndIs<50(D)Case3,5,Is>10一般状况下，控件的大小是由___( )___属性确立的(A)Width和Height(B)Top和Left(C)Width和Left(D)Top和Width以下变量名中，合法的变量名是___( )____。(A)t24(B)iun-k(C)24t(D)t+p对象的三个因素是：____。属性、方法、事件B)色彩、高度、宽度事件、属性、色彩D)属性、高度、宽度符号％是申明_______种类变量的种类定义符。A)IntegerB)VariantC)SingleD)String以下表达式中_____与其余几个的值不一样。(A)Left(Right("ABCDEDEFG",6),4)(B)Right(Left("ABCDEDEFG",7),4)(C)Mid("ABCDEDEFG",4,4)(D)String(2,"DE")13.设x=4，y=8，z=7，则表达式x<yAnd(Noty>z)Orz<x(A)1(B)-1(C)True(D)False

的值是________。对于Name属性，以下表达中___( )___是正确的。窗体的Name属性指定窗体的名称，用于表记一个窗体。窗体的Name属性用于设置显示在窗体标题栏的文本。能够经过代码在程序运转中改变某个对象的Name属性值。对象的Name属性值能够设置为空。要求出变量x和y中较大的一个并保留在变量Max中，下边的程序段中___( )___是不正确的。(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax=xElseMax=y(C)Max=x(D)Ify>xThenMax=yIfy>=xThenMax=yMax=x二、填空题（50分，每空2分，请在实验报告上注明每个空的编号）◆下边这段程序要在窗体显示20个[100，200]间的随机整数，求这些数的和，并显示此中5的倍数请达成程序。Fori=1To20x=Int(___[1]___)(1)Int(Rnd*101+100)___[2]___(2)s=s+xIf___[3]___(3)xmod5=0thenprintxNextIPrint"总和：";s◆履行下边这段程序后，窗体中显示

___[4]___

和___[5]___

。(4)5(5)s=2Fori=ToSteps=s+1NextiPrints,i◆在窗体上画一个命令按钮，而后编写以下事件过程：PrivateSubCommand1_Click( )x=0DoUntilx=-la=InputBox(＂请输入A的值＂)a=Val(A)b=InputBox（＂请输入B的值＂)b=Val(B)x=InputBox(＂请输入x的值＂)x=Val(x)a=a+b+xLoopPrintaEndSub程序运转后，单击命令按钮，挨次在输入对话框中输入

5、4、3、2、1、-l

，则输出结果为___[6]____。(6)2请完美以下判断完数的程序。一个数假如恰好等于它的因子之和，这个数就被称为“完数”。一个数的因子是指除了该数自己之外能够被其整除的数。比如6是一个完数，由于6=1+2+3。PrivateSubCommand1_Click( )Dimm%,k%,i%m=Valk=0Fori=___[7]___(7)1tom-1IfmModi=0Thenk=k+i'因数和___[8]___(8)endifNextiIf___[9]___Then(9)k=morm=kPrintm&"是完数"ElsePrintm&"不是完数"EndIfEndSub以以下图，窗体上有两个命令按扭C1,C2及一个文本框

Text1，当按下

C1时，将C2的标题与Text1中的内容互换。C2C1PrivateSubC1_Click( )DimaAsString"互换后"a=___[10]____(10)___[11]____(11)aEndSub◆编程键盘输入5个数字，求出此中最靠近100的数字。PrivateSubCommand1_Click( )Dimi%,x%,Nu%Nu=Val(InputBox("请输入第一个数字"))Print"你输入的五个数分别是:"ΝFori=2To5x=____[12]______("请输入第"&i&"个数"))(12)inputboxPrintx;IfAbs(x-100)___[13]____Abs(Nu-100)Then(13)<____[14]______(14)nu=xEndIfNextiPrintvbCrLf&"最靠近100的数是____[15]______(15)nuEndSub◆若一个三位数，它的个、十、百位数字的立方和恰好等于这个数自己，则把这个数称为水仙花数。完美程序求出全部水仙花数。PrivateSubCommand1_Click( )Dimx%,a%,b%,c%Forx=______[16]______Step1(16)for100to1000orfor100to999a=Int(x/100)b=______[17]______(17)(x-a*100)\10orint(x-a*100)/10c=x-100*a-10*bIf_______[18]_________Then(18)a^3+b^3+c^3=xorx=a^3+b^3+c^3PrintxEndIfNextxEndSub◆完美程序，统计文本框中大小写字母各有多少个。s=Fori=1To_____[19]______(19)len(s)c=_____[20]_______(20)mid(s,i,1)Ifc>="A"Andc<="Z"Thent=t+1Elsem=m+1EndIf___[21]______(21)nextiPrint"大写字符有"&t&"个";"小写字符有"&m&"

个"◆完美程序，输入x，求：Sin（x）=x/1-x^3/3!+x^5/5!-x^7/7!+``````+(-1)^n-1*x^2n-1/(2n-1)!要求当第N项的精度小于10^-5时结束运算，自变量x单位为弧度。提示：t（目前项）

=-1*t

（前一项）

*x^2/((i-1)*i)Dimx!DimSx!Dimi%,t!x=Val(InputBox("x="))i=1t=x/1DoUntil___[22]______<10^(-5)(22)abs(t)_______[23]______(23)sx=sx+ti=i+2t=-1____[24]______x^2/((i-1)*i)(24)*t*_____[25