vb设计pos机程序(pos编程)

pos机显示错误码62是什么意思

pos机刷卡时显示错误应答62

62的意思是：交易失败，请联系发卡行受限制的卡，此持卡人为银行的风险持卡人，已被银行监控，注意防范风险。1、如果无法交易，可能是您的卡内余额不足，无法交易。请携带您的身份证和卡到您卡所在银行的任何一家分行解冻。

2、请联系发卡行查询发卡行或查询卡内余额。

3.卡内可能余额不足。

拓展资料：

1、超出正常的商户交易金额：

超出正常的消费范围银行的风控系统会直接拒绝交易。

2、刷卡时间不是商户正常的营业时间：

由于商户的类型不一样所以营业的时间就不一样，在非营业时间刷卡如果被风控系统监测到就会拒绝交易。

3、刷卡手续费需商家承担。

商家设置最低刷卡金额主要还是出于成本考虑，主要是因为在刷银行卡的过程中,商家需要支付一定比例的手续费,如果消费者消费金额过低,反而可能会赔钱。

4、错误代码出现原因有很多种:

（1）在装系统时没前御有装好;

（2）电脑的有些硬件驱动没有装好;

（3）系统笑胡的缓存不够,太小了;

（4）某些应用程序在安装有些文件会与系统文件相互共用,一但你删除或损坏这个程序的话,也就等于损坏了系统.计算机出现错误代码大部分是以上四个情况导致的,建议你根据不同的情况进行修复!

5、每个程序员都希望能编写出完美的应用程序代码但难免会有疏忽之处.原因有多种:

（1）编译错误,是由于不正确编写代码而产生.如非法实用或丢失关键字,遗漏必要的标点符号,函数调用缺参数或括号不匹配等.其它如变量未采碰悔拦用强制显式声明等而引起的错误.VB通常会在代码写时或运行时报错,按报错提示查找解决。

（2）运行时出错,是指应用程序在运行其间执行非法操作或某些操作失败,如要打开的文件没找到,磁盘空间不够,除发运算中除数为0等.数组下标越界是一种典型的运行时错误,只有在运行时才会发现.三.逻辑错误,语法上找不出错误,应用程序也能运行,但得不到到预期结果,需认真分析并借助调试工具才能查出错误原因并改正。

pos机签到连接失败什么原因？

一、针对固定POS机

故障原因：

1、电话线不通或者欠费

2、分机外线未开或加锁

3、分机外线数量较少，经常占线无法拨出

4、并接的电话机有防盗打功能

5、电话设置了呼叫转移

6、POS机通讯口故障

解决途径：

1、检查电话线路是否通畅、是否正确插入POS机的＂LINE"插口

2、电话线路故障请联系物业或电信人员维修

3、与单位IT部门联系，开通分机电话外线

4、解锁或关掉防盗开关

5、取消电话的呼叫转移

6、在出现电话线路故障时可将接在“LINE“插口上的电话线取下，用电话机检查是否能正常拨打电话以辅助判断

二、针对移动POS机

故障原因：

1、POS机所处的环境，无线信号弱

2、POS机内的SIM卡欠费

3、POS机卡槽损

注：欠费后电信播放催缴电话费的提示音（电话仍可以打）但POS机不能使用

解决途径：

1、到户外无线信号较好的地方开关机重新签到

2、及时给POS机的SIM卡充值话费

3、报修客服等待工作人员上门维修

例如：

提示签到终端设备未登记，那是设备没有关联中国银联管理中心一切正常应用，联络服务提供商终端设备没有关联到设备上边。

提醒连接超时，直接换张流量卡即可提醒连接超时是上网卡没有总流量，换上网卡简单，假如不清楚更换上网卡，pos机上网卡拆换。

也有提醒一直在联接中，或是pos机连接失败全是以上一样的状况，上网卡没有上网卡，立即补卡就可以，可靠的上网卡。

pos机刷卡时出现程序异常是怎么回事？

可能两个原因：一是流量卡没有钱或者没有插好，该区域信号不好；二是通道后台有问题。建议联系三方机构。

POS（Pointofsales）的中文意思是“销售点”，全称为销售点情报管理系统，是一种配有条码或OCR码技术终端阅读器，有现金或易货额度出纳功能。其主要任务是对商品与媒体交易提供数据服务和管理功能，并进行非现金结算。

POS是一种多功能终端，把它安装在信用卡的特约商户和受理网点中与计算机联成网络，就能实现电子资金自动转账，它具有支持消费、预授权、余额查询和转帐等功能，使用起来安全、快捷、可靠。大宗交易中基本经营情报难以获取，导入POS系统主要是解决零售业信息管理盲点。连锁分店管理信息系统中的重要组成部分。

拓展资料：

POS系统基本原理是先将商品资料创建于计算机文件内，透过计算机收银机联机架构，商品上之条码能透过收银设备上光学读取设备直接读入后（或由键盘直接输入代号）马上可以显示商品信息（单价，部门，折扣。）加速收银速度与正确性。每笔商品销售明细资料（售价，部门，时段，客层）自动记录下来，再由联机架构传回计算机。经由计算机计算处理即能生成各种销售统计分析信息当为经营管理依据。

POS机是通过读卡器读取银行卡上的持卡人磁条信息，由POS操作人员输入交易金额，持卡人输入个人识别信息（即密码），POS把这些信息通过银联中心，上送发卡银行系统，完成联机交易，给出成功与否的信息，并打印相应的票据。POS的应用实现了信用卡、借记卡等银行卡的联机消费，保证了交易的安全、快捷和准确，避免了手工查询黑名单和压单等繁杂劳动，提高了工作效率。

磁条卡模块的设计要求满足三磁道磁卡的需要，即此模块要能阅读1/2、2/3、1/2/3磁道的磁卡。

POS机支付的时候出现非接应用选择错误是什么情况

这个问题比较简单不具备非接功能的POS机，分为两种情况： 1、硬件不具备 2、软件不具备解决途径：硬件不具备的机具需要联系POS机维护方进行更换机具，如果软件不支持的话，联系POS机维护方进行软件升级就可以了。

pos显示响应码vb不允许交易怎么回事

pos显示响应码vB不允许交易

机器超出使用范围；pos机超出限额。

一、机器超出使用范围：立刷pos机是不能移机，那么我们再注册地是可以正常的使用，但是你到外地就会提示你VL不能正常的消费，解决的方法只能回到你注册地使用。

二、pos机超出限额：很多时候我们刷卡的时候不知道pos机也有限额，这个时候我们刷卡就会报错，错误代码有可能会是V2也有可能是VL，那么我们这个时候就建议咨询pos机代理商看看自己的这个机器的限额是多少。

响应码VN是什么意思

就是说你这个boss的话，他是不支持在上面扫码的，所以应该来说的话就是显示不允许他微信是这个意思的。

网站服务器日志记录这所有网站资源请求的原始数据，准确且详细，是分析网站必不可少的重要环节。想要分析日志文件，首选需要了解日志文件的格式与各个字段的意思。IIS服务器日志：网站运营时会经常对IIS日志进行分析。

尽管有很多工具可以分析（Cygwin命令行模式就很好，前提是掌握一些简单的Linux命令），但是前提是熟悉IIS日志每个字段的含义，这样才能够更有针对性的分析潜在的问题。IIS日志建议使用W3C扩充日志文件格式。

这也是IIS5.0已上默认的格式，可以指定每天记录客户IP地址、用户名、服务器端口、方法、URI资源、URI查询、协议状态、用户代理，每天要审查日志。这些字段可以手动设置：日志的主体是一条一条的请求信息，请求信息的格式是由#Fields定义的。

每个字段都有空格隔开。若是重启进程，则这四行会再记录一次。前缀含义s-服务器操作。c-客户端操作。cs-客户端到服务器的操作。sc-服务器到客户端的操作。#Software、#Version、#Date分别是服务器程序、版本、时间。Fields列为日志内容各字段列说明（不同服务器配置略有差异）。

具体如下：date:日期time：时间，这两个字段组成资源请求详细时间，改时间通常为服务器端时间，注意，服务器采用时区可能与本地时区不一致，s-ip：服务器IP，资源处理服务器IP，通常是服务器本机IP。

立刷提示响应码vk不允许交易

pos机响应码vk不允许交易的原因如下：系统维护、密码错误次数过多、低于最低限额、商户刷卡次数超限。

1、系统维护

这种是比较常见的一种原因，支付公司为了完善与银行对接系统而进行升级，在维护期间这家银行的信用卡就会出现刷不出来的情况。遇到这种情况不要着急，一般等待一天左右升级完成就可以刷卡了。

2、密码错误次数过多

很多卡多又马虎的卡友老是会忘记自己的密码，因此在刷卡时多次输错密码。在支付公司看来只有盗刷者才会不知道密码需要多次调试密码，一般人不会出现这种现象，所以就会限制刷卡。

3、低于最低限额

某些支付公司对于每一笔刷卡金额会有一个最低限额的限制，刷得少就会出现刷不出来的情况。

4、商户刷卡次数超限

现在的大POS多为APP自选商户，需要在手机APP上选择商户后才可以在POS机上刷卡。为了防止商户出现流水异常情况，支付公司往往会限制一天的刷卡次数，出现这种情况在APP上更换商户即可。

pos机的功能用途

1、适用于大、中型超市、连锁店、大卖场、大、中型饭店及一切高水平管理的零售企业。

2、具有IC卡功能，可使用会员卡和内部发行IC卡及有价证券。

3、可外接扫描枪、打印机等多种外设。

4、具有前、后台进、销、存配送等大型连锁超市管理功能。

5、餐饮型具有餐饮服务功能，可外接多台厨房打印机、手持点菜机等各种外设。

6、可实现无人看管与PC机远程通讯，下载资料。

7、具有以太网通讯功能，通过ADSL宽带构成总、分店网络即时管理系统。

立刷pos机扫码显示不允许交易vn是什么意思?

刷boss机扫码显示不允许交易是什么意思？就是说你这个boss的话，他是不支持在上面扫码的，所以应该来说的话就是显示不允许他微信是这个意思的

vb二级考试范围有哪些

2007年9月全国计算机二级VB试题

一、选择题（每小题2分，共70分）

下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）软件是指

A）程序 B）程序和文档

C）算法加数据结构 D）程序、数据与相关文档的完整集合

（2）软件调试的目的是

A）发现错误 B）改正错误

C）改善软件的性能 D）验证软件的正确性

（3）在面向对象方法中，实现信息隐蔽是依靠

A）对象的继承 B）对象的多态

C）对象的封装 D）对象的分类

（4）下列叙述中，不符合良好程序设计风格要求的是

A）程序的效率第一，清晰第二 B）程序的可读性好

C）程序中要有必要的注释 D）输入数据前要有提示信息

（5）下列叙述中正确的是

A）程序执行的效率与数据的存储结构密切相关

B）程序执行的效率只取决于程序的控制结构

C）程序执行的效率只取决于所处理的数据量

D）以上三种说法都不对

（6）下列叙述中正确的是

A）数据的逻辑结构与存储结构必定是一一对应的

B）由于计算机存储空间是向量式的存储结构，数据的存储结构一定是线性结构

C）程序设计语言中的数组一般是顺序存储结构，利用数组只能处理线性结构

D）以上三种说法都不对

（7）冒泡排序在最坏情况下的比较次数是

A）n(n＋1)/2 B）nlog2 n C）n(n－1)/2 D）n/2

（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为

A）219 B）221 C）229 D）231

（9）下列叙述中正确的是

A）数据库系统是一个独立的系统，不需要操作系统的支持

B）数据库技术的根本目标是要解决数据的共享问题

C）数据库管理系统就是数据库系统

D）以上三种说法都不对

（10）下列叙述中正确的是

A）为了建立一个关系，要构造数据的逻辑关系

B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项

C）一个关系的属性名表称为关系模式

D）一个关系可以包括多个二维表

（11）要使一个文本框可以显示多行文本，应设置为True的属性是

A）Enabled B）MultiLine C）MasLenfth D）Width

（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是

A）Form_KeyPress() B）Text1_LostFocus()

C）Text1_Click() D）Test1_Change()

（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是

A）Private Sub Command1_Click() B）Private Sub

Text1.GotFocus Command1.GotFocus

End Sub EndSub

C）Private Sub Command1_Click() D）Private Sub

Text1.SetFocus Command1.SetFocus

End Sub End Sub

（14）执行以下程序后输出的是

Private Sub Command1_Click()

Ch$=”AABCDEFGH”

Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)

End Sub

A)CDEFGH B)ABCD C)FG D)AB

（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是

A)Prvate Sub List1_Click() B)Private Sub Form1_Click()

Print List1.Text Print List1.Text

End Sub End Sub

C)Private Sub List1_Click() D)Private Sub Form1_Click()

Print Form1.Text List1.Print List1.Text

End Sub End Sub

（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指

A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离

C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离

（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是

A)CD1.DialogTitle=“对话框窗口” B)CD1.Action=“对话框窗口”

C)CD1.FileName=“对话框窗口” D)CD1.Filter=“对话框窗口”

（18）在窗体上有如右图所示的控件，各控件的名称

与其标题相同，并有如下程序：

Private Sub Form_Load()

Command2.Enabled=False

Check1.Value=1

End Sub

刚运行程序时，看到的窗体外观是：

（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是

A)Private Sub Command1_Click()

List1.Clear

End Sub

B) Private Sub Command1_Click()

List1.Clear List1.ListIndex

End Sub

C) Private Sub Command1_Click()

List1.Removeltem List1.ListIndex

End Sub

D) Private Sub Command1_Click()

List1.Removeltem

End Sub

（20）某人设计了如下程序用来计算并输出7!（7的阶乘）

Private Sub Command1_Click()

t=0

For k=7 To 2 Step-1

t=t*k

Next

Print t

End Sub

执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是

A）把t=0改为t=1

B）把For k= 7 To 2 Step-1改为For k=7 To 1 Step-1

C）把For k= 7 To 2 Stip-1改为Fork=1 To 7

D）把Next改为Nexi k

（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是

A）把所有单选按钮的Index属性改为相同值

B）把所有单选按钮的Index属性改为连续的不同值

C）把所有单选按钮的Caption属性值改为相同

D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。

（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：

标题名称

文件 file

新建 new

保存 save

A）Private Sub save_Click() B）Private Sub save_Click()

Text1.Text=file.save.Caption Text1.Text=save.Caption

End Sub End Sub

C）Private Sub file_Click() D）Private Sub file_Click()

Text1.Text=file.save.Caption Text1.Text=save.Caption

End Sub End Sub

（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab

的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer()

Label1.Caption=Time$

End Sub

在程序执行时发现未能实现上述目的，那么，他应做的修改是

A）通过属性窗口把计时器的Interval属性设置为2000

B）通过属性窗口把计时器的Enabled属生设置为False

C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$

D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是

（25）下面关于文件的叙述中错误的是

A）随机文件中各条记录的长度是相同的]

B）打开随机文件时采用的文件存取方式应该是Random

C）向随机文件中写数据应使用语句Print#文件号

D）打开随机文件与打开顺序文件一样，都使用Open语句

（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是

A）Picture1.Picture=”Flie1.jpg

B）Picture1.Picture=LoadPicture(“File1.jpg”)

C) LoadPicture(“File1.jpg”)

D）Call LoadPicture(“File1.jpg”)

（27）下面程序执行时，在窗体上显示的是

Private Sub Command1_Click()

Dim a(10)

For k= 1 To 10

a(k)= 11– k

Next k

Print a(a(3)\a(7) Mod a(5))

End Sub

A）3 B）5 C）7

（28）为达到把a、b中的值交换后输出的目的，某人编程如下：

Private Sub Command1_Click()

a%= 10:b%= 20

Call swap(a,b)

Print a,b

End Sub

Private Sub swap(ByVal a As Integer,ByVal b As Integer)

c= a:a=b:b=c

End Sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是

A）调用swap过程的语句错误，应改为Call swap a,b

B）输出语句错误，应改为：Print”a”,”b”

C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)

D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

（29）有如下函数：

Function fun(a As Integer,n As Integer) As Integer

Dim m As Integer

While a>=n

a=a-n

m= m+1

Wend

fun=m

End Function

该函数的返回值是

A）a乘以n的乘积 B）a加n的和

C）a减n的差 D）a除以n的商（不含小数部分）

（30）下面程序的输出结果是

Private Sub Command1_Click()

ch$=”ABCDEF”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S=””

For k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

End Sub

A）ABCDEF B）FEDCBA C）A D）F

（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：

Function MaxValue(a() As Integer) As Integer

Dim max%

max=1

For k= 2 To 10

If a(k)>a(max) Then

max= k

End If

Next k

MaxValue= max

End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是

A）语句max= 1应改为max= a(1)

B）语句For k= 2 To 10应改为For k= 1 To 10

C）If语句中的条件a(k)>a(max)应改为a(k)>max

D）语句MaxValue= max应改为MaxValue= a(max)

（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：

Private Sub Command1_Click()

Dim n%,b,t

t= 1:b= 1:n= 2

Do

b= b*n

t= t+ b

n= n+1

Loop Until n>9

Print t

End Sub

此程序计算并输出一个表达式的值，该表达式是

A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！

（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：

Dim cmdmave As Boolean

Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)

cmdmave= True

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)

If cmdmave Then

Form1.Pset(X,Y)

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)

cmdmave= False

End Sub

此程序的功能是

A）每按下鼠标键一次，在鼠标所指位置画一个点

B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失

C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数

Function fun(a As Integer) As Integer

Dim n%

n= 1

While a\ 10>= 0

n= n+ 1

a= a\ 10

Wend

fun= n

End Function

在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是

A）把语句n= 1改为n= 0

B）把循环条件a\ 10>= 0改为a\ 10> 0

C）把语句 a= a\ 10改为a= a Mod 10

D）把语句fun= n改为 fun= a

（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选

框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是

A）Private Sub Check1_Click(Indes As Integer)

Text1.Text=""

For k= 0 To 3

If Check1(k).value= 1 Then

Text1.Text= Text1.Text& Check1(k).Caption&""'双引号中是空格

End If

Next k

End Sub

B）Private Sub Check1_Click(Index As Integer)

For k= 0 To 3

If Check1(k).Value= 1 Then

Text1.Text= Text1.Text& Check1(k).Caption&""'双引号中是空格

End If

Next k

End Sub

C）Private Sub Check1_Click(Index As Integer)

Text1.Text=""

For k= 0 To 3

If Check1(k).Value= 1 Then

Text1.Text= Text1.Text& Check1(Index).Caption&""'双引号中是空格

End If

Next k

End Sub

D）Private Sub Check1_Click(Index As Integer)

Text1.Text=""

For k= 0 To 3

If Check1(k).Value= 1 Then

Text1.Text= Text1.Text& Check1(k).Caption&""'双引号中是空格

Exit For

End If

Next k

End Sub

二、填空题（每空2分，共30分）

请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。

(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】。

(2)在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。

(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。

(4)对下列二叉树进行中序遍历的结果为【4】。

（5）在E-R图中，矩形表示【5】。

（6）窗体上有一个组合框，其中已输入了

若干个项目。程序运行时，单击其中一

项，即可把该项与最上面的一项交换。

例如：单击图1中的“重庆”，则与“北

京”交换，得到图2的结果。下面是可

实现此功能的程序，请填空。

Private Sub Combo1_Click()

Dim temp

temp= Combo1.Text

[6]= Combo1.List(0)

Combo1.List(0)= temp

End Sub

（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。

Dim [7] As Integer

Private Sub Form_Load()

pos=HScroIII.Value

End Sub

Private Sub HScroIII_Change()

Print [8]-pos

pos=HScroIII.Value

End Sub

（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。

Private Sub Command1_Click()

CD1.Filter="文本文件1*.txt(Word文档)*.doc"

CD1.Filterinder= 1

CD1.ShowOpen

If CD1.FileName<>""Then

Open [9] For Input As#1

Line Input#1,ch$

Close#1

Text1.Text= [10]

End If

End Sub

（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。

Private Sub Command1_Click()

Dim x As Integer

x=InputBox(“请输入一个正整数”)

While x>__[11]___

Print x Mod 10;

x=x\10

Wend

Print__[12]__

End Sub

（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且

焦点不能离开Text1文本框（见图）。

合法编号的组成是：前2个字符是大写英文

字母，第3个字符是“-”，后面是数字字符

（至少1个）。下面程序可实现此功能，请

填空。

Private Sub Text1_Lostfocus()

Dim k%,n%

n=Len( [13])

For k=1 to if(n>3,n,4)

c=Mid(Text1. Text,k,1)

Select Case k

Case 1,2

If c<"A" Or c>"Z" Then

MsgBox("第"&k&"个字符必须是大写字母！")

SetPosition k

Exit For

End If

Case 3

If c<>"-" Then

MsgBox("第"&k&"个字符必须是字符"'"-"'")

SetPosition k

Exit For

End If

Case Else

If c<"0" Or c>"9" Then

MsgBox("第"&k&"个字符必须是数字！")

SetPosition k

Exit For

End If

End Select

Next k

End Sub

Private Sub SetPosition(pos As Integer)

Text1.SelStart=pos-1

Text.SelLength= [14]

Text1. [15]

End Sub

2007年9月全国计算机等级考试二级VB参考答案

一、选择题

1-5 DBCAA

6-10 CCABA

11-15 BDCCA

16-20 BAACA

21-25 DBABC

26-30 BDCDB

31-35 DCDBA

二、填空题

1、无歧义性

2、白盒测试

3、顺序

4、ACBDFEHGP

5、实体集

6、Combol1.List(Combol1.ListIndex)

7、pos

8、HScroll1.value

9、CD1.FileName

10、ch

11、10

12、x

13、Text1.Text

14、1

15、SetFocus

这个应该不错，你可以下载看看，不过要先注册一下，呵呵