请各位答卷完毕后，将带有答案的Word文档以邮件方式按群公告中的提示发送到各评委邮箱。预祝各位取得好成绩，加入本群特战队。
Word文档命名--VB6-QQ号QQ昵称
中国程序员联盟试题VB6
命题人:嗷嗷叫的老马，丹心，九命猫
一,不定项选择题（10题共20分，每题2分）
以下各题,答案数量不确定~~看清楚就下手吧…
1,工程启动对象,可以是:
A,窗体;
B,VB内部控件;
C,自定义控件;
D,Sub Main过程;
E,Super Man过程;
F,外部控件
2,有如下过程在Form1窗体代码区:
Sub Print(ByVal A As Long, ByVal B As Long, C As Long)
C = A + B
End Sub
那么,关于这段代码,正确的说法是:
A,有一个ByRef参数;
B,有一个返回值;
C,可以由其它对象从外部调用;
D,本过程无法正常工作;
3,有如下两个代码段放在Form1的代码区:
Private Function TestA(ByVal A As Long, ByVal B As Long) As Long
TestA = A + B
End Function
Function TestB(ByVal A As Long, ByVal B As Long) As Long
TestB = A + B
End Function
以下说法中,错误的是:
A,两个函数作用域相同;
B,两个函数都没有可作为输出的参数;
C,函数TestB有语法错误;
D,TestA(1.5,10)将返回11.5;
4,关于”自定义类型”,以下说法正确的是:
A,可以用Type语句定义;
B,可以用TypeDef语句定义;
C,定义语句必须是Private开头;
D,只要在标准模块里定义,就可以在工程的任何地方使用;
5,某工程中窗体Form1的代码区有如下代码段:
Function TestC() As Boolean
On Error GoTo ErrHandle
TestC = True
Debug.Print 1 / 0
TestC = False
ErrHandle:
End Function
以下说法中错误的是:
A,工程将正常编译通过;
B,按F5运行工程,调用TestC过程将会返回True;
C,编译后,如果调用到这个过程,将会有一个可捕捉的错误产生;
D,这个过程无法正常工作.
6，移动焦点到某个指定控件，使用何方法？
A，SetFocus
B，Visible
C，Refresh
D，GetFocus
7，以下叙述中错误的是
A 下拉式菜单和弹出式菜单都用菜单编辑器建立
B 在多窗体程序中，每个窗体都可以建立自己的菜单系统
C 除分隔线外，所有菜单项都能接收Click事件
D 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
8，从“开始”菜单中通过VisualBasic的快捷方式打开VB，然后打开自己的某个工程，这时，App.path的值是？
A，VB自身所在的文件夹
B，工程文件夹
C，以上皆有可能
D，以上皆错
9，a = 5，b = 10，则Int((b - a) * Rnd + a) + 1的范围是？
A，5～10
B，6～9
C，6～10
D，5～9
10，用VB对Form1进行窗口子类化过程中，如何记录原窗口程序的地址？
A， Dim preProc as Long
preProc=SetClassLong(Form1.hwnd,GWL_WNDPROC)
B， Dim preProc as Long
preProc=GetClassLong(Form1.hwnd,GWL_WNDPROC)
C， Dim preProc as Long
preProc=SetWindowLong(Form1.hwnd,GWL_WNDPROC)
D， Dim preProc as Long
preProc=GetWindowLong(Form1.hwnd,GWL_WNDPROC)
二,思路综合题（9题共80分，1-8每题9分，9题8分）
本组题,以解决思路为主.
1：有一个文本框Text1在窗体Form1上面,要求只能在其中输入数字,请给出至少一种解决方案,及其代码实现.
(注:仅考虑使用键盘键入的情况)
2：在C与C++以及Java的世界里，if (x=1) or (y=1)中这样的语句判断原则是，如果第一个项目为真，则直接进入符合后方的语句块，但据说VB与此不同，是必须要完成两个表达式的计算，然后来判断的。
现在请写段程序来证实或否定这一点。
3：制作一个ActiveX控件，该控件使用后，在窗体上可以即时的把小时，分钟，秒 分三行显示出来
4：做个程序，该程序中的列表框控件（ListBox）有水平滚动条
5：用VB做个输入字符统计，在只限定输入大小写字符与数字的情况下，分别统计三种的数量
6：在某窗体上已经画有一个三角形，现在要求用程序实现这样的效果，用鼠标点击某处，直接弹出窗口，报告是否点在三角形内。
7：做个Splash窗口演示
8：做个进度条控件，带数字进度标识的
9：Excel中做个VBA程序，通过一个按钮，可以自动算出某一列数值的平方（那一列数值范围是1-20）
发表于 @ 2008年04月25日 19:32:43|评论(loading...)|编辑