重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net计算符号,vb计算表达式

VB.NET中怎样实现位运算

TextBox1.Text = 7 And 10

成都创新互联公司主要从事网站设计、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务冷水滩,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

TextBox1.Text = 7 Or 10

TextBox1.Text = 7 Xor 10

TextBox1.Text = Not 10

TextBox1.Text = 7  10

TextBox1.Text = 7  10

如这些,我在VB.Net中也找不到shl和shr运算符~

不过可以通过"自定义运算符"来写出我们想要的功能

vb.net 四则运算代码

Dim s1!, s2!, a$ '为小数点的叠加,s1,s2必须定义为单精度型

Dim flag As Boolean 'flag它是过程及的变量,在通用里必须声明

'在数字按钮控件单击数组单击事件中获取操作数(没有区分是哪一个操作数)

Private Sub Command1_Click(Index As Integer)

x = Text1.Text

If flag = True Or x = "0" Then '查看数字是否输入完毕或者是否清零了

Text1.Text = CStr(Index) 'CStr将数值转换字符

Else

Text1.Text = Text1.Text + CStr(Index) '"+"在这里这个是对字符串的操作的叠加,CStr(Index)是接的数据

End If

flag = False '时刻准备数字的输入

End Sub

'2.单击运算符,确定s1,并且要选定运算

Private Sub Command2_Click(Index As Integer)

flag = True

s1 = Val(Text1.Text)

Select Case Index

Case 0

a = "+"

Case 1

a = "-"

Case 2

a = "*"

Case 3

a = "/"

End Select

End Sub

'3."="的单击事件

Private Sub Command3_Click()

flag = True

s2 = Val(Text1.Text)

Select Case a

Case "+"

Text1.Text = s1 + s2

Case "-"

Text1.Text = s1 - s2

Case "*"

Text1.Text = s1 * s2

Case "/"

Text1.Text = s1 / s2 '分母不能为0

End Select

s1 = 0: s2 = 0: a = ""

End Sub

'4.清屏

Private Sub Command4_Click()

Text1.Text = "0"

s1 = 0

s2 = 0

a = ""

flag = False

End Sub

'5.删除最后输入的一个字符,换句话说,将本文框中的字符串取字符(从左往右取left(string,length)),将最后一个字符不取就先行

Private Sub Command5_Click()

If Text1.Text = "" Then

Else

Command5.Enabled = True

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

'len求字符串的长度,left(text1.len(text1)-1减1是取字符串从左往右减去一个字符串

End If

End Sub

'小数点 1)显示出"."(注意前面输入过的整数必须显示) 2)小数后能继续接受数字的输入

Private Sub Command6_Click()

Text1 = Text1 "."

End Sub

'7加入正负号--单击“+、-”,产生一个"-",而且处于一种等待数字输入的一种状态

Private Sub Command7_Click()

Dim temp As Double

temp = -Val(Text1.Text)

Text1.Text = temp

If d = " " Then s1 = temp Else s2 = temp

End Sub

Private Sub Command8_Click() '退出

End

End Sub

Private Sub Form_Load() '窗体初始化

Text1.Text = 0

Text1.Locked = True

End Sub

vb.net 的三元运算符怎么写

Private Sub Command1_Click()

x = Val(Text1.Text)

y = Val(Text2.Text)

Max = IIf(x y, x, y)

Print "Max="; Max

End Sub

vb.net中如何随机出现运算符“+”“-”“*”“/“

你可以换个思路嘛,随机数只能显示数字,但也可以转换为符号

Dim a

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Randomize()

a = Int(Rnd() * 4) + 1

Select Case a

Case 1

TextBox1.Text = "+"

Case 2

TextBox1.Text = "-"

Case 3

TextBox1.Text = "*"

Case 4

TextBox1.Text = "/"

End Select。

VB.NET怎么位运算?

注意只能对整型执行按位运算。浮点值必须转换为整型后,才能执行按位运算。按位运算采用二进制(以 2 为基)形式计算两个整数值。它们比较对应位置上的位,然后基于比较的结果赋值。下面的示例演示了 And 运算符。复制Dim x As Integerx = 3 And 5 前面的示例将 x 的值设置为 1。发生这种情况的原因如下:这些值以二进制形式处理:二进制格式的 3 为 011二进制格式的 5 为 101And 运算符比较这些二进制表示方式,一次比较一个二进制位置(位)。如果给定位置的两个位都为 1,则将 1 放在结果中的该位置。如果任何一个位是 0,则将 0 放在结果中的该位置。在前面的示例中,按如下所示计算结果:011(二进制格式的 3)101(二进制格式的 5)001(二进制格式的计算结果)计算结果以十进制形式处理。值 001 是 1 的二进制表示形式,因此 x = 1。除了在任何一个比较位是 1 或两个比较位都是 1 的情况下将 1 赋予结果位以外,按位 Or 运算与此类似。Xor 在比较的位正好只有一个是 1(而不是两者都是 1)时将 1 赋给结果位。Not 采用单个操作数并反转所有位(包括符号位),然后将该值赋予结果。这意味着,对于有符号正数,Not 始终返回负值,而对于负数,Not 始终返回正值或零。AndAlso 和OrElse 运算符不支持按位运算。 追问: 好复杂啊...还是不会,还有整数怎么转换为二进制数? 回答: 为什么一定要用位运算呢,你那个乘法只能通过左移操作符“ ”来进行,而左移一次代表乘以2,要是乘以一个小数,就必须先化成2的n次方,不够再用加减法调整,很麻烦啊,没必要用位运算啊。。。 追问: 因为我要进行大量的运算,但速度要快,所有用位运算...我也不想啊.. 回答: 那就不该用VB 啊,c/c++在执行效率上是没话说的。 追问: 问题就是不会嘛... 回答: 那你上csdn上发帖效果应该不错 追问: CSDN发了,我发在高性能运算,没人... 回答: 耐心一些,或者你应该发到VB.NET论坛那里。。。 追问: 额..只能这样了... 提问者 的感言: 太复杂了..算了 2010-11-08

vb.net中把两个参数相乘用什么符号

vb.net中把两个参数相乘用什么符号

vb.net中把两个参数相乘用 * 符号来表示相乘,用 / 符号表示相除。


本文标题:vb.net计算符号,vb计算表达式
URL标题:http://cqcxhl.com/article/heoddg.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP