抵扺
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提供的组件快速创建一个应用程序。
求解一个有关VB编程软件代码的问题
在吗？
正确的格式应该是这样的：
'------------------------------------
Dim strURL
Private Sub Command2_Click()
strURL = "------"
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & strURL
End Sub
'---------------------------------------
还有，你的代码怎么没有 End Sub呢
VB编程，超简单的。求编写代码
第一题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入当前顾客购买鸡蛋的重量（以公斤为单位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub
第二题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入顾客所乘的公里数")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If
If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If
Print Y
End Sub
VB可以编写软件，那VB又是用什么编写出来的呢
首先概念要搞清楚，VB本身是一种程序设计语言，它并不是“用什么编写出来”的，而是通过人为制定的一些规则、语法等创建的一种语言，就好比现实中的语言，I am a student的意思是“我是个学生”，但如果你规定，xye是“我”，kj是“是”，ds是“一个”，sgtfk是“学生”，那么xye kj ds sgtfk的意思也是“我是个学生”，这样你也就创建了一种语言（当然实际上肯定复杂得多，这里是举个例子）。
而你所说的“可以编写软件”的VB，实际上是指VB的IDE（即集成开发环境），是用于提供VB程序开发环境的应用软件，里面包括了VB代码编辑器、编译器、调试器和图形用户界面等工具及功能。这个IDE应该是用C语言结合汇编语言做出来的，但这其实不重要，因为即使就用VB本身也能做出另一个全新的VB的IDE（不含编译器）来你信不？
IDE并不是VB不可缺少的组成部分，不用IDE，直接用其他文本编辑器（比如记事本）也能编写VB程序代码（包括图形界面）！当然只有真正的高手才会这么做。
编译器才是VB最核心的部分，它可以把VB的源代码编译为exe可执行程序。编译器毫无疑问肯定是用汇编语言做出来的，其他高级语言不可能设计出编译器来，就像人不可能自己生出自己来一样。编译器是独立于IDE的，你可以不用IDE，直接用命令行的方式来编译VB程序。
也就是说，如果你是高高高高手，只需要记事本加上编译器就可以开发VB软件了。所以“VB是用什么编写出来的”这个问题真的不重要（我知道即使回答了你，你接下来会继续问“编写出VB的软件又是用什么编写出来的？”）！
一个VB编写的小软件怎么查看它的源代码？
可以试试用VS Reflector反编译，很可能不能看到源码。可以根据它的运行效果反推它的代码啊。
单击退出程序的VB代码怎么写
”退出程序“是VB代码中几个常用的代码之一，编辑方式如下：
版本 2
.子程序 __启动窗口_创建完毕
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\1.txt”, “1”, “1”, )
.子程序 _按钮1_被单击
写配置项 (取运行目录 () ＋ “\1.txt”, “1”, “1”, 编辑框1.内容)
窗口换成你程序对应的窗口，编辑框名字改成你的程序的编辑框名字
至于读配置项和写配置项的参数意义，请点击代码后看下方的“提示”栏目的帮助信息
扩展资料：
什么是VB代码
“Visual”指的是开发图形用户界面 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用
Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统和 VBA 都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言。
参考资料：什么是VB代码
VB编写完窗口程序代码后怎么运行啊
1、第一种点上方“运行”，然后启动。，如果要停止的话按“运行”“停止”或者CTRL+BREAK
2、快捷方式F5.
3、如果程序编好了，不在更改，则把它转成应用程序模式
具体方法：点文件，生成工程，取个名字就行了，这就是完成的程序来自：求助得到的回答
VB 编程 要想让这个软件每周日可以运行，而且只能运行一次，求代码
我提供点思路：
既然要求只能运行一次，而且系统是会全部还原的，那么无论修改什么都是没用的，本来想到的是将系统时间里的分或者秒设定得与网络时间有一个差值，通过差来判断，但就怕电脑的时钟电路存在的误差不可估量，所以觉得这样不可靠，后来想想，让你这个程序访问一个你指定的数据库，把运行的时间记录写到数据库里，通过判断来决定是否运行。当然，数据库最好是放在固定IP的服务器上，这样确保程序能正常访问，还有，最好还要让程序只能运行一个实例。VB不懂，只懂C++，所以提供些想法，希望有帮助。
转载请注明出处51数据库 » vb编写软件代码吗 用VB编写一个计算器程序的代码
