VBNET复习材料汇编

1、1.2.3.、单项选择题VB.NETA.是VB.NETVB.NET习题集汇编整理者：华中科技大学管理学院龚晓光是否完全符合CLS?B.否窗体中提供的是HideA.销毁窗体对象B.关闭窗体方法的作用是（C.将窗体极小化VB.NET窗体对象的Close方法的作用（A.极小化窗体B.隐藏窗体C.关闭窗体（注意，这个题目有问题，参考后面的多选题）4. VB.NET中编写对象的成员方法代码时，表示A. Ioca10bjectB. self C. thisD. Me）。D.隐藏窗体）。D.销毁窗体对象"本对象"的关键字为（D）。5. VB.NET程序中的逻辑错误能否被 VB.NET编译

2、器发现？（）。注：编译器只能捕获语法错误，而不能捕获运行时错误和逻辑错误。A.能B.不能6.对于 VB.NET 语句 Speed=Miles/Hours（其中Sp eet,Miles,Hours都是Double 值)，当 Hours=0时，该语句将引发（）。A.逻辑错误B.编译错误C.运行错误D.语法错误7.在.NET构架中，VB.NET程序被编译成（A.脚本B.MSIL 码C.汇编码D.机器码8.Inpu tBox（）函数括号中的第一个参数代表）。提示信息B、标题C、默认值D、对话框位置9.以下哪种项目是 VB.NET不能创建的）。Win dows 应用程序B、Dos应用程序Web应用程序D

3、、Windows 服务10.要在文本框中显示文本，应给其（）属性赋值。A、TextB、CaptionC NameD、 File11.将按钮的Visible属性设为False，按钮会（A、可用且可见B、可用不可见C、可见不可用D、不可用不可见(注意，Visible属性设为False，在程序中测试，发现控件的enable属性是没有被修改的，所以控件是可用的。而事实上，控件不可见，没有办法接受焦点，不能触发相关事件，对用户事实不可用，程序中还是可以用的（涉及到 DDE等内容）。综合看，选B合适）12.语句x=x+1 可以简写为（A、 x+B、 x+=1C、 x=+1D、x+113.下面哪个控件在程序

4、运行时是不可见的）。A、单选钮B、组合框C、计时器D、框架14. Select Case对应的结束语句是（A )。A、End SelectB、End Case C Select EndCase End15.过程 Sub Test ( ByVal x As Integer, ByRef y As Integer）中（A）。A、X、y都是传值参数B、X、y都是引用参数16.要调整某控件的宽度，应修改（）属性。A、TopB、LeftC、WidthD、Height17.下面哪个控件的特点同ListBox最接近（）。A、ComboBox B、TextBoxC、PictureBox D、Form18.在窗

5、体装入时，将发生B ）事件。A、ClickB、 LoadC、DeactivateD、Closed19.要将 TextBox1中的文本用MessageBox函数显示出来，应使用（MessageBox.Show(TextBox1.Text )B、MessageBox.Show(TextBox1 )C、MessageBox.Show(” TextBox1.Text ”)MessageBox.Show(” TextBox1 ”)20.VB.NET中用于字符串连接的运算符是C、&21.下面哪一项是正确的日期型数据（）。A、 12/12/2004B、” 12/12/2004C、12/12/2004

6、D、#12/12/2004#22.以 StructureEnd Structure定义的是一个（）。A、类B、过程C、模块D、结构* 23 .有两个数组s1和s2，要将s1的内容“拷贝” 一份给 s2，使用（C )。A、 s2=s1B、 s2=s1.CopyC、s2=s1.CloneD、s2=s1.AII24.变量a为整型，b为长整型,c为双精度型，且规定了强制类型转换，以下哪项是正确的（ C ）oA、a=bB、 b=cC、a=cD、c=a* 25 .下面哪个不是逻辑运算符（C ）。A、OrB、XorC、IfD、Not注：Xor对两个Boolea n表达式执行逻辑异或运算，或对两个数值表达式执

7、行按位异或运算FalseXorFalse =False;TrueXorFalse =TrueFalseXorTrue =True ;TrueXorTrue =False26.下面哪种不是循环结构（A、Try Catch End TryForNextD、DoLoopC、For Each Next27.要在窗体上创建一个状态栏,可使用（B ）控件。A、TrackBarB、StatusBarC、ToolBarD、 Panel二、多项选题（包括单项）1.在窗体的成员方法中，关于CloseO和Hide（）说法正确的是（ACD ?）。A. CloseO方法关闭窗体，并销毁窗体对象B. CIoseO方法关闭

8、窗体，但并不销毁窗体对象C. HideO方法是窗体不可见，但不销毁窗体对象D. Hide（）方法隐藏了窗体，使用 Show （）方法可重新显示该窗体2.所有控件都有的属性是（ D ）。A. TextB. BackColorC. ItemD. Name3.F列说法错误的是(ACD ?）。使用 MessageBox.Show(）显示的窗体一定是模态窗体B.使用 MessageBox.Show(）显示的窗体一定是非模态窗体C.使用 MessageBox.Show(）显示的窗体既可以是模态窗体，也可以是非模态窗体Stri ng2是显示的文本4.在 OptionStrict Off的情况下执行下列代码后

9、，变量i的值是什么？MessageBox.Show (Stringl , String2 )中 Stringl 是消息框的标题,B. -1注：布尔值只有5.下列关于值类型和引用类型说法正确的是(ACD ?）。Dim i As In tegerDim b As Boolea nC. FalseD. TrueTrue or False , 整型值：True = -1, False = 0A. 对一个值类型变量的操作不会影响到其他变量B. 对一个引用型变量的操作不会影响到其他变量C. 引用型变量存放的是指向实际对象数据的地址D.NET中所有的数字类型都是值类型（注意，这个题目的内容没有讲过，不会考的

10、）6.符合变量命名规则的变量名有（BCD）。A. 42AnswerB. nameC. Mo ney$D. Str name（注意,Mon ey$是隐式声明，$代表字符串）7.在 OptionExp licitOff的情况下执行下列代码后，变量curre ntBon us 的值是什么？ （ C）。Dim currentSalary As Integer=3Dim curre ntBonus As Doublecurre ntBo nus = curre ntSalaryx.1OA. 0B. 0.0C. 0.3D. 0.30（注意，原来题目有问题，currentSalry现在修改为currentS

11、alary ）。8. 在单击了 10次按钮后，静态变量items的值是（ DPrivate Sub Butto n1 ClickStatic items As In teger = 1 items += 1End SubA. 0B. 1C. 10D. 119.对于一个字符串型的变量num 二“128 ”，要将其转换为整型，有哪几种方法?( AD ?)。A. CType ( num , Integer )B. CStr (num )C. DirectCast(num , Integer)D. CInt (num )10.在三维数组array （4 ,5, 6）中共有多少个数组元素？（B 4*5*

12、6）。A. 120B. 210C. 209D. 21111 .下列语句执行后，array（3）的值是什么？ （ C）。Dim arrayO As In teger = 1,2, 3, 4, 5, 6ReDim array(8)A. 3B. 4C. 0D. nothing注：如果是数，重新定义后为 0 ;如果是字符串，则不显示。12.在VB.NET中，有返回值的过程称为过程（B )。A. SubB. FunctionC. PropertyD. Main13.下列代码执行完毕后，程序将输出（A ?)。Sub Main()Dim byvalArray(10) As In tegerDim byref

13、Array(10) As In tegerArrayP rocByRef(byvalArray, byrefArray)Con sole.WriteL in e(UBou nd(byvalArray)Con sole.WriteLi ne(UBou nd(byrefArray)End SubSub Array ProcByRef (ByVal arr() As In teger, ByRef arr2() As In teger)Redim arr(100)Redim arr2(100)End SubA. 10 , 100B.100 , 100C. 10 , 10D. 100 , 10（注意，

14、数组参数传递比较复杂，这个题目的内容没有讲过，不会考的）14.可以使用参数数组为过程传递不确定个数的参数，下面的函数声明都用到了参数数组，其中正确的是（A ?)。A.Sub Stude ntScores(ByVal name As Stri ng, ByValP aramArray scores( ) As String)B.Sub Stude ntScores(ByVal name As Stri ng, ByRefP aramArray scores( ) As String)C. Sub StudentScores(ByVal name As String, ByValParamArra

15、y scores(, ) As String)D.Sub Stude ntScores( Op tio nal ByVal name As Stri ng, ByValParamArray scores( ) As String)（注意，ParamArray 是一个特殊的修饰符，这个题目的内容没有讲过）15.下列哪些语句将得到file name文件的扩展名（假设扩展名为3个字符）？(AD ?）。” .”)+1)16.下列布尔表达式的值为）。A. Right(file name,3)B. Left(file name,3)C. Left(filename,Len(filename)-3)D. M

16、id(file name,l nstr(file name,Not False And True Xor True Or FalseA.TrueB. FalseC.OrElseD. AndAlso17.执行下列程序后，变量i的值和sum的值分别为）。Dim i As In tegerDim sum As In tegerFor i = 0 To 100 Ste p 2sum = sum + iNextA.102, 2500B.100, 2500C.100, 2550D. 102, 255018 .执行下列代码后，变量 count的值为(c )。D.Do Un til Loop和Do While

17、Loop中的代码至少会执行一次Dim count As In tegerFor cou nt = 10 To 0, Ste p -1count = count - 3NextA. 0B. -1C. -2D. -319.下列关于Do循环说法正确的是（C )。A.Do Loop Un til和Do Un tilLoop都是在条件为假时退出循环B.Do Loop While和Do WhileLoop都是在条件为假时退出循环C. Do Loo P Un til和DoLoop While 中的代码至少会执行一次）。Handles Buttonl.Click20.要表示广州市的车牌号码，对输入有以下格式要

18、求：（前面必须有汉字“粤”；车牌为6位数;车牌第一位为字母“ A”，车牌最后一位必须为数字，其他位置字符数字不限;下列对Masked Edit 的Mask属性设置正确的是A.粤 AAAAA#B.粤 AAAAA0C. 粤 A?#D. 粤 AAAAA9三、编程题1.编写一个Function 过程，求圆的面积（圆的半径作为过程的参数）（参考指定教程）Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Dim r As Doubler = CType (TextBoxl.Text,D

19、ouble )TextBox2.Text = r * r * Math .PIMsgBox (TextBox2.Text)End Sub或者 Private Function Calculate( ByVal Radius) As DoubleDim RadiusDoubled As DoubleDim dblResult As DoubleRadiusDoubled = Radius * Radius dblResult = RadiusDoubled * Math .PIReturn dblResultEnd FunctionPrivate Sub Button1_Click( ByVal

20、 sender As System.Object, ByVal e As System.EventArgs) HandlesButtonl.ClickDim Area As DoubleArea = Calculate(100)MsgBox("圆的面积是"& Area)End Sub2.编写程序，计算并输出所有6位正整数中能被6整除且其十位数不是4的数之和,并求它们中的最大数。（结果：和：7.42508E+10最大值：999996）Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As

21、 System.EventArgs)HandlesButt on I.CIickDim I, max As LongDim s As Single s = 0 : max = 100000For I = 100000 To 999999If (IMod 6 = 0) And (I Mod 100) 10 <> 4) ThenIf (max < I) The nmax = IEnd IfEndIfNext IMsgBox("和是 ” & s & ”，”&”最大值是” & max)End Sub3.编写程序，计算并输出所有6位正整数中同时

22、能被13和20整除的数的个数n及它们的立方根的和。（结果：个数：3462立方根和:275112.31253)Butt on I.CIickDim n, i As Integer , s As DoubleFor i = 100000 To 999999If i Mod 13 = 0 And i Mod 20 = 0 Thens = s + i A (1 / 3)EndIfNext iMsgBox("个数是 ” &n &“，”&"立方根的和是” & s）End Sub4.编写程序，计算并输出下面级数前n项（n=40）中偶数项的和。s = 1*2

23、+2*3+3*4+4*5+n*(n +1)+（结果：11900）Private Sub Button1_Click( ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesButt on 1.CIickDim n As Integer , s As DoubleFor n = 2 To 40 Step 2s = s + n * (n + 1)Next nMsgBox（"前40项中偶数项和 S=" & s）End Sub5.编写程序，计算并输出所有5位正整数中能被7整除且其十位数不是7的数之

24、和,并求它们中的最大数。Private Sub Button1_Click( ByVal sender As System.Object, ByValeAs System.Eve ntArgs)Han dles(和：6.364356E+08最大值：99995）As System.Eve ntArgs)Han dlesPrivate Sub Button1_Click( ByVal sender As System.Object, ByValButt on 1.ClickDim I, max As LongDim s As Single s = 0 : max = 10000For I = 10

25、000 To 99999If (IMod 7 = 0) And (I Mod 100) 10 <> 7) ThenIf (max < I) The nmax = IEnd IfEndIfNext IMsgBox("和是” & s & ”，”&”最大值是” & max)End Sub6.编写程序,统计10000到40000之间回文数的个数。（例：23732即为回文数,即正反读数据相同）（结果：300）Butt on 1.ClickDim i, j, p As IntegerDim a, b, c, d, f As IntegerFor

26、i = 10000To 40000a = iMod10b = (iMod100) 10c = (iMod1000) 100d = (iMod10000) 1000f= i10000j = a * 10000 + b * 1000 + c * 100 + d * 10 + fNextIf i = jEnd IfMsgBox( p)End Sub7.编写程序，求The n5664 , 144的最大公约数。(48 )Private Sub Butto n1_Click( ByVal sen der As System.Object, ByVal e As System.Eve ntArgs)Han

27、diesButt on 1.ClickDim num1 As IntegerDim num2 As IntegerDim in large As In tegerDim in small As In tegerDim inrem As Integer num1 = 5664 num2 = 144If num1 < num2The nini arge = num2 in small = num1Elsein large = num1 in small = num2End If inrem = in large Mod in smallWhile inrem <> 0in lar

28、ge = in small in small = inrem inrem = in large Mod in smallEnd WhileMsgBox (in small )End Sub8.从三位奇数中找出其值恰好等于该数每位数字立方和的各个数之和。（结果：931）Butt on I.CIickDim i, m, n, k As IntegerDim s As integerFor i = 101 To999 Step 2m = i100n = (i Mod100) 10k = i Mod10NextEnd SubIf (i = m * m * m + n * n * n + k * k * k)End IfMsgBox(s)The n9. 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例如28=1+2+4+7+14,因此28是一个完全数。编写程序,找出四位数中的所有完全数之和。结果：（8128）Private Sub B