vb经典程序代码大全？vba编程代码大全

大家好，今天来为大家解答vb经典程序代码大全这个问题的一些问题点，包括vba编程代码大全也一样很多人还不知道，因此呢，今天就来为大家分析分析，现在让我们一起来看看吧！如果解决了您的问题，还望您关注下本站哦，谢谢~

VB操作题只需告诉我程序代码编写

你这个问题涉及到的操作步骤比较多，代码很简单；

1，启动VB程序，新建一个项目。

2，在VB窗口，单击[工具]菜单，选择[菜单编辑器]，出现“菜单编辑器”窗口；

在标题框里，输入：文件；

在名称框里，输入：menu1；（注意最后不是英文字母是数字1）

如下图所示：

然后单击[下一个]，再单击向右的箭头按钮，见下图：

在标题框里，输入：打开；

在名称框里，输入：m1；

见下图；

然后单击[下一个]，在标题框里，输入：关闭；在名称框里，输入：m2；

然后单击[下一个]；在标题框里，输入：保存；在名称框里，输入：m3；

见下图：

因为要制作弹出式菜单，所以单击上图中，最下面的空白框里的“文件”，出现下图；

单击[可见]，去掉勾选，见下图；

至此，操作完毕，单击[确定]，回到VB界面；

添加一个按钮控件，改名为“弹出菜单”

代码如下：

Option Explicit

Private Sub Command1_Click()

PopupMenu menu1

End Sub

VB程序代码求指教

我说说思路：

一，解决输入并保存信息的功能：

因为，要有输入信息的功能，所以要解决输入并保存信息的功能，有两种方法；

1，采用VBA，在WORD或者EXCEL里。

2，你自己编写文本编辑器。

二，按照你的要求：

1，程序要有设置时间的功能。

2，每次输入信息完毕，进行文件保存。

3，文件格式分为上下两大块，中间用设置的时间突出显示作为分隔；

4，保存的时候，首先判断当天是否已经有保存的文件，如果有就打开现有文件，如果没有，保存为当日新文件。

如果已经有文件，打开文件，并判断时间，按照你说的时间节点，如果时间在规定时间前，那么新的内容输入在原内容后；如果过了规定时间，那么打开文件后，自动在文件结束处，增加一行用规定的时间作为内容的分隔行，并另起一行，编辑输入新的数据。

用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经典程序代码大全的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba编程代码大全、vb经典程序代码大全的信息别忘了在本站进行查找哦。