| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1073 人关注过本帖
标题:VB简单制作
只看楼主 加入收藏
bi1014227000
Rank: 1
来 自:廊坊
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-5-14
结帖率:0
收藏
 问题点数:0 回复次数:15 
VB简单制作
哪位第1题:编写一个求成绩等级的程序。要求输入一个学生的考试成绩,输出其分数和对应的等级。共分五个等级:小于60分的为“E”;60~69分为“D”;70~79分为“C”;80~89分为“B”;90分以上为“A”。同时要求能够对错误的输入进行相应处理<如果输入A或者其他字母又或者大于100  或者小于0的数 就显示你输入的不符合要求 ,请重新输入》。
 


[ 本帖最后由 bi1014227000 于 2011-5-28 12:47 编辑 ]
搜索更多相关主题的帖子: 考试成绩 
2011-05-27 18:59
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
  Dim a As Integer
  a = Val(InputBox("请输入成绩:"))
  a = Int(a / 10)
  If a < 6 Then a = 5
  If a > 9 Then a = 9
  a = 74 - a
  MsgBox "你的成绩等级为:" & Chr(a)
  '在vb6中通过验证
2011-05-27 19:16
bi1014227000
Rank: 1
来 自:廊坊
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-5-14
收藏
得分:0 
回复 2楼 lowxiong
大哥都用哪个控件呀

呜呜呜
2011-05-27 19:22
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4943
专家分:30067
注 册:2008-10-15
收藏
得分:0 
那个控件 都没用使用到。输入是用的
inputbox 对话框。
输出是用的
msgbox 对话框。

不过,他没有超范围处理。
Dim a As Integer
  a = Val(InputBox("请输入成绩:"))
if a>100 or a<0 then                          '超范围处理
  msgbox "输入的成绩错误。"                   '提示
else
  a = Int(a / 10)
  If a < 6 Then a = 5
  If a > 9 Then a = 9
  a = 74 - a
  MsgBox "你的成绩等级为:" & Chr(a)
end if

授人于鱼,不如授人于渔
早已停用QQ了
2011-05-27 19:39
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
回复 4楼 风吹过b
其实处理了,只是没提示错误,<6和>9就是的,实际上就是输入字母它也能得到结果
2011-05-27 19:57
bi1014227000
Rank: 1
来 自:廊坊
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-5-14
收藏
得分:0 
回复 4楼 风吹过b
啊 怎没 没有用 控件呀          我们老师 让我们控件   。 大哥 你有QQ 吗 加我1014227000  我在那上面跟你说

呜呜呜
2011-05-27 20:21
bi1014227000
Rank: 1
来 自:廊坊
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-5-14
收藏
得分:0 
回复 6楼 bi1014227000
错了 应该是姐姐

呜呜呜
2011-05-27 20:24
记叙、继续
Rank: 4
等 级:业余侠客
帖 子:56
专家分:226
注 册:2011-5-17
收藏
得分:0 
~不懂,帮顶
2011-05-27 20:33
bi1014227000
Rank: 1
来 自:廊坊
等 级:新手上路
帖 子:12
专家分:0
注 册:2011-5-14
收藏
得分:0 
这上面 没办法传图片  真气人

呜呜呜
2011-05-27 20:39
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
看大侠们都没做~无聊就来玩玩看~

程序代码:
Option Explicit

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Dim High_Low As String

Private Sub Command1_Click()
Dim Scores As Integer

    High_Low = "Z"
    
    If Text1.Text <> "" And InStr(Text1.Text, "Enter the test scores !") = 0 Then
    
        Scores = Val(Text1.Text)
        
        If IsNumeric(Scores) = True Then
        
            If Scores > 100 Or Scores < 0 Then
                MsgBox "Enter the Results of Range , Please !"
                Exit Sub
            Else
                If UCase(High_Low) = "Z" Then High_Low = IIf(Scores < 50, "F", "Z"): If High_Low = "F" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 50 And Scores < 60), "E", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 60 And Scores < 70), "D", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 70 And Scores < 80), "C", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 80 And Scores < 90), "B", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 90 And Scores < 100), "A", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf(Scores = 100, "A+", "A"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then Label2.Caption = High_Low: Exit Sub
            End If
            If UCase(High_Low) = "Z" Then Exit Sub
        End If
    Else
        If InStr(Text1.Text, "Enter the test scores !") <> 0 Then Exit Sub
    End If

End Sub

Private Sub Form_Initialize()
    High_Low = "Z"
End Sub

Private Sub Form_Load()
    
    If App.PrevInstance Then
       Call MsgBox("This program has been executed !", vbCritical, "Warning")
       Unload Me
    End If
    
    SetCurrentDirectory App.Path
    
    frmMain.Caption = frmMain.Caption & " Ver " & App.Major & "." & App.Minor & "." & App.Revision
    
    Text1.Text = " Enter the test scores !"
    Label2.Caption = "Level not determined !"
End Sub

Private Sub NewCalcu()
    High_Low = ""
    Text1.Text = " Enter the test scores !"
    Label2.Caption = "Level not determined !"
End Sub

Private Sub Text1_Click()
    Call NewCalcu
    Text1.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Call Command1_Click
End Sub

Private Sub Text1_LostFocus()
    If Text1.Text = "" Then Text1.Text = " Enter the test scores !"
End Sub


图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册


控件用LabelBox1 + LabelBox2 + TextBox1 + CommonButton1 + Form1

如果你要工程的话顺便发给你~功能很少~不过也许你要自己转字体编码~
q12.rar (7.5 KB)


[ 本帖最后由 wube 于 2011-5-27 22:45 编辑 ]

不要選我當版主
2011-05-27 22:38
快速回复:VB简单制作
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021252 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved