13518219792
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
成都创新互联公司于2013年创立，先为交城等服务建站，交城等地企业，进行企业商务咨询服务。为交城企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
public structure struc
public name as string
public shengao as integer
……
end structure
public items as struc()
readonly property people(argname as string) as struc
get
for each i as struc in items
if i.name=argname then reture i
next
end get
end property
struc可以用class，property可以用function，people通过参数返回一个对象，对象可以来源于某个数组的某个元素，也可以是其他来源。
people也可以是类的构造方法，而shengao等是类的成员，但你的写法是错误的，构造方法必须用new实例化
注意：参数为动态数组；
Private Function MyF(ByRef d() As Integer)
ReDim d(4, 13) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer
For i = 1 To 4
MyNum(i) = 0
Next i
Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i
End Function
首先在窗体上添加Button1，ListBox1，下面是完整代码
Public Class Form1
Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序
Dim temp As Double
Dim i, j As Integer
For i = 0 To arr.GetUpperBound(0) - 1
For j = i + 1 To arr.GetUpperBound(0) - 1
If arr(i) arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '调用
Dim arr() As Integer = {55, 22, 33, 11, 77, 88}
BubbleSort(arr) '调用排序过程
Me.ListBox1.Items.Clear()
For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End Sub
End Class
//太蛋疼了，我没注意到是vb.net，写成C#的了。。。。
//也许不是太完美，但功能上还是实现了
//protected void Timer1_Tick(object sender, EventArgs e)
//{
// Random rnd = new Random((int)DateTime.Now.Ticks);
// double result = rnd.NextDouble() * 3.0;
// if (result 1.1)
// {
// result += 1.1;
// }
// Label1.Text = string.Format("{0:0.0}", result);
//}
'下面这个就是VB.NET的了
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Randomize()
Dim result As Single = Rnd() * 3.0
If (result 1.1) Then
result += 1.1
End If
Label1.Text = String.Format("{0:0.0}", result)
End Sub
Public Function getmastt(aUser As Variant, scustid As Variant, ssaleas As Variant) As ADODB.Recordset
Dim adoRs As New ADODB.Recordset
Dim sTableName(0) As String, sFullName(0) As String, sDsn(0) As String
Dim sWhere As String
Set oGetPath = CreateObject("M2000UTIL.GETPATH")
sTableName(0) = "QCHKAPPCON"
oGetPath.getpath aUser, sTableName(), Null, sFullName(), sDsn()
sWhere = ""
sWhere = sWhere + " and a.custid= '" scustid "' and a.saleas='" ssaleas "'"
sSql = "select * from " sFullName(0) " a where 1=1 " sWhere
sSql = sSql + " order by a.CUSTID"
With adoRs
.CursorLocation = adUseClientBatch
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.Open sSql, sDsn(0)
End With
Set getmastt = adoRs
Set adoRs = Nothing
End Function
