用vb编写简单的程序？一个简单的vb小程序
大家好，关于用vb编写简单的程序很多朋友都还不太明白，今天小编就来为大家分享关于一个简单的vb小程序的知识，希望对各位有所帮助！
如何使用VB编写一个简单的小程序
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。
接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。
然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。
接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。
然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。
最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text= Val(Text1.Text)+ Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。
用VB编写一个计算器程序的代码
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字 0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
设置效果如下图所示：
二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text= Text1.Text& Command1（Index）.Caption’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text= Text1.Text+“。”
If（InStr（Text1.Text，“。”）= 1） Then‘第一位不能为小数
Text1.Text=“”
End If
If InStr（Text1.Text，“。”）《 Len（Text1.Text） Then’防止出现两个小数点
Text1.Text= Left
（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub
Command3_Click（）
s2= Val（Text1.Text）‘开始加减乘除运算
Select Case ysf Case“+”
Text1.Text= s1+ s2
Case“-”
Text1.Text= s1- s2
Case“*”
Text1.Text= s1* s2
Case“/”
If s2= 0 Then
MsgBox“分母不能为零！”
Text1.Text=“”
Else
Text1.Text= s1/ s2 End If End Select
Text1= IIf（Left（Text1.Text， 1）=“。”， 0& Text1.Text， Text1.Text）‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text=“” Then’文本为空就结束
Exit Sub
End If
Text1.Text= Left（Text1.Text， Len（Text1.Text）- 1）‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text=“”’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1= Val（Text1.Text）‘将s1隐藏起来 ysf= Command6（Index）.Caption
Text1.Text=“”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1）《》“-” Then’判断作为负数
Text1.Text=“-”& Text1.Text
Else
Text1.Text= Right（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text= Text1.Text* Text1.Text‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接
如何编写一套完整的VB小游戏程序
楼上的朋友所说个人认为一些纰漏.
第一,不要在设计时经常改动设计方案,否则工期会延误.难道在编码和设计的时候经常改动?在设计的时候改动与后期的改动谁会带来比较大的损失呢?况且软件危机是怎样产生的?这是软件工程出现的原因吧,所以首先分析好你的游戏框架,多花时间分析上!.
第二,网络版则必须写软件设计概要书和用户使用说明书...任何上规模的软件项目可以不写说明书?具体点吧,保留下最本质的数据流图,更多的文档资料所带来的结果就是让你的软件更容易维护,即可测性,可修改性,可理解性都必须具备..
如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就差不多可以开始了.
如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些俄罗斯方块,贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏.
简单的说吧,首先你要知道你想做什么,并且可以用VB实现吗?如果可以继续分析,怎样做?用什么样的技术?等确定了之后,大概的将编码写在纸上,如果自己觉得逻辑合适就将其输入电脑运行之,并在输入电脑运行之后不段调试尽量多找一些难发现的错误..
OK，本文到此结束，希望对大家有所帮助。