日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

VB2010(3)整型运算

發布時間:2023/12/9 编程问答 25 豆豆
生活随笔 收集整理的這篇文章主要介紹了 VB2010(3)整型运算 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

Public Class Form1

? ? Private Sub btnIntMath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIntMath.Click
? ? ? ? '聲明變量
? ? ? ? Dim intNumber As Integer
? ? ? ? '賦值,加法,顯示
? ? ? ? intNumber = 16
? ? ? ? MsgBox(intNumber & "+8")
? ? ? ? intNumber = intNumber + 8
? ? ? ? MessageBox.Show("Addition test." & intNumber.ToString, "Integer Math")

? ? ? ? '賦值,減法,顯示
? ? ? ? intNumber = 24
? ? ? ? MsgBox(intNumber & "-2")
? ? ? ? intNumber = intNumber - 2
? ? ? ? MessageBox.Show("Subtraction test." & intNumber.ToString, "Integer Math")

? ? ? ? '賦值,乘法,顯示
? ? ? ? intNumber = 6
? ? ? ? MsgBox(intNumber & "×10")
? ? ? ? intNumber = intNumber * 10
? ? ? ? MessageBox.Show("Multiplication test." & intNumber.ToString, "Integer Math")

? ? ? ? '賦值,除法,顯示
? ? ? ? intNumber = 12
? ? ? ? MsgBox(intNumber & "÷6")
? ? ? ? intNumber = CType(intNumber / 6, Integer)
? ? ? ? MessageBox.Show("Division test." & intNumber, "Integer Math")
? ? End Sub
End Class
?

總結

以上是生活随笔為你收集整理的VB2010(3)整型运算的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。