网站大量收购闲置独家精品文档,联系QQ:2885784924

VB实验报告期末考试附带截图.doc

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB实验报告期末考试附带截图

课程名称:vb程序设计 实验名称:多窗体实验 班级 姓名: 一实验目的 掌握多窗体程序设计的一般步骤和方法 熟悉各种控件的作用的用途 二实验内容 创建FORM1,添加FRAME COMMAND 控件 创建FORM2,添加text控件 输入文字,用command控件来控制文字的进入和退出 创建FORM3添加FRAME 进行加密处理 三实验步骤 代码如下:Private Sub Command1_Click() Me.Hide Form2.Show End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim dj As String If KeyAscii = 13 Then n = Val(Text1.Text) Select Case n Case Is 60 dj = 不及格 Case Is 70 dj = 及格 Case Is 80 dj = 中等 Case Is 90 dj = 良好 Case Else dj = 优秀 End Select Label1.Caption = 该同学的成绩为: n 分, Chr(13) 等级: dj Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub Private Sub Text1_Validate(Cancel As Boolean) n = Val(Text1.Text) If n 150 Then MsgBox 请输入正确分数! Cancel = True End If End SubPrivate Sub Command1_Click() Text1.Visible = True Text1.Text = 您好,欢迎使用程序,祝您学业有成!谢谢! End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Me.Hide Form3.Show End Sub Private Sub Form_Load() Caption = Visual Basic 应用程序 Text1.FontName = 宋体 Text1.FontSize = 18 Text1.FontBold = True Text1.FontItalic = True Text1.ForeColor = HFF Text1.BackColor = H80FFFF Text1.Visible = False Command1.Caption = 显示 Command1.FontSize = 20 Command1.FontName = 隶书 Command2.Caption = 退出 Command2.FontSize = 20 Command2.FontName = 隶书 End Sub Private Sub Text1_Change() End Sub Private Sub Form_Load() Text1.Text = Text1.FontSize = 10 Label1.FontSize = 12 Label1.FontBold = True Label1.FontName = 隶书 Label1.Caption = 问君能有几多愁,,, End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static PWord As String Static Counter As Integer Numberoftries = Numberoftries + 1 If Numberoftries = 12 Then End Counter = Counter + 1 PWord = PWord + Chr$(KeyAscii) KeyAscii = 0 Text1.Text = String$(Counter, *) If LCase$(PWord) = abcd Then Text1.Text = PWord = 0 MsgBox 回答正确,继续,,, Counter = 0 Print continue... ElseIf Counter = 4 Then Counter = 0 PWord = Text1.Text = MsgBox 回答错误,重新回答。 End If End Sub

文档评论(0)

xcs88858 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档