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計算表達式
文章來源：http://vcdvsql.cn/article16/heoddg.html

成都網站建設公司_創新互聯，為您提供云服務器、外貿建站、網站導航、營銷型網站建設、標簽優化、微信公眾號

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯