vb简单小代码（用VB做一个简单的加减乘除的计算器，代码是什么）

本文目录

• 用VB做一个简单的加减乘除的计算器，代码是什么
• VB简易程序设计代码
• 简单的VB代码..
• 求VB简易计算器的代码
• 求5个简单VB代码（好的话追加50分）
• 用VB做一个简单的小程序

用VB做一个简单的加减乘除的计算器，代码是什么

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-*/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3.text=val(text1.text)+val(text2.text)

我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

VB简易程序设计代码

一、判断闰年：
加入一文本框text1,text2命令按钮command1,
在text1中输入所要判断的年份。
在command1的单击事件中加入以下代码：
dim year& ’定义年份变量
year=val(text1.text)
If (Year Mod 4 = 0 And Year Mod 100 《》 0) Or (Year Mod 400 = 0) Then

Text1.Text = year & "年是闰年！"

Else

Text1.Text = year & "年是平年"

end if
二、 加入两个文本框，text1,text2 ，一个按钮command1.
在text1中输入收入情况，text2用来显示结果
在command1的单击事件中输入以下代码：
dim shui&
shui=val(text1.text)
if shui 《 200 then text2.text = "当前收入免税。"
if shui 》200 and shui 《401 then text2.text = "当前就纳税：" & (shui-200) * 0.03 & "元"
if shui 》400 and shui《 500 then text2.text = "当前应纳税:" & (shui-200) * 0.03) + (shui-400)*0.04 & "元"
if shui 》499 then text2.text="当前应纳税:" & (shui-200) * 0.03) + (shui-400)*0.05 & "元"

简单的VB代码..

Function
opentable(byval
txtPath
as
string)
’【功能：建立数据库连接；状态：完成】
Set
conn
=
New
ADODB.Connection
conn.CursorLocation
=
adUseClient
conn.Open
"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
txtPath
&
";"
Set
res
=
New
ADODB.Recordset
End
Function
Function
closetable()
’【功能：关闭数据库连接；状态：完成】
conn.Close
End
Function
set
res=new
adodb.recordset
res.Open
"select
管理用户,登录密码
from
管理员信息
where
管理用户=
’"
&
Me.管理用户
&
"’
and
登录密码=’"
&
Me.登录密码
&
"’"
If
Not
res.EOF
Then
If
rs.Fields("登录密码")
=
Me.登录密码
Then
adlogin
=
True
End
If

求VB简易计算器的代码

代码是:码

跪求高人给代码！！！

我有更好回答



匿名用户

推荐于 2016-11-11

Private Sub Command1_Click()

Select Case Text2.Text

Case "+"

Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text))

Case "-"

Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text))

Case "*"

Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text))

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

求5个简单VB代码（好的话追加50分）

1. 如何消除textbox中按下回车时的beep声？
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
End Sub
2.Textbox获得焦点时自动选中。
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
3.防止程序被重复运行
如果不希望应用程序被别人通过多次双击图标而重复运行，导致内存不足或其他意外，可以在Form_Load 中加入以下几行代码：
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox " 程序正在运行，请检查窗口是否被最小化。"
Unload Me
End If
End Sub
这几行语句在窗体加载时运行，判断当前程序是否正在被执行。如果正在执行，弹出信息窗口，同时退出程序。否则，继续运行程序。
这个程序的效果，用运行按钮试运行是看不出来的。要存盘生成.EXE 文件，然后从外面运行它。
4.让程序启动得更快
VB 应用程序加载的时候会首先执行一个叫Form_Load 的过程。如果这个过程的代码太多，就会使程序的启动过程变慢。其实，在Form_Load()的第一行加一条语句：me.show
这条语句的作用是先强行把窗体显示出来，使用户感觉程序的启动速度变快了。
5.使窗体全屏显示
在设计程序的时候，有时我们需要让程序在启动时就全屏显示。仅仅靠更改长和宽的长度吗？否，因为有时在你的电脑上能运行正常的窗体，在别的电脑上却无法正常显示。这种现象的出现可能是你所设置的屏幕分辨率与其他用户的设置不同而引起的。
在Form_Load事件中加入以下代码，可以让你的窗体始终以当前屏幕分辨率全屏显示。
Private Sub Form_Load()
Form1.Top = 0
Form1.Left = 0
Form1.Width = Screen.Width
Form1.Height = Screen.Height
End Sub
}
6.启动Windows时自动启动你的程序
除了修改注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run，还可这样做：新建一个TextBox，
名称为Text1，然后在程序中输入以下代码：
Text1.LinkTopic = "Progman|Progman"
Text1.LinkMode = 2 ’ 手动
Text1.LinkExecute ""
Text1.LinkExecute ""
假设你想把 "C:\Progman\1.exe" 作为放在“启动”资源
文件夹的程序（即启动Windows时自动启动的程序），则最后一
行的LinkExecute 应该如下 ：
Text1.LinkExecute ""
7.显示桌面
新建一个名称为CmdShowDesk的命令按钮，然后在程序中加入以下代码：
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Private Sub CmdShowDesk_Click()
Dim retVal As Long
retVal = ShellExecute(Me.hwnd, "Open", "显示桌面.scf", "", "", 1)
End Sub
这下在程序中最小化所有窗口可就方便多了。
8.如何取得文件大小？
VB6 提供了一个新的物件模型，叫做 FSO (File System Object) 物件模型，运用它，我们可以很方便的处理磁盘、资料夹和文件的一些动作。
FSO 物件模型含有好几个物件，其中有一个 File 物件是用来求得文件的相关资讯，在目前这个主题，我们就可以使用 File 物件！它有一个属性是 Size，对文件来说就是指文件的大小 (单位为位元组)。 (注一)
虽然使用 File 物件的 Size 属性就可以求得文件的大小，但是它有以下二个缺点：
1、只能用于 VB6 以后的版本。
2、它不是 VB6 内定的功能，必须另外引用 Scrrun.dll (Microsoft Scripting Runtime) 才可以！
以下的二个方法就可以使用在所有的 VB 版本中 (含 VB6)，而且是 VB 内定的功能：
1、FileLen 函数：返回一个 Long，代表一个文件的长度，单位是位元组。
语法：FileLen(pathname) ’ pathname 是全路径之文件名称
适用：取得一个尚未开启的文件的长度大小 (注二)
2、LOF 函数：返回一个 Long ，单位为位元组，用来代表由 Open 陈述式所开启的文件之大小。
语法：LOF(filenumber) ’ filenumber 是一个文件代码
适用：取得一个已开启的文件的长度大小
注一：File 物件的 Size 属性除了可以求得一个文件的大小，也可以用来取得整个目录的所有文件大小！
注二：使用 FileLen 函数时，如果所指定的文件正在开启中，则所返回的值是这个文件在开启前的大小。
9.如何检查软盘驱动器里是否有软盘？
Dim Flag As Boolean
Flag = Fun_FloppyDrive("A:")
If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical
’-------------------------------
’函数:检查软驱中是否有盘的存在
’-------------------------------
Private Function Fun_FloppyDrive(sDrive As String) As Boolean
On Error Resume Next
Fun_FloppyDrive = Dir(sDrive) 《》 ""
End Function
10.如何移除 Form 右上方之『X』按钮？
其实 Form 右上方之三个按钮分别对应到 Form 左上方控制盒 (ControlBox) 中的几个选项 (缩到最小 / 放到最大 / 关闭)，而其中的最大化 (MaxButton) 及最小化 (Minbutton) 都可以直接在 Form 的属性中设定，但是 VB 并没有提供设定『X』按钮的功能！要达到这个功能，必须借助 API：
由于『X』按钮对应到 ControlBox 的关闭选项，所以我们只要移除系统 Menu (就是ControlBox) 的关闭选项即可！您自己可以先看看您现在使用的 Browser 左上方的系统 Menu，【关闭】选项是在第几个，不是第 6 个！是第 7 个，分隔线也算一个！分隔线才是第 6 个！
当我们移除了关闭选项之后，会留下一条很奇怪的分隔线，所以最好连分隔线也一并移除。而 Menu 的 Index 是从 0 开始，分隔线是第 6 个，所以 Index = 5。
修正：为了让程序码在 Windows NT 也能运作正常，将各 Integer 型态改成 Long。 89.05.04
’抓取系统 Menu 的 hwnd
Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
’移除系统 Menu 的 API
Private Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
’第一个参数是系统 Menu 的 hwnd
’第二个参数是要移除选项的 Index

用VB做一个简单的小程序

Private Sub Command1_Click()
  Me.Cls
  Dim N As Integer, i As Integer
  N = InputBox("n=", , 9)
  For i = 1 To 2 * N - 1
    If i 《= N Then
      Print Space(N - i) + String(2 * i - 1, CStr(i))
    Else
      Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i))
    End If
  Next i
End Sub