省二级考试VB试题汇总
text1.setfocus Else Select Case Mid(Text1.Text, 3, 1) ' 从Text1的第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() 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) < \ Or Chr(KeyAscii) > \ Then 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
第 31 页 共 74 页
省二级考试VB试题汇总
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 Private Sub List1_Click() Command2.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
第 32 页 共 74 页
省二级考试VB试题汇总
五、简单应用题
1．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm
的窗体名称改为“Prog1”，窗体的标题为“数据计算”。
(2)请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”；一个文本框Text1；两个命令
按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。
本题先执行第5条要求，再执行才能达到效果
-5
(3)编写程序计算S的近似值，直到最后一项的绝对值小于10为止（要求将存放结果的变量类型定义成单精
度浮点型）。
(4)要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，将结果存
入考生文件夹中的文件“kssj.dat”中。
(5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求把这个模
块文件添加到当前的工程中，直接调用该过程。
(6)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
第（5）步添加的prog1.bas文件中的代码如下： Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1 End 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 Next i If f = 1 Then s = s + n Next n Text1.Text = s 第 33 页 共 74 页 省二级考试VB试题汇总
End Sub Private Sub Command2_Click() Call putdata(\End Sub 2．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm
的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。
(2)请在窗体适当位置增加以下控件：文本框1（名称为Text1，Multiline属性为True，ScrollBars属性为2）；文本框2（名称为Text2）和三个命令按钮（名称分别为C1、 C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。
本题必须先执行第4条要求，并研究所添加模块中的代码。 在所添加模块中定义了对文件进行操作的过程，必须弄清楚这个过程的参数含义，明确调用参数的个数、顺序和类型。
(3)要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1中显示
出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。 （4）在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内容，
Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。 (5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
第（4）步添加的prog1.bas文件中的代码如下： Option Explicit Sub putdata(t_FileName As String, t_Str As Variant) Dim sFile As String sFile = \ Open App.Path & sFile For Output As #1 Print #1, t_Str Close #1 End Sub Sub getdata(t_FileName As String, t_Str As Variant)'读文件函数 Dim sFile As String, Strname As String sFile = \ 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 第 34 页 共 74 页 省二级考试VB试题汇总
Close #1 End Sub
参考程序如下： Dim Count1 As Integer Private Sub C1_Click( ) Call getdata(\ Text1.Text = Str1 End Sub Private 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) = \ Count1 = Count1 + 1 End If Next i Text2.Text = Count1 End Sub Private Sub C3_Click( ) putdata \End Sub
3．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Prog1.frm
的窗体名称改为“Prog1”。
(2)请在窗体适当位置增加以下控件：两个标签label1，label2，标题分别为“平均数为：”，“大于平均
数的个数为：”；三个文本框Text1，Text2，Text3；Text1的Multiline的属性为True，ScrollBars属性为2，文本均为空白；两个命令按钮Command1,Command2，标题分别为：“读数并计算”，“保存”；将窗体标题改为“求平均数”（如图所示）。
(3)要求程序运行后，单击“读数并计算”按钮，则读入“ini.txt”文件中的50个整数显示在Text1中，同时在Text2中显示这些整数的平均数，在Text3中显示大于平均数的个数。单击“保存”按钮将大于平均数的个数（Text3的值）存入考生文件夹中的文件“kssj.dat”中。
(4)在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，Putdata
第 35 页 共 74 页