vb小程序设计实例（vb小程序设计实例有哪些）

大家好！今天让创意岭的小编来大家介绍下关于vb小程序设计实例的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

创意岭作为行业内优秀的企业，服务客户遍布全球各地，相关业务请拨打电话：175-8598-2043，或添加微信：1454722008

本文目录:

• 1、vb程序设计实例

• 2、vb编程实例

• 3、用VB写一个小程序.

• 4、求助用VB设计一个小程序~~~~~~~~~!!!!!!!!

一、vb程序设计实例

Private Sub Form_Activate()

'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a * c * b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

二、vb编程实例

下面的代码是利用三边计算三角形面积

Private Sub Command1_Click()

a=val(text1.text)

b=val(text2.text)

c=val(text3.text)

p=(a+b+c)/2

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

if a+b>c and b+c>a and a+c>b then

text4.text="三角形的面积是:" & s

else

text4.text="不能构成三角形"

end if

end sub

下面是计算两数之和的代码

private sub command1_click()

a=val(text1.text)

b=val(text2.text)

text3.text=a+b

end sub

三、用VB写一个小程序.

vb6代码如下，添加模块，工程--属性--启动对象选择sub main

Sub main()

Open "c:\temp\25.txt" For Input As #1

Clipboard.Clear

Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)

End Sub

四、求助用VB设计一个小程序~~~~~~~~~!!!!!!!!

我先一部分代码给你

核心部分给我发E-mail:wgb2133006@163.com

Const Pi = 3.1415926535 '定义圆周率

Dim b As Integer

Dim c As Integer

Dim wor, a, h

Dim i, j As Double

Dim k As Single

Dim v, n, m, g As Double

Private Sub Command3_Click()

SavePicture Picture1.Picture, "c:\1.bmp" '保存图像框内容

End Sub

Private Sub Command4_Click()

Form2.Show

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

Me.Show

Me.AutoRedraw = True

Picture1.AutoRedraw = True

XY

End Sub

Static Function Loge(X)

Loge = Log(X) / Log(Exp(1))

End Function

'定义用于在Picture1上的一个位置打印字符函数

Private Function PrintWord(X, Y, Word As String)

With Picture1

.CurrentX = X

.CurrentY = Y

.ForeColor = RGB(0, 0, 255)

End With

Picture1.Print Word

End Function

Private Function DrawDot(Px, Py, Color)

Picture1.PSet (Px, Py), Color

End Function

Sub XY() '建立直角坐标系

Picture1.DrawWidth = 1 '设置线条宽度

Picture1.Cls

'设定用户坐标系，坐标原点在Picture1中心

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)

Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)

Picture1.ForeColor = RGB(0, 0, 255)

Picture1.Print "X"

'画 X 轴

Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)

Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)

Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)

Picture1.Print "Y"

'画 Y 轴

For lin = -9 To 9

Picture1.Line (lin, 0)-(lin, 0.25)

wor = PrintWord(lin - 0.5, -0.5, Str(lin))

Picture1.Line (0, lin)-(-0.25, lin)

If lin <> 0 Then

wor = PrintWord(-0.9, lin, Str(lin))

End If

Next lin

Picture1.DrawWidth = 2

End Sub

以上就是关于vb小程序设计实例相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。

推荐阅读：

经典港剧排行榜（tvb经典港剧排行榜）

tvb女演员排行榜

香港电视剧排行榜（tvb港剧大全）

徐州室内设计招聘（徐州室内设计招聘信息）

商标网上查询（商标查询网官网查询）