1/17
文档分类:IT计算机

VB程序设计.doc


下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

特别说明:文档预览什么样,下载就是什么样。

下载所得到的文件列表
VB程序设计.doc
文档介绍:
实用标准文案
.
1. 编写程序,计算学生考试成绩,界面如图所示。要求:
(1) 程序启动时将窗体标题设置为“成绩计算”。
(2) 单击“清空”按钮(Command1将文本框Textl、Text2和Text3清空并将焦点设 置为Textl o
(3) 点击“计算”按钮(Command2计算学生总成绩并显示在 Text3中。其中总成绩=理
论成绩*0.7+实验成绩*0.3。
(4) 点击“退出”按钮(Command3结束程序运行。
参考代码:
Private Sub Form_Load()
Forml.Caption ="成绩计算"
End Sub
Private Sub Comma nd1_Click()
Text1.Text =""
Text2.Text =""
Text3.Text =""
Text1.SetFocus
End Sub
Private Sub Comma nd2_Click()
Text3.Text = Text1.Text * 0.7 + Text2.Text * 0.3
End Sub
Private Sub Comma nd3_Click()
End
End Sub
2. 设计一个用户名和密码的检验程序。要求:
(1) 窗体(Forml)的标题设置为“登录窗口” ;密码以 “* ”显示。
(2) 单击“确定”按钮(cdl)验证输入的用户名(Textl )和口令(Text2),如果输 入正确在Label3中显示“欢迎使用本系统”;如果不正确在Label3中显示“用户名或 密码错误”。设正确的用户名为“ admin”,口令为“ 123456”。
(3)单击“退出”按钮(cd2),结束程序。
属性窗口:将“确定按钮”的名称设置为 cd1, “退出按钮”的名称设置为cd2
参考代码:
Private Sub Form_Load()
Form1.Caption =" 登录窗口 "
Text2.PasswordChar = "*"
End Sub
Private Sub cd1_Click()
If Text1.Text = "admi n" And Text2.Text = "123456" Then
Label3.Caption =" 欢迎使用本系统"
Else
Label3.Caption =" 用户名或密码错误"
End If
End Sub
Private Sub cd2_Click()
End
End Sub
1.88页编程题第一题
(1)在窗体中放置一个文本框(Textl )、一个标签(Labell )和一个命令按钮(Comma nd1=
在Command1_Click事件中编写程序,对文本框中输入的成绩进行等级判断,标准是:
90分及以上为“优”,80分及以上为“良”,60分及以上为“及格”,其余为“不及格”, 并在标签中显示相应等级。
要求:分别用If…then…elseIf 语句和Select…Case语句编写程序。
参考代码:
Else
bz ="不及格"
End If
Label1.Capti on = bz
End Sub
Private Sub Comma nd1_Click()
Dim score As Si ngle,bz As Stri ng score = Val(Text1.Text)
Select Case score
Case Is >= 90
bz ="优"
Case Is >= 80
bz ="良"
Case Is >= 60
bz ="及格"
Case Else
bz ="不及格"
End Select
Label1.Capti on = bz
End Sub
Private Sub Comma nd1_Click()
Dim score As Sin gle, bz As Stri ng score = Val(Text1.Text)
If score >= 90 Then
bz ="优"
ElseIf score >= 80 The n
bz ="良"
ElseIf score >= 60 The n
bz ="及格"
2.88页编程题第二题
2
(2) 设计一个窗体,计算一元二次方程 ax +bx+c=O的根。
参考代码:
Private Sub Comma nd1_Click()
Dim pbs As Sin gle, a As Sin gle, b As Si ngle, c As Si ngle
Dim x1 As Sin gle, x2 As Si ngle
内容来自淘豆网www.taodocs.com转载请标明出处.
相关文档
非法内容举报中心
文档信息
  • 页数17
  • 收藏数0 收藏
  • 顶次数0
  • 上传人shijijielong001
  • 文件大小172 KB
  • 时间2021-09-15