VB的运算顺序是:先乘除、后加减,有括号的先算括号内,有负号的先算负号.
请你比较一下这个运算中x和y的值:
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
这样就会发现,你的代码中括号的位置错了.
正确的应该是: Math.Sqrt((n + 1) / n - 1)
TextBox1.Text?=?Not?10
如这些,我在VB.Net中也找不到shl和shr运算符~
不过可以通过"自定义运算符"来写出我们想要的功能
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
flag = True
s1 = Val(Text1.Text)
Select Case Index
Case 0
a = "+"
Case 1
a = "-"
a = "*"
a = "/"
End Select
Select Case a
Case "+"
Case "-"
Case "*"
Case "/"
Text1.Text = "0"
s1 = 0
a = ""
flag = False
If Text1.Text = "" Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
'len求字符串的长度,left(text1.len(text1)-1减1是取字符串从左往右减去一个字符串
Text1 = Text1 "."
Dim temp As Double
temp = -Val(Text1.Text)
Text1.Text = temp
End
Private Sub Form_Load() '窗体初始化
Text1.Text = 0
Text1.Locked = True
直接加1可以用a+=1
如果是做循环,直接用
For a = 1 To 10
Next
以上就是土嘎嘎小编为大家整理的vb.net运算相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!