选择题
成都创新互联是一家集网站建设,三山企业网站建设,三山品牌网站建设,网站定制,三山网站建设报价,网络营销,网络优化,三山网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
1 下面4个选项中属于字符型数据的是( )
A "Hello" B Hello' C Hello D #Hello
2 初学者、业余爱好者在开发基于windows的应用程序时适宜使用的开发工具是（）。
A Visual Studio 2005 Express Edition
B Visual Studio 2005 Team Test Edition
C Visual Studio 2005 Team Developer Edition
D Visual Studio 2005 Team Architect Edition
3 若dim a() as integer={1,2,3,4,5},则a.length的值（）
A 是4 B 是5 C Null D 是6
4 定义字符串变量：
Dim strInput As String=“VisualBasic2005”
Dim strSubStr1 As String
计算子串：strSubStr1 = strInput.Remove(2, 4)
则strInput的值为：
A VisualBasic B ViBasic2005 C sual D alBa
5 要使TextBox控件能够显示多行，应设置（）属性为True
A VisibleB Enabled C MultiLine D Text
6 下列赋值语句正确的是( )
A A=B+CB –B=A C 2=A+B D B+C=A
7 当在文本框中输入“ABCD”时，标签上显示的是（）。
Sub TextBox1_TextChanged(……) Handles TextBox1.TextChanged
Label1.Text =TextBox1.Text
End Sub
A ABCD B A C AABABCABCD
B
C
D D A
Ab
ABC
ABCD
8 Sub过程与Function过程最根本的区别是()
A Function过程可以有形参，Sub过程不可以
B Sub过程可以直接使用过程名调用，而Function过程不可以
C Sub过程不能返回值，而Function过程能返回值
D 两种过程的参数传递方式不同
9 对下列程序段，说法正确的是()###btnQuit.SetBounds(10,80,200,50)
A btnQuit对象的左边界距窗体的左边界是10像素，上边界距窗体的上边界为80像素
B btnQuit对象的左边界距屏幕的左边界为200像素，上边界距屏幕的上边界为50像素
C btnQuit对象的宽度为200像素，高度为80像素
D btnQuit对象的高度为80像素，宽度为200像素
10 Dim str1,str2 As String ### str1="北京奥运2008" ### str2=str1.Substring(0,4) ### 那么str2的值为（ ）
A 北京 B 北京奥运 C 奥运 D 是2008
11 按照匈牙利表示法，前缀为lbl表示哪一个控件。
A Button B Label C ListBox D TextBox
12 数学关系式3x10表示成正确的vb.net表达式为
A 3=x=10 B 3x and x10 C x3 or x10 D 3x x10
13 要使文本框中的文字不能修改，应对（）属性进行设置。
A Locked B Visible C Enable D ReadOnly
14 按照匈牙利表示法，TextBox控件的前缀是（）
A btn B lst C mnu D txt
15 调用子过程后可以通过形参来改变两个实参值的语句是（）。
A Sub f1(ByVal n as integer,ByVal m as Integer)
B Sub f2(ByRef n as integer,ByVal m as Integer)
C Sub f3(ByRef n as integer,ByRef m as Integer)
D Sub f4(ByVal n as integer,ByRef m as Integer)
16 数学关系式x10或者x0表示成正确的vb.net表达式为
A 10x0 B x0 and x10 C x0 or x10 D 0x x10
17 可以同时删除字符串前导和尾部空白的函数是( )
A Ltrim B Rtrim C Trim D Mid
18 以下变量名是正确的（）
A 是_a1 B 是123a C 是For D 是as
19 下面程序求两个数中的小数（）不正确
A min1=iif(xy,x,y)
B if xy then ###min1=x###else###min1=y###end
C ifmin1=IIF(xy,y,x)
D if yx then ###min1=y ###end if###min1=x
20 下列程序段的执行后，变量a,k的值分别为
Dim a,k as integer
a=5
For k=1 To 0
a=a * k
Next k
A -1 6 B -1 16 C 1 5 D 11 21
AABBC ACCAB BBDDC CCADC
选择题百度文库中还有好多
操作题
1．请编写函数fun()，其功能是：计算2-500之间（包括2，500）素数的个数,并将其作为返回值。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
2．请编写函数fun(a)，其函数功能是：计算a的阶乘，并返回结果。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）
3．．请编写函数f(x)，其功能是：判断一个大于或等于3的正整数是否是素数，
如果是素数函数返回1，否则返回0。例如：输入37，函数返回1；输入40，函数返回0。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“判断”按钮）。
4．请编写函数f(a)，其功能是：计算一个长度为5的一维整形数组a中最大值与最小值的差，并作为函数的返回值。
例如：从文本框中输入1 5 8 9 2，差为8。
数组中的值需要自己在文本框中输入。
注意：不得改动程序已有的任何代码。编写完成后至少执行一次你的程序以验证正确性（运行后点击“计算”按钮）。
如果需要讲详细一点,那就加我QQ531412815
第4题,潜在的错误,这里的错误不是常规错误,属于那种只有在运行是才知道的错误:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永远不会查找下面的错误
Catch ex As ArgumentNullException
MsgBox("Input Test box cannot be null.")
Catch ex As OverflowException
MsgBox("Input Test box 2 cannot be zero!")
Catch ex As FormatException
MsgBox("Input Test box should be numeric format!")
结构化错误处理永远达不到下面这里,因为Catch ex As Exception 已经处理了所有错误.
第5题：
00123
1000 60.50
2000 60.00
3500 59.50
---- -----
6500 60.00
00124
3000 60.50
---- -----
3000 60.50
00125
2000 59.50
1000 58.00
---- -----
3000 58.75
就是按照Ref_ID 分类，有一种方法就是按照Ref_ID 分组，也就是使用SQL语言，不过这里需要该很多，
我就不用了，那么就稍微复杂一点，使用FIND方法,不过有一点必须注意REF_ID必须排序，因为数据库中
已经排好序了，我就不用排了。
Dim rst as ADODB.Recordset
dim refID as string
Rst = GetRecordset
Do While Not rst.EOF
refid=rst(0)
Console.writeline(rst.Fields("Ref_ID")
do
Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))
rst.MoveNext()
loop while rst(0)=refid
Loop
第6题：就是从一个集合中取元素输出的问题
比较简单的办法就是使用递归
以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会,所以就将就一下)
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
-----------------------------------------------------------------------------------
Public Sub Combination(lstStr As String)
Dim i As Byte
Dim j As Byte
Dim StrLen As Byte
StrLen = Len(lstStr)
ReDim bUse(1 To StrLen) As Boolean
ReDim lStr(1 To StrLen) As String * 1
For i = 1 To StrLen
lStr(i) = Mid(lstStr, i, 1)
Next
For i = 1 To StrLen
nCount = i
GoWith StrLen, 1, 0, ""
Next
End Sub
------------------------------------------------------------------------------------
Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)
Dim i As Byte
If Deep = nCount Then
Debug.Print lastStr
Exit Sub
End If
For i = nStart To ECount
If Not bUse(i) Then
bUse(i) = True
GoWith ECount, i, Deep + 1, lastStr lStr(i)
bUse(i) = False
End If
Next
End Sub
--------------------------------------------------------------------------------------
Private Sub Form_Load()
Combination "wxyz"
End Sub
--------------------------------------------------------------------------------------
其中GOWITH是真正的递归函数,而Combination是用来预处理字符的
全局变量:
BUSE：用来确定是否使用过这个元素
lSTR：用来保存字符元素
NCOUNT：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数
实际测试成功，另外我对前三题很感兴趣，希望能够传给我
Public Class Form3
Dim A(19) As Integer '声明数组20个
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = ""
Label3.Text = ""
Randomize()
Dim i As Integer
For i = 0 To UBound(A)
A(i) = CInt(Rnd() * 400 + 100)'随机数100~500
Label1.Text = A(i) " "
If (i + 1) Mod 5 = 0 Then '每5个数就换行
Label1.Text = vbCrLf
End If
Next
Dim mina As Integer
mina = Amin(A)
If mina 0 Then
Label3.Text = "比第一个数组元素值大的数组元素中值最小的是：" mina
Else
Label3.Text = "没有比第一个数组元素大数！"
End If
End Sub
Function Amin(ByVal Aa() As Integer) As Integer
Dim first As Integer
Dim tmpmin As Integer
Dim j, i As Integer
Dim tmpa() As Integer = A
first = A(0) '第一个数出来
For j = 1 To UBound(tmpa) ’从第二个数冒泡
tmpmin = tmpa(j)
For i = j To UBound(tmpa)
If tmpa(i) tmpmin Then '从小数到大数冒泡
tmpa(j) = tmpa(i)
tmpa(i) = tmpmin
tmpmin = tmpa(j)
End If
Next
Next
For i = 0 To UBound(tmpa)
If tmpa(i) first Then ’从小数开始比较，如果小比第一个元数大就退出
tmpmin = tmpa(i) ' 取到比第一个元数大的数
Exit For
End If
Next
Return tmpmin '返回值
End Function
End Class
1.目前.NET开发环境提供了那些程序设计语言的开发功能：visual C#和visual basic ，其实还有J#2.JIT是什么的缩写：Just-In-Time3.对象的什么属性在程序运行过程中，只能被引用，不能被修改：不记得了
4.要使某个控件在程序启动后，能看见，但不能用，应使该控件的enabled属性为：false
5.程序启动后，要使某个控件获得焦点，应使用该控件的 Focus 方法
6.checkbox控件的 Checked 属性决定了该控件的状态
7.要使textbox控件在程序启动后，只能显示只定内容，不能修改，应使readonly属性值为：true8.滚动条控件的 Value 属性值，反映了滚动条滑快的当前取值
9.改变窗体的标题，应修改窗体的 Text 属性
10.程序运行过程中，要向listbox控件中添加一项，应该使用 Items.Add 方法
重庆分公司
重庆分公司
