vb程序填空题

三、填空题1、【程序说明】下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。PrivateSubForm_Click()DimnAsInteger,aAsInteger,bAsInteger,cAsIntegerDimxAsIntegerFora=0to9'个位数数码Forb=0To9'十位数数码Forc=----1----IfabAndbcAndacThenx=a+10*(b+10*c)n=----2--------3----Ifnmod15=0ThenPrintEndIfNextc,b,aPrint总共有这样的三位数;n;个EndSub1、1to92、n+1或1+n3、printx;2、【程序说明】简单窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。PrivateSubCommand1_Click()'确定按钮StaticnAsInteger---const-1----mypwdAsString=123456'预设密码为自定义常量n=n+1Label2.Visible=TrueIf---__text1.text=mypwd____----ThenLabel2.Caption=密码正确ElseIfn3ThenLabel2.Caption=密码错误！Text1.Text=Else--end--3----EndIfEndIfEndSub1、CONST2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text13、End3、【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图PrivateSubCombo1_Click()Shape1.Shape==Combo1.List(-combol1.listindex-1----)----2----=Int(Rnd*7)EndSubPrivateSubForm_Load()DimIAsIntegerForI=0To5:----3----:NextIEndSub1、Combo1.ListIndex2、Shape1.BorderStyle3、Combo1.AddItemStr(I)或Combo1.list(I)=I4、【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。----1----PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2Thenn=n+1:Shell“C:\windows\calc.exe”EndSubPrivateSubCommand1_Click()OpenC:\a1.datFor----2----Print#1,n:Close#1----3----EndSub1、dimnasinteger2、outputas#13、end三、填空题(请把正确的选项填入试题前的空格中)第1题：【程序说明】单击窗体后，在窗体上输出以下图形:PrivateSubForm_Click()DimI%,j%,st$ForI=1To----1----st=Chr$(65+I-1)PrintTab(10-I);Forj=1ToIPrintst;;Nextj----2----NextIForI=7To1Step-1st=Chr$(65+I-1)PrintTab(10-I);Forj=1To----3----Printst;;NextjPrintNextIEndSub1、62、Print3、I第2题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。PrivateSubCommand1_Click()'全选按钮Text1.SelStart=0Text1.SelLength=----1----Text1.SetFocusCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand2_Click()'复制按钮Clipboard.ClearClipboard.SetTextText1.SelTextCommand3.Enabled=TrueText1.SetFocusEndSubPrivateSubCommand3_Click()'粘贴按钮Text1.SelText=----2----Text1.SetFocusEndSubPrivateSubCommand4_Click()'删除按钮----3----Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubForm_Load()Command2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSubPrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfText1.SelLength0ThenCommand2.Enabled=TrueCommand4.Enabled=TrueElseCommand2.Enabled=FalseCommand4.Enabled=FalseEndIfEndSub1、Len(Text1.Text)或Len(Text1)2、Clipboard.GetText3、Text1.SelText=第3题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）DimIAsIntegerPrivateSubForm_Load()I=----1----Picture1.Picture=LoadPicture(c:\windows\1.bmp)Picture1.AutoSize=TrueEndSubPrivateSubTimer1_Timer()IfI=7Then----2----ElseI=1EndIfPicture1.Picture=----3----EndSub1、12、I=I+1或I=1+I3、LoadPicture(c:\windows\&I&.bmp)或LoadPicture(c:\windows\+trim(str(I))+.bmp)第4题：【程序说明】文件c:\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。PrivateSubCommand1_Click()DimbsAsString,csAsStringOpenc:\a1.dat----1----Opentemp.datForOutputAs#2bs=InputBox(输入学生姓名)DoWhileNotEof(1)LineInput#1,csifInStr(cs,Trim(bs))=----2----Thenprint#2,csLoopClose#1:Close#2Kill----3----Name“temp.dat”as“c:\a1.dat”EndSub1、ForInputAs#12、03、c:\a1.dat三、填空题1：【程序说明】该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0的5×5的矩阵。PrivateSubForm_Click()Dima(1To5,1To5)AsIntegerDimIAsInteger,jAsIntegerForI=1To5Forj=1To5If----1----Then----2----EndIfNextjNextIForI=1To5Forj=1To5Form2.Print;a(I,j);Nextj----3----NextIEndSub1、I=j或j=I2、a(I,j)=13、print2：【程序说明】如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示先选择，再删除！。PrivateSubCommand1_Click()‘添加按钮IfLen(Text1.Text)0Then----1----Text1.Text=Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()‘删除按钮If----2----ThenMsgBox先选择，再删除！Else----3----EndIfEndSub1、List1.AddItemText1.Text2、List1.ListIndex=-13、List1.RemoveItemList1.ListIndex3：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）Dim----1---AsIntegerPrivateSubForm_Load()I=1Picture1.Picture=LoadPicture(c:\windows\1.bmp)Picture1.AutoSize=TrueEndSubPrivateSubTimer1_----2----If----3----ThenI=I+1ElseI=1EndIfPicture1.Picture=LoadPicture(c:\windows\&I&.bmp)EndSub1、I2、Timer()3、I=7或I84：【程序说明】本程序统计3～100之间所有素数的个数；最后将素数的个数写入顺序文件e:\dataout.txt中。PrivateSubCommand1_Click()DimiAsInteger,flagAsBooleanDimt1AsInteger,t2AsInteger----1----i=0Fort1=3To100flag=TrueFort2=2ToInt(Sqr(t1))If----2----thenflag=FalseNextt2Ifflagtheni=i+1EndIfNextt1----3----Close#1EndSub1、opene:\dataout.txtforoutputas#1或opene:\dataout.txtforappendas#12、t1modt2=03、Write#1,I或print#1,I三、填空题第1题：【程序说明】以下过程是将一个英文句子的每个单词的首字母都变成大写。从键盘上任意输入一条英文句子，将句子中的每个单词的首字母都变成大写例如：输入Iamagoodstudent。则要求输出IAmAGoodStudent。PublicSubUppersen()DimoldsenAsString,newsenAsStringDimcharAsString,lastcharAsStringDimkAsInteger,iAsIntegerol