本文目录
求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提供的组件快速建立一个应用程序。
用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)）复制，把里面+号分别改成-*/
如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。
感谢观看。
求5个简单VB代码（好的话追加50分）
1. 如何消除textbox中按下回车时的beep声？Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then KeyAscii = 0End IfEnd Sub2.Textbox获得焦点时自动选中。Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub3.防止程序被重复运行如果不希望应用程序被别人通过多次双击图标而重复运行，导致内存不足或其他意外，可以在Form_Load 中加入以下几行代码：Private Sub Form_Load()If App.PrevInstance ThenMsgBox " 程序正在运行，请检查窗口是否被最小化。"Unload MeEnd IfEnd Sub这几行语句在窗体加载时运行，判断当前程序是否正在被执行。如果正在执行，弹出信息窗口，同时退出程序。否则，继续运行程序。这个程序的效果，用运行按钮试运行是看不出来的。要存盘生成.EXE 文件，然后从外面运行它。4.让程序启动得更快VB 应用程序加载的时候会首先执行一个叫Form_Load 的过程。如果这个过程的代码太多，就会使程序的启动过程变慢。其实，在Form_Load()的第一行加一条语句：me.show这条语句的作用是先强行把窗体显示出来，使用户感觉程序的启动速度变快了。5.使窗体全屏显示在设计程序的时候，有时我们需要让程序在启动时就全屏显示。仅仅靠更改长和宽的长度吗？否，因为有时在你的电脑上能运行正常的窗体，在别的电脑上却无法正常显示。这种现象的出现可能是你所设置的屏幕分辨率与其他用户的设置不同而引起的。在Form_Load事件中加入以下代码，可以让你的窗体始终以当前屏幕分辨率全屏显示。Private Sub Form_Load()Form1.Top = 0Form1.Left = 0Form1.Width = Screen.WidthForm1.Height = Screen.HeightEnd 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 ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile AsString, ByVal lpParameters As String, ByVal lpDirectory As String,ByVal nShowCmd As Long) As LongPrivate Sub CmdShowDesk_Click()Dim retVal As LongretVal = 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 BooleanFlag = Fun_FloppyDrive("A:")If Flag = False Then MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", vbCritical’-------------------------------’函数:检查软驱中是否有盘的存在’-------------------------------Private Function Fun_FloppyDrive(sDrive As String) As BooleanOn Error Resume NextFun_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 的 hwndPrivate Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long’移除系统 Menu 的 APIPrivate 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 iEnd Sub
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代码..
Functionopentable(byvaltxtPathasstring)’【功能：建立数据库连接；状态：完成】Setconn=NewADODB.Connectionconn.CursorLocation=adUseClientconn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="&txtPath&";"Setres=NewADODB.RecordsetEndFunctionFunctionclosetable()’【功能：关闭数据库连接；状态：完成】conn.CloseEndFunctionsetres=newadodb.recordsetres.Open"select管理用户,登录密码from管理员信息where管理用户=’"&Me.管理用户&"’and登录密码=’"&Me.登录密码&"’"IfNotres.EOFThenIfrs.Fields("登录密码")=Me.登录密码Thenadlogin=TrueEndIf
