通话费用查询.frm

利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望大家喜欢

ElseIf I = "kml-yd" Then
Text2.Text = "喀麦隆-移动"
Text3.Text = 7

ElseIf I = "gyn" Then
Text2.Text = "圭亚那"
Text3.Text = 7

ElseIf I = "hdls" Then
Text2.Text = "洪都拉斯"
Text3.Text = 7

ElseIf I = "ymj" Then
Text2.Text = "牙买加"
Text3.Text = 7

ElseIf I = "kny" Then
Text2.Text = "肯尼亚"
Text3.Text = 7

ElseIf I = "kny-yd" Then
Text2.Text = "肯尼亚-移动"
Text3.Text = 7

ElseIf I = "lw" Then
Text2.Text = "老挝"
Text3.Text = 7

ElseIf I = "lw-yd" Then
Text2.Text = "老挝-移动"
Text3.Text = 7

ElseIf I = "ltwy-yd" Then
Text2.Text = "拉托维亚-移动"
Text3.Text = 7

ElseIf I = "lbn-yd" Then
Text2.Text = "黎巴嫩-移动"
Text3.Text = 7

ElseIf I = "lbly" Then
Text2.Text = "利比里亚"
Text3.Text = 7

ElseIf I = "mqd" Then
Text2.Text = "马其顿"
Text3.Text = 7

ElseIf I = "mqd-yd" Then
Text2.Text = "马其顿-移动"
Text3.Text = 7

ElseIf I = "mdjsj" Then
Text2.Text = "马达加斯加"
Text3.Text = 7

ElseIf I = "mdjsj-yd" Then
Text2.Text = "马达加斯加-移动"
Text3.Text = 7

ElseIf I = "ml" Then
Text2.Text = "马里"
Text3.Text = 7

ElseIf I = "ml-yd" Then
Text2.Text = "马里-移动"
Text3.Text = 7

ElseIf I = "mtnkd-yd" Then
Text2.Text = "马提尼克岛-移动"
Text3.Text = 7

ElseIf I = "mltny" Then
Text2.Text = "毛里塔尼亚"
Text3.Text = 7

ElseIf I = "mltny-yd" Then
Text2.Text = "毛里塔尼亚-移动"
Text3.Text = 7

ElseIf I = "mlqs" Then
Text2.Text = "毛里求斯"
Text3.Text = 7

ElseIf I = "myt" Then
Text2.Text = "马约特"
Text3.Text = 7

ElseIf I = "mng-yd" Then
Text2.Text = "摩纳哥-移动"
Text3.Text = 7

ElseIf I = "mtsn" Then
Text2.Text = "蒙特色纳"
Text3.Text = 7

ElseIf I = "mlg" Then
Text2.Text = "摩洛哥"
Text3.Text = 7

ElseIf I = "mlg-yd" Then
Text2.Text = "摩洛哥-移动"
Text3.Text = 7

ElseIf I = "nbe" Then
Text2.Text = "尼泊尔"
Text3.Text = 7

ElseIf I = "nbe-yd" Then
Text2.Text = "尼泊尔-移动"
Text3.Text = 7

ElseIf I = "hl-yd" Then
Text2.Text = "荷兰-移动"
Text3.Text = 7

ElseIf I = "nrly" Then
Text2.Text = "尼日利亚"
Text3.Text = 7

ElseIf I = "nrly-yd" Then
Text2.Text = "尼日利亚-移动"
Text3.Text = 7

ElseIf I = "am" Then
Text2.Text = "阿曼"
Text3.Text = 7

ElseIf I = "am-yd" Then
Text2.Text = "阿曼-移动"
Text3.Text = 7

ElseIf I = "bjst" Then
Text2.Text = "巴基斯坦"
Text3.Text = 7

ElseIf I = "bjst-yd" Then
Text2.Text = "巴基斯坦-移动"
Text3.Text = 7

ElseIf I = "ml-yd" Then
Text2.Text = "秘鲁-移动"
Text3.Text = 7

ElseIf I = "kte" Then
Text2.Text = "卡塔尔"
Text3.Text = 7

ElseIf I = "lnwqd-yd" Then
Text2.Text = "留尼汪群岛-移动"
Text3.Text = 7

ElseIf I = "lmny-yd" Then
Text2.Text = "罗马尼亚-移动"
Text3.Text = 7

ElseIf I = "stalb-yd" Then
Text2.Text = "沙特阿拉伯-移动"
Text3.Text = 7

ElseIf I = "snje" Then
Text2.Text = "塞内加尔"
Text3.Text = 7

ElseIf I = "snje-yd" Then
Text2.Text = "塞内加尔-移动"
Text3.Text = 7

ElseIf I = "sewy-yd" Then
Text2.Text = "塞尔维亚-移动"
Text3.Text = 7

ElseIf I = "sxeqd" Then
Text2.Text = "塞锡尔群岛"
Text3.Text = 7

ElseIf I = "slwny-yd" Then
Text2.Text = "斯洛文尼亚-移动"
Text3.Text = 7

ElseIf I = "snwsd" Then
Text2.Text = "圣尼维斯岛"
Text3.Text = 7

ElseIf I = "slxy" Then
Text2.Text = "圣卢西雅"
Text3.Text = 7

ElseIf I = "swst" Then
Text2.Text = "圣文森特"
Text3.Text = 7

ElseIf I = "sd" Then
Text2.Text = "苏丹"
Text3.Text = 7

ElseIf I = "sln" Then
Text2.Text = "苏里南"
Text3.Text = 7

ElseIf I = "rs-yd" Then
Text2.Text = "瑞士-移动"
Text3.Text = 7

ElseIf I = "tjk" Then
Text2.Text = "塔吉克"
Text3.Text = 7

ElseIf I = "tsny" Then
Text2.Text = "坦桑尼亚"
Text3.Text = 7

ElseIf I = "tsny-yd" Then
Text2.Text = "坦桑尼亚-移动"
Text3.Text = 7




ElseIf I = "dg-yd" Then
Text2.Text = "多哥-移动"
Text3.Text = 7

ElseIf I = "tns" Then
Text2.Text = "突尼斯"
Text3.Text = 7

ElseIf I = "alblhqzg" Then
Text2.Text = "阿拉伯联合酋长国"
Text3.Text = 7

ElseIf I = "alblhqzg-yd" Then
Text2.Text = "阿拉伯联合酋长国-移动"
Text3.Text = 7

ElseIf I = "wlg-yd" Then
Text2.Text = "乌拉圭-移动"
Text3.Text = 7

ElseIf I = "wnrl-yd" Then
Text2.Text = "委内瑞拉-移动"
Text3.Text = 7

ElseIf I = "yn" Then
Text2.Text = "越南"
Text3.Text = 7

ElseIf I = "zye" Then
Text2.Text = "扎伊尔"
Text3.Text = 7

ElseIf I = "zye-yd" Then
Text2.Text = "扎伊尔-移动"
Text3.Text = 7

ElseIf I = "gb-glnm" Then
Text2.Text = "古巴-关琳纳摩"
Text3.Text = 13

ElseIf I = "shln" Then
Text2.Text = "圣海伦娜"
Text3.Text = 13

ElseIf I = "gb" Then
Text2.Text = "古巴"
Text3.Text = 13

ElseIf I = "tj" Then
Text2.Text = "汤加"
Text3.Text = 13

ElseIf I = "tj-yd" Then
Text2.Text = "汤加-移动"
Text3.Text = 13

ElseIf I = "mklnxy" Then
Text2.Text = "密克罗尼西亚"
Text3.Text = 13


ElseIf I = "njz" Then
Text2.Text = "南极洲"
Text3.Text = 13

ElseIf I = "cx" Then
Text2.Text = "朝鲜"
Text3.Text = 13


ElseIf I = "afh" Then
Text2.Text = "阿富汗"
Text3.Text = 13

ElseIf I = "gll" Then
Text2.Text = "格陵兰"
Text3.Text = 13

ElseIf I = "aseby" Then
Text2.Text = "埃塞俄比亚"
Text3.Text = 13

ElseIf I = "eltly" Then
Text2.Text = "厄立特里亚"
Text3.Text = 13

ElseIf I = "azhwlt" Then
Text2.Text = "澳洲海外领土"
Text3.Text = 13

ElseIf I = "xsmy" Then
Text2.Text = "西萨摩亚"
Text3.Text = 13

ElseIf I = "ylk" Then
Text2.Text = "伊拉克"
Text3.Text = 13

ElseIf I = "slla" Then
Text2.Text = "塞拉利昂"
Text3.Text = 13

ElseIf I = "kte-yd" Then
Text2.Text = "卡塔尔-移动"
Text3.Text = 13

ElseIf I = "flqd" Then
Text2.Text = "法罗群岛"
Text3.Text = 13

ElseIf I = "gdlpd" Then
Text2.Text = "瓜德罗普岛"
Text3.Text = 13

ElseIf I = "xly" Then
Text2.Text = "叙利亚"
Text3.Text = 13

ElseIf I = "xly-yd" Then
Text2.Text = "叙利亚-移动"
Text3.Text = 13

ElseIf I = "medf" Then
Text2.Text = "马尔代夫"
Text3.Text = 13

ElseIf I = "xkldny" Then
Text2.Text = "新喀里多尼亚"
Text3.Text = 13

ElseIf I = "hd-yd" Then
Text2.Text = "海地-移动"
Text3.Text = 13

ElseIf I = "hdls-yd" Then
Text2.Text = "洪都拉斯-移动"
Text3.Text = 13

ElseIf I = "cdjny" Then
Text2.Text = "赤道几内亚"
Text3.Text = 13

ElseIf I = "jpz-yd" Then
Text2.Text = "柬埔寨-移动"
Text3.Text = 13

ElseIf I = "ym" Then
Text2.Text = "也门"
Text3.Text = 13

ElseIf I = "yn-yd" Then
Text2.Text = "越南-移动"
Text3.Text = 13

ElseIf I = "md" Then
Text2.Text = "缅甸"
Text3.Text = 13

ElseIf I = "md-yd" Then
Text2.Text = "缅甸-移动"
Text3.Text = 13

ElseIf I = "qtdq" Then
Text2.Text = "其他地区"
Text3.Text = 4.6



Else
Text1.Text = "无此地区"
Text2.Text = ""
Text3.Text = ""
End If
End Sub

Private Sub Command3_Click()
Cls
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command2_Click
End If
End Sub