预览加载中,请您耐心等待几秒...
1/5
2/5
3/5
4/5
5/5

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

1登陆界面 IfNotIsNumeric(Text1.Text)Then MsgBox"输入必须是数字",,"警告" 2简单计算器 PrivateSubCommand5_Click() IfNotIsNumeric(Text1.Text)Then MsgBox"输入必须是数字",,"警告" EndIf IfVal(Text1.Text)<0Then MsgBox"输入不能是负数",,"警告" EndIf a=Val(Text1.Text) c=Sqr(a) Label4.Caption=c EndSub PrivateSubCommand6_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=a*a Label4.Caption=c EndSub PrivateSubCommand7_Click() Form2.Hide Form3.Show EndSub 3密码框 PrivateSubCommand1_Click() IfText1.Text="201005064303"AndText2.Text="123456"Then Form3.Hide Form4.Show EndIf EndSub 4系部统计 PrivateSubCommand2_Click() List2.AddItemList1.List(List1.ListIndex) List1.RemoveItemList1.ListIndex Label5.Caption=List1.ListCount EndSub 5基本信息配置 IfCheck5.Value=1Then List2.AddItemCheck5.Caption EndIf EndSub PrivateSubCommand2_Click() End EndSub PrivateSubForm_Load() List1.AddItem"联想" List1.AddItem"方正" List1.AddItem"同方" List1.AddItem"IBM" List1.AddItem"HP" List1.AddItem"华硕" List1.AddItem"宏基" EndSub