VB程序设计.doc

实用标准文案
: .
1. 编写程序，计算学生考试成绩，界面如图所示。要求：
（1） 程序启动时将窗体标题设置为“成绩计算”。
（2） 单击“清空”按钮（Command1将文本框Textl、Text2和Text3清空并将焦点设 置为Textl o
（3） 点击“计算”按钮（Command2计算学生总成绩并显示在 Text3中。其中总成绩=理
论成绩*+实验成绩*。
（4） 点击“退出”按钮（Command3结束程序运行。
参考代码：
Private Sub Form_Load()
="成绩计算"
End Sub
Private Sub Comma nd1_Click()
=""
=""
=""

End Sub
Private Sub Comma nd2_Click()
= * + *
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（）
=" 登录窗口 "
= "*"
End Sub
Private Sub cd1_Click()
If = "admi n" And = "123456" Then
=" 欢迎使用本系统"
Else
=" 用户名或密码错误"
End If
End Sub
Private Sub cd2_Click()
End
End Sub

（1）在窗体中放置一个文本框（Textl ）、一个标签（Labell ）和一个命令按钮（Comma nd1=
在Command1_Click事件中编写程序，对文本框中输入的成绩进行等级判断，标准是：
90分及以上为“优”，80分及以上为“良”，60分及以上为“及格”，其余为“不及格”， 并在标签中显示相应等级。
要求：分别用If…then…elseIf 语句和Select…Case语句编写程序。
参考代码：
Else
bz ="不及格"
End If
on = bz
End Sub
Private Sub Comma nd1_Click()
Dim score As Si ngle,bz As Stri ng score = Val()
Select Case score
Case Is >= 90
bz ="优"
Case Is >= 80
bz ="良"
Case Is >= 60
bz ="及格"
Case Else
bz ="不及格"
End Select
on = bz
End Sub
Private Sub Comma nd1_Click()
Dim score As Sin gle, bz As Stri ng score = Val()
If score >= 90 Then
bz ="优"
ElseIf score >= 80 The n
bz ="良"
ElseIf score >= 60 The n
bz ="及格"

2
(2) 设计一个窗体，计算一元二次方程 ax +bx+c=O的根。
参考代码：
Private Sub Comma nd1_Click()
Dim pbs As Sin gle, a As Sin