VB笔记

大佬教程收集整理的这篇文章主要介绍了VB笔记，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Option explicit 声明必须先定义后使用

Unload me 关闭程序

Debug.Print s '将结果输出到立即窗口

Form2.show 显示另一个窗口

chr(13) 换行符 vbCrLf

Text1.Setfocus 设置光标的位置

固定窗口大小，能最小化的方法：Borderstyle = 1,MaxButton = true,MinButton = true

Formatnumber(drv1.@R_639_10586@lSize / 1024,0)格式化数字的函数，类似12,345,678，0表示小数位

round(expression,num) round(表达式，要显示的小数位默认为0)，进行4舍5入

静态变量的定义：

与Dim变量名 As数据类型类似：Static变量名 As数据类型

全局变量的定义：

Public变量名As数据类型

Val函数：

NumVal = val(“1233”)类似 NumVal = 1233

NumVal = val(“12 22”)类似 NumVal = 1222

NumVal = val(“12 and 22”)类似 NumVal = 12

Str = Right(“abcde”,2)类似 str = de

选择语句：

Private Sub Command1_Click()

Static j As Integer '定义静态变量

j = j + 1 '计数

If j > 3 Then

@H_95_2@msgBox "只能运行3次"'提示信息

Exit Sub '跳出过程

End If

Dim i As Integer '记录输入数字

i = Val(InputBox("请输入数字"))

SELEct Case i

Case 1

@H_95_2@msgBox "一"

Case 2

@H_95_2@msgBox "二"

Case 3

@H_95_2@msgBox "三"

Case Else

@H_95_2@msgBox "我只会数到3"

End SELEct

End Sub

判断语句：

Private Sub Command1_Click()

Dim a As String,b As String

a = "xiaodong" '用户变量名赋值

b = "password" '密码变量赋值

If Text1.Text = b And Text2.Text = a Then '如果用户名和密码都输入正确

user = Text2.Text

Form2.Show

Else

@H_95_2@msgBox "用户名或密码输入错误"

End If

End Sub

大佬总结

以上是大佬教程为你收集整理的VB笔记全部内容，希望文章能够帮你解决VB笔记所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。