省二级考试VB试题汇总
List1.AddItem \上海\List1.AddItem \合肥\xb = \男\
List1.ListIndex = 0 End Sub
Private Sub List1_Click() jg = List1.Text End Sub
Private Sub Option1_Click() xb = \男\End Sub
Private Sub Option2_Click() xb = \女\End Sub
3．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。 (2)请在适当位置添加控件：一个驱动器列表框Drive1；一个目录列表框Dir1；一个文件列表框File1，
自动过滤出扩展名为bmp和jpg的图形文件；一个图像框Image1，其中的图片自动匹配图像框的大小。（以上操作在属性窗口中完成）
(3)按要求编写代码使得驱动器列表框、目录列表框和文件列表框同步工作；文件列表框中显示扩展
名为bmp和jpg的图形文件；当单击文件列表框中的某个图形文件时，图像框中显示出该图片（可为机器上任意扩展名为bmp和jpg的图形文件）。 运行后，如下图所示：
(4)请先调试、运行，然后将工程、窗体保存。 参考程序如下：
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click()
If right( filee1.path,1 ) = \ then
Strpath=file1.path & file1.filename
第 31 页 共 50 页
省二级考试VB试题汇总
Else
Strpath=file1.path & \ file1.filename Endif
Image1.Picture = LoadPicture( strpath ) End Sub
4．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个标签Label1,标题改为“请输入手机号：”；一个文本框Text1,其
值设为空，允许输入的字符数最多为11个；两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”（以上操作在属性窗口中完成）。
(3)要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用Msgbox给出
“请输入数字符号”的提示信息；输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox给出“手机号码为11位数字”的提示信息，反之，用Msgbox给出是“联通用户”还是“移动用户”或者是“空号”的判定结果（第三位数字为0、1、3是联通用户，5、6、7、8、9为移动用户，其它为“空号”，要求用Select Case 结构实现）；单击“取消”按钮可结束程序运行。
运行界面如下图。
(4)请先调试、运行，然后将工程、窗体保存。 参考程序如下：
Private Sub Command1_Click()
If Len(Trim(Text1.Text)) <> 11 Then MsgBox (\手机号为11数字\ Text1.Text = \ Text1.SelStart = 3 text1.setfocus Else
Select Case Mid(Text1.Text, 3, 1) Case 0, 1, 3
MsgBox (\联通用户\ Case 5, 6, 7, 8, 9
MsgBox (\移动用户\ Case Else
MsgBox (\空号\ End Select End If End Sub
Private Sub Command2_Click()
第 32 页 共 50 页
省二级考试VB试题汇总
End End Sub
Private Sub Form_Load() Text1.Text = \text1.tabindex=0 Text1.SelStart = 3 End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) < \ MsgBox (\请输入数字符号\ KeyAscii = 0 End If End Sub
5．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，
标题分别为“添加”、“删除” ，Command2的Enabled属性值设为假；一个列表框List1。（以上操作在属性窗口中完成）
(3)要求程序运行时，单击“添加”按钮，若文本框中有内容，则将文本框中的内容添加到列表框中。
选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。运行效果如下图。
(4)请先调试、运行，然后将工程、窗体保存。 参考程序如下：
Private Sub Command1_Click() If Text1.Text <> \ List1.AddItem Text1.Text End If End Sub
Private Sub Command2_Click() If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex End If End Sub
Private Sub Form_Activate() Text1.SetFocus End Sub
第 33 页 共 50 页
省二级考试VB试题汇总
Private Sub List1_Click() Command2.Enabled = True End Sub
Private SubText1_Click() Command1.Enabled = True End Sub
6．在考生文件夹中，完成以下要求：
(1)启动工程文件Sjt.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Sjt.frm的窗体名称改为“vbbc”。
(2)请在适当位置添加控件：一个标签Label1，标题为“等级考试”；两个命令按钮Command1、
command2标题分别为“移动”、“暂停”，Command2的Enabled属性值设为False，一个时钟控件Timer1，其Enabled属性值设为False,Interval属性值设置为500。（以上操作在属性窗口中完成）
(3)要求程序运行时，单击“移动”按钮可使Timer1、 Command2有效；时钟控件每隔半秒触发一次
Timer事件，该事件触发时可将标签向左移动60缇，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动，单击“暂停”按钮可使时钟控件失效。运行效果如下图。
(4)请先调试、运行，然后将工程、窗体保存。 参考程序如下：
Private Sub Command1_Click() Command2.Enabled = True Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width >= 0 Then Label1.Left = Label1.Left - 60 Else
Label1.Left = Form1.Width End If End Sub
7．在考生文件夹中，完成以下要求：
(1) 启动工程文件Sjt.vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm
的窗体名称改为“Vbbc”。
第 34 页 共 50 页
省二级考试VB试题汇总
(2) 请在窗体适当位置添加控件：一个标签Label1，标题为“字体”且自动调整大小，一个组合框
Combo1；一个文本框text1，文本内容为“计算机水平考试”，居中显示；一个框架Frame1标题为“颜色”；两个单选按钮在框架Frame1中，Option1标题为“红色”，Option2标题为“蓝色”。（以上操作在属性窗口中完成） (3) 窗体装载事件中编写代码，为组合框添加三个选项：“隶书”，“黑体”，“宋体”，且默认选项为“隶
书”；程序运行时，选中组合框某项，相应改变文本框中的字体；选中某个单选按钮，相应改变文本框中字体的颜色；程序运行界面如下图所示：
(4) 请调试、运行，然后将工程、窗体保存。
参考代码如下：
Private Sub Combo1_Click() Text1.FontName = Combo1.Text End Sub
Private Sub Form_Load() Combo1.AddItem \隶书\Combo1.AddItem \黑体\Combo1.AddItem \宋体\Combo1.ListIndex = 0 End Sub
Private Sub Option1_Click()
Text1.ForeColor = RGB(255, 0, 0) '或者使用下面的语句 'Text1.ForeColor = vbRed End Sub
Private Sub Option2_Click()
Text1.ForeColor = RGB(0, 0, 255) '或者使用下面的语句 'Text1.ForeColor = vbBlue End Sub
8．在考生文件夹中，完成以下要求：
(1) 启动工程文件Sjt.vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm
的窗体名称改为“Vbbc”。
(2) 请在窗体适当位置添加控件：一个标签Label1，标题为“请输入一个自然数”，自动调整大小；
一个文本框text1，文本内容为空且Tabindex属性值为0；一个命令按钮Command1，标题为“添加”；一个列表框List1。（以上操作在属性窗口中完成）
第 35 页 共 50 页