vb16道操作题(含答案)：

《vb16道操作题(含答案)：》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Vb操作题第8页共8页（新）024：实现功能：单击“出题”按钮后，在label1和label2中各显示一个随机的整数，在text1中输入结果并单击“判断”按钮后，在label3中显示“正确”或“错误”。暑假，小明的阿姨带着一个小弟弟到小明家玩，这个小弟弟开学就要上一年级了，阿姨交了一个任务给小明，要他每天出20道一位数的加法题给小弟弟做，做完后还要帮小弟弟批改。小明自己的作业也多，他不想每天花许多时间去重复出题、改题的工作，于是他想到了用计算机帮他出题并批改；Dima,b,c,x,nAsIntegerPrivateSubCommand1_Cli

2、ck()RandomizeLabel6.Caption="第"&n&"道题"a=Int(Rnd*10)b=Int(Rnd*10)Label1.Caption=aLabel2.Caption=bn=n+1EndSub答案：①text1.text②x③n=1PrivateSubCommand2_Click()c=a+bx=Val(①)Ifc=②ThenLabel3.Caption="正确"ElseLabel3.Caption="错误"EndIfEndSubPrivateSubForm_Load()③EndSub（新）094：完善程序，实现功能：用选

3、择排序法将数组a中的10个整数按升序排列。PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=Int(Rnd*1000)答案：①9②I+1③10NextiFori=1To①Forj=②To③Ifa(i)>a(j)Thena(0)=a(i)a(i)=a(j)a(j)=a(0)EndIfNextjNextiFori=1To10PrintCStr(a(i))NextiVb操作题第8页共8页EndSub（新）181：从键盘输入10个学生的测试成绩，输出最高分和最低分PrivateSubCo

4、mmand1_Click()Dimcj(10)AsSingleDimiAsIntegerDimmaxAsSingleDimminAsSingleFori=1To10cj(i)=Val(InputBox("请输入10个学生的成绩","成绩输入"))Nexti答案：①cj(i)②cj(i)maxThenmax=①EndIfIf②Thenmin=③EndIfNextiPrintCStr(max),CStr(min)EndSub187：填空完成程序，使得单击"显

5、示"按钮时，Label1、Label2分别显示30，10。程序代码:PrivateSubCommand1_Click()Dimx,y,tAsInteger答案：①x②y③tx=10y=30Ifx

6、ick()DimiAsSingleDimsAsInteger'设s为所求年数,定义为整型,结果由窗体输出i=1答案：①I<4②I*(1+0.1)③s+1答案：①I<4②I*(1+0.1)③s=s+1s=0DoWhile____________i=_________Vb操作题第8页共8页s=__________LoopPrint"s=";sEndSub（新）190.打开"考生目录VB190工程1.vbp"进行以下操作后并保存！(49套)填空完成程序，使得当单击"计算5!"按钮后，Text1显示5!的值。PrivateSubCommand1_C

7、lick()答案：①1②5③a*I④iDimaAsIntegerDimiAsIntegera=________Fori=2To________a=________Next________Text1.Text=Str(a)EndSub答案：①600②1400③1300193：使得单击"画图"按钮后，在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标是（600，1300），长度为1600，b是a的中垂线，长度为1000(提供的样图与程序画出的图形可能不完全相同)。PrivateSubCommand1_Click()Line(________

8、,1300)-(2200,1300)Line(1400,300)-(_____,________)EndSub196：填空完成程序，打印如右图所示的图