vb

inputbox（“请输入”，“title” ，“1991-121-12”）
cls 清空窗体内筒
msgbox “这是第一次” & a & “单机”
Dim a as Integer

模式窗体
Form2.Show 显示当前窗体，可以操作其他窗体
Form2.Show (1) 显示当前窗体，不可以操作其他窗体

空间之间赋值
a=Text1.Text
Text2=a

随机数
a=rnd

数据类型
常量：
const a as double =3.146464

case语句

Private Sub Command3_Click()
Dim s, m, result As Double

s = Text1
m = Text2


Select Case a
Case "+"
    result = Val(s) + Val(m)
Case "-"
    result = Val(s) - Val(m)
End Select
Text3 = result


End Sub

if语句

Dim a, b As Double

a = Text1
b = Text2

If a > b Then
MsgBox "a>b"
ElseIf a < b Then
MsgBox "a<b"
Else
MsgBox "a=b"
End If

内置函数

数学函数

		a=val（Text1.Text）将字符串转化为数字
	
		fix（a）取整
		int（a）取整

		abs（a）取绝对值

		sgn（a）判断值为正数或负数

	    sqr（a）求平方根
		
		log（a）取对数

三角函数

		sin（a）
		cos（a）
		tan（a）

字符串函数

		trim（a） 删除空格
		Ltrim（a）删除左边空格
		RTrim（a）删除右边空格

		left（a，6） 从左边开始截取6个zifu
		mid（a ， 2,6）从索引值2开始截取6个字符
		right（a，6）从右边开始截取6个字符
		
		Len(a) 字符串a的长度
		Space（5）插入5个空格
		UCase（a）小写转大写
		LCase（a）大写转小写
		Str（a）数字转字符

		instr（a，b） 找出b在a中第一次出现的索引值，找不到返回0 （vb的字符串索引值从1开始）
		Asc（a）获取字符串第一个字符的ASCII码值
		Chr（97）输入码值转化为字符

随机数函数

		rnd（10） 产生[0,10)之间的随机数

数据类型转换函数
CInt（10.56） 将小数转化正数，四舍五入
CCur（10.588）将小数四舍五入到（最后一位-1）

		CLong（10.598） 将小数转化正数，四舍五入
		CSgn（10.5321）转化为单精度（保留3位小数）
		CDbl（10.544545）转化为双精度
		CDate（“2019/12/16”） 转化为日期

日期时间函数

		Now（）   获取当前系统的时间字符串  2019-12-12  12:12:12
		Date（）	 获取当前系统的时间字符串   2019-12-12
		Time（）	 获取当前系统的时间字符串   12:12:12

		a=CDate（“2019/12/16”） 转化为日期
		
		Year（"2019-12-12  12:12:12"） 获取年份
		Month（"2019-12-12  12:12:12"） 获取月份
		Day（"2019-12-12  12:12:12"） 获取日
		weekday（"2019-12-12  12:12:12"） 获取星期几
		Hour（“"2019-12-12  12:12:12"”）获取小时
		Minute（“"2019-12-12  12:12:12"”） 获取分钟
		Second（“"2019-12-12  12:12:12"”） 获取秒

输入输出函数

			Print "籍贯", Tab(10), "汉族"  输出籍贯汉族。汉族输在第10列
			
			Print "籍贯", Spc(10), "汉族"  输出籍贯汉族。在籍贯和汉族之间有20个空格
			Print "籍贯", Space(10), "汉族"  输出籍贯汉族。在籍贯和汉族之间有20个空格

			Print  format（"23.55555", “##.##”）格式转换函数
		
		    a=inputbox（“请输入内容”，“title” ，“默认”）  输入对话框

			msgbox  “hello world”  消息对话框