包含vb點(diǎn)虐 num的詞條

VB點(diǎn)虐 ，小數(shù)點(diǎn)直接進(jìn)一位的函數(shù)?

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

從事多線服務(wù)器托管，服務(wù)器租用，云主機(jī)，虛擬主機(jī)，主機(jī)域名，CDN，網(wǎng)絡(luò)代維等服務(wù)。

'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

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

調(diào)用一下：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

vb點(diǎn)虐 提取特定字符串

在VB中是這樣的，沒學(xué)過VB點(diǎn)虐 ，你變換一下就可以了

Option

Explicit

Private

Sub

Command1_Click()

Dim

Num(2)

Num(0)

=

Val(Left(Label1.Caption,

2))

Num(1)

=

Val(Mid(Label1.Caption,

3,

1))

Num(2)

=

Val(Right(Label1.Caption,

2))

MsgBox

"Num(0)="

Num(0)

vbCrLf

"Num(1)="

Num(1)

vbCrLf

"Num(2)="

Num(2)

'如果想測(cè)試是不是可以計(jì)算，可以用這一句

'MsgBox

"Num(0)+1="

Num(0)

+

1

vbCrLf

"Num(1)+1="

Num(1)

+

1

vbCrLf

"Num(2)+1="

Num(2)

+

1

End

Sub

Private

Sub

Form_Load()

Label1.Caption

=

"12345"

End

Sub

使用vb點(diǎn)虐 的字符串

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

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

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

vb點(diǎn)虐 中 sql查詢出來的值，比如books中的remainnum,賦給一個(gè)變量 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()

/*注意代碼的格式，不然改起來太費(fèi)時(shí)間*/

標(biāo)題名稱：包含vb點(diǎn)虐 num的詞條
網(wǎng)頁(yè)路徑：http://muchs.cn/article4/ddcggie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、動(dòng)態(tài)網(wǎng)站、品牌網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)