UBound 函数
目前创新互联已为上千多家的企业提供了网站建设、域名、虚拟空间、网站托管维护、企业网站设计、岳塘网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
UBound 函数示例
该示例使用 UBound 函数，确定数组的指定维的最大可用下标。
Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1) '返回 10。
Upper = UBound(MyArray, 3) '返回 20。
Upper = UBound(AnyArray) '返回 10。
‘这个是可以选择范围的查找
Public Class Form1
'一个大于1的自然数，除了1和它本身外，不能被整除以其他自然数（质数），换句话说就是该数除了1和它本身以外不再有其他的因数
' 章鱼哥 3107073263
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PD As Boolean = True
TextBox1.Clear() '首先清空文本框，这里面将放置符合条件的素数
If NumericUpDown1.Value NumericUpDown2.Value Then '从小到大
For i = NumericUpDown1.Value To NumericUpDown2.Value '循坏判断所有数
For j = 2 To i - 1 '内循环是除了1和它本身的
If i Mod j = 0 Then '判断是否能被除了1和自身以为的 比自身小的数整除
PD = False '如果能被整除，将PD 设置为False
Exit For '退出里层For 循环
Else
PD = True
End If
Next
If PD Then '如果PD为True ，则为素数
TextBox1.Text = i " "
End If
Next
End If
End Sub
End Class
判断方法:
把一个数分解成不同质因数相乘积的形式的不个数来判断。
判断举例:64可以分解成:1X64=2X32=4X16=8X8=1X2X4X8
故:64有1、2、4、8等四个因数组成。
在窗体上,放一个按钮,一个文本框,三个标签
代码如下
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "该数为偶数！"
Label2.Caption = Label2.Caption +1
Else
Label1.Caption = "该数为奇数！"
Label3.Caption = Label3.Caption +1
End If
End Sub