VBNET习题集汇编.docx

1、VBNET习题集汇编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. th

2、is 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、默认

3、值 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属性是没有被修改的，所以控件是可用的。而事实上，控件不可见，没有办法接受焦点，不能触发相关事件，对用户事实不可用，

4、程序中还是可以用的（涉及到DDE等内容）。综合看，选B合适）12. 语句x=x+1可以简写为（ B ）。A、x+ B、x+=1 C、x=+1 D、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是引用参数

5、 D、x是引用参数，y是传值参数16. 要调整某控件的宽度，应修改（ C ）属性。A、Top B、Left C、Width D、Height17. 下面哪个控件的特点同ListBox最接近（ A ）。A、ComboBox B、TextBox C、PictureBox D、Form18. 在窗体装入时，将发生（ B ）事件。A、Click B、Load C、Deactivate D、Closed19. 要将TextBox1中的文本用MessageBox函数显示出来，应使用（ A ）。A、 MessageBox.Show（TextBox1.Text）B、 MessageBox.Show（TextB

6、ox1）C、 MessageBox.Show（”TextBox1.Text”）D、 MessageBox.Show（”TextBox1”）20. VB.NET中用于字符串连接的运算符是（ C ）。A、* B、# C、& D、21. 下面哪一项是正确的日期型数据（ D ）。A、12/12/2004 B、”12/12/2004” C、12/12/2004 D、#12/12/2004#22. 以StructureEnd Structure定义的是一个（ D ）。A、类 B、过程 C、模块 D、结构* 23. 有两个数组s1和s2，要将s1的内容“拷贝”一份给s2，使用（ C ）。A、s2=s1 B、

7、s2=s1.Copy C、s2=s1.Clone D、s2=s1.All24. 变量a为整型，b为长整型，c为双精度型，且规定了强制类型转换，以下哪项是正确的（ C ）。A、a=b B、b=c C、a=c D、c=a* 25.下面哪个不是逻辑运算符（ C ）。A、Or B、Xor C、If D、Not注：Xor对两个 Boolean 表达式执行逻辑异或运算，或对两个数值表达式执行按位异或运算False Xor False =False; True Xor False =True False Xor True =True ; True Xor True =False 26. 下面哪种不是循环结构

8、（ A ）。A、TryCatchEnd Try B、ForNextC、For EachNext D、DoLoop27. 要在窗体上创建一个状态栏，可使用（ B ）控件。A、TrackBar B、StatusBar C、ToolBar D、Panel二、多项选题（包括单项）1. 在窗体的成员方法中，关于Close()和Hide()说法正确的是 （ ACD ? ）。A. Close()方法关闭窗体，并销毁窗体对象B. Close()方法关闭窗体，但并不销毁窗体对象C. Hide()方法是窗体不可见，但不销毁窗体对象D. Hide()方法隐藏了窗体，使用Show（）方法可重新显示该窗体2. 所有控件

9、都有的属性是 （ 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 Int

10、egerDim 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（注意，Mon

11、ey$是隐式声明，$代表字符串）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 it

12、ems 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 Inte

13、ger = 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

14、(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 Stud

15、entScores(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 sco

16、res( ) 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. AndAlso1

17、7. 执行下列程序后，变量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

18、Until和Do UntilLoop都是在条件为假时退出循环B.DoLoop While和Do WhileLoop都是在条件为假时退出循环C. DoLoop Until和DoLoop While中的代码至少会执行一次D.Do UntilLoop和Do WhileLoop中的代码至少会执行一次20. 要表示广州市的车牌号码，对输入有以下格式要求：（ B ）。 前面必须有汉字“粤”； 车牌为6位数； 车牌第一位为字母“A”，车牌最后一位必须为数字，其他位置字符数字不限；下列对Masked Edit的Mask属性设置正确的是A.粤AAAAA#B.粤AAAAA0C.粤A?#D. 粤AAAAA9三、编程

19、题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 Ra

20、dius) 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 =

21、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

22、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 Syste

23、m.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）

24、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）

25、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 &

26、”,” & 最大值是 & 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 10

27、0) 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 D

28、im 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

29、 = 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

30、 100) 10 k = i Mod 10 If (i = m * m * m + n * n * n + k * k * k) Then s = s + i End If Next MsgBox(s)End Sub9. 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例如28=1+2+4+7+14，因此28是一个完全数。编写程序，找出四位数中的所有完全数之和。结果：（8128）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, t, s, j As Integer s = 0 For i = 1000 To 9999 t = 0 For j = 1 To i - 1