用数据库 数据库里如下做表
目前创新互联已为千余家的企业提供了网站建设、域名、网站空间、网站托管运营、企业网站设计、桑日网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
ID 题目 选项A 选项B 选项C 选项D 参考答案
。。。..
.......
每次选取固定数量的题作为一屏
如果需要讲详细一点,那就加我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：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数
实际测试成功，另外我对前三题很感兴趣，希望能够传给我
1、(X=a) And (X=b)
2、Msgbox()
3、13
4、实现窗体隐藏
5、11
6、Function
7、TextBox1.Focus()
8、.sln （似乎不区分语言，统一的）
9、方法
10、C# .NET （我也用它设计过:）
11、Form1.Close()
12、Windows 窗体
13、不知道
14、声明常量
15、s = a.ToString()
16、GetError
17、不知道
下一篇题目太猛了……
我是学软件的，以后也会从事这个行业，现在软件证书最吃香的当然是国家软件工程师了，不过有点难度，涉及的范围比较广，还要靠自己的努力，还有就是不知道你对什么编程语言感兴趣，如果对JAVA感兴趣，那就主要学这个，有专门的JAVA工程师的认证，如果是别的语言也有相应的证书，呵呵，相信你，加油，以后相互讨教，呵呵
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