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