導航:首頁 > 計算方法 > vb編程的計算方法

vb編程的計算方法

發布時間:2022-11-27 20:58:34

❶ vb編程計算

Private Sub Command1_Click()
Dim b()
Dim c()
Dim s
Dim i As Integer
If Int(Val(Text1)) >= 3 Then
ReDim b(1 To Int(Val(Text1)))
ReDim c(1 To Int(Val(Text1)))
For i = 1 To Val(Text1)
b(i) = InputBox("請輸入第" & i & "個坐標X", "shuru", "235")
c(i) = InputBox("請輸入第" & i & "個坐標y", "shuru", "667")
Next
For i = 1 To UBound(b) - 1
s = s + b(i) * c(i + 1) - c(i) * b(i + 1)
Next i
s = s + b(i) * c(1) - c(i) * b(1)
MsgBox "所求的值為:" & s
Else
MsgBox "請輸入大於等於3的數"
End If
End Sub

❷ 用vb編程 求n的和s=1-2+3-4+5-6...n 有哪幾種方法

第一種(對比計算
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1 '計算一次用時量
End Sub
Private Sub Form_Load()
Text2.Text = "0" '計算方法初始化
Text3.Text = "0" '計算開始初始化
Text4.Text = "1" '次數計算初始化
End Sub
Private Sub Timer1_Timer()
Dim a As Integer, b As String
If Val(Text4.Text) <= Val(Text1.Text) Then
i = Val(Text4.Text)
b = Text2.Text
If b = 0 Then
Text2.Text = "1"
Text3.Text = Text3.Text + i
ElseIf b = 1 Then
Text2.Text = "0"
Text3.Text = Text3.Text - i
End If
Text4.Text = Val(Text4.Text) + 1
Else
Timer1.Enabled = False
End If
End Sub

第二種(規律計算)'耗時最少
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a Mod 2 = 0 Then
Text2.Text = -1 * a / 2
Else
Text2.Text = -1 * (a - 1) / 2 + a
End If
End Sub

❸ VB:編程計算三角形面積

代碼如下:

Dim a!, b!, c!, s!, p!

a = InputBox("請輸入第一條邊長")

b = InputBox("請輸入第二條邊長")

c = InputBox("請輸入第三條邊長")

If a + b <= c Or b + c <= a Or c + a <= b Then

Print "這樣的三角形不存在"

Else

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Print "這個三角形的面積是"; s

EndIf

(3)vb編程的計算方法擴展閱讀:

注釋方式

在VB中,注釋有2種方式。

1.以Rem關鍵字開頭,並且Rem關鍵字與注釋內容之間要加一個空格。注釋可以是單獨的一行,也可以寫在其他語句行的後面。如果在其他語句行後使用Rem關鍵字,則必須使用冒號(:)與語句隔開。

2.也可以使用一個撇號(')來代替Rem關鍵字。若使用撇號,則在其他語句行使用時不必加冒號。

特徵衡量

在 Visual Basic 中,可通過屬性、方法和事件來說明和衡量一個對象的特徵。

事件(Event)

事件是指發生在某一對象上的事情。事件又可分為滑鼠事件和鍵盤事件。例如,在命令按鈕(Command Button)這一對象上可能發生滑鼠單擊(Click)、滑鼠移動(Mouse Move)、滑鼠按下(Mouse Down)等滑鼠事件,也可能發生鍵盤按下(Key Down)等鍵盤事件。總之,事件指明了對象「什麼情況下做?」,常用於定義對象發生某種反映的時機和條件。

方法(Method)

方法是用來控制對象的功能及操作的內部程序。例如,人具有說話、行走、學習、睡覺等功能,在visual Basic中,對象所能提供的這些功能和操作,就稱作「方法」。以窗體為例,它具有顯示(show)或隱藏(hide)的方法。總之,方法指明了對象「能做什麼?」,常用於定義對象的功能和操作。

屬性(Property)

屬性是指用於描述對象的名稱、位置、顏色、字體等特徵的一些指標。可以通過屬性改變對象的特性。

有些屬性可以在設計時通過屬性窗口來設置,不用編寫任何代碼;而有些屬性則必須通過編寫代碼,在運行程序的同時進行設置。可以在運行時讀取和設置取值的屬性成為讀寫屬性,只能讀取的屬性成為只讀屬性。總之屬性指明了對象「是什麼樣的?」,常用於定義對象的外觀。

對象與類

對象(Object)

Visual Basic.NET 具有「面向對象」的特性,Visual Basic.NET 應用種程序的基本單元是對象,用 Visual Basic.NET 編程就是用「對象」組裝程序。這種「面向對象」的編程方法與傳統的全部用代碼編製程序的方法有很大區別,就像用集成電路晶元組裝電視機和用三極體,二極體組裝電視機的區別一樣。顯然,「面向對象」的編程方法比傳統的編程方法更簡單,更方便,並且編寫出的程序也更加穩定。因此,「對象」可以被看做 Visual Basic.NET 程序設計的核心。

在 Visual Basic.NET程序設計中,對象中還可以包含頭,手,腿,腳等部位,其中的每個部位又可以單獨作為作為被研究的對象。在 Visual Basic.NET程序設計中,整個應用程序就是一個對象,應用程序中又包含著窗體(Form),命令按鈕(Command),菜單(Menu)等對象。

類(Class)

在 Visual Basic.NET中,對象是由類創建的,因此對象可以說是類的具體實例,這就好比是蛋糕和做蛋糕的模具之間的關系。

各種不同的對象分屬於各種不同的種類。同一類對象可能具有一些不同的特徵(或是說同一類對象不一定具有完全相同的特性);具有某些相同的特性的對象,不一定是同一類對象,這就好比是人和猴子雖然都有身高、性別等特徵,但二者之間還存在著智商、語言等特性差異,這兩個對象之間的特性相差很多,根本就不能算是同一類對象。而男人和女人,雖然有著性別、生理等方面的差異,但他們絕大部分特性相同,可以算是同一種類。由此,可以歸結為一句話:同一類對象的絕大部分特性相同。

❹ 怎樣用vb編程一部簡單的計算器呢

1、打開VB新建一個EXE。

❺ VB 的編程公式有哪些

Abs 求絕對值
ActiveControl 得到焦點的對象
ActiveForm 得到焦點的表單
Array 指定數組
App 得知程序信息
AppActivate 激活執行中的應用程序
Asc 求字元的內碼
AscB 求字元的ASCII
AscW 求字元的UniCode
Atn 求Tan-1Beep 發出預設的警示聲Call 調用子程序
Calendar 選擇月歷
Choose 取出一列值的某個值
CBool 數值轉成布爾數
CByte 數值轉成位元格式
CCur 數值轉成貨幣格式
CDate 數據轉成時間
CDbl 數值轉成雙精度浮點數
CDec 數據轉成十進數
ChDir 改變目前路徑緩充的路徑
ChDrive 改變目前磁碟緩充的磁碟
Chr 由內碼求得一字元
ChrB 由ASCII求得一字元
ChrW 由UniCode求得一字元
CInt 數據轉成Integer
CLng 數據轉成Long
Command 讀出程序的參數
Const 定義常數
Cos COS CSng 數值轉成單精度浮點數
CurDir 得知目前路徑緩充的路徑
CVar 數值轉成可變變數Date 得到目前電腦的時間
Date$ 得到目前電腦時間字元串
DateAdd 日期加法得日期
DateDiff 日期相減得數值
DatePart 日期部份資訊
DateSerial 字元串轉日期
DateValue 數字轉日期
Day 得知日期變數內是幾號
DDB 折舊的計算
DeleteSetting 刪除系統登錄內的數據
Dir 得知目前路徑內的文件名
DoEvents 閑置函數End 結束程序
Environ 取得環境變數的數據
EOF 某個文件緩沖的指標是否到檔尾
Erase 重新初始化數組
Err 錯誤資訊
Error 錯誤代碼信息
Exp 得到自然對數Fix 去除小數
FileCopy To 復制文件
FileAttr 文件開啟模式
FileDateTime 文件存檔日期
FileLen 文件長度
Filter 篩選數組 VB6提供
Format 數據格式化輸出
FreeFile 空的文件編號
FV 求得定期 定額支付且固定利率下之年金的值GetAllSetting 得到所有系統登錄的資訊
GetAttr 得知文件屬性
GetSetting 得到系統登錄的資訊Hex 將數值轉成16進數表示的字元串
Hour 得知日期變數內是幾時If . Then . Else 判斷結構
IMEStatus 得知IME輸入法狀態
InStr 尋找字元串里的字元串
InStrB 尋找字元串里的ASCII
IntStrRev 由字元串右邊開始尋找字元串里的字元串 VB6提供
Int 取整數Join 將數組數據加入分隔字元後組合成一新字元串 VB6提供
Kill 刪除文件LBound 得知數組最小起始范圍
LCase 字元串轉小寫
Left 截取字元串左邊幾個字
Len 得知字元串的字數
LenB 得知變數佔用記憶體幾個Byte
LoadPicture 載入圖形
Log 求對數值
LSet 字元串向左對齊
LTrim 移除字元串最左邊的空白字元Mid 截取字元串里某些字元串
Minute 得知日期變數內是幾分
MkDir 建立新的數據夾
Month 得知日期變數內是第幾月Name As 更改文件名
Now 得知目前點腦的日期與時間Oct 字元轉成八進制的字元串
Option VB內部一些選項設定PopupMenu 跳出菜單
Print 列印數據QBColor 設定顏色(16色)Randomize 隨機數初始化聲明
Replace 取代字元串中某些字元串 VB6提供

RGB 設定顏色(255*255*255色)
RmDir 移除數據頰
Rnd 得到一個隨機數
RSet 字元串向右對齊
RTrim 去除字元串最右邊的空白字元SavePicture 儲存圖形
Screen 得知屏幕簡易資訊
Second 得知日期變數內是幾秒
SetAttr 設定文件屬性
Sgn 得知是整數還是負數
Shell 執行外部程序
Sin 得知Sin
Space 填入數個空白字元
Split 以某字元串將字元串拆解成數組 VB6提供
Sqr 求平方根
Str 數值轉字元串
StrComp 比較字元串
StrConv 改變字元串型態
String 設定一個重覆的字元串
StrReverse 字元串反轉 VB6提供Tab 列印n個製表符
Tan 得知Tan
Time 得知、設定電腦時間
Time$ 得知、設定時間字元串
Timer 得知今天電腦總秒數
TimeSerial 字元串轉時間
TimeValue 數字轉時間
Trim 去除字元串首尾的空白字元
TypeName 得知變數類別的名稱UBound 得知數組的最值
UCase 字元串轉大寫Val 將字元串轉成數字
VarType 得知變數的類型WeekDay 得知日期變數內是星期幾
WeekdayName 將WeekDay傳回值改成文字顯示 VB6提供Year 得知日期變數內是幾年

❻ VB編程如何計算平均數

新建工程,1個文本框和1個按鈕
text1用來錄入數據, 因為是任意個數,用很多文本框是不方便的,程序設計是使用","來分隔數字,你可以輸入任意多個數字,然後按鈕command1後,就可以顯示總和及平均值.

Private Sub Command1_Click()
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit Sub

Dim a, sumn%, i%, j%
a = Split(Text1, ",")

For i = 0 To UBound(a)
If IsNumeric(Val(a(i))) Then '防止有非數字的情況發生,做一下校驗
sumn = sumn + Val(a(i))
j = j + 1
End If
Next

Print "總和為:" & sumn
Print "平均數為:" & sumn / (UBound(a) + 1)
End Sub

❼ 怎樣用vb編寫一個加法計算器

VB6.0便攜小程序很方便,今天我們就來看看vb製作一個加法計算器的教程。

1、啟動軟體,新建一個變准 EXE工程

2、我們在窗體上繪制好要使用到的控制項。

3、雙擊 計算按鈕 進入代碼窗口,我們可以在這里編寫代碼。

4、接下來我們打入累加的 賦值語句。

5、接下來我們點擊運行測試的 小三角。

6、這時候我們就可以開始計算了。

以上就是VB6.0編寫一個加法計算器的方法,希望大家喜歡,請繼續關注我們。

❽ VB編寫程序 用來計算m的n次方

新建工程,添加command1控制項。vb6.0+xp調試成功。

代碼如下:

Dim n As Integer。

Private Sub Command1_Click()。

m = InputBox("請輸入內底數m")。

n = InputBox("請輸入指容數n")。


(8)vb編程的計算方法擴展閱讀

VB編寫程序的參數選擇(有利於方便用戶的工作進度)

第一個按鈕的Index屬性值默認為「0」,第二個的Index屬性值自動設為「1」,並且大小與第一個按鈕相同,只需修改其 Caption 屬性為數字「1」並將其拖至合適位置即可。

此後繼續使用「粘貼」的方法建立其他控制項組中其餘按鈕,共20個按鈕,每建立一個,就將它拖到合適處,並修改相應的Caption屬性值。

❾ vb編程 算圓周率

圓周率π,在vb
編程中,你用健盤是輸入不到這個值的,你得用一個常數來定義它的值,如計算圓的體積v=4/3*π*r*r*r,且設r為2,可以用下面的程序代碼來編寫:
(方法一):let
p=3.141592
let
r=2
let
v=4/3*p*r*r*r
print
v
end
(方法二):const
p=3.141592
let
r=2
let
v=4/3*p*r^3
print
v
end
說明:第二個是利用符號常量來代表∏,也就是用函數const定義了p的值,p的值變成了常量,此時在程序中不允許再賦新值

❿ VB編程 計算1!+2!+…5!

第一種(對比計算PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=1'計算一次用時量EndSubPrivateSubForm_Load()Text2.Text="0"'計算方法初始化Text3.Text="0"'計算開始初始化Text4.Text="1"'次數計算初始化EndSubPrivateSubTimer1_Timer()DimaAsInteger,bAsStringIfVal(Text4.Text)<=Val(Text1.Text)Theni=Val(Text4.Text)b=Text2.TextIfb=0ThenText2.Text="1"Text3.Text=Text3.Text+iElseIfb=1ThenText2.Text="0"Text3.Text=Text3.Text-iEndIfText4.Text=Val(Text4.Text)+1ElseTimer1.Enabled=FalseEndIfEndSub第二種(規律計算)'耗時最少PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)IfaMod2=0ThenText2.Text=-1*a/2ElseText2.Text=-1*(a-1)/2+aEndIfEndSub

閱讀全文

與vb編程的計算方法相關的資料

熱點內容
黑頭棒使用方法 瀏覽:734
拼多多日發5000單的方法技巧 瀏覽:180
都保吸入劑使用方法 瀏覽:836
苦蕎麥喂牛的正確方法 瀏覽:827
足踝鍛煉方法圖片 瀏覽:923
古詩詞背誦方法研究 瀏覽:731
拆空調銅管的方法與步驟 瀏覽:308
從車內起步正確方法 瀏覽:90
沒想到這才是正確刷牙方法 瀏覽:100
機油量檢測正確方法 瀏覽:724
綠釉水盂瓷器鑒別的方法 瀏覽:376
羽毛快速摳出方法 瀏覽:183
spss常用的聚類分析方法 瀏覽:885
手機音效卡怎麼安裝使用方法 瀏覽:920
梳子線連接方法 瀏覽:672
手機泡水後發燙處理方法 瀏覽:50
短發無橡皮筋盤頭發的簡單方法 瀏覽:204
腿如何撇出樹杈的三個方法 瀏覽:498
肺癌最新治療方法 瀏覽:220
常用一次性口罩正確使用方法 瀏覽:582