vb，简单到极点的挂机程序，当第二个窗体运行后，在文本框中输入在窗体一中设置的挂机密码后，弹出密码错

Question

MSGBOX 自己设置的（密码错误）
form1：
Private Sub Command1_Click()
If Text2.Text <> tex.Text Then
MsgBox "确认密码有误，请重新确认密码", 16, "确认密码错误"
ElseIf tex.Text = "" Or Text2.Text = "" Then
MsgBox "密码不能为空", 16, "错误"
ElseIf Text2.Text = tex.Text Then
Form2.Show
Unload Me
txt = tex.Text
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Label3.FontSize = 13
Label1.FontSize = 10
Label2.FontSize = 10
tex.FontSize = 20
Text2.FontSize = 20
End Sub

form2：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "密码不能为空", 16, "错误"
ElseIf Text1.Text <> txt Then
MsgBox "解锁密码错误", 16, "密码错误"
ElseIf Text1.Text = txt Then
Unload Me
End If
End Sub

Private Sub Form_Load()
Label1.FontSize = 40
Label2.FontSize = 50
Command1.FontSize = 40
Me.WindowState = 2
Text1.FontSize = 20
End Sub

Private Sub Form_Resize()
Command1.Left = Me.ScaleWidth / 2.5
Command1.Top = Me.ScaleHeight / 1.5
Text1.Top = Me.ScaleHeight / 2.5
Text1.Left = Me.ScaleWidth / 2.5
Label1.Top = Me.ScaleHeight / 2.5
Label1.Left = Me.ScaleWidth / 20
Label2.Top = Me.ScaleHeight / 20
Label2.Left = Me.ScaleWidth / 3
End Sub

Private Sub Timer1_Timer()
If Label2.Left > 0 Then
Label2.Left = Label2.Left - 200
ElseIf Label2.Left = 0 Then
Label2.Left = Me.ScaleWidth
End If

Answer 1

你要哪方面的单词？？函数？？语句？？方法？？属性？？事件？？
说明白点啊。

对象
form——窗体
pointer——指针
picturebox——图片框
label——标签
textbox——文本框
frame——框架
commandbutton——命令按钮
optionbutton——单选按钮
checkbox——复选框
listbox——列表框
hscrollbar/vscrollbar——水平/垂直滚动条
timer——计时器
drivelistbox——驱动器列表框
dirlistbox——目录列表框
filelistbox——文件列表框
shape——形状
line——直线
image——图像
data——数据
OLE——对象链接与嵌入
commondialog——通用对话框
grid——表格

VB基本数据类型
byte——字节
boolean——布尔
integer——整形
long——长整形
single——单精度型
double——双精度型
currency——货币类型
date——日期
object——对象
string——字符串
variant——变体型

转换函数
int(x)——求不大于x的最大整数
fix(x)——截取尾数
hex(x)——把十进制数转换成十六进制数
oct(x)——把十进制数转换成把进制数
asc(x)——返回x（x为一字符串）中第一个字符的ASCII码
chr(x)——把x的值转换成为ASCII字符
str(x)——把x的值转换成字符串
val(x)——把字符串x转换成为数值
cint(x)——把x的值四舍五入取整
ccur(x)——把x的值四舍五入为货币类型
cdbl(x)——把x的值转换为双精度数
clng(x)——把x的值四舍五入为长整型数
csng(x)——把x的值转换为单精度数
cvar(x)——把x的值转换为变体类型值

数学函数
sin(x)——返回x的正弦值
cos(x)——返回x的余弦值
tan(x)——返回x的正切值（注意：前三个函数中x的单位均为弧度^_^）
atn(x)——返回x的反正切值
abs(x)——返回x的绝对值
sgn(x)——返回x 的符号（负数为-1，0为0，正数为1）
sqr(x)——返回x的平方根
exp(x)——求e的x次方
rnd[(x)]——产生随机数（一般和randomize搭配使用^_^）
log(x)——返回x的自然对数（即lg3，注意这一点和数学上的差异^_^）

时间和日期函数
now——返回系统日期/时间
day(d)——返回当前的日期
weekday(d)——返回当前的星期
month(d)——返回当前的月份
year(d)——返回当前的年份
hour(t)——返回当前小时
minute(t)——返回当前分钟
second(t)——返回当前秒
timer——返回从午夜开始已经过的秒数
time——返回当前时间

字符串函数（打得我好辛苦T_T）
ltrim(S)——去掉S左边的空格
rtrim(S)——去掉S右边的空格
trim(S)——去掉S两边的空格
left(S,n)——取S左部n个字符
mid(S,p,n)——从p开始取S的n个字符
right(S,n)——取S右部n个字符
len(S)——测试字符串的长度（字符）
lenb(S)——测试字符串的长度（字节）
string(n,S)——返回由n个S首字符组成的字符串
space(n)——返回n个空格
instr(n,S1,S2)——在S1中查找S2
ucase(S)——把S转换为大写字母
lcase(S)——把S转换为小写字母

窗体属性
autoredraw——自动重画
backcolor——背景颜色
borderstyle——边框类型
caption——标题
controlbox——控制框
enabled——允许
font——字形(具有子属性，如fontsize——字体大小 fontname——字体类型 fontcolor——字体颜色 fontbold——加粗 fontitalic——倾斜 fontstrikethru——加删除线 fontunderline——加下划线)
forecolor——前景颜色
height/width——高/宽
icon——图标
maxbutton/minbutton——最大/小化按钮
name——名称
picture——图形
top/left——顶边/左边距离
visible——可见性
windowstate——窗口状态

窗体事件
click——单击
dblclick——双击
load——装入
unload——卸载
activate/deactivate——活动/非活动
paint——绘画

与print(输出)方法有关的函数和方法
tab[(n)]——把光标移到由n指定的位置
spc(n)——跳过n个空格
space(n)——返回n各空格
cls——清除
move——移动
format——格式输出

inputbox——输入对话框函数
msgbox——信息对话框函数或语句

其他那些标准控件的属性就不一一举出了，告诉你一个方法，在窗体上选中某个控件，那个控件的属性会在属性列表框里出现，你选中某个属性，关于这个属性的解释会在属性列表框的下半部分被列出来。

（呼呼，不小的工程啊，都是我一个字一个字的敲进去的，那叫一个累。。。VB其实很好学的，不知亲下半年是不是要参加等级考试，我们下半年就要考了，也算是给自己复习一遍好了。后头那些比较偏的鼠标键盘事件过程，菜单、对话框、多窗体程序设计，以及文件方面的就暂时没有给出来，先把这些基础的掌握吧。亲要加油啊，也不枉费我那么辛苦的归纳和输入。。。）

Answer 2

到论坛里找高手吧