Vb习题集汇编lite.docx

1、Vb习题集汇编liteV习题集汇编整理者: 华中科技大学管理学院 龚晓光一、单项选择题1. VB.NET是否完全符合CLS? （ ）。A. 是 B. 否2. VB.NET窗体中提供的是Hide方法的作用是（ ）。A. 销毁窗体对象 B. 关闭窗体 C. 将窗体极小化 D.隐藏窗体3. VB.NET窗体对象的Close方法的作用（ ）。A. 极小化窗体 B. 隐藏窗体 C. 关闭窗体 D. 销毁窗体对象4. VB.NET中编写对象的成员方法代码时，表示本对象的关键字为（ ）。A. loca10bject B. self C. this D. Me5. VB.NET程序中的逻辑错误能否被VB.NE

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

3、ws应用程序 B、Dos应用程序 C、Web应用程序 D、Windows服务10. 要在文本框中显示文本，应给其（ ）属性赋值。A、Text B、Caption C、Name D、File11. 将按钮的Visible属性设为False，按钮会（ ）。A、可用且可见 B、可用不可见C、可见不可用 D、不可用不可见12. 语句x=x+1可以简写为（ ）。A、x+ B、x+=1 C、x=+1 D、x+113. 下面哪个控件在程序运行时是不可见的（ ）。A、单选钮 B、组合框 C、计时器 D、框架14. Select Case对应的结束语句是（ ）。A、End Select B、End Case C

4、、Select End D、Case End15. 过程Sub Test（ByVal x As Integer, ByRef y As Integer）中（ ）。A、x、y都是传值参数 B、x、y都是引用参数C、x是传值参数，y是引用参数 D、x是引用参数，y是传值参数16. 要调整某控件的宽度，应修改（ ）属性。A、Top B、Left C、Width D、Height17. 下面哪个控件的特点同ListBox最接近（ ）。A、ComboBox B、TextBox C、PictureBox D、Form18. 在窗体装入时，将发生（ ）事件。A、Click B、Load C、Deactiva

5、te D、Closed19. 要将TextBox1中的文本用MessageBox函数显示出来，应使用（ ）。A、 MessageBox.Show（TextBox1.Text）B、 MessageBox.Show（TextBox1）C、 MessageBox.Show（”TextBox1.Text”）D、 MessageBox.Show（”TextBox1”）20. VB.NET中用于字符串连接的运算符是（ ）。A、* B、# C、& D、21. 下面哪一项是正确的日期型数据（ ）。A、12/12/2004 B、”12/12/2004” C、12/12/2004 D、#12/12/2004#22

6、. 以StructureEnd Structure定义的是一个（ ）。A、类 B、过程 C、模块 D、结构23. 有两个数组s1和s2，要将s1的内容“拷贝”一份给s2，使用（ ）。A、s2=s1 B、s2=s1.Copy C、s2=s1.Clone D、s2=s1.All24. 变量a为整型，b为长整型，c为双精度型，且规定了强制类型转换，以下哪项是正确的（ ）。A、a=b B、b=c C、a=c D、c=a25. 下面哪个不是逻辑运算符（ ）。A、Or B、Xor C、If D、Not26. 下面哪种不是循环结构（ ）。A、TryCatchEnd Try B、ForNextC、For Ea

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

8、说法错误的是 （ ）。A使用MessageBox.Show()显示的窗体一定是模态窗体B使用MessageBox.Show()显示的窗体一定是非模态窗体C使用MessageBox.Show()显示的窗体既可以是模态窗体，也可以是非模态窗体DMessageBox.Show（String1，String2）中String1是消息框的标题，String2是显示的文本4. 在Option Strict Off的情况下执行下列代码后，变量i的值是什么？（ ）。Dim i As IntegerDim b As Booleani = bA0B-1CFalseDTrue5. 下列关于值类型和引用类型说法正确的

9、是 （ ）。A.对一个值类型变量的操作不会影响到其他变量B.对一个引用型变量的操作不会影响到其他变量C.引用型变量存放的是指向实际对象数据的地址D.NET中所有的数字类型都是值类型6. 符合变量命名规则的变量名有（ ）。A. 42AnswerB. _nameC. Money$D. Str_name7. 在Option Explicit Off的情况下执行下列代码后，变量currentBonus的值是什么？（ ）。Dim currentSalary As Integer=3Dim currentBonus As DoublecurrentBonus = currentSalary .10A. 0

10、B. 0.0C. 0.3D. 0.308. 在单击了10次按钮后，静态变量items的值是（ ）。Private Sub Button1_Click（）Static items As Integer = 1items += 1End SubA. 0B. 1C. 10D. 119. 对于一个字符串型的变量num = “128”，要将其转换为整型，有哪几种方法？（ ）。A. CType（num , Integer）B. CStr（num）C. DirectCast（num , Integer）D. CInt（num）10. 在三维数组array（4，5，6）中共有多少个数组元素？（ ）。A. 12

11、0B. 210C. 209D. 21111. 下列语句执行后，array（3）的值是什么？（ ）。Dim array() As Integer = 1, 2, 3, 4, 5, 6ReDim array(8)A. 3B. 4C. 0D. nothing12. 在VB.NET中，有返回值的过程称为过程（ ）。E. SubF. FunctionG. PropertyH. Main13. 下列代码执行完毕后，程序将输出（ ）。Sub Main()Dim byvalArray(10) As IntegerDim byrefArray(10) As IntegerArrayProcByRef(byval

12、Array, 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，1014. 可以使用参数数组为过程传递不确定个数的参数，下面的函数声明都用到了参数数组，其中正确的是（ ）。A.Sub Stude

13、ntScores(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 scor

14、es( ) As String)15. 下列哪些语句将得到filename文件的扩展名（假设扩展名为3个字符）？（ ）。A.Right(filename,3)B.Left(filename,3)C. Left(filename,Len(filename)-3)D.Mid(filename,Instr(filename,”.”)+1)16. 下列布尔表达式的值为 （ ）。Not False And True Xor True Or FalseA.TrueB.FalseC.OrElseD. AndAlso17. 执行下列程序后，变量i的值和sum的值分别为 （ ）。 Dim i As Intege

15、r Dim sum As Integer For i = 0 To 100 Step 2 sum = sum + i NextA.102, 2500B.100, 2500C.100, 2550D. 102, 255018. 执行下列代码后，变量count的值为 （ ）。 Dim count As Integer For count = 10 To 0, Step -1 count = count - 3 NextA.0B.-1C. -2D.-319. 下列关于Do循环说法正确的是（ ）。A.DoLoop Until和Do UntilLoop都是在条件为假时退出循环B.DoLoop While和

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

17、. 编写程序，计算并输出所有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 max = 100000 For I = 100000 To 999999 If (I Mod 6) = 0 And (I Mod 100) 10) 4 T

18、hen s = s + I If (max I) Then max = I End If End If Next I MsgBox(和是 + Str(s) + Chr(10) + 最大值是 + Str(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.ClickDim

19、 n,i as integer, s As Doublen = 0 : s = 0For i = 100000 To 999999 If i Mod 13 = 0 And i Mod 20 = 0 Then n = n + 1 s = s + i (1/3) End IfNext iMsgbox(个数是&n & chr(10)&” 立方根的和是”&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 Sy

20、stem.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n as integer, s as doubles = 0For n = 2 To 40 Step 2 s = s + n * (n + 1)Next nMsgbox(前40项中偶数项和S=&s)End Sub5. 编写程序，计算并输出所有5位正整数中能被7整除且其十位数不是7的数之和，并求它们中的最大数。 （和：6.364356E+08 最大值：99995） Dim I, max As Long Dim s As Single s = 0 max = 100

21、00 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(和是 + Str(s) + Chr(10) + 最大值是 + Str(max)6. 编写程序，统计10000到40000之间回文数的个数。（例：23732即为回文数，即正反读数据相同）（结果：300）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

22、System.EventArgs) Handles Button1.Click Dim i, j, p As Integer Dim a, b, c, d, f As Integer Dim str1 As String p = 0 str1 = 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 str

23、1 = str1 + Str(i) + Space(3) p = p + 1 If p Mod 12 = 0 Then str1 = str1 + Chr(10) + Chr(13) 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

24、 inlarge As Integer Dim insmall As Integer Dim inrem As Integer num1 = 5664 num2 = 148 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 Label6.Te

25、xt = Label3.Text + 和 + Label5.Text + 的最大公约数为： Label7.Text = Str(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 Ste

26、p 2 m = i 100 n = (i Mod 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(str(s)End Sub9. 如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。例如28=1+2+4+7+14，因此28是一个完全数。编写程序，找出四位数中的所有完全数之和。结果：（8128）Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System

27、.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 If (i Mod j) = 0) Then t = t + j End If Next If i = t Then s = s + i End If Next MsgBox(Str(s) End Sub10. 编写程序，求下面级数前n项的和S(n)，要求精确到0.00001，即S(n)应满足|S(n)-S(n-1)| 0.00001) s = s + 1 / I 4 I = I + 1 End While s = Format(s, 0.00000) MsgBox(s)四、思考题（不一定需要写出程序）1. 已知获得字符串长度的速度非常快，整数大小的比较速度相对于直接比较字符串非常快，特别是字符串非常长时。现在有非常多（比如5万条）长度不同的字符串（比如一本书），需要找到重复的字符串，并且将后面出现的重复字符串删除。请画一个计算流程来解决这个问题。2. 从网页拷贝的信息中，有许多多余的空格，比如汉字间的空格，需要删除，而有些空格，比如英文单词间的空格需要保留一个。请画一个计算流程来解决这个问题。整理时间 2009-10-9注意：仅供同学学习使用，不要外传