当前位置:首页 >> 理学 >>

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 1 在标题框中输入 “计算” 在名称框中输入 , “cal” ; 答: 建立如图所示界面。 打开菜单编辑器, 2点击 “下一个” 按钮, “ ” 点击 按钮; 回到标题框中输入 “加法” 在名称框中输入 , “add” , 3点击“下一个”按钮,回到标题框中输入“减法” ,在名称框中输入“sbb” 点击“下一 个”按钮, 点击?按钮,在标题框中输入“清除” ,在名称框中输入“eil” 5点击“确定” ; 按钮。6设置 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 答:建立如界面。1打开菜单编辑器,在标题框中输入“字体大小” ,在名称框中输入“fs” ; 2点击 “下一个” 按钮, “ ” 点击 按钮; 回到标题框中输入 “12 号” 在名称框中输入 , “size” , 在索引框中输入“0” 3点击“下一个”按钮,回到标题框中输入“18 号” ; ,在名称框中输 入“size” ,在索引框中输入“1” 4点击“确定”按钮。5设置 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 考试印象整理
云南师范大学《VB》期末试卷及答案.pdf
(VB6.0)期末考试试卷考试方式(闭卷) 考试时量:100...这题考查你是否知道列表框 AddItem 方法的语法格式,...可以在 VB测试一下加深印象! 18. 函数 Int(...
vb常见问题及答案.doc
vb常见问题及答案_IT认证_资格考试/认证_教育专区。...(注意:各小题能用语句完成的,写出语句段;不能用...中设置。最好能在机器上进行验证,以加深印象。 ) ...
如何复习二级VB的8-10章内容.doc
如何复习二级VB的8-10章内容_IT认证_资格考试/认证...时应理解数组传递的要求和规则, 并结合习题加深印象...考查基本知识,基本都属于送分题,考生复习时应将...
VB应试策略.doc
VB应试策略_其它考试_资格考试/认证_教育专区。应试...题和单项选择题, 每年从中选择一种题型 进行考查...快速浏览题目,对5个题目有大概印象以便阅读时有...
高校VB教学存在问题及改进措施20100131.doc
及改进措施20100131_信息与通信_工程科技_专业资料。...做好练习、通过考试,就能学好VB课程,实验课也仅仅...感官刺激,有利于学 生理解所学内容并对其加深印象。...
2011年9月计算机二级VB笔试试题(未来教育版).doc
2011年9月计算机二级VB笔试试题(未来教育版)_育儿...丰富儿童的生活印象, 使环境更适应儿童内在发展的...2011年9月计算机等级考试... 11页 2下载券 ...
二级考试(VB)知识点细化(针对浙江省计算机等级考试).doc
五、面向对象程序设计(重点) (此部分学习时最好结合上机来加深印象) 1、理解...浙江省二级考试VB试题汇... 50页 1下载券 浙江省计算机等级考试二... 29页...
2011年9月计算机二级VB笔试试题(未来教育版).doc
2011年9月计算机二级VB笔试试题(未来教育版)_...也 许这些东西在其他人印象中并不算什么, ...2011 大学生三下乡社会实践报告来源:考试吧(...
C语言考试复习题.doc
C语言考试复习题_电脑基础知识_IT/计算机_专业资料。校考 程序设计必须掌握的...12. (★,VB 语言)设计界面如图 7-41 所示,包括 Text_i(数组元素下标) 、...
2018南京理工大学机械原理考研经验分享.doc
真题做的不错,考试就能考到 120+,这个是 无数人...如 Vb1b2 的方向在速度图上是 b2 指向 b1,这个...六.专业课资料 《2018 南京理工大学机械原理考研复习...
vb内部函数教案_图文.doc
学习内容分析 本节课主要复习的是 VB 中的内部函数...会出现怎样的考论、概括总结。 题? 提问 1. 刚刚...给你 印象 比较 深的 是哪 些内容? 提问 2. ...
2009年计算机等级二级VB笔试考前模拟试题.doc
2009年计算机等级二级VB笔试考前模拟试题_其它考试_...对某个服务员的印象、 对餐饮服务的批评意见和表扬...2009年全国计算机等级考... 21页 免费 2009年9...
网络编程复习题.doc
网络编程复习题_计算机软件及应用_IT/计算机_专业...A.JavaScript B.VB C.Perl D.ASP 12.在 HTML ...是 一个网站留给浏览者的最初印象,因而是非常重要...
VB课程设计报告-学生信息管理系统_图文.doc
可以加深我们对上学期的 vb 基础知识的印象,使理 论升华为实际操作, 同时也有...复习了上学期 我们所学的 vb 知识,自定义数据类型和动态数组,更加熟练的掌握了...
20082008年4月全国计算机等级考试VB_图文.ppt
2008年 2008年4月全国计算机等级考试 VB培训 VB培训...总结提炼才容易在脑海中留下清晰的印象和轮廓;二是...现在关于“二级”考试习题很多,搞题海战术肯定是...
vb程序设计实验心得.doc
vb程序设计实验心得_经管营销_专业资料vb 程序设计...这次数据库课程设计给我的最大的印象就是如果自己有...后才能参加 考试,课程设计不过关,即使考得再好,也...
初中VB教学问题与方法_图文.ppt
学生经过这样的练习,就会觉得:程序很有意思, 很容易...对VB的界面也在不知不觉中有点印象了。特别是(1...①引入对数据类型的理解可以用表示一个人的资料信 ...
VB中for循环1.doc
VB中for循环1_其它考试_资格考试/认证_教育专区。VB中for的使用 ...练习加深印象,最后留 3-5 分钟做小结 1.启发式教学 2、协作学习法 1.引入 ...
四种气质性格测试题_图文.xls
四种气质性格测试题_教育学/心理学_人文社科_专业资料。【内涵VB程序可以提交,...不愿窃窃私语 32 给别人闷闷不乐的印象 33 接受力强 34 疲倦时只需要短暂的...
更多相关标签: