VB 点击一下按钮使N 数值自动加一

vb点击按钮变量加一后不能实现叠加~

你只是从数据库中读出相应的数据，然后在内存运行对X加一，但是加一之后的结果没有写入数据库，所以数据库中的内容没有改变。

Dim i As Integer
Private Sub Command1_Click()
i = i + 1
Label1.Caption = i
End Sub

Private n As Long
Private Sub Command1_Click()
n = n + 1
Caption = n
End Sub

或者

Private Sub Command1_Click()
Static n
n = n + 1
Caption = n
End Sub

只要在写点击动作的时候设定一个计数器 每次点击就计数器加1就可以
初始值设为6不就可以了，楼下是正解，我只会VC

Private Sub Command3_Click()
Static a As Long
if a=0 then a=5
a = a + 1
MsgBox a
End Sub

---

乌什县18736877565： vb怎样实现键盘按下n键,在文本框中出现“n+”这个字符串？
益响新开： Private Sub Form_Initialize() Text1.Text = ＂＂ End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyN Then Text1.Text = Text1.Text + ＂+＂ End If End Sub

乌什县18736877565： VB问题:编一程序,点一次按钮数值增加一 - ？
益响新开： 假设你的原数值是在一个 文本框中显示的,名字假定为text1 然后按钮的名字假定为command1代码如下: private sub command1_click() dim a a=val(text1.text) a=a+1 text1.text=a end sub

乌什县18736877565： 在VB中,怎样实现每点击一次按钮变量增加一?？
益响新开： sub command1_click()static icount as longicount=icount+1end sub定义一个静态变量即可.

乌什县18736877565： vb中frame的caption为“第n局”我要单击一次command n为1 再单击n为2 一直加上去,怎么实现 - ？
益响新开： 不要变量,这样即可.Tag属性又叫标签属性,作用就类似给Frame1加个备注一样,你可以写一些你想要写的东西,默认下是空.这时可以利用它来存放局数.Private Sub Command1_Click() Frame1.Tag = Val(Frame1.Tag) + 1 Frame1.Caption = ＂第＂ & Frame1.Tag & ＂局＂ End Sub

乌什县18736877565： 在VB如何实现点击一下递增1个数 - ？
益响新开： public i as integer; private sub command1_click() i=i+1 end sub

乌什县18736877565： 在vb中若何实现每单击按钮一次,就增加1,不知要用到哪一个内置函数,像.NET中的cookies,session一样 - ？
益响新开： 在该按钮单击事件中 输入以下代码:static a as integer a = a+1 msgbox ＂单击次数为:＂ & a

乌什县18736877565： Delphi 中怎么实现 “VB 点击一下按钮使窗体 数值自动加一”程序？
益响新开： 先把窗体的标题弄为一个数值,比如1,在弄个按钮,双击该按钮,写入一下代码 procedure TForm1.Button1Click(Sender: TObject); var zengjia:integer;//声明zengjia是个整型变量 begin zengjia:=strtointdef(form1.Caption,0)+1; //标题+1 form1.Caption:=inttostr(zengjia);//得到后赋予标题 end;

乌什县18736877565： vb软件制作计次器,就是点击 命令按钮控件3次后,标签框里的数字就+1. - ？
益响新开： 这个很容易吧 按钮click事件下面写代码 将标签的标题转换到数值然后加1 再转换到字符串 赋值给标签

乌什县18736877565： VB中,如何让一个变量b,每点击一下按钮就自增1,要从0开始的 应该在B=B+1 前或者后加个什么代码? - ？
益响新开： b定义成全局变量 Dim b As Integer Private Sub Command1_Click() b = b + 1 MsgBox b End Sub

乌什县18736877565： VB怎么实现点击“新建”按钮自动编号,每点击一次自动加一,并且判断每天从001开始累加.？
益响新开： 窗体的open事件中将存贮编码的文件读出,将当日的最后一个号码显示在屏幕的text控件上,若是昨天的号码,就默认当天的第一个号码 按钮事件中,将号码数量增加,并显示在text控件上 窗体推出事件时,将最后号码一个存入文件中