vb编程实例

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

Private Sub Command1_Click()

a=val(text1text)

b=val(text2text)

c=val(text3text)

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

text4text="三角形的面积是:" & s

else

text4text="不能构成三角形"

end if

end sub

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

private sub command1_click()

a=val(text1text)

b=val(text2text)

text3text=a+b

end sub

要知道VB6里只能使用3232像素的图标，通常还有4848像素的图彪，在VB6里不能用。

要知道图标的像素，如果没有专用工具，可以使用 Windows里的画图软件，打开某图标文件，通过菜单 [图像] -- [属性]，观察“宽度”和“高度”，都不大于32。

楼上的代码应该改成这样更人性化：

a=InputBox("请输入加数1","0")

b=InputBox("请输入加数2","0")

Text1Text=val(a)+val(b)

哈哈

Option Explicit

Private Sub Form_Load()

    Randomize

    Label1Caption = Int((Rnd  (999999 - 100000 + 1)) + 100000)    '生成100000-999999之间的随机数

    Timer1Interval = 1000  '一秒一次

    Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static n As Integer

    n = n + 1

    If n = 60 Then      '一秒一次，累加到60此即60秒

        n = 0

        Randomize

        Label1Caption = Int((Rnd  (999999 - 100000 + 1)) + 100000)

    End If

End Sub

有问题请追问，，加油！

用VBnet制作一个小程序（1）

----制作“HelloNET”程序

作者：高山

用下面很简单的方法，就可以制作一个“HelloNET”小程序，同时可以掌握一些控件的用法。

Public Class Form1

Inherits SystemWindowsFormsForm

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBaseNew()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写处置以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

componentsDispose()

End If

End If

MyBaseDispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As SystemComponentModelIContainer

'注意：以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents Button1 As SystemWindowsFormsButton

Friend WithEvents TextBox1 As SystemWindowsFormsTextBox

<SystemDiagnosticsDebuggerStepThrough()> Private Sub InitializeComponent()

MeButton1 = New SystemWindowsFormsButton()

MeTextBox1 = New SystemWindowsFormsTextBox()

MeSuspendLayout()

'

'Button1

'

MeButton1Location = New SystemDrawingPoint(16, 112)

MeButton1Name = "Button1"

MeButton1TabIndex = 0

MeButton1Text = "OK"

'

'TextBox1

'

MeTextBox1Location = New SystemDrawingPoint(160, 112)

MeTextBox1Name = "TextBox1"

MeTextBox1TabIndex = 1

MeTextBox1Text = ""

'

'Form1

'

MeAutoScaleBaseSize = New SystemDrawingSize(6, 14)

MeClientSize = New SystemDrawingSize(292, 266)

MeControlsAddRange(New SystemWindowsFormsControl() {MeTextBox1, MeButton1})

MeName = "Form1"

MeText = "Hello,VBNET"

MeResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

TextBox1Text = "Hello,VBNET!"

End Sub

End Class

以上就是关于vb编程实例全部的内容，包括:vb编程实例、用vb制作了一个小程序 可怎样做个图标呢 求详细过程，我有图片的、怎样用vb编一个小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！