大家帮帮我吧，在下先谢谢了。。。。。。这些题目看得我蛋疼啊

1．在Visual 的集成开发环境中，下面不属于该环境编程语言的是        。
A．VB            B．C++          C．Pascal           D．J#
2．在中，在窗体上显示控件的文本，用          属性设置。
A．Text           B．Name         C．Caption         D．Image
3．对于窗体，可改变窗体的边框性质的属性是        。
A．MaxButton       B．FormBorderStyle         C．Name        D．Left
4．若要使标签控件显示时不覆盖窗体的背景图案，要对        属性进行设置。
A．BackColor       B．BorderStyle        C．ForeColor        D．BackStyle
5．当运行程序时，系统自动执行启动窗体的      事件过程。
A．Load         B．Click           C．Unload         D．GotFocus
6．当文本框的ScrollBars属性设置了非None值，却没有效果，原因是          。
A．文本框中没有内容                    B．文本框的MultiLine属性为False
C．文本框的MultiLine属性为True         D．文本框的Locked属性为True
7．要判断在文本框中是否按了Enter键，应在文本框的       事件中判断。
A．Change        B．KeyDown       C．Click         D．KeyPress
8．在集成环境中创建应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是           。
A．窗体布局窗口       B．立即窗口         C．代码窗口          D．监视窗口
9．当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在    文件夹下。
A．My Documents          B．        C．\引例         D．Windows
10．将调试通过后生成的.exe可执行文件到其他机器上不能运行的主要原因是           。
A．运行的机器上无系统              B．缺少.frm窗体文件   
C．该可执行文件有病毒                      D．以上原因都不对
11．对初学者而言，调试程序方便、有效的手段是          。
A．在可疑的代码处设置断点点，逐语句跟踪       B．查看资料
C．通过“立即”窗口显示变量的值               D．找老师问原因
12．当需要上下文帮助时，选择要帮助的“难题”，然后按     键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
A．Help         B．F10           C．Esc             D．F1
13．__________属性用来设置窗体的背景图案。
A．BackgroundImage       B．GroundImage        C．Image             D．Icon
14．能够获得一个文本框中被选取文本的内容的属性是__________。
A．Text            B．SelectionLength    C．SelectedText        D． SelectionStart
15．关于数组的声明，正确的是__________。
A．Dim a(5) As Integer = {1,2,3,4,5,6}        B．Dim a(1,6) As Integer = {1,2,3,4,5,6}
C．Dim a( ) As Integer = {1,2,3,4,5,6}            D．Dim a(1 to 6) As Integer = {1,2,3,4,5,6}
16．如下数组声明语句中正确的是__________。
A．Dim a[3,4]  As Integer              B．Dim a(3,4)  As Integer
C．Dim a{3,4}  As Integer              D．Dim a(3 4)  As Integer
17．数组声明语句Dim a(4,0 To 2)中的数组a包含了_________个数组元素。
A.12                 B.15            C.16                 D.20
18．下面语句说明不合法的是_________。
A. Function f1%(ByVal n%)                    B. Sub s1(ByVal n As Integer )
C. Sub s1(ByVal n%(10))                      D. Function f1%()
19．下列子过程最合理的是             。
A．Sub f1(ByVal  n%())               B．Sub f1(ByRef  n%) As Integer
C．Function f1%（ByRef  f1%）       D．Function f1（ByVal  n%）
20．下列过程的定义正确的是__________。
A．Public Function a( ByVal b!) As Double     B．Public Sub a( ByVal b!) As Double
C．Public Function a( ByRef a!) As Double   
D．Public Function a( ByRef b!(5)) As Double
21．设有如下说明
Public Sub F1(ByRef n%)
  …
  n=3*n+4
  …
Eed Sub
Sub Button1_Click(……) Handles Button1. Click
Dim n%,m%
  n=3
  m=4
  ‘调用F1的语句
  …
Eed Sub
则在Button1_Click事件中有效的调用语句是            。
A．F1（n+m）    B．F1（m）   C．F1（5）     D．F1（m，n）
22．如下程序输出的结果是            。
       Dim i As Integer
        Dim a() As Integer = {1, 2, 3, 4, 5, 6, 7}
        For i = 0 To UBound(a)
            a(i) = a(i) * a(i)
        Next i
        MsgBox(a(i))
A．49     B．0        C．不确定          D．程序出错   
23．如下程序输出的结果是            。
Private Sub Button1_Click(……) Handles Button1.Click
        Dim i%, j%
        Dim a() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, b(3, 3) As Integer
        Label1.Text = ""
        For i = 1 To 3
            Label1.Text &= Space(i * 3)
            For j = i To 3
                b(i, j) = a(i * j)
                Label1.Text &= Space(6 - Len(b(i, j))) & b(i, j)
            Next
            Label1.Text &= vbCrLf
        Next
    End Sub
A． 1  2  3        B．1         C．1  4  7       D．1  2  3   
         4  5  6           4  5         2  4  6              4  6
         7  8  9           7  8  9      3  6  9                 9
24．在过程中定义的变量，若希望在离开该过程后还能保存过程中局部变量的值，则应使用关键字           在过程中定义过程级变量。
A．Dim      B．Private      C．Public    D．Static
25．如下程序输出的结果是            。
   Private Sub Button1_Click(……) Handles Button1.Click
        MsgBox(p1(3.0, 7))
    End Sub
    Public Function p1!(ByVal x!, ByVal n%)
        If n = 0 Then
            p1 = 1
        Else
            If n Mod 2 = 1 Then
                p1 = x * p1(x, n \ 2)
            Else
                p1 = p1(x, n \ 2) \ x
            End If
        End If
    End Function
A．18       B．7        C．14          D．27   
26．如下程序，运行后各变量的值依次为           。
  Public Sub Proc(ByRef a%())
     Static i%
     Do
        a(i) = a(i) + a(i + 1)
        i = i + 1
      Loop While i < 2
  End Sub
  Sub Button_Click(……) Handles Button1.click
      Dim m%,i%,x%(10)
      For i=0 to 4:x(i)=i+1:Next i
      For i=1 to 2:Call proc(x):Next i
      For i=0 to 4:MsgBox(x(i)):Next i
  End sub
A．3 4 7 5 6       B．3 5 7 4 5       C．2 3 4 4 5        D． 4 5 6 7 8