vb编程的计算方法

❶ 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