vb复习资料 14页

..-1、工程文件的扩展名为〔〕。vbp2、窗体文件的扩展名为〔〕。frm3、一个工程的窗体至少〔〕个。14、翻开工程资源管理器的快捷键是()。Ctrl+R5、翻开属性窗口的快捷键是〔〕。F46、设计时窗体上显示的网格〔〕。ABCDA、宽度至少24缇B、高度最多1188缇C、运行时不会显示D、设计时可以不显示7、设计时选择窗体上的控件后〔〕。ADA、按Ctrl+光标键可以移动控件B、按Shift+光标键可以移动控件C、按Ctrl+光标键可以改变控件大小D、按Shift+光标键可以改变控件大小8、下面描述中正确的选项是〔〕。BCA、BorderStyle=5，窗体不显示标题栏B、刚拖放到窗体上的文本框与窗体有一样的Font属性C、Icon属性用于设置标题栏上的控制图标D、StartUpPosition=1运行时窗体不显示9、文本框的Text属性返回〔〕，SelText属性返回〔〕。输入的全部文本、选择的文本10、Mid(s,m,n)返回的值是〔〕。S串中从第m个字符开场的连续n个字符11、能返回整数X的十位数字的表达式是〔〕。X\10Mod10或(XMod100)\1012、能终止名为Tmr的Timer控件触发其Timer事件的语句是〔〕。ABA、Tmr.Enabled=FalseB、Tmr.Interval=0C、Tmr.Visible=FalseD、Tmr.Stop13、设置〔〕属性为2，可使TextBox控件显示的内容水平居中。B-.word.zl-\n..-A、AlignB、AlignmentC、AppearanceD、BorderStyle14、mandButton控件的属性〔〕设置为1才能显示其背风光。AA、StyleB、DefaultC、CancelD、Tag15、将X四舍五入保存到小数点后二位的是〔〕。ABCDA、Format(X,"0.00")B、Format(X,"#.##")C、Format(X,"#.00")D、Round(X,2)16、确定Label控件背景透明的属性是〔〕。BackStyle17、下面关于MsgBox函数的说法中正确的选项是〔〕。ABCA、第一个参数确定显示信息B、第三个参数确定对话框标题C、第二人参数确定按钮和图标类型D、函数没有返回值18、与ifx>=60theny=1elsey=0等效的是〔〕。CDA、y=iif(x<60,0,1)B、ifx<60theny=0elsey=1C、y=iif(x>=60,1,0)D、if(x>60)or(x=60)theny=1elsey=019、可能产生运行时错误的表达式是〔〕。BCDA、Val("23abc")B、CDbl("23abc")C、CInt("23abc")D、Int(23.15)Mod320、设x=86，那么Choose(1-(x<60)-(x<75)-(x<90),4,3,2,1)的值为〔〕。321、能为Select语句的Case子句的表达式是〔〕。ABDA、48to57B、8,48to57C、is<10,48to57D、"abc"to"xyz"22、下面有关TextBox控件的描述正确的选项是〔〕。DA、Change事件在KeyPress事件之后触发B、Change事件触发时，输入的文本已经显示C、KeyPress事件触发时，输入的文本已经显示-.word.zl-\n..-D、在KeyPress事件中，可利用代码取消用户的输入23、TextBox控件的〔〕事件带参数Cancel。CA、ChangeB、KeyPressC、ValidateD、LostFocus24、事件〔〕能控制TextBox控件失去焦点。Validate25、Frame控件可用于〔〕。A、窗体布局B、作控件容器C、分割图像D、将OptionButton控件分组26、可作控件容器的是〔〕。窗体、Frame控件、PictureBox控件27、能够强行退出While...Wend循环的语句是〔〕。CDA、ExitForB、ExitDoC、ExitSubD、Goto28、下面有关控件数组的描述中正确的选项是〔〕。A、只要控件名称设置一样，即可组成控件数组B、组成控件数组的控件必须是同类型的控件C、控件数组的每个控件的Index属性均不一样D、组成控件数组的所有控件必须在同一容器中29、语句Dima(3,4)AsLong定义了〔〕。ACDA、一个名为a的二维数组B、有7个变量的数组C、20个变量D、数组的二维下标最大值为430、控件数组的事件一定有参数〔〕。BA、ButtonB、IndexC、ShiftD、Cancel31、Randomize语句的作用是〔〕。初始化随机数生成器32、表达式Int(rnd*a+b)的值为〔〕〔其中a,b均为整数〕。[a,a+b-1]上的整数33、在Sub过程内不能用〔〕声明变量。C-.word.zl-\n..-A、DimB、PulbicC、PrivateD、Static34、在窗体通用声明局部不能用〔〕声明数组。BA、DimB、PulbicC、PrivateD、Static35、Split("1,2,3,4",",")返回值为〔〕。BA、Variant类型的数组B、String类型的数组C、"1234"D、""36、窗体上有名为txt的控件，且Index属性为0。那么能正确加载txt(1)的语句是〔〕。AA、Loadtxt(1)B、t(1).Visible=TrueC、ReDimtxt(1)D、UnLoadtxt(1)37、控件数组cmd共有16个元素，下标从0至15。这16个控件按下标由小到大的顺序，从左到右、从上到下排成4行4列。那么cmd(k)位于〔〕。0<=k<=15。ADA、第(k/4+1)行B、第(k\4+1)行C、第(kMod4)列D、第(kMod4)+1列38、ListBox控件的Sorted=True时，能够自动对列表项按字母顺序排序。(对各列表项进展逐字符比拟，按ASCII码值递增排序)。Lst为ListBox控件，Sorted=True。如果Lst控件中依次添加三项2、11、12。那么第三个列表项是〔〕。239、SubGetInf(ParamArraya())表示〔〕。可以传递不同个数的参数40、过程参数前带参数Optional表示〔〕。可选参数，调用时可不传递值41、文本框的Locked属性设置为True后〔〕。BA、不能得到焦点B、不再响应事件C、不能输入数据D、代码不能修改Text42、列表框当前项的位置由属性()确定。A、ListCountB、TextC、ListIndexD、NewIndex43、使用()方法可以只删除列表框指定工程。RemoveItem44、用()方法可将工程添加到组合框中。AddItem45、使用()语句可将组合框bo1的第3项置为当前项。bo1.Index=2-.word.zl-\n..-46、使用()方法可以删除列表框中所有工程。Clear***代码理解***PrivateSubcmdCr_Click()txtR.Text=〞〞txtB.Text=〞〞txtM.Text=〞〞EndSub单击名为cmdCr的按钮时，清空三个文本框的内容PrivateSubcmd_Click()endEndSub单击名为cmd的按钮时，关闭程序PrivateSubcmd_Click()Lb.Caption=Format(txt.Text,"0.00")EndSub单击名为cmd的按钮时，将文本框txt中显示的数据四舍五入保存小数点二位后在标签Lb上显示PrivateSubForm_Load()LbDate.Caption=Format(Now,"yyyy年mm月dd日")LbWeek.Caption=WeekdayName(Weekday(Now))LbTime.Caption=TimeEndSub-.word.zl-\n..-窗体加载时，利用三个Label控件显示系统日期、星期和时间PrivateSubForm_Click()DimkAsLong,aAsLong,tAsLonga=1Me.Print2;Fork=3To99Step2t=3DoWhilet*t<=kIfkModt=0ThenExitDot=t+2LoopIft*t>kThenMe.Printk;a=a+1IfaMod5=0ThenMe.PrintEndIfNextEndSub单击窗体时，在窗体上输出100以内的所有质数。每行输出五个数。PrivateSubtxtIn_KeyPress(KeyAsciiAsInteger)IfKeyAscii=8ThenExitSub-.word.zl-\n..-IfKeyAscii<48ThenKeyAscii=0IfKeyAscii>57ThenKeyAscii=0EndSub在文本框txtin内制止输入数字之外的其他字符〔允许删除〕PrivateSubtxt_Validate(CancelAsBoolean)IfVal(txt.Text)>100ThenCancel=TrueEndSub如果文本框txt内的数据超过100，那么制止其失去焦点PrivateSubcmdPD_Click()DimtpAsStringSelectCaseVal(txtIn.Text)Case0To59:tp="不及格"CaseIs<75:tp="及格"CaseIs<90:tp="良好"CaseElse:tp="优秀"EndSelectMsgboxtp,vbOKOnly+vbInformation,"评定结果"EndSub单击名为cmdPD的按钮时，弹出一个信息框，显示文本框txtin中输入的成绩是否“不及格〞、“及格〞、“良好〞或者“优秀〞PrivateSubForm_Click()DimkAsLong-.word.zl-\n..-Lst.ClearLst.Sorted=TrueFork=8To12Lst.AddItemkNextEndSub单击窗体时，将窗体上的列表框内容清空，并将[8，12]上的整数添加到列表框中〔按字母递增排序，列表项分别为：10，11，12，8，9〕PrivateSubcmd_Click()DimaAsDouble,dAsDouble,nAsLongDimiAsLong,sumAsDoublea=CDbl(txt1.Text)d=CDbl(txt2.Text)n=CLng(txt3.Text)Fori=1Tonsum=sum+aIfOptAP.ValueThena=a+dElsea=a*dNexttxt4.Text=sumEndSub单击名为cmd的按钮时，计算首项为a〔文本框txt1显示的内容〕、公差〔当单项选择按钮OptAP被选择时，否那么为公比〕为d〔文本框txt2显示的内容〕的前n〔文本框txt3-.word.zl-\n..-显示的内容〕项的和。计算结果在文本框txt4中显示。PrivateSubtxt_Change()DimtpAsByteSelectCaseVal(txt.Text)CaseIs<60tp=0CaseIs<75tp=1CaseIs<90tp=2CaseElsetp=3EndSelecttxtB.Text=tpEndSub文本框txt的显示内容发生变化时，在文本框txtB中显示txt新数据的特征值〔小于60时特征值为0，小于75时特征值为1，小于90时特征值为2，其他情况特征值为3〕PrivateSubForm_Load()DimiAsLongFori=0To5Img(i).Picture=LoadPicture(App.Path&"\red.gif")Next-.word.zl-\n..-Img(6).Picture=LoadPicture(App.Path&"\blue.gif")EndSub加载窗体时导入图片〔保存在程序所在文件夹〕到七个名为Img〔控件数组〕的图片框中。前六个图片框显示图片red.gif，最后一个图片框显示图片blue.gifPrivateSubForm_Load()DimiAsLongFori=1To24LoadTxt(i)Txt(i).Left=150+(iMod5)*1100'1100=885+215Txt(i).Top=630+(i\5)*550'550=360+190Txt(i).Visible=TrueNextEndSub加载窗体时，导入24文本框〔名称均为Txt，组成控件数组〕到窗体上。根据下标值〔由小到大〕从左到右、从上到下将25个文本框排列5行5列〔第一个文本框设计时已在窗体上〕PrivateSubGetNum(nAsLong,objAsTextBox)RandomizeDimiAsLongobj.Text=""obj.SelText=int(Rnd*9)+1-.word.zl-\n..-Fori=2Ton'依次产生其他各位数字obj.SelText=int(Rnd*10)NextEndSub自定义名为GetNum的SUB过程，随机产生n位正整数在文本框Obj上显示调用例如：PrivateSubcmd_Click()GetNum120,TxtEndSubFunctionGetVal(n1AsString,n2AsLong,rAsLong)AsStringDimtAsLong,mAsLong,sAsStringm=Len(n1)r=0Fort=1Tomr=10*r+val(mid(n1,t,1))s=s&(r\n2)Ifs=〞0〞Thens=""r=rmodn2NextGetVal=sEndFunction自定义名为GetVal的Function过程，函数值为参数n1〔长正整数串〕除以n2-.word.zl-\n..-的商。所得余数由参数r返回。调用例如：PrivateSubcmd_Click()DimtpAsString,rAsLongtp=InputBox(“输入一个正整数：〞,〞数据录入〞,〞〞)Txt.Text=getVal(tp,32511,r)TxtR.Text=rEndSub***常用语句***End：强行终止程序运行Load：加载控件数组元素If…Then…else…：条件语句Selectcase…Endselect：选择语句For…Next、DoWhile…Loop、Do…LoopWhile、DoUntil…Loop、Do…LoopUntil：循环语句Randomize：初始化序列生成器Exitsub：强行退出Sub过程ExitFunction：强行退出Function过程ExitFor：强行退出For循环ExitDo：强行退出Do循环***常用函数***-.word.zl-\n..-Rnd：产生一个(0,1)上的小数Val(x)：将x的值转换为实数，不触发错误CDble(x)：将x的值转换为实数，可能触发错误Int(x)：取不超过x的最大整数Mid(s,m,n)：从字符串s的第m个字符开场，取n个字符Replace(s1,s2,s3)：将字符串s1中的字符串s2全部替换为字符串s2RGB(R,G,B)：返回颜色值R+G*256+B*256*256。其中R、G、B分别为红色、绿色和蓝色的分量值，取值范围均为[0,255]Instr(n,S1,S2)：在字符串S1的第n个字符位置开场查找字符串S2。如果找到，返回S2出现在S1中的位置，否那么返回值为0MsgBox(S1,n,S2)：弹出一个信息窗口。S1指定信息内容，S2指定窗口标题，n指定按钮和图标Split(S1,S2)：用字符串S2将字符串S1切割成多个字符串，返回这些字符串组成的数组Left(S,n)：取字符串S左边n个字符Right(S,n)：取字符串S右边n个字符***常用控件***Label：标签控件，用于显示文本TextBox：文本框，用于显示文本，也可接收用户输入的文本mandButton：按钮，主要用于响应单击事件ListBox：列表框，显示列表boBox：组合框，显示列表，也可输入文本OptionButton：单项选择按钮，同组的单项选择按钮中只能有一个被选择-.word.zl-\n..-Image：图像框，显示图片PictureBox：图片框，可显示图片、可作控件容器、可绘制图形Timer：计时器，用于定时触发Timer事件Frame：框架，用于窗体布局或控件分组下周四七八节课主教学楼南208-.word.zl-