当前位置:首页 >> 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 数组元素之和,并在文本框上显示出来。


相关文章:
古罗马哲学家曾经说过“做事情之前自信心很重要”,你如何理解这句...
填空题 古罗马哲学家曾经说过“做事情之前自信心很重要”,你如何理解句话 热门考试 高考 一级建造师 二级建造师 初级经济师 中级经济师 教师资格证...
一节科学安全的流瑜伽课,做到这3点很重要!_图文
一节科学安全的流瑜伽课,做到3点很重要!_体育/运动_生活休闲。练习和教授流瑜伽,可以更全面地提高老师的授课水平和练习者的练习水平、自我控制和独立练习的 ...
政治经济学-练习题及答案
政治经济学-练习题及答案_院校资料_高等教育_教育...为基础的商品经济条件下,价值规律具有很重要的作用和...为社会增加福利的时候干的更加有效"句话向我们...
这个很重要1经济题
习题课1(这个很重要) 暂无评价 12页 免费 关于中级综合题1-2_很重... 12...A.师资质量提高 B.学费降低 C.入学考试难度下降 D.文凭更受重视 1 8. B ...
[十九大学习资料]习近平报告,这四个新概念很重要
[十九大学习资料]习近平报告,这四个新概念很重要_公务员考试_资格考试/认证_教育专区。习近平报告,这四个新概念很重要 中国共产党第十九次全国代表大会开幕会今天...
说话要大声 要有气势这个很重要的 气势出来了
说话要大声 要有气势这个很重要的 气势出来了_党团...可以多思 考一会,实在不行的话就按照套路模式来,...来很有气势,二来很能给考官留下自己很有才的印象!...
2018考研:英语复习这四点很重要
2018考研:英语复习这四点很重要_研究生入学考试_...在 5000 至 7000 之间)和近 10 年研考试题及...必须对该专业深刻理解, 才能深入辅导学员考取该。...
穿衣打扮很重要
穿衣打扮很重要_设计/艺术_人文社科_专业资料。穿衣...为什么说穿衣打扮很总要。这个问题要说清楚, 在这个...形象摆在那里首先印象分就已 经高出同等能力的人了...
考研究生联系导师的方法简介!(这个很重要,千万不要忽视了!!!)
考研究生联系导师的方法简介!(这个很重要,千万不要...联系方式, 面的准备,争取给导师留一个很好的印象。...创意简历模板汇集 推理型题分析与总结文档贡献者 欧米茄...
做销售这12个字很重要
做销售12个字很重要_经济/市场_经管营销_专业资料 暂无评价|0人阅读|0次下载|举报文档做销售这12个字很重要_经济/市场_经管营销_专业资料。做销售这 12 ...
更多相关标签: