vb点虐 的三元运算符怎么写

Private Sub Command1_Click()

成都创新互联公司是一家集网站建设,昆明企业网站建设,昆明品牌网站建设,网站定制,昆明网站建设报价,网络营销,网络优化,昆明网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

x = Val(Text1.Text)

y = Val(Text2.Text)

Max = IIf(x y, x, y)

Print "Max="; Max

End Sub

vb怎么实现文本多行加减法运算

Dim BDS, JSS, I As Integer

Private Sub Command1_Click()

Dim kkl() As String   '取出各行表达式的运算符的数值

ReDim kkl(UBound(BDS))

For I = 0 To UBound(BDS)

kkl(I) = Right(Left(BDS(I), 3), 1)   '取出表达式的运算符

Select Case kkl(I)

Case "+"

JSS = Split(BDS(I), "+")   '取出运算符二边的数据，存储在 JSS 数组中，下同

Text2.Text = Text2.Text  Val(JSS(0)) + Val(JSS(1))  vbCrLf    '在文本框2中显示计算结果。数据必须转换为数字数据！，下同

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) '将数据存储到 BDS 数组中

End Sub

这个程序符合二位数与二位数的+、-、*、/ 的计算，比较简单。

vb点虐 如何计算textbox中的运算

在textbox中的是字符串，所以，你需要对字符串进行处理。

首先获取到字符串的数字，存储在两个变量中然后取得操作符，通过select case或if elif进行判断，从而在textbox2中显示。

分享名称：vb点虐 多元运算 vb中多个窗体如何运行
本文来源：http://scyanting.com/article/ddjseie.html