[VB6.0使用ADO对象连接数据库]1． 定义连接对象 Global DBconnect As New ADODB.Connection 2． 执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close 连接OD...+阅读

Private Sub Command1_Click(Index As Integer) '0-9数字键 Text1.Text = Text1.Text & Index Text1.SetFocus End Sub Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) '阻止键盘输入，不过不知为什么没有用 KeyAscii = 0 End Sub Private Sub Command2_Click(Index As Integer) ' ＂.＂键 Text1.Text = Text1.Text & ＂.＂ End Sub Private Sub Command3_Click（) '退格键 If Text1.Text = ＂＂ Then Exit Sub End If Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command4_Click（) '清除键 Text1.Text = ＂＂ End Sub Private Sub Command5_Click(Index As Integer) '做运算，总觉得逻辑上哪有问题 shu1 = Val(Text1.Text) process = shu1 Text1.Text = ＂＂ If judge = Command5(0) Then process0 = shu1 + Command(0) ElseIf judge = Command5

(1) Then process1 = shu1 + Command5

(1) ElseIf judge = Command5

(2) Then process2 = shu1 + Command

(2) ElseIf judge = Command5

(3) Then process3 = shu1 + Command5

(3) End If shu2 = Val(Text1.Text) End Sub Private Sub Command6_Click（) '等号 result = process + shu2 Text1.Text = result If process0 Then result = shu1 + shu2 ElseIf process1 Then result = shu1 - shu2 ElseIf process2 Then result = shu1 * shu2 ElseIf process3 Then result = shu1 / shu2 End If End Sub Private Sub Text1_Change() If judge = False Then shu2 = Val(Text1.Text) End If Text1.SetFocus End Sub

我想用vb编一个计算器但不知道等按钮的程序代码

Dim Num1, Num2 As Single Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean Dim PointFlag As Boolean Dim Runsign As Integer Dim SignFlag As Boolean Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then StrNum1 = Str(Index) FirstNum = False Else StrNum1 = LTrim(StrNum1) + LTrim(Str(Index)) End If Text1.Text = Val(StrNum1) Case 10 If Not PointFlag Then If FirstNum Then StrNum1 = ＂0.＂ FirstNum = False Else StrNum1 = LTrim(StrNum1) + LTrim(＂.＂) End If Else Exit Sub End If PointFlag = True Text1.Text = Val(StrNum1) Case 12 To 15 FirstNum = True PointFlag = False If SignFlag Then Call Run Else SignFlag = True StrNum2 = StrNum1 StrNum1 = ＂＂ End If Runsign = Index - 11 Case 11 On Error Resume Next If Not SignFlag Then Text1.Text = StrNum1 equal = Val(StrNum1) FirstNum = True PointFlag = False Else Call Run SignFlag = False End If Case Else Call ClearData End Select End Sub Sub ClearData() Num1 = 0 Num2 = 0 StrNum1 = ＂＂ StrNum2 = ＂＂ FirstNum = True PointFlag = False Runsign = 0 SignFlag = False Text1.Text = 0 End Sub Sub Run() On Error Resume Next Dim equal As Single Dim equal2 As Double Num1 = Val(StrNum2) Num2 = Val(StrNum1) Select Case Runsign Case 1 equal = Num1 + Num2 If Num1 >= 65536 Or Num2 >= 65536 Or equal >= 65536 Then equal = 0 equal2 = Num1 + Num2 End If Case 2 equal = Num1 - Num2 If Num1 >= 65536 Or Num2 >= 65536 Or equal >= 65536 Then equal = 0 equal2 = Num1 - Num2 End If Case 3 equal = Num1 * Num2 If Num1 >= 65536 Or Num2 >= 65536 Or equal >= 65536 Then equal = 0 equal2 = Num1 * Num2 End If Case 4 equal = Num1 / Num2 If Num1 >= 65536 Or Num2 >= 65536 Or equal >= 65536 Then equal = 0 equal2 = Num1 / Num2 End If End Select If equal = 0 Then a = equal2 Else a = equal StrNum2 = Str(a) StrNum1 = StrNum2 Text1.Text = Val(StrNum2) End Sub Private Sub Command2_Click() Text1.Text = ＂＂ ipnum1 = 0 equal = 0 equal1 = 0 equal2 = 0 equal3 = 0 equal4 = 0 Num1 = 0 Num2 = 0 StrNum1 = 0 StrNum2 = 0 End Sub Private Sub Command3_Click() Dim ch As String Dim Out As String Dim x As Integer ch = Text1.Text x = Len(ch) If x >0 Then Out = Mid(ch, 1, x - 1) Text1.Text = Out End If End Sub 这是我做的，页面上18个按钮，1—10是数字1-9，其他的功能你自己摸索下，分别是加减乘除等于小数点清零退格，别忘了放个textbox

vb计算器代码

+，-，*，/四个就用按钮command11~command14 变量sum,cha,mass,sang firstone=flase --------------------------------- Private Sub Command0_Click(Index As Integer) Text1.text=0 end sub ---------------------------------- Private Sub Command1_Click(Index As Integer) Text1.text=1 end sub ---------------------------------- Private Sub Command2_Click(Index As Integer) Text1.text=2 end sub ---------------------------------- Private Sub Command3_Click(Index As Integer) Text1.text=3 end sub ---------------------------------- Private Sub Command4_Click(Index As Integer) Text1.text=4 end sub ---------------------------------- Private Sub Command5_Click(Index As Integer) Text1.text=5 end sub ---------------------------------- Private Sub Command6_Click(Index As Integer) Text1.text=6 end sub ---------------------------------- Private Sub Command7_Click(Index As Integer) Text1.text=7 end sub ---------------------------------- Private Sub Command8_Click(Index As Integer) Text1.text=8 end sub ---------------------------------- Private Sub Command9_Click(Index As Integer) Text1.text=9 end sub ---------------------------------- Private Sub Command11_Click(Index As Integer) if firstone then sum=Cstr(sum)+Cstr(Text1.text) else sum=Text1.text firstone=true End If End Sub ---------------------------------- Private Sub Command12_Click() if firstone then cha=Cstr(cha)-Cstr(Text1.text) else cha=Text1.text firstone=true End If End Sub -------------------------------------- Private Sub Command13_Click() if firstone then mass=Cstr(mass)*Cstr(Text1.text) else mass=Text1.text firstone=true End If End Sub ------------------------------------- Private Sub Command14_Click() if firstone then sang=Cstr(sang)/Cstr(Text1.text) else sang=Text1.text firstone=true End If End Sub ---------------------------- 只有一部分。

不是很完整的。

VB编写的计算器代码

'要frm加我Q23652841 Dim op1 As Byte ' 用来记录前面输入的操作符 Dim ops1 As Double Dim ops2 As Double ' 两个操作数 Dim res As Boolean ' 用来表示是否已算出结果 Private Sub clear_Click（) '清0 dataout.Caption = ＂＂ End Sub Private Sub Command2_Click（) '等号 ops2 = Val(dataout.Caption) Select Case op1 Case 0 dataout.Caption = ops1 + ops2 Case 1 dataout.Caption = ops1 - ops2 Case 2 dataout.Caption = ops1 * ops2 Case 3 If ops2 = 0 Then dataout.Caption = ＂无值＂ Exit Sub End If dataout.Caption = ops1 / ops2 End Select res = True ' 已算出结果 End Sub Private Sub Command3_Click(Index As Integer) '功能键 ops1 = Val(dataout.Caption) op1 = Index ' 记下对应的操作符 dataout.Caption = ＂＂ End Sub

以下为关联文档：

VB6 0基础教程学习？？？？？原发布者：地球木乃伊 计算机等级考试二级VB基础教程1.1 VisualBasic概述1.VisualBasic是什么 VisualBasic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。...

你好！请问vb6 0中怎样远程访问access数据库在工程里引用microsoft activex data objects 2.7 library Dim cn As New ADODB.Connection, rs1 As New ADODB.Recordset, sql As String '在通用声明里定义，其中cn是连接对...

请教VB6字符串如何转化为16进制BYTE数组VB字符串可通过使用StrConv 函数，将字符串由 Unicode 转成系统的缺省码页后，再获取每个字节的十六进制字符后拼接起来。 StrConv 函数，返回按指定类型转换的 Variant (String)...

怎么用vb6 0编ActiveX控件都四级了。还0分悬赏~小气了点吧。 创建一个ActiveX控件工程 在“文件”选单中选择“新建工程”，然后双击“ActiveX控件”图标，生成一个控件工程项目（缺省名UserControl1）。此时...

求vb6 0函数和语句大全 ！一、Val 函数 返回包含于字符串内的数字，字符串中是一个适当类型的数值。 语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数，在它不能识别为...

VB6 0精简版是什么东西怎么用呃，这个怎么说呢，可以说是计算机方面的专业知识。先给你说一下： ＂Visual Basic v6.0(vb6.0官方下载)是用来创建高性能的企业应用程序及基于 Web的应用程序的最有效工具。Visual...

Vb6 0精简版与完整版有什么区别Vb6.0精简版与完整版区别如下： 1、Vb6.0完整版包含了Vb所有的控制条件和使用工具，而Vb6.0精简版只集成了最基础的控件和Microsoft Visual Basic 6.0软件，不包含以下软件： (1)Vb6...

VB6 TEXT控件数组你是不是form上有十个text1(1)~text1(10)的textbox控件数组，还有一个text2，然后需要比如在text2中输入5，那么text1(6)~text1(10)的可见性都变成false? 只需要作一个改动 将If t...

VB6 0倒计时的小程序Dim ydsj As Date Private Sub Form_Load() ydsj = InputBox（＂请输入约定时间！格式如括号里：（年号/月号/日子）或者又如括号里：（年号/月号/日子空格小时：分钟：秒数）如下格式：＂， ， ＂2011/1/1 0...