vb點(diǎn)虐 的三元運(yùn)算符怎么寫

Private Sub Command1_Click()

成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),昆明企業(yè)網(wǎng)站建設(shè),昆明品牌網(wǎng)站建設(shè),網(wǎng)站定制,昆明網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,昆明網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

x = Val(Text1.Text)

y = Val(Text2.Text)

Max = IIf(x y, x, y)

Print "Max="; Max

End Sub

vb怎么實(shí)現(xiàn)文本多行加減法運(yùn)算

Dim?BDS,?JSS,?I?As?Integer

Private?Sub?Command1_Click()

Dim?kkl()?As?String???'取出各行表達(dá)式的運(yùn)算符的數(shù)值

ReDim?kkl(UBound(BDS))

For?I?=?0?To?UBound(BDS)

kkl(I)?=?Right(Left(BDS(I),?3),?1)???'取出表達(dá)式的運(yùn)算符

Select?Case?kkl(I)

Case?"+"

JSS?=?Split(BDS(I),?"+")???'取出運(yùn)算符二邊的數(shù)據(jù)，存儲(chǔ)在?JSS?數(shù)組中，下同

Text2.Text?=?Text2.Text??Val(JSS(0))?+?Val(JSS(1))??vbCrLf????'在文本框2中顯示計(jì)算結(jié)果。數(shù)據(jù)必須轉(zhuǎn)換為數(shù)字?jǐn)?shù)據(jù)！，下同

Case?"-"

JSS?=?Split(BDS(I),?"-")

Text2.Text?=?Text2.Text??Val(JSS(0))?-?Val(JSS(1))??vbCrLf

Case?"*"

JSS?=?Split(BDS(I),?"*")

Text2.Text?=?Text2.Text??Val(JSS(0))?*?Val(JSS(1))??vbCrLf

Case?"/"

JSS?=?Split(BDS(I),?"/")

Text2.Text?=?Text2.Text??Val(JSS(0))?/?Val(JSS(1))??vbCrLf

End?Select

Next?I

End?Sub

Private?Sub?Form_Load()

Text1.Text?=?Text1.Text??"33*33"??vbCrLf

Text1.Text?=?Text1.Text??"33+33"??vbCrLf

Text1.Text?=?Text1.Text??"33*33"??vbCrLf

BDS?=?Split(Text1.Text,?vbCrLf)?'將數(shù)據(jù)存儲(chǔ)到?BDS?數(shù)組中

End?Sub

這個(gè)程序符合二位數(shù)與二位數(shù)的+、-、*、/ 的計(jì)算，比較簡(jiǎn)單。

vb點(diǎn)虐 如何計(jì)算textbox中的運(yùn)算

在textbox中的是字符串，所以，你需要對(duì)字符串進(jìn)行處理。

首先獲取到字符串的數(shù)字，存儲(chǔ)在兩個(gè)變量中然后取得操作符，通過select case或if elif進(jìn)行判斷，從而在textbox2中顯示。