1、vb上机考试操作题 Vb上机操作题四、基本操作题1在考生文件夹中，完成以下要求：解题步骤：(重点提示)（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的去掉）；在“工程”菜单中选择“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc；把窗体的caption属性值改为 二级VB考试（2）以下各个控件的位置，参照下土。在窗体上添加时钟控件（其名称默认为Timer1），把它的interval属性设置为10；添加图片框（picturebox），在picture1添加标签，将这个标
2、签的autosize属性设置为true；在窗体上添加标签，将其caption属性设置为快；在窗体上添加文本框、水平滚动条，将这个水平滚动条的min属性设置为0，max属性设置为100；（3）按如下方式在各个对象的相应事件里写入代码：（4）运行这个程序；点击保存 （1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”，窗体的标题为“二级VB考试”。（2）在窗体上增加以下控件：定时器Timer1，时间间隔值为10；图片框Picture1；标签Label1放置在图片框中，标签的大小自动调整；标签Label2的标题为“快
3、”；文本框Text1放置在图片框下方；水平滚动条HScroll1，最小值为0,最大值为100 。（3）按如下要求编写代码： 文本框中输入的字符自动显示为标签的标题；标签自动向左移动，移出图片框后又从右边进入（提示：编程使得当标签的Left-1000时，重置Left10000）；拖动水平滚动条时，将调整移动的速度。 （4）请先调试、运行，然后将工程、窗体保存。参考程序代码如下：Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value 水平滚动条的值越小，timer事件执行间隔越小，标签运动越快End SubPrivate Sub
4、 Text1_Change() Label1.Caption = Text1.TextEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left 100 标签距离picture1左边界的距离减少100单位 If Label1.Left -1000 Then Label1.Left = 10000End Sub2在考生文件夹中，完成以下要求：解题步骤：（1）通过浏览器进入考生文件夹，双击“Sjt.Vbp”（如果看不到扩展名，则需要在浏览器的“工具”“文件夹选项”“查看”中，把“隐藏已知文件类型的扩展名”前面的去掉）；在“工程”菜单中选择
5、“工程属性”，把工程名称改为Spks；把窗体的“名称”改为vbbc（2）参照下图，在相应位置添加各个控件，并更改相应属性；左边红色内容，应当更改option1的value属性为true；（3）打开窗体的代码窗口，在“通用”声明段里，写上public xb,jg ；在窗体的load事件里，写上图下所示代码，（4）运行这个程序；点击保存 （1）启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。（2）请在适当位置添加控件：三个标签，Label1标题为“姓名：”，Label2标题为“籍贯：”， Label3标题为空；一个
6、框架Frame1标题为“性别”；两个单选按钮在框架Frame1中，Option1标题为“男”,Style属性为1且为选中状态，Option2标题为“女”，Style属性为1；一个文本框Text1内容为空，且Tabindex属性值为0；一个列表框List1；一个命令按钮Command1，标题为“确定”。（以上操作在属性窗口中完成）（3）在窗体模块中声明全局变量xb，jg；在窗体的装载事件中完成：列表框添加三项内容：“北京”，“上海”，“合肥”，且“北京”选项默认被选中，xb变量的初始值为“男”。(4)按如下要求编写代码：选中Option1时，为变量xb赋值为“男”；选中Option2时，为变量x
7、b赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg (要求在列表框的Click事件中实现)；单击按钮Command1时，在Label3中顺次显示姓名（Text1中的内容），籍贯（变量jg的值）,性别（变量xb的值）。运行后如图所示：(5)请先调试、运行，然后将工程、窗体保存。参考程序如下： Public jg, xbPrivate Sub Command1_Click()Label3.Caption = Text1.Text & ： & jg & , & xbEnd SubPrivate Sub Form_Load()List1.AddItem 北京List1.AddItem 上海L
8、ist1.AddItem 合肥xb = 男List1.ListIndex = 0 使得运行时列表框中被选中的初始值为“北京”End SubPrivate Sub List1_Click()jg = List1.TextEnd SubPrivate Sub Option1_Click() xb = 男End SubPrivate Sub Option2_Click() xb = 女End Sub3在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个驱
9、动器列表框Drive1；一个目录列表框Dir1；一个文件列表框File1，自动过滤出扩展名为bmp和jpg的图形文件；一个图像框Image1，其中的图片自动匹配图像框的大小。（以上操作在属性窗口中完成）(3)按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作；文件列表框中显示扩展名为bmp和jpg的图形文件；当单击文件列表框中的某个图形文件时，图像框中显示出该图片（可为机器上任意扩展名为bmp和jpg的图形文件）。运行后，如下图所示： 本题较容易，是课本第八章前两面的原题（仅仅过滤的文件类型不同）(4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Di
10、r1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.Path & & File1.FileName)End Sub4在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。 (2)请在适当位置添加控件：一个标签Label1,
11、标题改为“请输入手机号：”；一个文本框Text1,其值设为空，允许输入的字符数最多为11个；两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”（以上操作在属性窗口中完成）。(3)要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用Msgbox给出“请输入数字符号”的提示信息；输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox给出“手机号码为11位数字”的提示信息，反之，用Msgbox给出是“联通用户”还是“移动用户”或者是“空号”的判定结果（第三位数字为0、1、3是联通用户，5、6、7、8、9为移动用户，其它为“空号”，
12、要求用Select Case 结构实现）；单击“取消”按钮可结束程序运行。运行界面如下图。(4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() If Len(Trim(Text1.Text) 11 Then MsgBox (手机号为11数字) Text1.Text = 13 Text1.SelStart = 3 text1.setfocus Else Select Case Mid(Text1.Text, 3, 1) 从Text1的第3位取1个字符 Case 0, 1, 3 MsgBox (联通用户) Case 5, 6, 7, 8
13、, 9 MsgBox (移动用户) Case Else MsgBox (空号) End Select End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = 13text1.tabindex=0Text1.SelStart = 3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) 9 Then MsgBox (请输入数字符号) KeyAscii = 0End IfEnd Sub5在考生文件
14、夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，标题分别为“添加”、“删除” ，Command2的Enabled属性值设为假；一个列表框List1。（以上操作在属性窗口中完成）(3)要求程序运行时，单击“添加”按钮，若文本框中有内容，则将文本框中的内容添加到列表框中。选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。运行效果如下图。 (4)请先调试、运行
15、，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Form_Activate() Text1.SetFocusEnd SubPrivate Sub List1_Click() Command2.Enabled =
16、 True End Sub6在考生文件夹中，完成以下要求：(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名称改为“vbbc”。(2)请在适当位置添加控件：一个标签Label1，标题为“等级考试”；两个命令按钮Command1、command2标题分别为“移动”、“暂停”，Command2的Enabled属性值设为False，一个时钟控件Timer1，其Enabled属性值设为False,Interval属性值设置为500。（以上操作在属性窗口中完成）(3)要求程序运行时，单击“移动”按钮可使Timer1、 Command2有
17、效；时钟控件每隔半秒触发一次Timer事件，该事件触发时可将标签向左移动60缇，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动，单击“暂停”按钮可使时钟控件失效。运行效果如下图。 (4)请先调试、运行，然后将工程、窗体保存。参考程序如下：Private Sub Command1_Click() Command2.Enabled = True Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() If Label1.
18、Left + Label1.Width = 0 Then Label1.Left = Label1.Left - 60 Else Label1.Left = Form1.Width End IfEnd Sub五、简单应用题1在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。(2)请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”；一个文本框Text1；两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图
19、所示。本题先执行第5条要求，再执行才能达到效果 (3)编写程序计算S的近似值，直到最后一项的绝对值小于10-5为止（要求将存放结果的变量类型定义成单精度浮点型）。(4)要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存入考生文件夹中的文件“kssj.dat”中。(5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前的工程中，直接调用该过程。(6)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。第（5）步添加的prog1.bas文件中的代码如下：Op
20、tion ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 参考程序如下：Private Sub Command1_Click() For n = 101 To 200 Step 2 f = 1 For i = 2 To n - 1 If n Mod i = 0 Then f = 0: Exit For
21、Next i If f = 1 Then s = s + n Next n Text1.Text = sEnd SubPrivate Sub Command2_Click() Call putdata(kssj.dat, Text1.Text)End Sub2在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。(2)请在窗体适当位置增加以下控件：文本框1（名称为Text1，Multiline属性为True，ScrollBars属性为2）；文本
22、框2（名称为Text2）和三个命令按钮（名称分别为C1、 C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。本题必须先执行第4条要求，并研究所添加模块中的代码。在所添加模块中定义了对文件进行操作的过程，必须弄清楚这个过程的参数含义，明确调用参数的个数、顺序和类型。 (3)要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1中显示出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。（4）
23、在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内容，Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。第（4）步添加的prog1.bas文件中的代码如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile
24、For Output As #1 Print #1, t_Str Close #1End SubSub getdata(t_FileName As String, t_Str As Variant)读文件函数 Dim sFile As String, Strname As String sFile = & t_FileName Open App.Path & sFile For Input As #1 Do While Not EOF(1) Line Input #1, strname t_Str = t_Str & strname & chr(13) & chr(10) Loop Close
25、 #1 End Sub 参考程序如下： Dim Count1 As IntegerPrivate Sub C1_Click( ) Call getdata(ini.txt, Str1) Text1.Text = Str1End SubPrivate Sub C2_Click( ) Dim Len1 As Integer Dim i As Integer Dim Str1 As String Str1 = Text1.Text i = 1 Len1 = Len(Text1.Text) For i = 1 To Len1 - 3 If Mid(Str1, i, 3) = and Then Coun
26、t1 = Count1 + 1 End If Next i Text2.Text = Count1End SubPrivate Sub C3_Click( ) putdata kssj.dat, Count1End Sub3在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”。(2)请在窗体适当位置增加以下控件：两个标签label1，label2，标题分别为“平均数为：”，“大于平均数的个数为：”；三个文本框Text1，Text2，Text3；Text1的Multilin
27、e的属性为True，ScrollBars属性为2，文本均为空白；两个命令按钮Command1,Command2，标题分别为：“读数并计算”，“保存”；将窗体标题改为“求平均数”（如图所示）。(3)要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示在Text1中，同时在Text2中显示这些整数的平均数，在Text3中显示大于平均数的个数。单击“保存”按钮将大于平均数的个数（Text3的值）存入考生文件夹中的文件“kssj.dat”中。(4)在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，Putdata过
28、程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。第（4）步添加的prog1.bas文件中的代码如下：Option ExplicitSub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1End Sub 参考程序如下:Privat
29、e Sub Command1_Click() Dim s As Integer Dim Sum As Integer Dim Ave As Single Dim A(50) As Integer Dim strName As String Sum = 0 Ave = 0 Text1 = sFile = & t_FileName Open App.Path & ini.txt For Input As #1 读数到数组中 Do While Not EOF(1) Line Input #1, strName i = i + 1 A(i) = Val(strName) Sum = Sum + A(i
30、) Text1.Text = Text1 & A(i) & Chr(13) & Chr(10) Loop Close #1 Ave = Sum / 50 计算大于平均数的个数 For i = 1 To 50 If A(i) Ave Then s = s + 1 End If Next i Text2.Text = Ave Text3.Text = sEnd SubPrivate Sub Command2_Click() Print s putdata kssj.dat, Text3.TextEnd Sub4在考生文件夹中，完成以下要求：(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“排序”。(2)请在窗体适当位置增加以下控件：两个标签Label1和Label2(标题分别为“排序之前”和“排序之后”)；两个列表框List1和 List2；三个命令按钮（均为默认名称，标题分别为“读取数据”、“排序”和“写入文件”），如图所示。 (3) 要求：程序运行后(1) 单击“读取数据”按钮，读入“in
