省二级考试VB试题汇总
'Text1.ForeColor = vbBlue End Sub
8．在考生文件夹中，完成以下要求：
(1) 启动工程文件Sjt.vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件Sjt.frm
的窗体名称改为“Vbbc”。
(2) 请在窗体适当位置添加控件：一个标签Label1，标题为“请输入一个自然数”，自动调整大小；
一个文本框text1，文本内容为空且Tabindex属性值为0；一个命令按钮Command1，标题为“添加”；一个列表框List1。（以上操作在属性窗口中完成）
(3) 按要求编写代码：程序运行时，在文本框中输入一个自然数，单击“添加”按钮时，首先清除列
表中的内容，然后在列表框中列出小于等于该自然数的所有偶数。程序运行界面如下图所示：
(4) 请调试、运行，然后将工程、窗体保存。 参考代码如下：
Private Sub Command1_click() List1.Clear
x = Val(Text1.Text) For i = 2 to x Step 2 List1.AddItem i Next i End Sub
五、简单应用题（每套试卷有1个简单应用题，每题20分） 评分规则如下：
所建工程得分：４分 所建的窗体得分：１0分 生成.exe文件： ２分 生成答案文件： ４分 编程题满分：２０分
1．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“数据计算”。
(2)请在窗体适当位置增加以下控件：一个标签Label1，标题为“计算结果”；一个文本框Text1；
两个命令按钮（名称分别为C1和C2，标题分别为“计算”和“保存”），如图所示。
第 36 页 共 50 页
省二级考试VB试题汇总
-5
(3)编写程序计算S的近似值，直到最后一项的绝对值小于10为止（要求将存放结果的变量类型定
义成单精度浮点型）。
(4)要求程序运行后，单击“计算”按钮，计算并将结果显示在文本框中；最后单击“保存”按钮，
将结果存入考生文件夹中的文件“kssj.dat”中。
(5)在考生文件夹下有标准模块Prog1.bas，其中的Putdata过程可以把结果存入指定的文件，要求
把这个模块文件添加到当前的工程中，直接调用该过程。
(6)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
您的编程题模块设计如下：（题中已在标准模块给出的代码） 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
参考程序如下：（要求考生编写代码部分） Dim N as Integer , I as Integer Dim S as Single , T as Single Private Sub C1_Click() S=1 N=1 Do N=N+2 T=1
For I = 1 To N T=T*I Next I S=S+1/T
Loop Until 1/T<0.0000001 Text1.Text=S End Sub
Private Sub C2_Click()
Call putdata(\
第 37 页 共 50 页
省二级考试VB试题汇总
End Sub
2．在考生文件夹中，完成以下要求：
(1)启动工程文件Prog1.Vbp，将该工程文件的工程名称改为“Spks”，并将该工程中的窗体文件
Prog1.frm的窗体名称改为“Prog1”，窗体的标题为“字符串个数”。
(2)请在窗体适当位置增加以下控件：文本框1（名称为Text1，Multiline属性为True，ScrollBars属性为2）；文本框2（名称为Text2）和三个命令按钮（名称分别为C1、 C2和C3，标题分别为“读入数据”、“显示结果”和“保存”），如图所示。
(3)要求程序运行后，单击“读入数据”按钮，读入“ini.txt”文件中的内容，同时在文本框text1
中显示出来；然后单击“显示结果”按钮，统计出字符串“and”出现的次数，并把结果在文本框Text2中显示出来；最后单击“保存”按钮，把该结果（Text2的值）存入考生文件夹中的文件“kssj.dat”中。
（4）在考生文件夹下有标准模块Prog1.bas，其中的getdata过程可以读出文件“ini.txt”中的内
容，Putdata过程可以把结果存入指定的文件，要求把这个模块文件添加到当前工程中，直接调用过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行程序：Prog1.exe。
您的编程题模块设计如下：（题中已在标准模块给出的代码） 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
第 38 页 共 50 页
省二级考试VB试题汇总
Close #1
参考程序如下：（要求考生编写代码部分） 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”中。
第 39 页 共 50 页
省二级考试VB试题汇总
(4)在考生文件夹下有标准模块Prog1.bas，其中Getdata过程可以读出文件“ini.txt”中的数据，
Putdata过程可以把结果存入指定的文件，要求把该模块文件添加到当前工程中，直接调用该过程。
(5)请先将工程、窗体与模块保存，然后调试、运行并生成可执行文件：Prog1.exe。
您的编程题模块设计如下：（题中已在标准模块给出的代码） 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() 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 = \
Open App.Path & \ '读数到数组中
Do While Not EOF(1) Line Input #1, strName i = i + 1
A(i) = Val(strName) Sum = Sum + A(i)
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 = s
第 40 页 50 页
共