UC知道VB程序 菜鸟求高手 急~~~~~~
来源：百度知道 编辑：UC知道 时间：2024/07/02 11:50:08
1.设计登录界面，进行三次密码验证。
2.判断成绩等级。
3.商店售货，按购买货物的多少分别给予不同优惠折扣如下:编程计算购物款数。购物不足250元，无折扣，购物满250元、不足500元，减价5%，计算机根据学生的答案判断正确与否，当结束时给出成绩。购物满500元、不足1000元，减价7.5%，购物满1000元、不足2000元，减价10%，购物满2000元，减价15%。
0 (m<250)
5% (250≤m<500)
d= 7.5% (500≤m<1000)
10% (1000≤m<2000)
15% (2000≥m)
2.判断成绩等级。
3.商店售货，按购买货物的多少分别给予不同优惠折扣如下:编程计算购物款数。购物不足250元，无折扣，购物满250元、不足500元，减价5%，计算机根据学生的答案判断正确与否，当结束时给出成绩。购物满500元、不足1000元，减价7.5%，购物满1000元、不足2000元，减价10%，购物满2000元，减价15%。
0 (m<250)
5% (250≤m<500)
d= 7.5% (500≤m<1000)
10% (1000≤m<2000)
15% (2000≥m)
第一题：
Private Sub Command1_Click()
Static i As Integer
If Text1.Text = "123" Then
Label1.Caption = "密码正确"
Else
i = i + 1
MsgBox ("密码错误！你还有" & 3 - i & "次输入机会！")
Text1.SetFocus
End If
If i = 3 Then
End
End If
End Sub
第二题：
Private Sub Command1_Click()
Dim fenshu As Integer
fenshu = Val(Text1.Text)
If fenshu >= 0 And fenshu <= 100 Then
Select Case fenshu
Case Is < 60
Label1.Caption = "不及格！"
Case Is >= 80
Label1.Caption = "优秀！"
Case Else
Label1.Caption = "及格！"
End Select
Else
MsgBox ("分数在0到100之间！")
Text1.Text = ""
Text1.SetFocus
End If
End Sub
第三题看不下去了。
第三道题 粗略看了下 和第2道题目差不多。。看ls的第二道题的解法吧