VB复习资料.docx

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的十位数字的表达式是（ ）。X10 Mod 10或(X Mod 100)1012、能终止名为Tmr的Timer控件触发其Timer事件的语句是（ ）。ABA、Tmr.Enabled=FalseB、Tmr.Interval=0C、Tmr.Visible=FalseD、Tmr.Stop13、设置（ ）属性为2，可使TextBox控件显示的内容水平居中。BA、AlignB、AlignmentC、AppearanceD、BorderStyle14、CommandButton控件的属性（ ）设置为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、与if x=60 then y=1 else y=0等效的是（ ）。CDA、y=iif(x60,0,1)B、if x=60,1,0)D、if (x60) or (x=60) then y=1 else y=019、可能产生运行时错误的表达式是（ ）。BCDA、Val(23abc)B、CDbl(23abc)C、CInt(23abc)D、Int(23.15) Mod 320、设x=86，则Choose(1-(x60)-(x75)-(x90),4,3,2,1)的值为（ ）。321、能为Select语句的Case子句的表达式是（ ）。ABDA、48 to 57B、8,48 to 57C、is 10,48 to 57D、abc to xyz22、下面有关TextBox控件的描述正确的是（ ）。DA、Change事件在KeyPress事件之后触发B、Change事件触发时，输入的文本已经显示C、KeyPress事件触发时，输入的文本已经显示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、Exit ForB、Exit DoC、Exit SubD、Goto28、下面有关控件数组的描述中正确的是（ ）。A、只要控件名称设置相同，即可组成控件数组B、组成控件数组的控件必须是同类型的控件C、控件数组的每个控件的Index属性均不相同D、组成控件数组的所有控件必须在同一容器中29、语句Dim a(3,4) As Long定义了（ ）。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过程内不能用（ ）声明变量。CA、DimB、PulbicC、PrivateD、Static34、在窗体通用声明部分不能用（ ）声明数组。BA、DimB、PulbicC、PrivateD、Static35、Split(1,2,3,4,)返回值为（ ）。BA、Variant类型的数组B、String类型的数组C、1234D、36、窗体上有名为txt的控件，且Index属性为0。则能正确加载txt(1)的语句是（ ）。AA、Load txt(1)B、t(1).Visible=TrueC、ReDim txt(1)D、UnLoad txt(1)37、控件数组cmd共有16个元素，下标从0至15。这16个控件按下标由小到大的顺序，从左到右、从上到下排成4行4列。那么cmd(k)位于（ ）。0=k=15。ADA、第(k/4+1)行B、第(k4+1)行C、第(k Mod 4)列D、第(k Mod 4)+1列38、ListBox控件的Sorted=True时，能够自动对列表项按字母顺序排序。(对各列表项进行逐字符比较，按ASCII码值递增排序)。已知Lst为ListBox控件，Sorted=True。如果Lst控件中依次添加三项2、11、12。则第三个列表项是（ ）。239、Sub GetInf(ParamArray a()表示（ ）。可以传递不同个数的参数40、过程参数前带参数Optional表示（ ）。可选参数，调用时可不传递值41、文本框的Locked属性设置为True后（ ）。BA、不能得到焦点B、不再响应事件C、不能输入数据D、代码不能修改Text42、列表框当前项的位置由属性 ( )确定。A、 ListCountB、TextC、ListIndexD、NewIndex43、使用( )方法可以只删除列表框指定项目。 RemoveItem44、用( )方法可将项目添加到组合框中。AddItem45、使用( )语句可将组合框 Combo1 的第 3 项置为当前项。Combo1.Index = 246、使用( )方法可以删除列表框中所有项目。 Clear*代码理解*Private Sub cmdCr_Click()txtR.Text =”txtB.Text =”txtM.Text =”End Sub单击名为cmdCr的按钮时，清空三个文本框的内容Private Sub cmd_Click()endEnd Sub单击名为cmd的按钮时，关闭程序Private Sub cmd_Click()Lb.Caption= Format(txt.Text, 0.00)End Sub单击名为cmd的按钮时，将文本框txt中显示的数据四舍五入保留小数点二位后在标签Lb上显示Private Sub Form_Load()LbDate.Caption = Format(Now, yyyy年mm月dd日)LbWeek.Caption = WeekdayName(Weekday(Now)LbTime.Caption = TimeEnd Sub窗体加载时，利用三个Label控件显示系统日期、星期和时间Private Sub Form_Click()Dim k As Long, a As Long, t As Longa = 1Me.Print 2;For k = 3 To 99 Step 2 t = 3 Do While t * t k Then Me.Print k; a = a + 1 If a Mod 5 = 0 Then Me.Print End IfNextEnd Sub单击窗体时，在窗体上输出100以内的所有质数。每行输出五个数。Private Sub txtIn_KeyPress(KeyAscii As Integer)If KeyAscii =8 Then Exit SubIf KeyAscii 57 Then KeyAscii = 0End Sub在文本框txtin内禁止输入数字之外的其他字符（允许删除）Private Sub txt_Validate(Cancel As Boolean)If Val(txt.Text) 100 Then Cancel=TrueEnd Sub如果文本框txt内的数据超过100，则禁止其失去焦点Private Sub cmdPD_Click()Dim tp As StringSelect Case Val(txtIn.Text) Case 0 To 59: tp = 不及格 Case Is 75: tp = 及格 Case Is 90: tp = 良好 Case Else: tp = 优秀End SelectMsgbox tp, vbOKOnly + vbInformation, 评定结果End Sub单击名为cmdPD的按钮时，弹出一个信息框，显示文本框txtin中输入的成绩是否“不及格”、“及格”、“良好”或者“优秀”Private Sub Form_Click()Dim k As LongLst.ClearLst.Sorted=TrueFor k = 8 To 12 Lst.AddItem kNextEnd Sub单击窗体时，将窗体上的列表框内容清空，并将8，12上的整数添加到列表框中（按字母递增排序，列表项分别为：10，11，12，8，9）Private Sub cmd_Click()Dim a As Double, d As Double, n As LongDim i As Long, sum As Doublea = CDbl(txt1.Text)d = CDbl(txt2.Text)n = CLng(txt3.Text)For i = 1 To n sum = sum + a If OptAP.Value Then a = a+d Else a = a*dNexttxt4.Text = sumEnd Sub单击名为cmd的按钮时，计算首项为a（文本框txt1显示的内容）、公差（当单选按钮OptAP被选择时，否则为公比）为d（文本框txt2显示的内容）的前n（文本框txt3显示的内容）项的和。计算结果在文本框txt4中显示。Private Sub txt_Change()Dim tp As ByteSelect Case Val(txt.Text) Case Is 60 tp = 0 Case Is 75 tp = 1 Case Is 90 tp =2 Case Else tp = 3End SelecttxtB.Text = tpEnd Sub文本框txt的显示内容发生变化时，在文本框txtB中显示txt新数据的特征值（小于60时特征值为0，小于75时特征值为1，小于90时特征值为2，其他情况特征值为3）Private Sub Form_Load()Dim i As LongFor i = 0 To 5 Img(i).Picture = LoadPicture(App.Path & red.gif)NextImg(6).Picture = LoadPicture(App.Path & blue.gif)End Sub加载窗体时导入图片（保存在程序所在文件夹）到七个名为Img（控件数组）的图片框中。前六个图片框显示图片red.gif，最后一个图片框显示图片blue.gifPrivate Sub Form_Load()Dim i As LongFor i = 1 To 24 Load Txt(i) Txt(i).Left= 150 + (i Mod 5) * 11001100=885+215 Txt(i).Top = 630 + (i 5) * 550 550=360+190 Txt(i).Visible=TrueNextEnd Sub加载窗体时，导入24文本框（名称均为Txt，组成控件数组）到窗体上。根据下标值（由小到大）从左到右、从上到下将25个文本框排列5行5列（第一个文本框设计时已在窗体上）Private Sub GetNum(n As Long, obj As TextBox)RandomizeDim i As Longobj.Text = obj.SelText =int(Rnd*9)+1For i = 2 To n依次产生其他各位数字 obj.SelText =int(Rnd*10)NextEnd Sub自定义名为GetNum的SUB过程，随机产生n位正整数在文本框Obj上显示调用示例：Private Sub cmd_Click()GetNum 120,TxtEnd SubFunction GetVal(n1 As String, n2 As Long, r As Long) As StringDim t As Long, m As Long, s As Stringm = Len(n1)r = 0 For t = 1 To m r = 10*r+val(mid(n1,t,1) s = s & (rn2) If s=”0” Then s= r =r mod n2NextGetVal = sEnd Function自定义名为GetVal的Function过程，函数值为参数n1（长正整数串）除以n2的商。所得余数由参数r返回。调用示例：Private Sub cmd_Click()Dim tp As String,r As Longtp=InputBox(“输入一个正整数：”,”数据录入”,”)Txt.Text=getVal(tp,32511,r)TxtR.Text=rEnd Sub*常用语句*End：强行终止程序运行Load：加载控件数组元素IfThenelse：条件语句Select caseEnd select：选择语句ForNext、Do WhileLoop、Do Loop While、Do UntilLoop、DoLoop Until：循环语句Randomize：初始化序列生成器Exit sub：强行退出Sub过程Exit Function：强行退出Function过程Exit For：强行退出For循环Exit Do：强行退出Do循环*常用