- 1、本文档共3页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)