| 千亿国际娱乐官网 | 千亿国际娱乐 | 双龙文学 | 电子图书 | 职教信息 | 学科资源 | 教师培训 | 试题中心 | 招生信息 | 就业信息 | 教育科研 | 
 | 党 支 部 | 教 务 处 | 总 务 处 | 心海扬帆 | 校 团 委 | 政 教 处 | 资源下载 | 图片信息 | 留 言 板 | 校 友 录 | 网络办公 | 
您现在的位置: 易门职中 >> 教 务 处 >> 教务信息 >> 正文 用户登录 新用户注册
VB制作个人信息录入程序
作者:无为    信息来源:本站原创    点击数:    更新时间:2012-5-8

程序参考源代码:

Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "姓名不能为空!" Else
If Text2.Text = "" Then MsgBox "学号不能为空!" Else
If Combo1.Text = "" Then MsgBox "请选择班级!" Else
If Len(Text4.Text) < 11 Then MsgBox "电话号码输入错误!" Else
Open App.Path & "\info.txt" For Output As #1
Print #1, Label1.Caption & Text1.Text
Print #1, Label2.Caption & Text2.Text
Print #1, Label3.Caption & Text3.Text
Print #1, Label4.Caption & Combo1.Text
Print #1, Label5.Caption & Text4.Text
Print #1, Label6.Caption & Text5.Text
Close #1
MsgBox "你的信息已成功保存到文件Tel.txt中。"
End
End Sub

Private Sub Command2_Click()
End
End Sub

信息录入:无为    责任编辑:王春宏 
  • 上一个信息:
  • 【返回列表页】
  • 下一个信息: 没有了
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
     
    栏 目 图 文

    VB模拟试题

    护理临床实习证…

    2010/2011学年冬…

    文化户口册填写…
    阅 读 排 行
    编 辑 推 荐
    相 关 文 章
    VB模拟试题
    博评网