vb.net文本运算 vbnet writeline

我想要在vb.net的环境下实现显示一个输入在文本框的运算表达式的结果，请问该如何实现

简单四则运算转换vb.net文本运算，查下vbscriptvb.net文本运算的转换字符串为算式就有例子。

简单的解决不vb.net文本运算了的vb.net文本运算，自己写逐字分析字符串，然后换成计算。

相关问答

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

Dim BDS, JSS, I As Integer

Private Sub Command1_Click()

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

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), "+")   '取出运算符二边的数据vb.net文本运算，存储在 JSS 数组中，下同

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

  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

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

Q2: 如何实现VB.NET文字宽度计算

Dim MyGraphics As Graphics = Me.CreateGraphics

'定义使用vb.net文本运算的字体

Dim Myfont As New Font("宋体", 9)

'获取文本的大小。

Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)

'显示宽和高

MsgBox(Mystring_Size1.Width "vb.net文本运算：" Mystring_Size1.Height)

关于vb.net文本运算和vbnet writeline的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。