vb小程序設(shè)計(jì)實(shí)例（vb小程序設(shè)計(jì)實(shí)例有哪些）

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于vb小程序設(shè)計(jì)實(shí)例的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。

創(chuàng)意嶺作為行業(yè)內(nèi)優(yōu)秀的企業(yè)，服務(wù)客戶遍布全球各地，相關(guān)業(yè)務(wù)請撥打電話：175-8598-2043，或添加微信：1454722008

本文目錄:

• 1、vb程序設(shè)計(jì)實(shí)例

• 2、vb編程實(shí)例

• 3、用VB寫一個(gè)小程序.

• 4、求助用VB設(shè)計(jì)一個(gè)小程序~~~~~~~~~!!!!!!!!

一、vb程序設(shè)計(jì)實(shí)例

Private Sub Form_Activate()

'1年期2.25%，2年期2.43%，3年期為2.70%，5年期為2.88%（不記復(fù)利）。今有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年后到期的本息合計(jì)"; ss(x, 5, x5)

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

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

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

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

Print "⑥存五次1年期,5年后到期的本息合計(jì)"; 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編程實(shí)例

下面的代碼是利用三邊計(jì)算三角形面積

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="不能構(gòu)成三角形"

end if

end sub

下面是計(jì)算兩數(shù)之和的代碼

private sub command1_click()

a=val(text1.text)

b=val(text2.text)

text3.text=a+b

end sub

三、用VB寫一個(gè)小程序.

vb6代碼如下，添加模塊，工程--屬性--啟動(dòng)對象選擇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設(shè)計(jì)一個(gè)小程序~~~~~~~~~!!!!!!!!

我先一部分代碼給你

核心部分給我發(fā)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" '保存圖像框內(nèi)容

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上的一個(gè)位置打印字符函數(shù)

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() '建立直角坐標(biāo)系

Picture1.DrawWidth = 1 '設(shè)置線條寬度

Picture1.Cls

'設(shè)定用戶坐標(biāo)系，坐標(biāo)原點(diǎn)在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

以上就是關(guān)于vb小程序設(shè)計(jì)實(shí)例相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進(jìn)行咨詢，客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。

推薦閱讀：

經(jīng)典港劇排行榜（tvb經(jīng)典港劇排行榜）

tvb女演員排行榜

香港電視劇排行榜（tvb港劇大全）

徐州室內(nèi)設(shè)計(jì)招聘（徐州室內(nèi)設(shè)計(jì)招聘信息）

商標(biāo)網(wǎng)上查詢（商標(biāo)查詢網(wǎng)官網(wǎng)查詢）