vb.net 數(shù)組中的重復項

我還在床上，就只給你思路吧

我們提供的服務有：成都網(wǎng)站建設、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、含山ssl等。為超過千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的含山網(wǎng)站制作公司

我是自己寫了個函數(shù)，將數(shù)組傳入并返回一個新數(shù)組列表

子函數(shù)中，先將數(shù)組排序sort函數(shù)，然后有兩個循環(huán)，外循環(huán)從0到Length，變量i，內循環(huán)從i到Length，判斷第i個數(shù)是否與包括自身的后續(xù)數(shù)相同，相同就有變量加1，內循環(huán)結束條件是找到第一個不同的數(shù)，并將外循環(huán)i復植為內循環(huán)中第一個不同的數(shù)的下表。。。

這個是思路，如果不能理解再再追加我給你代碼，不過建議自己試試

你看寫這個，和你的要求差不多。。。;oldq=1

有程序的~~~你可以參考下~~~

vb里面num是什么意思

在VB中是字符串連接 '' "雙引號括起來的是字符串 沒有括的是變量 而num是一個integer變量,由于沒有帶雙引號 因此不是直接取其地址引用這個字符串 而是作為變量 先對其求值 再引用

簡單的來說 就是字符串是通過地址引用的 而雙引號括起來的"字符串" 就是一個直接的地址 變量也是一個地址 變量地址的內容和雙引號地址的內容都是字符串 這就統(tǒng)一了

vb.net 中 sql查詢出來的值，比如books中的remainnum,賦給一個變量 num，再將num-1之后update到remainnum中

Dim num As Integer

Dim connstr, insertcmd, selectcmd As String

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\360data\重要數(shù)據(jù)\我的文檔\hd.mdb"

Dim conn As OleDbConnection

Dim cmd, cmd1 As OleDbCommand

conn = New OleDbConnection(connstr)

Dim r As OleDbDataReader

conn.Open()

insertcmd = "insert into returnbooks (aid,aname,ISBN,bname,renum,reday) values("

Val(ComboBox1.Text) ",'"

TextBox2.Text "','"

ComboBox2.Text "','"

TextBox2.Text "',"

Val(TextBox3.Text) ",'"

CType(TextBox4.Text, Date) "' )"

cmd = New OleDbCommand(insertcmd, conn)

cmd.ExecuteNonQuery()

updatecmd = "update books set remainnum=" Val(num) "-" Val(TextBox3.Text) " where ISBN='" ComboBox2.Text "'"

cmd = New OleDbCommand(updatecmd, conn)

cmd.ExecuteNonQuery()

updatecmd = "select remainnum as num from books where ISBN= '" ComboBox2.Text "'"

cmd = New OleDbCommand(updatecmd, conn)

cmd.ExecuteNonQuery()

updatecom = "update books set remainnum=num+ " Val(TextBox3.Text) ""

cmd = New OleDbCommand(updatecmd, conn)

cmd.ExecuteNonQuery()

selectcmd = "select remainnum from books where ISBN='" ComboBox2.Text "'"

cmd1 = New OleDbCommand(selectcmd, conn)

r = cmd1.ExecuteReader()

If (r.Read()) Then '如果sql查詢到了數(shù)據(jù)

num = r.GetInt32(0)

End If

conn.Close()

/*注意代碼的格式，不然改起來太費時間*/

VB.net，小數(shù)點直接進一位的函數(shù)?

'自定義一個函數(shù)：功能是給小數(shù)直接進一位

'num 　要操作的小數(shù)

'n　保留幾位小數(shù)，

Function getNumber(num As Double, n As Integer) As Double

Dim a As Double

a = Int(num * (10 ^ n)) / (10 ^ n)

If a = num Then

getNumber = a

Else

getNumber = a + 1 / (10 ^ n)

End If

End Function

-------------------------

調用一下：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

使用vb.net的字符串

用字符串保存兩個數(shù)據(jù)，當然只有你這種辦法，另外提供你其它思路：

1. flexcell增加兩列，這兩列隱藏不顯示，額外數(shù)據(jù)可以從這兩列讀取

2. 用自定義類型數(shù)組，保存這兩列數(shù)據(jù)，數(shù)組順序和表格一樣，或者數(shù)組中增加一個ID元素，與表格對應