如何使用VB编写一个简单的小程序？

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为数，如下图所示。

简单vb程序设计 简单vb程序设计经典例题简单vb程序设计 简单vb程序设计经典例题


简单vb程序设计 简单vb程序设计经典例题


简单vb程序设计 简单vb程序设计经典例题


接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

VB编写程序的步骤

VB编写程序的步骤可以分为三步：

设计程序的界面，根据想要实现的功能画出程序的界面；编写代码是最枯燥的一步，根据程序的功能，为每个控件元素编写代码，这是程序设计的关键所在；发布应用程序为程序创建安装项目。

用VB怎样制作简单程序？

1. 用VB新建一个标准EXE程序

2. 用 Lable 、TextBox 和 CommandButton 控件在窗体中设计界面如下：

3. 双击“抽取”按钮，并在代码窗口中修改代码如下：

Private Sub Command1_Click()

Dim v1 As Long, v2 As Long, v3 As Long

v1 = Val(Text1)

v2 = Val(Text2)

v3 = Int(Rnd(1) (v2 - v1 + 1)) + v1

Text3.Text = v3

End Sub

4.按F5运行，并进行测试即可

一个很简单的VB设计

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

If a <= 100 Then

If a Mod 2 = 0 Then

Text2.Text = "偶数"

Else

Text2.Text = "奇数"

End If

Else

Text2.Text = "输入的整数不能超过100"

End If

End Sub

用VB设计一个简单的加法程序

计算机的多媒体技术已经广泛普及, 对于一般的用户来说, 采用可视化编程工具是的选择, VB程序设计语言就是其中一个典型的代表。Visual Basic是Microsoft Windows的编程语言。Visual Basic是在一个集成开发环境（IDE）中创建的，IDE使得程序员可以方便地创建、运行和调试Visual Basic程序。Visual Basic是世界上使用最广泛的快速应用程序开发语言。为提高大家学习VB的兴趣，在这里，我们以一个简单的加法程序来体验一下VB的强大功能。

首先我们启动VB，在出现"新建工程"对话框后，选择"标准EXE"，单击"打开"按钮，即进入如下图的VB开发环境。

步：单击工具箱中的"TextBox(文本框)"图标 ，移动鼠标指针到窗体Form1上，这时鼠标指针变成了"+"形状。拖出3个并排的有一点间距的方框出来，里面有text1、text2、text3的字样，分别选中它们，按鼠标退格键删除这些字样。再单击"Label(标签)"图标A，在刚才的3个方框之间拖2个标签框，分别键入加号"+"和等于号"="，单击"Command（命令按钮）"图标 ，在窗体的下方拖出一个按钮出来，拖出一个带有Command1字样的按钮，直接写上"计算"二字。如图所示：

第二步：双击"计算"按钮，会出现如下的代码窗口：

在Private Sub Command1_Click()和End Sub之间写上如下代码：

M = Val (Text1.Text)

N = Val (Text2.Text)

K = Val (Text3.Text)

If m + n = k Then

Label1.Caption = "正确！"

Else

Label1.Caption = "错误！"

End If

第三步：关闭代码窗口，点"运行"---"启动"。在文本框中分别填写2、5、7，再点"计算"按钮，看窗体上出现什么文字，关闭Forml，再"启动"，填写3、5、7后"计算"，看窗体上出现什么文字。这时你会发现，在输入次数据时，会显示正确！在输入第二次数据时，会显示错误！

第四步：，我们来保存这个程序：首先点按"文件"----"生成工程"----选择保存地点为"C：",文件名为"jiafa"----"确定"。再到"C："中去，找到这个"jiafa"文件，我们可以从它的后缀名中得知，这是个不依赖VB程序可以运行的可执行程序。运行一下，很有成就感吧。

短短四步，我们就可以编制出一个简单的加法程序，可见，软件的编制并不是那么神秘，只要你肯专心学习，一定会取得非凡成就的。以上程序已在vb6.0调试通过。以上所讲的只是VB的一些基本作，仅取抛砖引玉的作用，希望各位VB高手能提出更多更好的方法，让我们在学习VB的过程中不断地得到提高。

VB简单程序设计

分太低，不过还是给你做了

Option Base 1

Private Type Stu

StuName As String

StuEnglish As String

StuMath As String

StuChem As String

StuPhys As String

End Type

Dim StuFile() As Stu

Dim Counter As Integer

Private Sub Command1_Click()

Counter = Counter + 1

ReDim Preserve StuFile(Counter)

StuFile(Counter).StuName = InputBox("请输入学生成绩")

StuFile(Counter).StuEnglish = InputBox("请输入英语成绩")

StuFile(Counter).StuMath = InputBox("请输入数学成绩")

StuFile(Counter).StuChem = InputBox("请输入化学成绩")

StuFile(Counter).StuPhys = InputBox("请输入物理成绩")

Beep

MsgBox "成绩存入成功！"

End Sub

Private Sub Command2_Click()

Dim SearchName As String

SearchName = InputBox("请输入要查询的学生姓名")

For i = 1 To Counter

'——————————————————————————————

If StuFile(i).StuName = SearchName Then

Picture1.Print "学生姓名："; StuFile(i).StuName

Picture1.Print "英语成绩："; StuFile(i).StuEnglish

Picture1.Print "数学成绩："; StuFile(i).StuMath

Picture1.Print "化学成绩："; StuFile(i).StuChem

Picture1.Print "物理成绩："; StuFile(i).StuPhys

x = InputBox("是否继续查询？（Y/N）")

If UCase(x) = "Y" Then

Call Command2_Click

Else

Exit Sub

End If

End If

'——————————————————————————————

Next i

End Sub

Private Sub Command3_Click()

Picture1.Cls

End Sub

Private Sub Form_Load()

Command1.Caption = "输入成绩"

Command2.Caption = "查询成绩"

Command3.Caption = "清除"

End Sub

你真是异想天开！太的想法了。。。这是我的代码，虽然有误，但感觉比较接近实际情况

Option Explicit

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

'程序原理是tem1做1亿次加法和循环，tem2做1000万次循环，每个循环10次加法，在每次运算起始以ms为单位记录时间

'定次计算结果是Ams，第二次为Bms，那么你的计算机做加法大概是9亿/(10B-A)，单位是次/ms...

'我的电脑大概是每秒（注意已经由ms换算过来）进行1亿4千万次加法运算，你可以参考下。

Private Sub Form_Click()

Dim OldTime As Long

Dim tem1, tem2 As Long

Dim times As Long

tem1 = 0: tem2 = 0

OldTime = timeGetTime

For times = 1 To 100000000

tem1 = tem1 + 2

Next times

Me.Print "Time: "; CStr(timeGetTime - OldTime); "ms"

OldTime = timeGetTime

For times = 1 To 10000000

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

tem2 = tem2 + 2

Next times

Me.Print "Time: "; CStr(timeGetTime - OldTime); "ms"

End Sub

我来说两句，我觉得一楼正解，但是还是有个问题，你们想，楼主要求计算能+多少次+法，但是你无论用什么程式计算，你电脑还是会分一点内存来计时吧，而且还不算你开机时其它程序所占的内存呢，就拿一楼的代码来说，就是n每加一次1,程序就要回过头来断定loopfinsh这个时间？那样不就又多浪费了资源吗？所以，光是这样测是测出来的数据还是小于你电脑本身计算的次数````（个人见解，呵呵）不过同时也认为这个程序也有用，可以把数据测定你电脑与别人电脑的好坏做比较。加法次数多则电脑好点。。。

看看 我的吧

Private Sub Command1_Click()

'Const secondsinday = 24& 60& 60&

loopfinsh = Timer + 60

Do While Timer < loopfinsh

n = n + 1

Loop

Print n

End Sub

看来我水平不行了，，该充电了 呀