上海海事大学VB题库—程序填空.docx
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《上海海事大学VB题库—程序填空.docx》由会员分享,可在线阅读,更多相关《上海海事大学VB题库—程序填空.docx(160页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、程序填空K第1题2I1程序填空(1分)(题号:59)【程序填空】 功能:输入一个数,若大于0,则显示+;若小于0, , 则显示若等于0,则显示零。Private Sub Commandl_Click()x = Val(Text 1 .Text)Select Case x,*SpycE* *?Label 1.Caption = +Case Is 0Label 1.Caption =Case 0 或 Case Else 或 Case Is = 0K第2题1r程序填空(1分)(题号:60)【程序填空】助能:输入任何一个英文字母X,若X的值为,则显示X的大写字母;,若x的值为则显示x的小写字母; 若x
2、的值为其它的值,则显示xa (如输入的X的值是g,则显示ga)oPrivate Sub Command l_Click() x = Text I.Text ,*spaf *,* * *SpCE* *Case ?Label 1 .Caption = UCase(x)Case “m“,”o”,”p“ To “zLabel 1.Caption = LCase(x)Case Else,*SpcE* *?End SelectEnd Sub答案:1) .Select Case x2) .“a,“c”,”d“To“f3) .Label!.Caption = Trim(x) + a 或 Label 1.Cap
3、tion = x + aMK第3题程序填空(1分)(题号:36)U程序填空】功能:以下程序的功能如(图l)oPrivate Sub Form_Click()Dim a%, b%, c%, d!Dim xl,x2Dim p, q, ra = InputBox(请输入a的值”) b = Inpu出ox(”请输入b的值”) c = InputBox。请输入c的值”) d=b*b-4*a*cp = -b/ (2 * a)If d = 0 Then,*SpcE* *If ? Then r=Sqr(d)/(2* a) xl = p + r x2 = p - rElse xl = p x2 = p,*Spy
4、CE* *?Print ,xl=H;xl,x2=n; x2 ,*SpcE* *q = Sqr(-d) / (2 * a)Print xl=; p; +“; q; “i“,“x2=; p; /; q; “iEnd IfEnd Sub答案:1) .d0 或0= 90 ThenLabel 1.Caption 二优秀” ,*Sp/CE* * Elself ? ThenLabel 1.Caption =良好Elself x = 60 Then,*SpcE* *,*SpyCE* *LabelLCaption= 不及格”End IfEnd Sub答案:1) .x=75 或 75= 90nl = nl + 1
5、Case 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 或 0v=score And* score v= 100 或 0=score 或 score =0 And* 100=score2) .score3) .End SelectR第9
6、题程序填空(1分)(题号:56)【程序填空】功能:输入数字17,显示其对应是星期儿(例:输入1,显示星期日, 如果输入其它内容,一律显示“输入错误”)Private Sub Commandl_Click() dim x as integer dim y as string x=val(textl.text)*SP/CE* *?case 1y=”今天是星期日case 2y=星期一“case 3y=星期二case 4y=星期三case 5y=星期四case 6,*SpcE* *?case 7y=星期六,*SpcE* *?y= 输入错误end selectText2.Text = yEnd Sub答
7、案:1) .select case x2) .y=星期五”3) .Case ElseR第10题程序填空(1分)(题号:41)【程序填空】 下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5 个数 34、124、68、73、352 的最大值是:” maxi = max(34, 124,68),*SpyCE* *maxi = ?Print maxiEnd SubPublic Function max(ByVal a%, By Vai b%, By Vai c%),*SpycE* *If ? Thenm = aElse
8、m = bEnd If,* *SpcE* *If ? Thenmax = mElsemax = cEnd IfEnd Function答案:1) .max(maxl, 73, 352)2) .ab 或 b c 或 c v mK第11题程序填空(1分)(题号:43)“程序填空】功能:下面的程序段用于实现以下功能:利用冒泡法将一组整数 从小到大排序。Private Sub Form_Click()Const n = 15Dim a(l To n) As Integer, work As BooleanDim i As Integer, j As Integer, x As Integer Rand
9、omizeFor i = 1 To na(i) = Int(90 * Rnd) + 10Next iFor i = 1 To nPrint a(i);Next iPrint*SP/CE* *For i = n To 2 ?work = TrueForj = 1 To i - 1Ifa(j)a(j+ I) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = x,* *SpycE* *?End IfNext j,*SpycE* *If work Then ?Next iFor i = 1 To nPrint a(i);Next iEnd Sub答案:1) .Step
10、 -12) . work = False 或 work=0 或 not work = true3) .Exit ForK第12题程序填空(1分)(题号:37)【程序填空】功能:以下程序用于判断一个正整数(23)是否为素数。Private Sub Form_Click()n = InputBox(请输入一个正整数(23) ”)k = Int(Sqr(n)i = 2swit = 0t*SpyCE* *Do While i = k And ?*SP/CE* *If ? Thenswit = 1Else,* *SpcE* *?End IfLoopIf swit = 0ThenPrint n; 是一个素
11、数”ElsePrint n; “不是素数”End If答案:1) .2) .3) .End Subswit = 0n Mod i = 0 或 n/i = ni 或 n/i = int(n/i)i =+ 1K第13题程序填空J (1分)(题号:55)【程序填空】 ,功能:过程suixian可以判断某一个数字是否是水仙花数,利用该过程找出三位数中所有水仙花数。所谓“水仙花数”是指一个3位数,其各位数字立方和等于该数本身。Private Sub Form_Click()Dim i As IntegerFori = 100To 999*SpyCE* *?Next iEnd SubPublic Sub
12、suixian(x As Integer)Dimi%,j%, k%*SP/CE* * i= ?j = (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 A 3* + k 八 3 或 x = i*i*i + k *k*kK第14题程序填空(1分)(题号:50)【程序填空】 功能:从键盘上输入一串字符,以”?”结束,统计输入字符中的*大、
13、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, nl%, n2%, n3%nl =0n2 = 0n3 = 0ch = lnputBox(请输入一个字符”),*SpycE* *Do While ?Select Case chCase a” To Vnl = nl + 1*SP/CE* *Case ?n2 = n2 + 1Case “0“To“9“n3 = n3 + 1End Selectch = InputBox(请输入一个字符),*SpyCE* *?Print nl, n2, n3End Sub答案:1) . ch ?或 not ch = ?或 not
14、?=ch2) .”A“To“Z“3) .LoopR第153程序填空(1分)(题号:54)“程序填空】 功能:本程序用于实现:从键盘接收-数字,判断其是否在数组,中,如果在数组中则将其删除,否则显示该数字不在数组,中。Private Sub Form_Click()Dim a(10) As Integer, x As IntegerFori = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintx = InputBox(请输入要删除的整数”)Fori = 1 To 10*5f(2E* *If a(i) = x Then ?Next i,*
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 上海 海事 大学 VB 题库 程序 填空
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内