还是用数组液缺比较虚如好吧，按钮数组
创新互联服务项目包括汕头网站建设、汕头网站制作、汕头网页制作以及汕头网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，汕头网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到汕头省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
然后call Button_Click(5，Nothing, Nothing) 就可以了
按钮数组可以先创建一差埋启个按钮，然后复制粘贴即可
如果需要讲详细一点,那就加我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：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数
实际测试成功，另外我对前三题很感兴趣，希望能够传给我
一、下面的 _A___ 是合法的变量名。
A) X_yz
B) 123abc
C) Integer
D) X-Y
二、下面的 __A__ 是合法的单精度型变量。
A) num!
B) sum%
C) xinte$
D) mm#
三、下列可以作为变量名的是 _A___。
A) Chinese$
B) X(X+Y)
C) 123BOOK
D) BOOK-1
四、以下各项，可以作为变量名的是 __A__。
A) English
B) 11_English
C) 123.45
D) English-1
五、在 VB.NET 中，认乎指尺为 __B__ 中的两个变量名是相同的岁高。
A) English 和 EngUsh
B) English 和 ENGLish
C) English 和 Engl
D) English 和 England
六、语句 Dim MyVar 定义的变量 MyVar 为 __D__ 类型的变量。
A) Integer
B) String
C) Boolean
D) Object
七、语句 Dim intX，intY As Double 中所定义的变量 intX 是 __B__ 变量。
A) String
B) Object
C) Single
D) Double
八、下列符号常量的声明中，不合法的是 _B___。
A) Const A As Single = 1.5
B) Const A As Double = Sin(1)
C) Const A = "OK"
D) Const A As Integer = 1.5
九、在默认的状态下，系统对使用的变量要求显式声明，若要对变量不声明而直接使用（隐式声明），须在模块中所有程序代码的最逗缺前面加入语句 _B___。
A) Option Base 0
B) Option Explicit Off
C) Option Explicit On
D) Option Compare
十、下述说法不正确的是 __B__。
A) 变量名的长度不能超过1023个字符
B) 变量名可以包含小数点或者内嵌的类型声明字符
C) 变量名不能使用关键字
D) 变量名的第一个字符必须是字母或汉字