VB程序题：设计一个如图G.1所示的应用程序。它能利用LostFocus事件过程对输入的内存大小进行合法性检查，确保最后两个字符是“MB”,其实的都是数字字符。当用户单击“OK”按钮后…… 龚沛曾

VB程序题：设计一个如图G.1所示的应用程序。它能利用LostFocus事件过程对输入的内存大小进行合法性检查，确保最后两个字符是“MB”,其实的都是数字字符。当用户单击“OK”按钮后，在右边的文本框中显示所选择的信息。
图G.1

解题，如上图所示，在窗体画出相应的控件，其中文本框的LostFocus事件用于检查输入的文本在最后的两个字符是否为MB，VB 代码如下：
Private Sub Command1_Click()
    List1.Clear
    List1.AddItem Combo1
    If Option1 Then List1.AddItem "Pentium II"
    If Option2 Then List1.AddItem "Pentium I"
    If Option3 Then List1.AddItem "Celeron"
    List1.AddItem Text1
    If Check1 Then List1.AddItem "声卡"
    If Check2 Then List1.AddItem "Modem"
    If Check3 Then List1.AddItem "网络适配器"
End Sub

Private Sub Text1_LostFocus()
    st = UCase(Trim(Text1))
    le = Len(st)
    If Not IsNumeric(Left(st, le - 2)) Or Right(st, 2) <> "MB" Then
        MsgBox "有不合法字符！"
        Text1 = ""
        Text1.SetFocus
    End If
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/99.html