excel段位测试中心公告征段位试题

ldy

<p>VBA题</p><p>“立正！向右看齐，向前看！稍息！”----- 控件对齐</p><p>语句不难就是费脑，段位由考试中心来定吧，</p><p></p><p><font color="#000000" style="BACKGROUND-COLOR: #ffff00;">这道题我用了 5 个 for 循环，如果有更好的方法请跟帖，以下是题目说明</font></p><p>' 作者手苯，眼花 精度不够。 但还是看得出作者想在窗体上排几行文本框，每一行的数量不定</p><p>'但手工画的每一行中的 TOP 和 Height 属性不一致，看起来难看。<br/>'</p><p>'请在窗体双击事件中写代码，让界面美观整齐一些<br/>'具体要求：</p><p>'先用代码找出左上角控件（不一定是最左的，也不一定是最上的）</p><p>'使每行的第一个文本框的left 都与 左上角控件 相同</p><p>'使每一行文本框的 TOP 和 Height 的值 都与每行的第一个（最左边的）相同，left 和 width 值 不变</p><p>'代码中不允许对控件直接引用(像这样 X = TeBox.top 是不允许的) ,</p><p>'代码中不允许直接指定控件(像这样 set Tbx = controls("TeBox") 是不允许的) ，因为控件的名称会根据业务进行修改，</p><p>'唯一可以利用的两点 是 1、 每行的第一个 和 左上角控件 left值 的误差 都 &lt; 50</p><p>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2 、每行中的 控件 都和 每行第一个的 TOP 值 的误差 都 &lt; 20</p><p>'你可以把它们看作一连士兵，跑了5公里越野后，队列不整，但队形还看得出来。</p><p>'连长吆喝一声“立正！向右看齐，向前看！稍息！”，马上就会排列得很整齐。</p><p>'可它们不是士兵，你也不是连长，所以你只能写代码让它们排列整齐</p><p>'扩展：如果能做到控制 行间距，和 控件之间距离 就更好了，当然代码量也会多很多</p><p><br/>&nbsp;</p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>可作为6段以上考题，请给付<font color="#ff3300" size="5">15</font>个金币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ——————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:29:31编辑过]

sanbe

<p><br/></p><p>再来一个六段VBA窗体的题目</p><p>[em07][em07]</p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>很不错的一题，请付<font color="#ff0000" size="5">15</font>个币币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:31:08编辑过]

sanbe

<p></p><p>合并字符的题目,建议五段VBA<br/></p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>可以，请给付<font color="#ff3300" size="5">10</font>个金币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:33:09编辑过]

xiao7797

<p>我想下载看看都不行</p>

lintao1945

<p>偶也來頂一下,函數題</p><p>4段左右把</p><p><br/></p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>可以作为4段考题，请给付<font color="#ff0000" size="5">10个</font>币币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:36:04编辑过]

便衣

这个题为一段或者二段题<br/>

便衣

<p><br/></p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>可作为三段函数题，请给付<font color="#f70909" size="5">5个</font>金币。</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:38:18编辑过]

jerryfly

<p></p><p>&nbsp;</p><p>发个题目,不知道合不合格,,因为答案我也没有...<br/></p><p>&nbsp;</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>多表合并，可作为四段考题。付<font color="#f73809" size="5">5个</font>币币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ——————飞雨飘</p></div>

[此贴子已经被飞雨飘于2007-9-21 8:40:18编辑过]

blue_prince

什么时候可以考段呀，我也想考考了[em01]

lg0505

<p><br/></p><p>在实际工作中,经常用到的问题!</p><div class="msgheader">QUOTE:</div><div class="msgborder"><p>不错，可作为3段函数，但答案差了点，请给付<font color="#f70909" size="4">5个</font>金币</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p><p>__________飞雨飘</p></div><p>&nbsp;</p>

[此贴子已经被飞雨飘于2007-9-21 8:48:57编辑过]