上海海事大学VB题库—程序填空

程序填空K第1题 程序填空（1分）（题号:59）“程序填空】功 能：输入一个数,若大于0,则 显 示 若 小 于0,则 显 示 若 等 于0,则显示 零、Private Sub Commandl_Click()x=Val(Text 1 .Text)Select Case x，*SpyCE*r八Label 1.Caption=+uCase Is 1Label 1.Caption=零End SelectEnd Sub答案：1).Case Is 02).Label 1 .Caption=3).Case 0 或 Case Else 或 Case Is=0K第2题。程序填空（1分）（题号:60）【程序填空】助 能：输入任何一个 英 文 字 母X,若x的值为，则 显 示x的大写字母；,若x的值为则显示x的小写字母;,若x的值为其它的值,则显示xa（如 输 入 的X的 值 是g,则 显 示ga）Private Sub Command l_Click()x=Text I.Text，*S C E*?，*SpcE*Case?Label 1.Caption=UCase(x)Case“m“，”o”，”p“To“z“Label 1.Caption=LCase(x)Case Elsei*SpcE*?End SelectEnd Sub答案:1).2).3).Select Case x“展，“c“,”d“To”f”Label 1.Caption=Trim(x)+a或 Label 1.Caption=x+uaR第 3 题X 程序填空（1分）（题号:36），【程序填空】功能：以下程序的功能如（图 1）。Private Sub Form_Click()Dim a%,b%,c%,d!Dim x l,x2Dim p,q,ra=InputBox(请输入a 的值”)b=InputBox(请输入b 的值”)c=InpulBox(请输入c 的值”)d=b*b-4*a*cp=-b/(2*a)If d=0 Then，*SPC E*If?Thenr =Sqr(d)/(2 *a)x l=p +rx 2 =p -rEls ex l=px 2 =p，*Sp cE*9Pr int x l=；x l,“x 2=；x 2i*Sp cE*?q=Sqr(-d)/(2 *a)Pr int Mx l=n;p;q;i,“x 2=;p;q;iEnd IfEnd Su b答案：1).d 0 或 0=90 ThenLabel LCaption 二”优秀”侏*SpCE*Elself?ThenLabel 1.Caption=良好Elself x=60 Thent*SpcE*?Label l.Caption=不及格”End IfEnd Sub答案：1).x=75 或 75v=X2).Label 1.Caption=及格 或 Label 1 =及格3).ElseK第7题。程序填空（1分）（题号：57）“程序填空】功 能:求1!+2!+10!的值。Private Sub Form_Click()*SpcE*?s=1ForI=2To 10t=t*I，*SpCE*i*SpyCE*?Print sEnd Sub答案:1).2).3).t=1s=+tNext 1 或 NextK第8题。程序填空（1分）（题号:46）【程序填空】功能：从键盘输入学生分数，统计学生总人数和各分数段人数,即 优 秀（90-100）,良 好（80-89）、中 等（70-79）、,及 格（60-69）、不 及 格（6 0以 下）的人数。Private Sub Form_Click()Dim score%,nl%,n2%,n3%,n4%,n5%msg=请 输 入 分 数(-1结 束)”msgtitile=输入数据”score=VaI(InputBox(msg,msgtitle)，*SPC E*While?total=total+I，*S c E*Select Case?Case Is=90nl=nl+1Case Is=80n2=n2+1Case Is=70n3=n3+1Case Is=60n4=n4+1Case Elsen5=n5+1，*SpcE*?score=Val(InputBox(msg,msgtitle)WendPrint nl,n2,n3,n4,n5,totalEnd Sub答案:1).score=0 And*score=100 或 0=score And*0=score 或 score=0 And*100=scorescore b 或 txam c 或 c a(j+l)Thenx =a(j):a(j)=a(j+1):a(j+1)=x，*S p c E*?End IfNex t j*S P A C E*If w or k Then?Nex t iFor i =1 T o nPr int a(i);Nex t iEnd Su b答案：1).St ep -12).w or k=Fals e 或 w or k=0 或 not w or k=t r u e3).Ex it ForK第1 2题 程序填空（1分）（题号:3 7）【程序填空】助 能：以 下 程 序 用 于 判 断 一 个 正 整 数（23）是否为素数。Pr i v at e Su b For m_Click()n=Inp u t Box(请 输 入 一 个 正 整 数(2 3)”)k=Int(Sqr(n)i =2s w it =0i*Sp cE*D o While i =k A n d?，*Sp cE*If?Thens w it =1Else9End IfLoopIf swit=0 ThenPrint n;是一个素数”ElsePrint n;不是素数”End IfEnd Sub答案:1).2).3).swit=0n Mod i=0 或 n/i=ni 或 n/i=int(n/i)i=+1K第13题2 程序填空J（1分）（题号:55）【程序填空】功 能：过 程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。所谓 水仙花数”是 指 一 个3位 数，其各位数字立方和等于该数本身。Private Sub Form_Click()Dim i As IntegerFori=100To 999i*SpcE*Next iEnd SubPublic Sub suixian(x As Integer)Dimi%,j%,k%i*SpycE*i=1?1j=(x-i*100)10k=x-i*100-j*10，*SPCE*If?Then Print xEnd Sub答 案：1).suixian(i)或 call suixian(i)或 suixian i2).x 100 或 int(x/100)3).x=i A+j 八+k 八 3 或 x=+k*k*kK第14题U 程序填空（1分）（题号:50）【程序填空】功 能：从键盘上输入一串字符，以?”结 束，统计输入字符中的大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$,nl%,n2%,n3%nl=0n2=0n3=0ch=InputBox。请输入一个字符”)*SP/CE*Do While?Select Case chCase an To znl=nl+1*SpyCE*Case?n2=n2+1Case”0 T o“9”n3=n3+1End Selectch=InputBox(请输入一个字符”)，*SPC E*?Print nl,n2,n3End Sub答 案：1).ch?或 not ch=?或 not?=ch2).”A“To“Z“3).LoopK第15题 程序填空（1分）（题号:54）【程序填空】功能：本程序用于实现：从键盘接收一数字，判断其是否在数组,中，如果在数组中则将其删除，否则显示该数字不在数组 中。Private Sub Form_Click()Dim a(10)As Integer,x As IntegerFori=ITo 10a(i)=Int(Rnd*90)+10Print a(i);Next iPrintx=InputBox(”请输入要删除的整数”)Fori=ITo 10，*SP/CE*If a(i)=x Then?Next it*SpcE*If?ThenFor k=i To 9，*SPCE*3Next kPrint”删除后的数组:For i=1 To 9Print a(i);Next iElsePrint”该数字不在数组中”End IfEnd Sub答 案：1).Exit For2).ii3).a(k)=a(*k +1)第1 6题 程序填空（1分）（题号:4 8）【程序填空】功 能:利 用 下 面 的 过 程 求m!和m*nPr iv at e Su b For m_Click()D i m m A s Int eger,n A s Int egerm =2n=3t*SP/jcE*?End Su bPr iv at e Su b find(x A s Int eger,y A s Int eger)D i m s,i A s Int egert*Sp cE*r?!For i =1 To x*it*SRCE*p=(?)Nex t iPr int s,pEnd Su b答案：1).find m,n 或 call find(m,n)2).s =1 或 s =l:p=03).p i +y 或 x*y 第1 7题 程序填空J（1分）（题号:5 8）【程序填空】功 能：求A,B,C三个数的最大值。Private Sub Command l_Click()A=Val(Text 1 .Text)，*S C E*C=Val(Text3.Text)If A B And A CThenMAXDATE=A*SpyCE*Elself?ThenMAXDATE=BElse，*SpcE*r”End IfLabel 1.Caption=MAXDATE&”是最大值”End Sub答案:1).2).3).B=Val(Text2.Text)或 b=val(tex BC 或 C C and Q a 或 cb and*abMAXDATE=CK第18题2 程序填空（1分）（题号:42）【程序填空】功能：以下程序段利用随机函数生成15个10-100之间的整数,然后用选择法将其从小到大排序。Private Sub Form_Click()Const n=15Dim a(l To n)As IntegerDim i As Integer,j As Integer,t As Integer,min As IntegerRandomizeFor i=1 To ni*SpycE*a(i)=?Next iFor i=1 To nPrint a(i);Next iPrintFor i=1 To n-1?Forj=i+1 To nIf a(j)a(t)Then t=jNext j*SPACE*If?Thenmin=a(i):a(i)=a(t):a(t)=minEnd IfNext iFor i=1 To nPrint a(i);Next iEnd Sub答案:1).2).3).Int(*1()()*R nd)+10t=i1 o !或 tt 或 not t=i 或 not i=tK第19题 程序填空（1分）（题号:44）【程序填空】功 能：以下程序的功能如（图1）。Private Sub Form_Click()Dim s As Single,m As Integer,p#s=1For m=1 To 10，*SPC E*p=?1s=s+1 /pNext mPrint sEnd SubFunction n(k%)P=1For m=1 To k，*S C E*p=Next m，*SpyCE*?End Function答案：1).n(m)2).p*m3).n=pI 第 20题 程序填空（1分）（题号:592）下面的程序段用于打印出以下图形*P