VB试题分类练习程序填空.docx
- 文档编号:9991026
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:8
- 大小:16.63KB
VB试题分类练习程序填空.docx
《VB试题分类练习程序填空.docx》由会员分享,可在线阅读,更多相关《VB试题分类练习程序填空.docx(8页珍藏版)》请在冰豆网上搜索。
VB试题分类练习程序填空
VB试题分类练习(程序填空题)
编者---EnidLIU
微博:
Alden微曦
1.从计算机输入三个数,找出中间数
1、PrivateSubFindMidNum()
X=INPUTBOX(“PLEASEINPUTTHEFIRSTNUMBER”)
Y=INPUTBOX(“PLEASEINPUTTHESECONDNUMBER)
Z=INPUTBOX(“PLESSEINPUTTHETHIRDNUMBER)
IF(X A=X X=Y Y=A ENDIF IF(Y>=Z)THEN PRINTY ELSEIF(X>=Z)THEN PRINTZ ELSE PRINTX ENDIF EndSub 2.打印以下杨辉三角形 1 11 12131 14641 15101051 DimQ()AsInteger N=InputBox("PLEASEINPUTN") ReDimQ(N,N) ForI=1ToN ForJ=1ToN Q(I,J)=(0) NextJ NextI ForK=0To(N–1) Q(K+1,1)=1 Print1; ForI=1ToK Q(K+1,I+1)=(Q(K,I+1))+Q(K,I) Print(Q(K+1,I+1)) NextI Print NextK 3以下程序代码实现单击命令按钮Command1时生成20个(0~100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Int(Rnd*101)arr(k)>50 Dimarr(1To20) ForI=1To20 arr(i)= (1) NextI Sum=0 Fork=1to20 If (2)Then PrintTab(20);arr(k) Sum=Sum+arr(k) EndIf Nextk PrintTab(20);"Sum=";Sum 4以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。 n=mn=11-mm=1To10 PrivateSubForm_click() Dims(10,10)AsInteger Forn=1To10 Form=1To10 If (1)Or (2)Then s(n,m)=1 Else s(n,m)=0 EndIf Nextm Nextn Forn=1To10 For(3) Prints(n,m) Nextm Print Nextn EndSub 5窗体中有图片框(Picture)和计时器(Timer1)两个控件。 运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左、向右移动100twip。 PrivateSubForm_Load() Picture1_Picture=LoadPicture("c: \pic\mouth.ico") (1)Timer1.Interval=2000 EndSub PrivateSubTimer1_Timer() Staticx,yAsInteger x=x+100 y=y+100 Pictuer1.Movex,y EndSub 6下列程序用来计算1+2+3……+10的值,请补充完程序。 Dimt,kassingle K=0 DoWhilek<10 K=k+1 (1)t=t+k Loop printt 7下列程序用来计算1+2+……n,当和数大于100时停止计算,请补充完该程序。 Privatesubform_click() Dimnasinteger,sasinteger,Iasinteger,kasinteger S=0 K=0 N=inputbox("请输入n的值) forI=1to100 k=k+1 s=s+I (1)Ifs>100thenexitfor NextI prints endsub 8用随机数函数产生100个100~300之间的整数,在窗体上输出能被3整除的数的和及个数。 i=1toS=S+X PrivateSubForm_Click() DimS&,N% S=0 N=0 Randomize For (1)100 x=Int(Rnd*200+100) IfxMod3Then (2) N=N+1 EndIf Nexti PrintS PrintN EndSub 9、'从键盘输入三个整数,从其中找出最大值并输出到窗口 PrivateSubForm_Click() Dima%,b%,c%,max% a=Val(InputBox("请输入一个整数" b=Val(InputBox("请输入一个整数")) c=Val(InputBox("请输入一个整数"))max=a If______Thenmax=bEndIf Ifmax ________EndIf Printa;"、";b;"、";c;"中最大值是";______ EndSub 答案【参考答案】max 【参考答案】max=c 【参考答案】max 10、以下程序的功能。 'PrivateSubForm_Click( Dima%,b%,c%,d! Dimx1,x2Dimp,q,r a=InputBox("请输入a的值")b=InputBox("请输入b的值")c=InputBox("请输入c的值") d=b*b-4*a*cp=-b/(2*a) Ifd>=0Then If_____Then r=Sqr(d)/(2*a) x1=p+rx2=p-rElse x1=px2=p_____Print"x1="; x1,"x2=";x2'_____q=Sqr(-d)/(2*a) Print"x1="p;"+";q;"i","x2=";p;"-";q;"i" EndIf 答案 【参考答案】d>0【参考答案】EndifEndIfendif【参考答案】elseElseELSE 11.'从键盘输入学生分数,统计学生总人数和各分数段人数,'即优秀(90-100)、良好(80-89)、中等(70-79)、'及格(60-69)、不及格(60以下)的人数。 PrivateSubForm_Click() Dimscore%,n1%,n2%,n3%,n4%,n5% msg="请输入分数(-1结束)"msgtitile="输入数据"score=Val(InputBox(msg,msgtitle))'** While_____ total=total+1 SelectCase_____CaseIs>=90 n1=n1+1CaseIs>=80 n2=n2+1CaseIs>=70 n3=n3+1CaseIs>=60 n4=n4+1CaseElse n5=n5+1'_____score=Val(InputBox(msg,msgtitle))Wend Printn1,n2,n3,n4,n5,total EndSub 答案【参考答案】score>=0andscore<=100score>=0andscore<=100score<>-1 【参考答案】SelectCasescore【参考答案】EndSelect 12、以下程序段用于实现: 输入两个正整数m和n,求其最大'公因数和最小公倍数。 PrivateSubForm_Click() Dima%,b%,num1%,num2%,tempnum1=InputBox("请输入一个正整数")num2=InputBox("请输入一个正整数") If_____Then temp=num1: num1=num2: num2=tempEndIfa=num1b=num2DoWhile_____temp=aModba=b '_____Loop Print"最大公因数为: ";aPrint"最小公倍数为: ";num1*num2/a 答案【参考答案】num1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题 分类 练习 程序 填空