vba题库文档.pdf
《vba题库文档.pdf》由会员分享,可在线阅读,更多相关《vba题库文档.pdf(58页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、0001 O8D2已知combxl、combx2是代表自定义工具栏中两个组合框的全局变量,请对这段程序进行解释。Dim cl As New CollectionWith Cells.Clear.Font.Size=8.Interior.Colorindex=2End WithC ells(1,1).SelectApplication.Screenllpdating=FalseColumns(?,A:D,z).HorizontalAl ignment=xlCenterzy=Trim(combxl.Text)xq=Vai(Mid(Trim(combx2.Text),2)0001这段程序首先声明一个
2、集合变量c l。然后清除当前工作表的全部单元格的内容、格式和背景颜色,设置字号。光标定位A1单元格。关闭屏幕更新。设置A D列水平居中对齐方式。最后从自定义工具栏的两个组合框中取出选定的列表项,分别送给变量zy和 xq.0002 03A1请对以下代码进行解释。h=20:c=30Set rg=Range(CelIs(2,1),CelIs(h,c)rg.Borders.Weight=xlHairlineSet rg=Range(Cells(h,1),Cells(h,c)rg.Interior.Colorindex=35Cells.Columns.AutoFi tApplication.Screen
3、updating=True2 002这段代码对当前工作表指定的区域设置虚线边框,对区域中最后一行设置背景颜色,设置最适合的列宽,打开屏幕更新。0003 08D2已知cbx是代表自定义工具栏中组合框的全局变量,请对这段程序进行解释。Application.ScreenUpdating=FalseCells.EntireColumn.Hidden=Falsecn=Range(*A4*).End(xlToRight).ColumnRange(Columns(3),Columns(cn).EntireColumn.Hidden 二 TrueSelect Case cbx.TextCase 基本信息”R
4、ange(Columns(3),Columns(13).EntireColumn.Hidden=FalseCase 扩展信息Range(Columns(14),Columns(cn).EntireColumn.Hidden=FalseCase 全部数据项Cells.EntireColumn.Hidden=Falsecbx.T ext=【数据项选择】End SelectApplication.ScreenUpdating=True飞003在这段程序中,首先关闭屏幕更新,显示所有列,求出第4 行数据区最大列号,用变量cn表示,隐藏3 cn歹 h然后,根据自定义工具栏中组合框的选项进行不同处理。如果
5、选择的是“基本信息”项,则取消对3 13列的隐藏。如果选择的是“扩展信息”项,则取消对14 cn列的隐藏。如果选择的是“全部数据项”项,则取消对所有列的隐藏。从而达到筛选数据项的目的。最后,打开屏幕更新。0004 09F2请编写一个自定义函数a g e,用来根据出生日期和系统当前日期求当前年龄。形参bd为出生日期(文本型),返回值为当前年龄(周岁)。0004Function age(bd)If IsDate(bd)Thend=CDate(bd)t Datea=DateDiff(yyyy”,d,t)b=DateSerial(Year(t),Month(d),Day(d)If t b Thena=
6、a-1End Ifage=aElseage=End IfEnd Function0005 08F3请编写一个自定义函数g l,用来根据工作日期和当前系统H期求工龄。形参g z工作日期(文本型),返回值为当前工龄(文本型)。飞005F u n c t ion g l(g z)If Is D a t e(g z)T h e nd t =C D a t e(g z)m s =D a t e D if f(m”,d t,D a t e)y =m s 1 2If y =0 T h e ny 二 E l s e l f y 1 0 T h e ny =&y&年 E l s ey =y&年 E n d If
7、m =m s M od 1 2If m =0 T h e nm =E l s e l f m 1 5 T h e ns v a l =T a r g e t.V a l u eIf s _ v a l =T T h e nRa n g e(s _ g e).V a l u e=J 修改单元格内容(1 改为J)E n d IfE n d IfE n d Su b砌|任意一个单元格内容改变,列标,行号,得到单元格内容0 0 1 8 0 1 C2给下面的程序段添加注释。Su b t e s t ()n m =H e x(A s c(Se l e c t io n.T e x t)n m _ h =&
8、Le f t(n m,2)n m 1 =&H&Rig h t(n m,2)内 码(四位十六进制形式)q m =n m h -1 7 6 +w m =n m _ l -1 6 1 +w m =Il f(w m f g T h e nf g =fl g =PE n d IfIf f =65 And n=90 ThenSelection.TypeText Text:=Chr(n+32)ElseSelection.MoveRight Unit:=vdCharacter,Count:=1End If编一个VBA程序,在Word当前文档中按顺序输入26个英文字母。飞024For i=Asc(a)To As
9、c(z)Selection.TypeText Text:=Chr(i)N e x t0 0 2 5 0 4 C2给下面的程序段添加注释。S u b d e l e _ r (),以下左行语句的功能是:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _n =5D oc e l l _ a =A&T r i m (S t r (n)A 列 n 行单元格t c _ 0 =R a n g e (c e l l _ a).V a l u e 取出 A 列 n 行值n =n +1L o
10、o p W h i l e L e f t(t c _ 0,4)总工作量”R o w s(n-1).S e l e c tS e l e c t i o n.D e l e t e S h i f t:=x l U p A c t i v e S h e e t.H P a g e B r e a k s(l).D e l e t eE n d S u b飞0 好从当前工作表第5 行开始搜索“总工作量”所在行,选 择“总工作量”行,删除选中行,删除分页符0 0 2 6 0 2 C1给下面的程序段添加注释。P r i v a t e S u b Co m m a n d B u t t o n
11、l Cl i c k OS e l e c t i o n.W h o l e S t o r yW i t h S e l e c t i o n.F i n d.T e x t =U s e r F o r m l.T e x t B o x l.T e x t .F i n d.E x e c u t eE n d W i t h以下循环语句的作用是:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _W h i l e S e l e c t i o n.F i n d.F o u n d 0c o u n t o f a p p e
12、a r =c o u n t o f a p p e a r +1S e l e c t i o n.F i n d.E x e c u t eW e n dM s g B o x 找 到了&c o u n t o f a p p e a r&个E n d S u b该程序的总体功能是:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 0 0 2 6选中整个文档,将窗体上文本框的值作为查找内容,如果找到则计数并继续查找,查找指定文本出现的次数0 0 2 7 0 4 c 2S e l e c t i o
13、 n.Cu tF o r k =1 T o 1 0 S e l e c t i o n.P a s t eN e x tS e l e c t i o n.M o v e L e f t U n i t:=w d l t e m W i t h S e l e c t i o n.F r a m e s(1)水平相对于页边距、左侧.H o r i z o n t a l P o s i t i o n =w d E r a m e L e f t.R e 1 a t i v e H o r i z o n t a l P o s i t i o n =w d R e l a t i v e H
14、 o r i z o n t a 1 P o s i t i o n M a r g i n以下两行语句的作用是:.V e r t i c a l P o s i t i o n =w d F r a m e B o t t o m.R e l a t i v e V e r t i c a l P o s i t i o n =w d R e 1 a t i v e V e r t i c a 1 P o s i t i o n M a r g i nE n d W i t h和 0 0 2 7剪切选中的对象,粘贴1 0 次,选中1 个对象,垂直相对于页边距、低端给下面的程序段添加注释。W
15、i n d o w s CD CT K T T ).A c t i v a t e S e l e c t i o n.F i n d.T e x t =f n d =S e l e c t i o n.F i n d.E x e c u t e 执行查找,以下三行语句的功能是:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _D oS e l e c t i o n.M o v e R i g h t U n i t:=w d Ch a r a c t e r,Co u n t:=1,E x t e n d:=w d E x t e n dL o
16、o p U n t i l R i g h t(S e l e c t i o n.T e x t,1)=O r R i g h t(S e l e c t i o n.T e x t,1)=S e l e c t i o n.M o v e L e f t U n i t:=w d Ch a r a c t e r,Co u n t:=1,E x t e n d:=w d E x t e n dS e l e c t i o n.Co p y ,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _S e l e c t i o n.M o v e R
17、 i g h t U n i t:=w d Ch a r a c t e r,Co u n t:=1W i n d o w s(t k ).A c t i v a t eS e l e c t i o n.P a s t e A n d F o r m a t (w d P a s t e D e f a u I t)激活D CT K T T 文档,选中若干字符直至遇到标记字符“*”,复制选中的内容,将剪切板的内容粘贴到“t k”文档0 0 2 9 0 4 C2给下面的程序段添加注释。F u n c t i o n x d x(X X J E A s S t r i n g)SL=零壹贰叁肆伍
18、陆柒捌玖J E =分角元拾佰仟万拾佰仟亿M =R e p l a c e (T r i m (X X J E),.,)N =L e n(M)字符串长度J =N:D X J E =置初值F o r I=1 T o NW =V a i (M i d (M,I,D)D X J E =D X J E +M i d(S L,W +1,1)D X J E =D X J E +M i d(J E,J,1)单位J =J -1N e x tx d x =D X J E 返回值E n d F u n c ti o n 函数的总体功能是:飞0鬟去掉变量X X J E中数值的小数点,取出一位数值,转换为大写数字,小写
19、金额转换为大写金额0030 06E 1新建一个窗体,放置两个按钮和一个文字框控件。按钮的标题分别定义为“显示”和“清除”。单 击“显示”按钮,在文字框中显示一行文字“你好!欢迎学习VBAJ,单击“清除”按钮,清除文字框中的文字。请写出设计步骤和主要代码。飞。30进入V B A编辑环境,打开“工程资源管理器”窗口,插入一个用户窗体。在窗体上放置两个命令按钮和一个文字框。右击命令按钮,选“属性”,设置C a p ti o n属性值为“显示”、“清除”。双击“显示”命令按钮,输入如下代码:M e.T e x tB o x l.S e tF o c u sM e.T e x tB o x l.T e
20、x t=你好!欢迎学习 V B A。双击“清除”命令按钮,编写代码如下:M e.T e x tB o x l.T e x t 二0031 01C 1对下面组程序进行注释。S u b c m d S m a l l F o n t_ C l i c k()W i th S e l e c ti o n.F o n t.N a m e=A r i a l”.F o n tS ty l e=R e g u l a r”.S i z e=16 E n d W i thE n d s u b 0031对选中的文本字体进行设置,字体名,风格,字号0032 01B 2在V B A环境中建立和运行一个显示消息
21、框的过程,可按以下步骤进行:选择 菜单,打开V B A编辑器窗口。在工具栏上单击 按钮,打 开“工程资源管理器”窗口。插入模块、添加过程、在过程中下面代码段:P u b l i c S u b显示消息框()M s g b o x 这是测试用的过程。E n d S u b使用“运行”菜单的 项(或F 5)运行程序。2a032“工具|宏V i s u a l B a s i c编辑器”,“工程资源管理器”,“运行子程序/用户窗体”0033 01C 1对下面子程序进行注释。S u b m j (L,W)If L =0 O r W =0 T h e nE x i t S u b E n d IfS =
22、L *WM s g B o x SE n d S u b该子程序的功能是 o两个参数L和肌分别表示矩形的_ _ _ _ _ _ _ _ _ 和_ _ _ _ _ _ _ _ _ _O为033击参数的值为。则退出子程序:求矩形面积:长;宽0034 09F 2假设某文件夹有2 0个属性相同、命名有规律(比如:p i c O l.g i f、p i c 02.g i f、p ic2 0.gif)的图片文件,现在要依次放入Pow er Point幻灯片中。若用VB A程序自动实现,请写出实现步骤和主要代码。0034实现步骤:录制宏:添加幻灯片、插入图形。加工录制的程序:使用循环语句。运行程序。主要代码
23、:F or k=1 To 2 0A ct iv eWindow.View.G ot oS1 ide I ndex:=A ct iv ePr es ent at ion.SI ides.A dd(I ndex:*Lay ou t:=p p Lay ou t Tex t).Slideindexp n=I I f(k 9,k,&k)A ct iv eWindow.Select ion.SI ideRange.Shap es.A ddPict u r e(E i 1 eName:=_ p ic&p n&.gif”,LinkToF i1 e:=ms oF aI s e,Sav eWit hD ocu m
24、ent:=_ms oTr u e,Left:=0,Top:=0,Widt h:=7 2 0,H eight:=5 4 0).SelectNex t对VB A程序的代码进行保护,防止非法读取或修改。可用下面方法:进入VB A编辑环境,打开 窗口。右击工程(VB A Pr oject),在弹出菜单中选“VB A Pr oject属性”对话框。在“VB A Pr oject工程属性”对话框的_ 卡中,选 中“查看时锁定工程”复选框,然后输入并确认,最后单 击“确定”按钮,保存当前工作簿并退出。飞0 3 5“工程资源管理器”,“保护”,“查看工程属性的密码”0 0 3 6 0 1 B 2请对下面子程序
25、进行注释。Su b hz j()F or m=1 7 6 To 2 4 7F or n=1 6 1 To 2 5 4nm=&H&H ex(m)&H ex(n)Select ion.Ty p eTex t Tex t:=C hr(nm)Nex tNex tE nd Su b该程序的功能是:_飞0 3 6.成 汉 字内码,在Wor d当前文档输入一个汉字,在Wor d文档中输入国标汉字集0 0 3 7 0 6 E 1编写一个自定义函数,根据“工资及津贴”数额求出应缴纳党费的比例。规定如下:“工资及津贴”不超过4 0 0元的,按0.5%交纳党费;4 0 0元以上但不超过8 0 0元的,缴纳1%:8
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vba 题库 文档
限制150内