VBNET习题集汇编.doc

VB.NET习题集汇编整理者: 华中科技大学管理学院 龚晓光一、单项选择题1.VB.NET是否完全符合CLS? （ A ）。A. 是 B. 否2.VB.NET窗体中提供的是Hide方法的作用是（ D ）。A. 销毁窗体对象 B. 关闭窗体 C. 将窗体极小化 D.隐藏窗体3.VB.NET窗体对象的Close方法的作用（ C ）。A. 极小化窗体 B. 隐藏窗体 C. 关闭窗体 D. 销毁窗体对象（注意，这个题目有问题，参考后面的多选题）4.VB.NET中编写对象的成员方法代码时，表示本对象的关键字为（ D ）。A. loca10bject B. self C. this D. Me5.VB.NET程序中的逻辑错误能否被VB.NET编译器发现？（ B ）。注：编译器只能捕获语法错误，而不能捕获运行时错误和逻辑错误。A.能 B.不能6.对于VB.NET语句 Speed=Miles/Hours（其中Speet,Miles,Hours都是Double值），当Hours=0时，该语句将引发（ C ）。.A.逻辑错误 B.编译错误 C.运行错误 D.语法错误7.在.NET构架中，VB.NET程序被编译成（ B ）。 A.脚本 B.MSIL码 C.汇编码 D.机器码8.InputBox( )函数括号中的第一个参数代表（ A ）。A、提示信息B、标题C、默认值D、对话框位置9.以下哪种项目是VB.NET不能创建的（ B ）。A、Windows应用程序 B、Dos应用程序 C、Web应用程序 D、Windows服务10.要在文本框中显示文本，应给其（ A ）属性赋值。A、Text B、Caption C、Name D、File11.将按钮的Visible属性设为False，按钮会（ B ）。A、可用且可见 B、可用不可见C、可见不可用 D、不可用不可见（注意，Visible属性设为False，在程序中测试，发现控件的enable属性是没有被修改的，所以控件是可用的。而事实上，控件不可见，没有办法接受焦点，不能触发相关事件，对用户事实不可用，程序中还是可以用的（涉及到DDE等内容）。综合看，选B合适）12.语句x=x+1可以简写为（ B ）。A、x+B、x+=1C、x=+1D、x+113.下面哪个控件在程序运行时是不可见的（ C ）。A、单选钮 B、组合框 C、计时器 D、框架14.Select Case对应的结束语句是（ A ）。A、End Select B、End Case C、Select End D、Case End15.过程Sub Test（ByVal x As Integer, ByRef y As Integer）中（ A ）。A、x、y都是传值参数 B、x、y都是引用参数C、x是传值参数，y是引用参数 D、x是引用参数，y是传值参数16.要调整某控件的宽度，应修改（ C ）属性。A、Top B、Left C、Width D、Height17.下面哪个控件的特点同ListBox最接近（ A ）。A、ComboBoxB、TextBoxC、PictureBoxD、Form18.在窗体装入时，将发生（ B ）事件。A、ClickB、LoadC、DeactivateD、Closed19.要将TextBox1中的文本用MessageBox函数显示出来，应使用（ A ）。A、MessageBox.Show（TextBox1.Text）B、MessageBox.Show（TextBox1）C、MessageBox.Show（”TextBox1.Text”）D、MessageBox.Show（”TextBox1”）20. VB.NET中用于字符串连接的运算符是（ C ）。A、*B、#C、&D、21. 下面哪一项是正确的日期型数据（ D ）。A、12/12/2004B、”12/12/2004”C、12/12/2004D、#12/12/2004#22.以StructureEnd Structure定义的是一个（ D ）。A、类B、过程C、模块D、结构* 23.有两个数组s1和s2，要将s1的内容“拷贝”一份给s2，使用（ C ）。A、s2=s1B、s2=s1.CopyC、s2=s1.CloneD、s2=s1.All24.变量a为整型，b为长整型，c为双精度型，且规定了强制类型转换，以下哪项是正确的（ C ）。A、a=bB、b=cC、a=cD、c=a* 25.下面哪个不是逻辑运算符（ C ）。A、OrB、XorC、IfD、Not注：Xor对两个 Boolean 表达式执行逻辑异或运算，或对两个数值表达式执行按位异或运算False Xor False =False; True Xor False =True False Xor True =True ; True Xor True =False 26.下面哪种不是循环结构（ A ）。A、TryCatchEnd TryB、ForNextC、For EachNext D、DoLoop27.要在窗体上创建一个状态栏，可使用（ B ）控件。A、TrackBarB、StatusBarC、ToolBarD、Panel二、多项选题（包括单项）1.在窗体的成员方法中，关于Close()和Hide()说法正确的是 （ ACD ? ）。A. Close()方法关闭窗体，并销毁窗体对象B. Close()方法关闭窗体，但并不销毁窗体对象C. Hide()方法是窗体不可见，但不销毁窗体对象D. Hide()方法隐藏了窗体，使用Show（）方法可重新显示该窗体2.所有控件都有的属性是 （ D ）。A. TextB. BackColorC. ItemD. Name3.下列说法错误的是 （ ACD ? ）。A使用MessageBox.Show()显示的窗体一定是模态窗体B使用MessageBox.Show()显示的窗体一定是非模态窗体C使用MessageBox.Show()显示的窗体既可以是模态窗体，也可以是非模态窗体DMessageBox.Show（String1，String2）中String1是消息框的标题，String2是显示的文本4.在Option Strict Off的情况下执行下列代码后，变量i的值是什么？（ A ? ）。Dim i As IntegerDim b As Booleani = bA0 CFalseB-1 DTrue注：布尔值只有True or False , 整型值: True = -1, False = 05.下列关于值类型和引用类型说法正确的是 （ ACD ? ）。A.对一个值类型变量的操作不会影响到其他变量B.对一个引用型变量的操作不会影响到其他变量C.引用型变量存放的是指向实际对象数据的地址D.NET中所有的数字类型都是值类型（注意，这个题目的内容没有讲过，不会考的）6.符合变量命名规则的变量名有（ BCD ? ）。A. 42AnswerB. _nameC. Money$D. Str_name（注意，Money$是隐式声明，$代表字符串）7.在Option Explicit Off的情况下执行下列代码后，变量currentBonus的值是什么？（ C ）。Dim currentSalary As Integer=3Dim currentBonus As DoublecurrentBonus = currentSalary .10A. 0B. 0.0C. 0.3D. 0.30（注意，原来题目有问题，currentSalry 现在修改为currentSalary）8.在单击了10次按钮后，静态变量items的值是（ D ）。Private Sub Button1_Click（）Static items As Integer = 1items += 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*6 ）。A. 120B. 210C. 209D. 21111.下列语句执行后，array（3）的值是什么？（ C ? ）。Dim array() As Integer = 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 IntegerDim byrefArray(10) As IntegerArrayProcByRef(byvalArray, byrefArray)Console.WriteLine(UBound(byvalArray)Console.WriteLine(UBound(byrefArray)End SubSub ArrayProcByRef (ByVal arr() As Integer, ByRef arr2() As Integer)Redim arr(100)Redim arr2(100)End SubA. 10，100B. 100，100C. 10，10D. 100，10（注意，数组参数传递比较复杂，这个题目的内容没有讲过，不会考的）14.可以使用参数数组为过程传递不确定个数的参数，下面的函数声明都用到了参数数组，其中正确的是（ A ? ）。A.Sub StudentScores(ByVal name As String, ByVal ParamArray scores( ) As String)B.Sub StudentScores(ByVal name As String, ByRef ParamArray scores( ) As String)C. Sub StudentScores(ByVal name As String, ByVal ParamArray scores(, ) As String)D.Sub StudentScores(Optional ByVal name As String, ByVal ParamArray scores( ) As String)（注意，ParamArray是一个特殊的修饰符，这个题目的内容没有讲过）15.下列哪些语句将得到filename文件的扩展名（假设扩展名为3个字符）？（ AD ? ）。A.Right(filename,3)B.Left(filename,3)C. Left(filename,Len(filename)-3)D.Mid(filename,Instr(filename,”.”)+1)16.下列布尔表达式的值为 （ B ? ）。Not False And True Xor True Or FalseA.TrueB.FalseC.OrElseD. AndAlso17.执行下列程序后，变量i的值和sum的值分别为 （ D ）。Dim i As IntegerDim sum As IntegerFor i = 0 To 100 Step 2 sum = sum + iNextA.102, 2500B.100, 2500C.100, 2550D. 102, 255018.执行下列代码后，变量count的值为 （ C ）。Dim count As IntegerFor count = 10 To 0, Step -1 count = count - 3NextA.0B.-1C. -2D.-319.下列关于Do循环说法正确的是（ C ）。A.DoLoop Until和Do UntilLoop都是在条件为假时退出循环B.DoLoop While和Do WhileLoop都是在条件为假时退出循环C. DoLoop Until和DoLoop While中的代码至少会执行一次D.Do UntilLoop和Do WhileLoop中的代码至少会执行一次20.要表示广州市的车牌号码，对输入有以下格式要求：（ B ）。l 前面必须有汉字“粤”；l 车牌为6位数；l 车牌第一位为字母“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) Handles Button1.Click Dim r As Double r = CType(TextBox1.Text, Double) TextBox2.Text = r * r * Math.PI MsgBox(TextBox2.Text)End Sub或者Private Function Calculate(ByVal Radius) As Double Dim RadiusDoubled As Double Dim dblResult As Double RadiusDoubled = Radius * Radius dblResult = RadiusDoubled * Math.PI Return dblResult End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Area As Double Area = 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 System.EventArgs) Handles Button1.Click Dim I, max As Long Dim s As Single s = 0 : max = 100000 For I = 100000 To 999999 If (I Mod 6 = 0) And (I Mod 100) 10 4) Then s = s + I If (max I) Then max = I End If End If Next I MsgBox(和是 & s &”,” & 最大值是 & max) End Sub3.编写程序，计算并输出所有6位正整数中同时能被13和20整除的数的个数n及它们的立方根的和。（结果：个数：3462 立方根和：275112.31253）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, i As Integer, s As Double n = 0 : s = 0 For i = 100000 To 999999 If i Mod 13 = 0 And i Mod 20 = 0 Then n = n + 1 s = s + i (1 / 3) End If Next i MsgBox(个数是 & n & “,” & 立方根的和是 & s) End Sub4.编写程序，计算并输出下面级数前n项(n=40)中偶数项的和。s = 1*2+2*3+3*4+4*5+n*(n+1)+（结果：11900）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer, s As Double s = 0 For n = 2 To 40 Step 2 s = s + n * (n + 1) Next n MsgBox(前40项中偶数项和S= & s) End Sub5.编写程序，计算并输出所有5位正整数中能被7整除且其十位数不是7的数之和，并求它们中的最大数。（和：6.364356E+08 最大值：99995）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim I, max As Long Dim s As Single s = 0 : max = 10000 For I = 10000 To 99999 If (I Mod 7 = 0) And (I Mod 100) 10 7) Then s = s + I If (max I) Then max = I End If End If Next I MsgBox(和是 & s &”,” & 最大值是 & max)End Sub6.编写程序，统计10000到40000之间回文数的个数。（例：23732即为回文数，即正反读数据相同）（结果：300）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, p As Integer Dim a, b, c, d, f As Integer p = 0 For i = 10000 To 40000 a = i Mod 10 b = (i Mod 100) 10 c = (i Mod 1000) 100 d = (i Mod 10000) 1000 f = i 10000 j = a * 10000 + b * 1000 + c * 100 + d * 10 + f If i = j Then p = p + 1 End If Next MsgBox(p) End Sub7.编写程序，求5664，144的最大公约数。（48）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1 As Integer Dim num2 As Integer Dim inlarge As Integer Dim insmall As Integer Dim inrem As Integer num1 = 5664 num2 = 144 If num1 num2 Then inlarge = num2 insmall = num1 Else inlarge = num1 insmall = num2 End If inrem = inlarge Mod insmall While inrem 0 inlarge = insmall insmall = inrem inrem = inlarge Mod insmall End While MsgBox（insmall） End Sub8.从三位奇数中找出其值恰好等于该数每位数字立方和的各个数之和。（结果：931）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m, n, k As Integer Dim s As integer s = 0 For i = 101 To 999 Step 2 m = i 100 n = (i Mod 100) 10 k = i Mod 10 If (i = m *