 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
在VB中可变类型变量的使用
下载积分：400
内容提示：在VB中可变类型变量的使用
文档格式：PDF|
浏览次数：203|
上传日期： 12:04:54|
文档星级：
全文阅读已结束，如果下载本文需要使用
 400 积分
下载此文档
该用户还上传了这些文档
在VB中可变类型变量的使用
官方公共微信想做一个时间变量的vb有会的进来帮一下吧_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：102,804贴子：
想做一个时间变量的vb有会的进来帮一下吧收藏
以下是我写的vb代码 这个时间是固定的 只要打开程序就执行按钮1 现在我想再加一个按钮2 让时间每点击按钮2一次 时间就增加一秒 然后程序执行 加一秒后的时间也就是20:00:01然后继续每秒钟点击一次 以此类推，有大神会吗？Private Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 10End SubPrivate Sub Command1_Click() Date = && Time = &20:00:00&
End SubPrivate Sub Timer1_Timer()Command1_ClickEnd Sub
你这段代码……锁定电脑时间？那你的要求不就是锁定完之后再解除锁定么……按钮2里写Timer1.Enabled=False就行了
是+1秒之后再锁定电脑时间。 如果写Timer1.Enabled=False 时间会一直走下去了
感觉这个对于大神来讲应该没多难吧？
所以你说那句“每秒钟点击一次”干什么……你应该说“随便过多长时间之后点击按钮2就+1s”在通用区域定义变量：Dim DateTime1 As Date在Form_Load中加上这句：DateTime1 = #1/1/:00 PM#把Command1_Click中的语句改为如下语句：Date = DateValue(DateTime1)Time = TimeValue(DateTime1)在Command2_Click中写如下语句：DateTime1 = DateAdd(&s&, 1, DateTime1)
Private Sub Command2_Click()
Timer1.Interval = 1000End SubPrivate Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 0End SubPrivate Sub Command1_Click()
Dim d As String
Dim date1 As String
Dim time1 As String
Static i As Long
date1 = &&
time1 = &20:00:00&
d = DateAdd(&s&, i, date1 & & & & time1)
Label1.Caption = Format(d, &General Date&)
Me.Caption = Format(Now, &General Date&)
End SubPrivate Sub Timer1_Timer()
Command1_ClickEnd Sub
登录百度帐号推荐应用匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。在VB中，定义变量和自定义函数有什么不同
在VB中，定义变量和自定义函数有什么不同
在VB中，函数和变量有什么不同？谢谢！
定义一个函数是指定义一个代码段。有指定的功能，允许传进去多个值并且返回一个值。
当一个代码段需要被重复使用时，就需要用到函数。
而变量是指在内存中的一块存储指定数值的区域。这个块存放什么东西要看类型。VB的类型可以按Dim a as后敲空格。常用变量类型有
Integer整型 存放32766～-32767之间的整数。
Long长整型 比Integer存放量更大
Double/Float精度 带有小数点后...位的数。
String字符串
不同的变量使用时必须转换。
转换为String需要使用VB自带函数CStr()
转换为Integer：CInt()
转换为数字：Var()
Private Sub Command1_Click()
Text1.Text = Convert(Text1.Text) '执行函数并将返回值存储到Text1.text属性中。参数为Text1.text
Private Function Convert(str As String) As String
On Error GoTo ConvertError
Dim i As Integer '定义名为i的Integer类型变量
i = CInt(str) '将str转换为Integer类型并保存到变量i中
'此时如果str字符串里存放着非数字的字符串则报异常，自动调转到ConvertError标签中。
i = i * 5 + 2 - 3
Dim ReturnStr As String '定义变量
ReturnStr = CStr(i) '转换为String类型并保存到ReturnStr中
Convert = ReturnStr '返回这个String类型值
Exit Function '跳出函数，否则执行错误处理
ConvertError:
'输入的不是数字时自动提示
MsgBox &确认输入的是数字吗？&
End Function
附件：a.zip
请遵守网上公德，勿发布广告信息
相关问答：
'定义变量：
Public a As String
Dim b As String
'定义函数
Public Function c(x as String, y as Integer,...) As String
'函数代码段
End Function
Function d(x As String, y As Integer,...) As String
'函数代码段
End Function
'上面Public也可以用Private，视定义域而定【图文】掌握VB基本数据类型掌握VB中的常量与变量_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
掌握VB基本数据类型掌握VB中的常量与变量
上传于|0|0|文档简介
&&掌握VB基本数据类型掌握VB中的常量与变量
大小：500.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢}