当前位置:首页 >> IT认证 >>

VB复习题(校考印象)这个很重要


2008-6-14 日 VB 考试印象整理 一、设计题 1、 如图所示,窗体中有 2 个列表框、2 个命令按钮。点击“选择” ,把 List1 中选中对象(含 多个)复制到 List2 中;点击“清除” List2 清空。 ,

图1 答:首先在属性窗口中设置 List1 的 MultiSelect 值为 2。 代码: Private Sub Command1_Click() Dim i% For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then List2.AddItem List1.List(i) Next i End Sub Private Sub Command2_Click() List2.Clear End Sub Private Sub Form_Load() List1.AddItem "语文" List1.AddItem "高数 " List1.AddItem "计算机应用 " List1.AddItem "数据结构" List1.AddItem "哲学 " List1.AddItem "大学英语" End Sub 2、 如同所示,窗体中有 2 个列表框、1 个命令按钮。点击“未选择的项目复制” ,把 List1 中未选中项目复制到 List2 中。

图2

答:首先在属性窗口中设置 List1 的 MultiSelect 值为 2。 代码: Private Sub Command1_Click() Dim i% For i = 0 To List1.ListCount - 1 If Not List1.Selected(i) Then List2.AddItem List1.List(i) Next i End Sub Private Sub Form_Load() List1.AddItem "语文" List1.AddItem "高数 " List1.AddItem "计算机应用 " List1.AddItem "数据结构" List1.AddItem "哲学 " List1.AddItem "大学英语" End Sub 3、 如图所示,窗体中有一个 Shape 控件、一个滚动条,点击滚动条箭头,使 Shape1 控件 次序变化着各种形状。

图3 答:首先在属性窗口中设置 Hscroll1 的 Max 值为 5。 代码: Private Sub HScroll1_Change() Shape1.Shape = HScroll1.Value End Sub 4、 如图所示,窗体中有一个时钟控件、一个滚动条(value 值范围:0~10)、一个命令按钮。 点击“开始” ,滚动条滑块每秒以 1 的步长前进。

图4 答:首先在属性窗口设置 Hscroll1 的 Max 值为 10。 代码: Private Sub Command1_Click() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() HScroll1.Value = HScroll1.Value + 1 End Sub 5、 如图所示界面,设计一个标题为“字体颜色” 、名称为 BgColor 弹出式菜,包括一个控 件数组子菜单,子菜单名称为 Gcolor,标题等属性如图所示,子菜单功能用于设置窗体 颜色。

图5 答:打开菜单编辑器,建立顶级菜单,去掉“可见”属性; 建立子菜单控件数组――“红色”的“索引”输入 0、 “绿色”的“索引”输入 1… 代码: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu BgColor End Sub Private Sub Gcolor_Click(Index As Integer) Select Case Index Case 0 If Gcolor(0).Checked = False Then Gcolor(0).Checked = True Gcolor(1).Checked = False

Gcolor(2).Checked = False Gcolor(3).Checked = False Form1.BackColor = vbRed Case 1 Gcolor(0).Checked = False Gcolor(2).Checked = False Gcolor(3).Checked = False If Gcolor(1).Checked = False Then Gcolor(1).Checked = True Form1.BackColor = vbGreen Case 2 If Gcolor(2).Checked = False Then Gcolor(2).Checked = True Gcolor(0).Checked = False Gcolor(1).Checked = False Gcolor(3).Checked = False Form1.BackColor = vbBlue Case 3 If Gcolor(3).Checked = False Then Gcolor(3).Checked = True Gcolor(0).Checked = False Gcolor(1).Checked = False Gcolor(2).Checked = False Form1.BackColor = vbYellow End Select End Sub 6、 如图所示界面,设计一个标题为“字体颜色” 、名称为 BgColor 弹出式菜,包括一个控 件数组子菜单,子菜单名称为 Gcolor,标题等属性如图所示,子菜单功能用于设置文本 框中文字颜色。

图6 答:打开菜单编辑器,建立顶级菜单,去掉“可见”属性; 建立子菜单控件数组――“红色”的“索引”输入 0、 “绿色”的“索引”输入 1… 代码: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu BgColor End Sub

Private Sub Gcolor_Click(Index As Integer) Select Case Index Case 0 If Gcolor(0).Checked = False Then Gcolor(0).Checked = True Gcolor(1).Checked = False Gcolor(2).Checked = False Gcolor(3).Checked = False Text1.ForeColor = vbRed Case 1 Gcolor(0).Checked = False Gcolor(2).Checked = False Gcolor(3).Checked = False If Gcolor(1).Checked = False Then Gcolor(1).Checked = True Text1.ForeColor = vbRed Case 2 If Gcolor(2).Checked = False Then Gcolor(2).Checked = True Gcolor(0).Checked = False Gcolor(1).Checked = False Gcolor(3).Checked = False Form1.BackColor = vbRed Text1.ForeColor = vbRed Case 3 If Gcolor(3).Checked = False Then Gcolor(3).Checked = True Gcolor(0).Checked = False Gcolor(1).Checked = False Gcolor(2).Checked = False Text1.ForeColor = vbYellow End Select End Sub 7、 如图 7 所示界面,包括一个文本框、一个组合框、2 个命令按钮。点击“修改”按钮, 组合框中选定项目移到文本框;点击“确认” ,文本框中修改之后内容,添加回组合框。

图7

代码: Private Sub Command1_Click() Text1.Text = Combo1.Text Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Command2_Click() Combo1.AddItem Text1 End Sub Private Sub Form_Load() Combo1.AddItem "张三丰" Combo1.AddItem "李铭文" Combo1.AddItem "林历历" Combo1.AddItem "郑小梅" Combo1.AddItem "王浩浩" End Sub 8、 设计如图 8 所示形状。

图8

图9

答:在窗体上画一个 Shape1 控件,设置 Shape1 的 Shape 属性值为 4,FillStyle 属性值为 7。 9、 设计如图 9 所示形状。 答:在窗体上画一个 Shape1 控件,设置 Shape1 的 Shape 属性值为 3,FillStyle 属性值为 4。 10、 如图所示窗体,一个图像框、2 个命令按钮。图像框边框凹陷。点击“显示第一幅 图片”按钮……,“显示第二幅图片”按钮,….。

图 10 答:建立如图所示界面,设置 Image1 的 BoderStyle 值为 1。 代码: Private Sub Command1_Click() Image1.Picture = LoadPicture("….") End Sub Private Sub Command2_Click() Image1.Picture = LoadPicture("...") End Sub 11、 如图所示窗体,包括 2 个 Text 控件、2 个单选按钮。在 Text1 中输入一个整数,点 击单选按钮 “1~N 中能够被 3 整除的数之和” 在 Text2 中显示结果; , 点击单选按钮 “1~ N 中能够被 7 整除的数的个数” ,在 Text2 中显示结果。

图 11 代码: Private Sub Option1_Click() Dim n%, i%, s% n = Val(Text1) For i = 1 To n If i Mod 3 = 0 Then s = s + i Next i Text2 = s End Sub

Private Sub Option2_Click() Dim n%, i%, s% n = Val(Text1) For i = 1 To n If i Mod 7 = 0 Then s = s + 1 Next i Text2 = s End Sub 12、 如图所示窗体,包括 1 个带垂直滚动条文本框控件、1 个框架、2 个复选框。 “下 划线”复选框选中状态,给文本框中文字加下划线; “下划线”复选框选点击、未选中 状态,不带下划线;点击“倾斜”复选按钮选中状态,使文本框中文字倾斜;再点击“倾 斜”复选按钮、未选中状态,不带倾斜。

图 12 代码: Private Sub Check1_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub Private Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalic End Sub 13、 设计一个带垂直滚动条文本框,内有李白唐诗“关山月” ,居中显示,文字为黑体、 三号。

图 13

答:完全在属性窗口中设置―― 在窗体中画一个 Text1,设置 Aligement 属性值为 2,设置 MultiLine 属性为 True,设置 ScrollBars 属性为 2;点击 font…属性,打开对话框,设置黑体、三号;在 Text 属性框中输 入“明月出天山,苍茫云海间。长风几万里,吹度玉门关。 ”注意,每输入一句,按 Ctrl+ 回车一次。最后按回车。 如果使用代码―― 在窗体中画一个 Text1,设置 MultiLine 属性为 True,设置 ScrollBars 属性为 2。 Private Sub Form_Load() Text1.FontName=”黑体”: Text1.FontSize=16 Text1.Alignment = 2 Text1.Text = "明月出天山," + vbCrLf + " 苍茫云海间?" + vbCrLf + "长风几万里," + vbCrLf + "吹度玉门关?" End Sub 14、 请按图设名称为 cal 和 eli 的“计算”和“清除”菜单项, “计算”中含名称为 add 和 sbb 的“加法”和“减法”子菜单;另设两个文本框和一个有边框的标签(窗 体右下角) 。运行时,在文本框中分别输入操作数,选择“加法”或“减法”完成相应 的运算,并将结果显示在标签中;选择“清除” ,清除文本框和标签的内容。 注:程序中无需使用任何变量。 窗体文件名 Calc.frm ,工程文件名 Calc.vbp。

图 14 在标题框中输入 “计算” 在名称框中输入 , “cal” ; 答: 建立如图所示界面。 打开菜单编辑器, 点击 “下一个” 按钮, “?” 点击 按钮; 回到标题框中输入 “加法” 在名称框中输入 , “add” , 点击“下一个”按钮,回到标题框中输入“减法” ,在名称框中输入“sbb” 点击“下一 个”按钮, 点击?按钮,在标题框中输入“清除” ,在名称框中输入“eil” ●点击“确定” ; 按钮。 设置 Label1 的 BoderStyle 属性值为 1。 代码: privade Sub add_Click() Label1.Caption=Val(Text1)+Val(Text2) End Sub privade Sub Sbb_Click() Label1.Caption=Val(Text1)-Val(Text2) End Sub privade Sub eli_Click() Text1=” ” Text2=” ” Label1.Caption=” ” End Sub

15、 请按图设一个名称为“fs” 、标题为“字体大小”的菜单项;在这个菜单下创建一 个名为“size”的控件数组的子菜单,包含两个子菜单项,标题分别为“12 号”和“18 号” ,下标分别为“0”和“1” ;再在窗体上添加一个文本居中显示的文本框。运行时单 击子菜单,文本框中的字体大小会做相应的变换。 注:程序中无需使用任何变量。 窗体文件名 Fonts.frm,工程文件名 Fonts.vbp。

图 15 答:建立如界面。 打开菜单编辑器,在标题框中输入“字体大小” ,在名称框中输入“fs” ; 点击 “下一个” 按钮, “?” 点击 按钮; 回到标题框中输入 “12 号” 在名称框中输入 , “size” , 在索引框中输入“0” ; 点击“下一个”按钮,回到标题框中输入“18 号” ,在名称框中输 入“size” ,在索引框中输入“1” 点击“确定”按钮。●设置 Text1 的 Aligement 属性值 ; 为 2,Text 值为“Visual Basic 等级考试” 代码: Private Sub Size_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize=12 Case 1 Text1.FontSize=18 End Sub 二、综合编程题 1、 如图所示界面。点击“读入数组” ,读入考生文件夹中 In.txt 中 20 个数据,点击“计算” , 分别在 Text1、 Text2、 Text3 显示数组元素的最大值、 最小值、 平均值, 并保存入 Data.txt。 (描述:计算为过程,已经编好) 。

图 2-1 答:双击考生文件夹的 MM.vbp,打开界面。 代码: Dim Arr%(1 to 20)

图 2-2

Private Sub Command1_Click() Dim I%,Arr%(1 to 20) Open App.Path & “\Data.txt” For Input As #1 For I=1 to 20 Input #1,Arr(i) Next I Close #1 End Sub Private Sub Command2_Click() Call Cal() Open app.Path & “\Data.txt” For Output As #1 For I=1 to 20 Print #1,text1;text2;text3 Close #1 End Sub ‘######################################################### Sub Cal() Dim I%,Max%,Min%,aver% Max=Arr(1):Min=Arr(1):Aver=Arr(1) For I=2 to Unound(Arr) If max<arr(i) then max=aarr(i) If min>arr(i) then min=arr(i) Aver=aver+arr(i) Next I Text1=max:text2=min:text3=aver/(Uound(arr)-Lbound(arr)+1) End Sub 2、 如图所示界面。点击“读入数组” ,读入考生文件夹中 In.txt 中 20 个数据,点击“保存 偶数” ,把偶数写入考生文件夹的 Out.txt 文件中。 答:双击考生文件夹的 Even.vbp,打开界面。 代码: Private Sub Command1_Click() Open app.Path & “\in.txt” For Input As #1 For I=1 to 20 Input #1,arr(i) Next I Close #1 End Sub Private Sub Command2_Click() Open app.Path & “\Out.txt” For Output As #1 For I=1 to 20

If arr(i) Mod 2=0 then Print #1,arr(i) Next I Close #1 End Sub 3、 如图所示界面,4 个文本框、2 个命令按钮、一个标签。点击“随机数”按钮,文本框 中分别显示 1~100 之间的随机数;点击“计算”按钮,统计文本框中大于 50 随机数个 数,在标签中显示。

图 2-3 代码: Dim arr%(4), n% Private Sub Command1_Click() Dim i% For i = 1 To 4 arr(i) = Rnd * 1000 \ 10 + 1 Next i Text1 = arr(1): Text2 = arr(2) Text3 = arr(3): Text4 = arr(4) End Sub Private Sub Command2_Click() Dim i% For i = 1 To 4 If arr(i) > 50 Then n = n + 1 Next i Label1.Caption = n End Sub 4、 打开考生文件夹下的工程 Prime.vbp,添加适当的事件代码,实现以下功能: 在文本框 Text1 和 Text2 中分别输入两个任意正整数,单击“统计素数的个数”按钮 时,统计这两个数之间素数的个数,并显示在文本框 Text3 中。

图 2-4 答:双击考生文件夹的 Prime.vbp,打开界面。 代码: Private Sub Command1_Click() dim x%,y% x=Val(Text1):y=Val(Text2) Text3=Prime(x,y) End Sub ‘###################################################### Function Prime%(m%,n%) Dim I%,j%,k%,flag As Boolean For I=m to n Flag=True If I=1 then I=2 For j=2 to I-1 If (I mod j)=0 then Flag=False Next j If flag Then k=k+1 Next i Prime=k End Function 5、 打开考生文件夹下的工程 Ecdm.vbp,添加适当的事件代码,实现以下功能: 在文本框 Text1 和 Text2 中分别输入两个任意正整数,单击“显示”按钮时,在文本 框 Text3 和 Text4 中分别显示它们的最大公约数及最小公倍数。

图 2-5 答:双击考生文件夹的 Ecdm.vbp,打开界面。 代码: Private Sub Command1_Click()

dim x%,y% x=Val(Text1):y=Val(Text2) Text3=Div(x,y) Text4=Val(Text1)*Val(Text2)/val(Text3) End Sub ‘################################################################ Function Div%(m%,n%) Dim t%,r% If m<n then t=m:m=n:n=t R=m mod n Do While(r<>0) M=n:n=r R=m mod n Loop Div=n End Function 6、 打开考生文件夹下的工程 Evalu.vbp,添加适当的事件代码,实现以下功能: ⑴ 单击“随机数”按钮,在文本框 Text1 中显示一个[1,10]区间的随机整数; ⑵ 单击“求值”按钮,计算 1+1/(1+2)+1/(1+2+3)+…..+1/(1+2+3+…..+n)的值(其中 n 为文本框 Text1 中的值) ,并显示在文本框 Text2 中。

图 2-6 答:双击考生文件夹的 Evalu.vbp,打开界面,双击命令按钮。 Private Sub Command1_Click() Text1=rnd*100\10+1 End Sub Private Sub Command2_Click() Dim I%,n%, x%,s# S=1:x=1 N=val(text1) For I=2 to n X=x+i S=s+1/x Next I Text2=s End Sub

7、 如图所示界面,包括 1 个 Drive1、Dir1、File1 控件和 1 个图片框控件,编写代码,使得 3 个对象绑定,File1 中显示.Jpg 文档;点击 File1 中某个文件名,在图片框中显示相应 图片。不需要如何变量。

图 2-7 答:首先在属性窗口,设置 Picture1 的 AutoSize 为 True,设置 File1 的 Pattern 属性为*.jpg。 代码: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path File1.Pattern=”*.jpg;*.bmp” End Sub Private Sub File1_Click() Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub 8、 打开考生文件夹下的工程 Readc.vbp,添加适当的事件代码,实现以下功能: ⑴ 单击“读入数据”按钮,读入考生文件夹的 Datain.txt 文件中的 20 个整数,放入 Arr 数组中; ⑵ 单击“计算”按钮,计算 Arr 数组元素之和,并在文本框上显示出来。


相关文章:
VB复习题(校考印象)这个很重要.doc
VB复习题(校考印象)这个很重要 - 2008-6-14 日 VB 考试印象整理
我很重要 练习题答案.doc
很重要 练习题答案 - 1、作者在文中提出了什么观点?又分别从哪些方面展开了论述?(3 分) 主要观点是“我(能指出这个“我”是泛指更准确)很重要”。主要从...
习题课1(这个很重要)_图文.ppt
习题课1(这个很重要) - 习题 ? 填空题 1. 组成4K×8位的存储矩阵,需
4.牛人总结英语六级听力答题技巧(来源于网络).doc
英语六级听力答题技巧(来源于网络)_英语考试_外语...觉得我很烂的或者是不用考四六级的 可以忽略掉这些...那么如果你只追求过关的话,这三道题也就不那么重要...
习题课1(这个很重要)_图文.ppt
习题课1(这个很重要) - 习题 ? 填空题 1. 组成4K×8位的存储矩阵,需
1、建行招聘笔试经验总结(非常重要).doc
建行招聘笔试经验总结(非常重要) (资料来源于应届生...综合这几次银行考试的内容来看,专业实在是 考的太...看看西方经济学(包括 宏观和微观) ,大致有个印象...
2014年二建考试心得及复习计划(个人总结).doc
2014年二建考试心得及复习计划(个人总结)_从业资格...甚至比做题都重要,因为这个考试就是考知识点,只要你...3、对于多选题,很有技巧,答对一个得0.5分,答错...
职业素质面试题.doc
VB, HTML and SQL Server., 我希望自己能在一个...参考思路:我的朋友对我很重要。在与朋友的交往中,...综合面试题 4.你对最初的工作还有多少印象? 参考...
中学生性格类型测试题.doc
(1) 我给别人留下的深刻印象是: A 中学生性格...题只能选择一个答案,其相应字母的意义是: A、很...但不必担心,这属于正常的临考和考试状态。低程度的...
招聘面试测试考题.doc
招聘面试测试考题_其它考试_资格考试/认证_教育专区...一.总体印象:如果应聘者所填的资料不丰富,说明这个...您是否认为忠实于自己合作的团队企业是一件很重要的...
司法考试选择题答题技巧 第一印象很重要.doc
来源:学习资料网 http://www.anxue.net/ 司法考试选择题答题技巧 第一印象很重要 法院的 5 大本,从 5 月做到现在,原来每天做 20 页就晕,一本三四百页,要...
《我很重要》练习题Microsoft Word 文档 (2).doc
《我很重要练习题Microsoft Word 文档 (2)_高一语文_语文_高中教育_教育专区。语文练习 阅读毕淑敏的《我很重要》一文,完成 1217 题。(18 分) 许多年...
人际交往中,第一印象很重要,这是因为存在()。 A.近因效....doc
人际交往中,第一印象很重要,是因为存在()。 A.近因效应 B.刻板印象 C.
【文诩文档】传媒考试(校考)事项.doc
传媒考试(校考)事项_广告/传媒_人文社科_专业资料...你的兴趣爱好, 这个很重要哦! 要让老师知道你丫的...你去的早, 给老师的第一印象比较好, 会加分的!更...
河北工业大学通信原理考研复习题.doc
河北工业大学通信原理考研复习题 - 一、 解(只是练习求 R(t) ,需要懂自相关的求解方法) 二、 解(要熟练这个分析过程很重要) 三、 解(熟悉设计框图 主要是...
不动产登记相关法律法规及练习题,匹配答案.doc
不动产登记相关法律法规及练习题,匹配答案 - 不动产登记业务知识和法律法规试题考核题目 判断(第一印象很重要) 1.不动产登记簿由所在地区档案馆永久保存。 (×) ...
从容面对考试(心理讲座稿).doc
我们考试的时候,就只考虑考 试本身这一件事就可以...其实还有一个很重要的环 节大家不容小觑, 那就是...这样在大脑中的印象就会深刻而不会那么容易 地遗忘...
礼仪综合复习题.doc
礼仪综合复习题_社会学_人文社科_专业资料。礼仪很重要,无论是在什么地方 都对...2、形象就是外界对我们印象的评价。 形象的功能体现在以下几个方面:形象就是...
秘书学(《忠诚》复习题).doc
秘书学(2)综合复习60题 8页 免费 秘书学复习题 ...的做法属于越权越位行为,给人一种不够稳重的印象。...委员长的诗和编者按) ,这是一项很重要的秘书工作。...
2015年吉林省公务员考试真题答案解析:言语理解(甲卷).doc
名字这个东西大家都知道很重要,但是现在的重要和以前...不能引起误读,若能给留下好的印象,就更完美了。 ...回答 51-55 题: 我和朋友圈的人聊起各自小时候...
更多相关标签: