一、 选择题
1.

2. VB.NET中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。下列代码哪组正确？（假设已经定义变量ch） B
A. ch = Char(Mid(“this is a test”,0,1))
B. ch = CChar(Mid(“this is a test”,0,1))
C. ch = Char(Mid(“this is a test”,1,1))
D. ch = CChar(Mid(“this is a test”,1,1))

3. Textbox控件限制用户输入字符长度的属性为:C
A. CharacterCasing  B. Length  C. MaxLength  D. AutoSize

4. 过程changeName中执行下列代码后，字符串firstName的值是什么？ A
Dim firstName as String = “Tom”
Dim secondName as String = firstName
secondName &= “Jerry”
A. Tom  B. Jerry  C. Tom Jerry  D. Tom & Jerry

5. 执行下列语句后，控制台输出什么结果A
Dim res as Integer = CType(“123.45”,Integer)
Console.Writeln(res)
A. 123  B. 12345  C. 0  D. res

6. 在VB.NET中，无返回值的过程称为____A____过程
A. Sub  B. Function  C. Property  D. Main

7. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_____C____。
Public Module MyModule
…
…
Sub ShowHelpInfo(String info)
MessageBox.Show(info)
End Sub
……
End Module
A. 仅在MyModule中可以使用  B. 在本项目中可以使用
C. 在本解决方案中可以使用  D. 在派生模块中可以使用

8. 下列程序在控制台上的输出结果为_____B____。
Public Function MyFunc(i as Integer)
If i > 0 Then
Return 100
Else
Return "hello"
End If
End Function
Public Shared Sub Main()
Dim x As Employee
Console.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1)))
End Sub
A. Integer,String  B. String,Integer  C. Object,Object  D. String,String

9. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为____C____。
Class test
Public Sub MyFunc(ByVal i As Integer)
i = i * 2
End Sub
End Class
Sub Main()
Dim x As new test
Dim i As Integer = 100
x.MyFunc(i)
End Sub
A. 0
B. 2
C. 100
D. 200

10. 在调试VB.NET中，可以使用Visual Studio.NET的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。B
A．局部变量窗口  B.监视窗口  C.快速监视窗口  D.自动窗口

11. 已知数组arr进行以下定义： Dim arr() as Integer = {1,1,1,1,1}
过程MySub定义如下：
Sub MySub(ByVal ar() As Integer, ByRef x As Integer)
Dim i As Integer
For i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar的下标上限
ar(i) = x
Next
x = 0
End Sub
则执行下列语句后，数组arr和变量data中的内容是什么？ C
Dim data As Integer = 2
MySub(arr, data)
A. arr={2,2,2,2,2} data=2  B. arr={1,1,1,1,1} data=2
C. arr={2,2,2,2,2} data=0  D. arr={1,1,1,1,1} data=0

12. 表达式CInt(True)的值为
A. False  B. True  C. 1  D. -1


13. 执行下列语句后，变量x的值为______B______
Dim x as Integer = 0
x = 3/2
A. 0  B. 1  C. 2  D. 3

14. 下列布尔表达式的值为_____A_______。
True and True Xor True and False
A. True  B. False  C. OrElse  D. AndAlso

15. 下列表达式的值为_____A_______。
True and 100+10*3<12^2
A. True  B. False  C. 130  D. 144

16. 分析下列程序，当运行结束后，在控制台上的输出是什么？ A
Public Function Increment(ByRef value as Integer) AS Integer
value += 1
return value
End Function
Public Sub Main()
Dim n1 as Integer = 1
Dim n2 as Integer = 1
Dim result as Boolean
If n1=0 AndAlso Increment(n2)=1 Then
result = True
Else
result = False
End If
Console.Writeln(“n1=”& n1 & “,n2=”&n2)
End Sub
A. n1=1,n2=1  B. n1=0,n2=2  C. n1=1,n2=2  D. n1=0,n2=1

17. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。则应使用下列哪种Do Loop循环语句？ A
A. Do Until expression ⋯⋯ Loop  B. Do ⋯⋯ Loop Until expression
C. Do While expression ⋯⋯ Loop  D. Do ⋯⋯ Loop While expression

18. 在使用OpenFileDialog对话框控件时，希望通过对话框只查C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？ B
A. “C++程序文件:*.CPP;C++头文件:*.H”
B. “C++程序文件|*.CPP|C++头文件|*.H”
C. “C++程序文件\*.CPP\C++头文件\*.H”
D. “C++程序文件->*.CPP;C++头文件->*.H”

19. TextBox控件的PasswordChar属性的作用是C
A. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息
B. 该属性是String类型，表示输入的隐藏信息的实际内容
C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息
D. 该属性在VB.NET中未使用

20. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False? C
A. ScrollBars  B. AcceptReturns  C. WordWrap  D. AutoSize

21. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求： B
1、前面必须带$符号；2、金额最多为999999元，且每3位用逗号分割,高位不保留0； 3、整数部分对10元取整，即个位必须为0；4、小数部分保留2位,必须为0 。
金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应为
A. $999,99#.00  B. $999,990.00  C. $###,##0.00  D. $###,##9.00

22. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？ A
A. IsNumeric  B. IsNothing  C. IsInteger  D. IsNumber

23. 类MyClass的定义如下： B
Public Class MyClass1
Private data as String

则关键字Private在类的定义中的作用是：
A. 限定成员变量data只在本模块内部可以使用；
B. 限定成员变量data仅在类MyClass的成员方法中可以访问；
C. 限定成员变量data仅仅可在类以及子类的成员方法中访问
D. 限定类MyClass仅在本模块中可以使用

24. 在VB.NET中，一般使用关键字_____A___来标示重载方法。
A. Overloads  B. Overrides  C. Shadows  D. Public


25. 对于VB.NET语句 Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发 D
A. 语法错误  B. 编译错误  C. 逻辑错误  D. 运行时错误

26. 当VB.NET程序出现逻辑错误后，可以使用___C_____工具来隔离并改正代码中的逻辑错误？
A. 命令行下的  B. 汇编工具
C. Visual Studio.NET的调试工具  D. 任何一种语言的调试工具

27. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在VB.NET中称为C
A. 语法错误  B. 运行时错误  C. 逻辑错误  D. 不明错误

28. 在调试VB.NET程序时，Visual Studio.NET的“自动窗口”可以查看当前行语句以及其前、
后各__C___语句中的变量，并可以修改其值。
A. 1行  B. 2行  C. 3行  D. 4行

29. Win窗体设计时，应该为工具栏的___B______事件编写事件处理程序，以响应用户点击工具栏的按钮？
A. Click  B. ButtonClick  C. KeyDown  D. MouseDown

30. Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的____C_____属性
A. Appearance  B. ImageList  C. Buttons  D. ShowToolTips

31. Win窗体的工具栏对象为ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1的____B_____属性
A. Appearance  B. ImageList  C. Buttons  D. ShowToolTips

32. 若不准备使用状态栏的窗格显示信息，则应该将_____A____属性设置为False。
A. ShowPanels  B. Panels  C. Enabled  D. Visible

33. 如要实现菜单功能，应向菜单项的__B_______事件添加代码？
A. Command  B. Click  C. Popup  D. Select
34．数学函数式Sin25°写成VB.NET表达式是    D  。
  A．sin25  B．sin(25)  C．sin(25)  D．sin(25*3．14/180)
35．下列哪组语句可以将变量A、B的值互换  B  。
A．A=B:B=A        B．A=A+B:B=A–B:A=A+B 
C．C=A:A=B:B=C    D．A=(A+B)/2:B=(A–B)/2
36．“x是小于100的非负数”，用VB.NET表达式表示正确的是  C  。
  A．0≤x＜100            B．0<=x<100
  C．0<=x And x< 00        D．0<=x Or x<100
37．VB.NET中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是  C  。
  A．修改了主窗体的caption属性     
B．修改了主窗体的ismainform属性
  C．修改了主窗体的name属性         
D．修改了main函数
38．在模块MyModule中定义的过程ShowHelpInfo，其访问权限为    C 。
Public Module MyModule
……
Sub ShowHelpInfo(String info)
MessageBox．Show(info)
End Sub
……
End Module   
  A．仅在MyModule中可以使用    B．在本项目中可以使用
  C．在本解决方案中可以使用      D．在派生模块中可以使用
39．在VB.NET中，无返回值的过程称为    A  过程。
  A．Sub    B．Function      C． Property      D．main
二、分析题
1．已知数组arr进行以下定义：
      Dim arr() as Integer = {1,1,1,1,1}
过程MySub定义如下：
Sub MySub(ByVal ar() As Integer, ByRef x As Integer)
Dim i As Integer
For i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar下列属于vb字符串函数是的下标上限
ar(i) = x
Next
x = 0
End Sub
则执行下列语句后，数组arr和变量data中的内容是 (arr（2，2，2，2，2）data=0        )。
Dim data As Integer = 2
MySub(arr, data)
 
2．以下代码：
        x = Microsoft．visualbasic．left(“gbc13”,1) & Mid(“pool”,2,2) & Microsoft．visualbasic．right(“god”,1)
变量x等于  gold    。
 
3．在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框，然后编写如下事件过程：
        Private Sub Button1_Click(ByVal sender As System．Object, ByVal e As System．EventArgs) Handles Button1．Click
        Dim n, x As Integer
        n = CInt(TextBox1．Text)
        Select Case n
        Case 1 To 20
              x = 10
        Case 2, 4, 6
              x = 20
        Case Is < 10
              x = 30
        Case 10
              x = 40
        End Select
        TextBox2．Text = x
        End Sub
    程序运行后，在文本框TextBox1中输入10，然后单击命令按钮，则在TextBox2中显示的内容是    10  。
 
4．窗体中有一个名称为Button1的命令按钮、一个Label1控件对象，编写如下事件过程：
Private Sub Button1_Click(ByVal sender As System．Object, ByVal e As
System．EventArgs) Handles Button1．Click
        Dim n As String, x, i, j As Integer
        x = 0
        n = InputBox("请输入一个大于1的整数", "输入框")
        For i = 1 To CInt(n)
        For j = 1 To i
          x = x + 1
        Next j
        Next i
        Label1．Text = CStr(x)
End Sub
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是 ( 6  )。
5．在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框，然后编写如下事件过程：
      Private Sub Button1_Click(ByVal sender As System．Object, ByVal e As
      System．EventArgs) Handles Button1．Click
        Dim x,y,z As Integer
        x=5: y=7: z=0
        extBox1．Text =x & y & z
        End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。