vb編程計算

1. vb編程 一個簡單的計算 代碼如下

除數為0時
如果你想把提示顯示在結果里，應該是
text4.text="除數不能為零"
要是彈出對話框的話，應該是
MsgBox
"除數不能為零"
c=MsgBox
"除數不能為零"神馬的都是浮雲

2. VB編程計算

先創建2個文本和一個命令鈕，然後輸入以下代碼
Private Sub Command1_Click()
Dim i As Integer
i = Val(Text1.Text)
If i = 1 Or i = 2 Then
Text2.Text = 1
ElseIf i = 3 Then
Text2.Text = 2
Else
ReDim a(1 To i) As Long
For j = 4 To i
a(1) = 1
a(2) = 1
a(3) = 2
a(j) = a(j - 3) + 2 * a(j - 2) + a(j - 1)
Next
Text2.Text = a(i)
End If
End Sub

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

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

代碼如下：

Dim n As Integer。

Private Sub Command1_Click()。

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

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

(3)vb編程計算擴展閱讀

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

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

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

4. VB編程計算：1+2!+3!+...+10!

vb編程計算2+2^1+2^2+2^3+......+2^10
private
sub
command1_click()
dim
i%,
s%
s
=
2
for
i
=
1
to
10
s
=
s
+
2
^
i
next
i
print
s
end
sub
vb編程求出100-200以內的同時能被3和5整除的所有整數
private
sub
command1_click()
dim
i
as
integer
for
i
=
100
to
200
if
i
mod
3
=
0
and
i
mod
5
=
0
then
print
i;
end
if
next
i
end
sub
vb編程計算1-2+3-4+5-6……+-n，其中n由文本框輸入
private
sub
command1_click()
dim
i%,
k%,
s%
k
=
1
for
i
=
1
to
val(text1.text)
s
=
s
+
i
*
k
k
=
-k
next
i
print
s
end
sub

5. vb編寫程序計算公積金和應發工資

vb編寫程序計算公積金和應發工資（勞動時間*每小時工資數*0.9）代碼如下：

privatesubcommand1_click()
t=val(inputbox("請輸入勞動時間"))
g=val(inputbox("請輸入每小時工資數"))
'計算除去公積金後應發工資公式
j=t*g*0.9
msgbox"應發工資="&j
endsub

6. 用VB編寫一個數學計算程序，完成數學公式 的計算。

Private Sub Form_Load()
Form1.Caption = "學號，姓名"
Call Command2_Click
End Sub
Private Sub Command1_Click()
Label1.Caption = Val(Text1) + Val(Text2)
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Label1.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub

7. 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的值變成了常量，此時在程序中不允許再賦新值

8. 用vb編寫計算器的代碼程序

在窗體上放置以下控制項：
1、lblResult
Label控制項
設置lblResult.Caption
=
0
2、btnNum(0)~btnNum(9)
按鈕控制項數組，下標對應齊數字（如：btnNum(0).Caption=0，依次類推）
3、添加btnAdd（加法）、btnSub（減法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等於號）、btnReset（清除鍵）六個按鈕。
在窗體代碼中輸入以下內容：
Dim
byteOperation
As
Byte
'操作符
Dim
byteTmp
As
Byte
'臨時操作符
Dim
intNum
As
Double
'輸入的數字
Sub
Calc()
Select
Case
byteOperation
Case
1
'Add
lblResult.Caption
=
CDbl(lblResult.Caption)
+
intNum
Case
2
'Sub
lblResult.Caption
=
intNum
-
CDbl(lblResult.Caption)
Case
3
'Mul
lblResult.Caption
=
CDbl(lblResult.Caption)
*
intNum
Case
4
'Div
lblResult.Caption
=
intNum
/
CDbl(lblResult.Caption)
Case
Else
End
Select
End
Sub
Private
Sub
btnNum_Click(Index
As
Integer)
If
byteTmp
<>
0
Then
intNum
=
lblResult.Caption
lblResult.Caption
=
0
byteTmp
=
0
End
If
If
lblResult.Caption
=
0
Then
lblResult.Caption
=
Index
Else
If
Len(lblResult.Caption)
<
9
Then
lblResult.Caption
=
lblResult.Caption
&
Index
End
If
End
If
End
Sub
Private
Sub
btnAdd_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
1
byteTmp
=
1
End
Sub
Private
Sub
btnReset_Click()
byteTmp
=
0
byteOperation
=
0
intNum
=
0
lblResult.Caption
=
0
End
Sub
Private
Sub
btnSub_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
2
byteTmp
=
2
End
Sub
Private
Sub
btnMul_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
3
byteTmp
=
3
End
Sub
Private
Sub
btnDiv_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
4
byteTmp
=
4
End
Sub
Private
Sub
btnEnter_Click()
Call
Calc
byteTmp
=
0
End
Sub

9. VB編程如何計算平均數

Private
Sub
command1_click()
Dim
Sum
As
Integer
Dim
IntTmp
As
Integer
Dim
IntCount
As
Integer
IntCount
=
0
+
InputBox("輸入數據總個數",
"提示")
For
i
=
1
To
IntCount
IntTmp
=
InputBox("請輸入1-10之間的數",
"提示")
If
Val(IntTmp)
>=
1
And
Val(IntTmp)
<=
10
Then
Sum
=
Sum
+
IntTmp
End
If
Next
Sum
=
Sum
/
IntCount
MsgBox
"平均數為"
&
Sum
End
Sub
msgbox

10. 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