湖北省二级考试VB试题汇总(7)

省二级考试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 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库湖北省二级考试VB试题汇总(7)在线全文阅读。