VB程序设计

1.编写程序，计算学生考试成绩，界面如图所示。要求：

（1）程序启动时将窗体标题设置为“成绩计算”。

（2）单击“清空”按钮（Command1）将文本框Text1、Text2和Text3清空并将焦点设置为Text1。

（3）点击“计算”按钮(Command2)计算学生总成绩并显示在Text3中。其中总成绩=理论成绩*0.7+实验成绩*0.3。

（4）点击“退出”按钮(Command3)结束程序运行。

参考代码：

Private Sub Form_Load()

Form1.Caption = "成绩计算"

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Text3.Text = Text1.Text * 0.7 + Text2.Text * 0.3

End Sub

Private Sub Command3_Click()

End

End Sub

2.设计一个用户名和密码的检验程序。要求：

（1）窗体（Form1）的标题设置为“登录窗口”；密码以“*”显示。

（2）单击“确定”按钮（cd1）验证输入的用户名（Text1）和口令（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 = "admin" And Text2.Text = "123456" Then

Label3.Caption = "欢迎使用本系统"

Else

Label3.Caption = "用户名或密码错误"

End If

End Sub

Private Sub cd2_Click()

End

End Sub

1.88页编程题第一题

（1）在窗体中放置一个文本框（Text1）、一个标签（Label1）和一个命令按钮（Command1）。在Command1_Click事件中编写程序，对文本框中输入的成绩进行等级判断，标准是：90分及以上为“优”，80分及以上为“良”，60分及以上为“及格”，其余为“不及格”，并在标签中显示相应等级。

要求：分别用If…then…elseIf语句和Select…Case语句编写程序。

参考代码：

Private Sub Command1_Click() Dim score As Single,bz As String 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.Caption = bz

End Sub

Private Sub Command1_Click() Dim score As Single, bz As String score = Val(Text1.Text)

If score >= 90 Then

bz = "优"

ElseIf score >= 80 Then

bz = "良" ElseIf score >= 60 Then bz = "及格"

Else

bz = "不及格"

End If

Label1.Caption = bz End Sub

2.88页编程题第二题

（2）设计一个窗体，计算一元二次方程ax2+bx+c=0的根。

参考代码：

Private Sub Command1_Click()

Dim pbs As Single, a As Single, b As Single, c As Single

Dim x1 As Single, x2 As Single

Dim flag As Boolean

flag = True '标志

'判断输入的是否为数字，使用多分支结构（考试时该部分可以不写）If Not IsNumeric(Text1.Text) Then

MsgBox "a应为数字", 0 + 16 + 0

flag = False

Text1.SetFocus

ElseIf Not IsNumeric(Text2.Text) Then

MsgBox "b应为数字", 0 + 16 + 0

flag = False

Text2.SetFocus

ElseIf Not IsNumeric(Text3.Text) Then

MsgBox "c应为数字", 0 + 16 + 0

flag = False

Text3.SetFocus

End If

If flag = True Then

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a = 0 And b = 0 Then

Label4.Caption = "无意义"

ElseIf a = 0 And b <> 0 Then

Label4.Caption = "方程的根为：x1=x2=" + Str(-c / b) Else

pbs = b * b - 4 * a * c

If pbs > 0 Then

x1 = (-b + Sqr(pbs)) / (2 * a)