【原】24套vb试题

昵称e7dgkhUc 2022-06-15 发布于浙江

展开全文

24套vb试题

第一套

试题一：（30分）

用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。


图1	图2

操作要求：

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。

2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：

表1 （每个属性1分，共12分）

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	字体效果	Label1	name	lab1
Label1	caption	请您留下宝贵意见	Text1	name	txt1
Text1	multiline	true	Text1	scrollbars	2
Text1	forecolor	&H000000FF&	Check1	caption	加粗
Command1	name	cmd1	Check2	caption	斜体
Command1	caption	结束	Command1	enabled	false

3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。

（不用能VB函数）（代码2分）

（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；

（要求不能用IF语句来实现）（事件2分，一条代码2分）

（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。

（要求不能用IF语句来实现）（事件2分，一条代码2分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）

1．（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100――110之间，则表示“你的身材真好！”


图1	图2

打开某路径下的工程文件test2-1.vbp，完成下列操作：

（1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)

（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。（每格2分，共4分）

（3）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。

Private Sub Command1_Click()

Dim h As Single, w As Single, x As Single

h = Val(Text1.Text)

w = Val(Text2.Text)

x = w - h '注释1：身高与体重之差

If x >= 110 Then

Label4.Caption = "你太瘦了！"

ElseIf x > 100 Then

Label4.Caption = "你真好" '注释2：显示结果

Else

Label4.Caption = "你太胖了！"

End If

'注释3

'注释4

End Sub

Private Sub Command2_Click()

End

End Sub

2．（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。

图5

打开某路径下的工程文件test2-2.vbp，完成下列操作：

（1）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（1）（2）（3）（4）（5）填空实施此功能。（每空2分，共10分）

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。

Option Base 1

Private Sub Command1_Click()

Dim a, T%, y%

a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

y = Val((1)) '注释1：取年份

If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then

a(2) = (2) '注释2：判断是否闰年

End If

n = Val((3)) '注释3：取组合框当前月份

For i = 1 To n - 1

T = T + (4) '注释4：每月的天数

Next i

Text2.Text = T + Val((5)) '注释5：取列表框当日

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

For i = 1 To 12

Combo1.AddItem i

Next i

For i = 1 To 31

List1.AddItem i

Next i

End Sub

试题三、（20分）

修改考生文件夹下的VB程序使其具有下列功能：

在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。


图4	图5

打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：

1. （3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注：变量N设置通用变量）

2. （15分）将3.txt文件复制到“加密”按钮的事件中，完成相应的（1）、（2）（3）填空及在注释1所在行添加一条代码，并修改“注释2”所在行的代码，让程序正确执行，删除所有注释。

3. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim n%

3.txt:

Dim m%,s$, x$

m = Len((1))

For i = 1 To m

x = Mid$(Text1.Text, i, 1)

If x >= "A" And x <= "Z" Or (2) Then

x = Chr(Asc(x) + n)

If x > "z" Or x > "Z" And x < "a" Then

x = Chr(Asc(x) - （3）)

'注释1：选择结构的格式

End If

s = s +val(x) '注释2：处理后的字符连接

Next i

Text2.Text = s

第二套

试题一（30分）

设计一个模拟中奖号码的VB程序。界面设计和运行效果如图1和图2所示

图1

图2

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2.（14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	随机抽数	Label1	caption	福利彩票抽奖程序
Label1	fontname	幼圆	Label1	fontsize	29
Label1	forecolor	&H000000FF&	Frame1	caption	中奖号码
Text1(0)-text1(7)	fontsize	24（修改）	Frame1	name	Fr1
Command1	caption	开始&S	Text1(0)-text1(7)	backcolor	&H00C0C0FF&
Timer1	Enabled	false	Command2	caption	停止&X
Timer1	interval	100	Command2	Enabled	false

3.操作要求：

（1）（2分）将1.txt文件复制到适当的事件（2分）中。

（2）（4分）完成“开始”按钮的代码，功能具有定时器开始工作，命令按钮command1无效，命令按钮command2有效。

(3) (4分)完成“停止”按钮的代码，功能具有定时器停止工作，命令按钮command1有效，命令按钮command2无效。

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

1.txt:

Randomize

For i = 0 To 7

Text1(i).Text = int(10*rnd)

Next i

试题二（25分）

1.（12分）下列VB程序段实现如下功能：加载窗体后（从键盘上输入项数N）如图3所示，输出S的计算结果。请根据要求，将程序补充完整。S的值用消息框显示

操作要求：

（1）（10分）打开工程文件test2-1.vbp，将2.txt文件复制到窗体加载事件中（2分），完成（1）、（2）、（4）的填空及注释1的（3）代码；让程序正确运行。用消息框显示结果如图3所示：（每空2分，共8分）

图3

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

2-1txt

Dim s As Single，N%,t!

S=0:t=0

N= （1）

For i=1 to （2）

t=(-1)^(i+1)/i^2

（3） '将某项添加到S的累加器

next i

(4)

2. （13分）数列1，1，3, 5, 9,,15 , 25, 41…的规律是从第3个数开始，每个数是它前面两个数的和加1。在考生文件夹中有一个工程文件test2-2.vbp (相应的窗体文件为test2-2.frm)。窗体Form1 中己经给出了所有控件。编写适当的亊件过程实现以下功能：在Txt1中输入整数（例如30）,单击“计算”按钮，则在Txt2中显示该数列第30项的值，如图4所示

图4

操作要求：

（1）（11分）打开工程文件test2-2.vbp，将2-2.txt文件复制适事件中（1分），把程序中的问号（1）（2）（3）（4）(5)改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。

2-2txt

Dim n%, t&, a&, b&

n = Val(Text1.Text)

a = 1: b=1 '表示第一项和第二项

For i = (1) To n

t = (2) 't表示每一项的值

a = b

b = (3)

Next i

(4).Caption = "第" & n & "项的值"

Text2.Text =(5)

试题三（20分）

编写模拟比赛评分的程序，功能为：单击窗体，由键盘输入10位评委的打分，

图4

输入时用动态提示如图4所示。并在窗体中显示，当输入完第10位评委的打分后，在窗体显示“去掉一个最高分：“和“去掉一个最低分：”及”最后得分：”的文字及数字。其中最后得分的计算公式为：去掉一个最分，去掉一个最低分后的8位评委的平均分（保留小数点一位）。效果为图5所示。

图5

1. （2分）打开工程文件test2.vbp，将3.txt文件复制到适当的事件；

2. （16分）根据题意完善（1）（3）（6）（7）（8）的填空；根据注释1、注释2、注释3的分别添加表达式、修改和一条代码；让程序正确执行，删除所有注释。（考试素材处已修改）

3. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim k As Single, i%, s As Single

Dim max As Single, min As Single

k = Val(InputBox("请输入第1位评委打分"))

Print "评委打分："; k;

max = k: min = k: s =k

For i = 2 To (1)

k = '注释1：键盘上输入相应的评委打分

Print k;

If max<=(3) Then max = k

If min >= k Then min=k

s = s +i '注释2：添加评委的分数到S累加器

Next i

'注释3：换行

Print "去掉一个最高分："; (6)

Print "去掉一个最低分："; (7)

Print "最后得分"; (8)

第三套

试题一（30分）

1. （14分）在名为Forml的窗体上绘制一个名为Txt1的文本框控件和一个名为Tmr1的计时器控件，程序运行后，文本框中居中18号显示的是当前的时间.而且文本框中所显示的时间会随时间的变化而改变，程序运行效果图1所示:

图1

（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试题一的文件夹下。

(2)（6））参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

对象名	属性	属性值	对象名	属性	属性值
Form1	name	me	Text1	Alignment	2
Text1	name	txt1	Text1	fontsize	18
Timer1	name	tmr1	Timer1	interval	1000

(3) （4分）编写适当事件（2分），使文本框中所显示的时间会随时间的变化而改变（2分））

注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 test1-1.frm，工程文件名为 test1-1.vbp。

2. (16分)在窗体上绘制两个名称分别为Lab1和Lab2的标签，它们的标题分别为“请输入一个正整数N”和“1+2+3+-+N=”；绘制两个名称分别为Txt1和Txt2的文本框，它们的内容都设为空白：绘制一个名为Cmdl的命令按钮，其标题为“计算”。编写适当的程序，使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+… +N的和显示在Txt2中。程序运行结果如图2所示。

图2

（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。

(2)（8））参照图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

对象名	属性	属性值	对象名	属性	属性值
Text1	name	txt1	Text2	name	txt2
Label1	name	lab1	Label2	name	lab2
Label1	caption	请输入一个正整数N	Label2	caption	1+2+3+……+N=
Command1	name	cmd1	Command1	caption	计算

(3) （4分）编写适当事件（2分），使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+… +N的和显示在Txt2中。(要求用FOR语句结构)

注意：程序中不得使用任何变量：文件必须存放在考生文件夹试题一中，窗体文件名为 test1-2.frm，工程文件名为 test1-2.vbp。

试题二（25分）

1.（13分）有一个VB程序其功能：实施字幕滚动。界面设计和运行效果如图3和图4所示


图3	图4

操作要求：

（1）（4分）添加适当事件，定时器间隔时间（interval）由滚动条事件决定，当拖动滚动块时来改变字符滚动速度；（事件2分，一条代码2分）

（2）（4）单击“开始”按钮，定时器工作且“停止”按钮显示，单击“停止”按钮，定时器不工作，且“停止”按钮隐藏。（每一句代码1分，共4分）

（3）（5分）定时器事件是将标签1每隔一定时间始终从左向右以每200缇移动；将2-1.txt文件复制到相应的事件（1分）完成（1）（2）填空（每格2分，共4分）

（4）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

2-1txt

If Label1.Left <= (1) Then

Label1.Left = Label1.Left +(2)

Else

Label1.Left = -Label.Width

end if

2．（12分）有一个VB程序功能是：找出此号码，有一张单据上有一个五位数的号码67**8，其中百位和十位上的数字看不清了，但知道该数能被78整除，也能被67整除，求出该号码。运行结果图5所示。

图5

打开某路径下试题二文件夹下工程文件test2-2.vbp，完成下列操作：

（1）（10分）完善“填数字”事件（1）（2）（3）（4）（5）的代码，（考试素材已修改）

3. （2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。

Private Sub Command1_Click()

Dim x%, y%, a&

For x = 0 To (1) 'X表示百位

For y = 0 To (2) 'Y表示十位

a = 67008 + (3)

If a mod 78=0 (4) a mod 67=0 Then

Label3.Caption = x

Label4.Caption = y

End If

(5)

Next x

End Sub

试题三（20分）

用VB设计一个成绩统计程序。程序运行后，先后出现如下图4和图5的对话框，最后运行效果如图5所示。（参考答案已修改好）


图4	图5

图6

1. （4分）当窗体启动时（2分），要求先输入需要统计的学生人数，输入时要有文字提示，如图4所示，再输入各学生分数，如图5所示；将3.txt文件复制到相应的事件中；完成（1）填空的代码（每格2空，共4分），调试程序，让程序正确执行。

2. （8分）单击“统计”按钮，统计出合格人数、不合格人数及平均分（保留1位小数）；完成相应的注释1、2、3、4填空，其中在注释3处添加一条代码。

3. （6分）单击“排序”按钮，在窗体上显示分数由高到低的排序，要求每行显示4个，如图5所示；完成（5）（6）填空，在注释5处添加一条代码（2分）。

4. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

3txt

n = Val(InputBox("请输入学生人数："))

ReDim a(n)

For i = 1 To n

a(i) = (1)

Next i

Dim a() As Single, n%

Private Sub Command1_Click()

Dim s!, avg!, k%

For i = 1 To (1) '注释1：学生人数

s = s + (2) '注释2：将每个学生成绩添加到累加器S

'注释3：统计判断成绩大于和等于60的学生人数存放在变量K

Next i

Text1.Text = k

Text2.Text = n - k

Text3.Text = (4) '注释4：求平均分的表达式

End Sub

Private Sub Command2_Click()

For i = 1 To n - 1 '冒泡法排序从大到小

For j = 1 To (5)

If (6) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

Print "成绩排序："

For i = 1 To n

Print a(i),

'注释5：按每行4个成绩换行格式打印

Next i

End Sub

Private Sub Command3_Click()

End

End Sub

第四套
试题一（30分）

设计一个VB程序其功能：实施字体设置。界面设计和运行效果如图1和图2所示


图1	图2

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2. (14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	字体设置	Text1	text	VB程序设计
Frame1	caption	颜色	HScroll1	min	10
Label2	caption	大小	HScroll1	max	30
Label1	caption	字体	Command1	caption	闭关窗口
Option1(0)	caption	红色	Option1(0)	backcolor	&H000000FF&
Option1(1)	caption	绿色	Option1(1)	backcolor	&H0000FF00&
Option1(2)	caption	蓝色	Option1(2)	backcolor	&H00FF0000&

3. (1) （2分）窗体加载后，在组合框中添加字体：黑体、隶书、幼圆，添加适当的事件实现此功能。(添加内容1分，事件1分)

(2)（2分）对option1控件数组添加代码，要求单击相应的颜色后文本框里的文字颜色发生相应变化。（程序中不得使用任何变量，用动态属性语句格式来编写）

（3）（4分）对combo1添加适当的事件要求选择字体后，文本框中的文字的字体发生相应的变化。

（4）（2分）对hscroll1添加代码，要求点击滚动条默认事件后，文本框中的文字大小发生相应的变化。

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）

用VB编制一个程序，初始界面如图3所示。当用户从键盘输入任意字符到文本框后，单击“统计”按钮，则对其中的字母、数字进行分类统计，并将统计结果分别显示在2个相应的

图3 图4

标签（label4、label5）中，如图4所示；单击“退出”按钮，则关闭窗口退出程序。（注：不能用大小写函数）

1. （5分）打开工程文件test2.vbp，修改相应的属性，完成如图3界面；

2. (18分)

（1）将文本文件2.txt复制到适当的事件中（4分），根据题意完成（1）的填空及注释1处（2）、注释2处（3）的填空，修改注释3处代码中的条件。（填空及修改各3分，共12分）

（2）（2分）单击“退出”按钮，程序结束。

3. （2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

2txt

Dim x$, N%, p%, k%

N = Len(Text1.Text)

For i = 1 To（1）

x =mid(（2）) '注释1：获取一个字符

If x>="A" and x<="Z" and ( 3) Then '注释2：判断是否为字母,但不能用大小写函数

k = k + 1

ElseIf x>=0 or x<=9 Then '注释3：判断是否为数字

p = p + 1

End If

Next i

Label4.Caption = k

Label5.Caption = p

试题三（20分）

用VB语言编写一个程序其功能：产生30个[]300，500]的随机整数，找其中的素数并将素数进行排序。程序运行界面图3、图4、图5、图6所示，窗体上有三个文本框（从上到下依次为text1、text2和text3，三个文本框均允许自动换行），三个命令按钮（从上到下依次为command1、command2和command3）并command2和command3无效。

图5 图6

图7 图8

1．（6分）打开工程文件test3.vbp，将文本文件2.txt中选择符合条件的代码（2分）复制到适当的事件（2分）中，实施随机产生30个300-500之间的整数，显示在text1中，数与数之间用空格隔开。并要求在显示前三个文本框清空，实现图6界面的效果（2分）。

2. （6分）单击“素数“按钮，找出这30个数中的素数并显示在text2中，数与数之间用空格隔开。根据题意完成（1）（2）（3）的填空。效果图7所示。

3. （6分）单击“排序”按钮，用选择法将找出的素数按从大到小的顺序排序，显示在text3中，数与数之间用空格隔开。（完成注释（4）（5）（6）处填空、修改与添加一条代码）效果图8所示。

4. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim a%(1 To 30), b%(1 To 30), n%

Private Sub Command2_Click()

Dim f%

For i = 1 To 30

f = 0

For j = 2 To a(i) - 1

If (1) Mod j = 0 Then

f = 1

Exit For

End If

Next j

If (2) Then

n = n + 1

b(n) = (3)

End If

Next i

For i = 1 To n

Text2.Text = Text2.Text & b(i) & " "

Next i

End Sub

Private Sub Command3_Click()

Dim t%, p%

For i = 1 To (4) '注释4：对素数的个数进行排序

p = i

For j = i + 1 To n

If b(p) > b(j) Then '注释5：按大到小进行比较

p = j

End If

Next j

If i <> p Then

t = b(p): b(p) = b(i): b(i) = t

End If

Next i

For i = 1 To n

' 注释6：将素数按图6的格式进行打印

Next i

End Sub

3txt

实现产生30个[300，500]随机整数的一段代码是

（A）For i = 1 To 30

a(i) = Int(200 * Rnd) + 300

Text1.Text = Text1.Text & a(i) & " "

Next i

（B）For i = 1 To 30

a(i) = Int(201 * Rnd) + 300

Text1.Text = Text1.Text +str(a(i))

Next i

a(i) = Int(201 * Rnd) + 300

Text1.Text = Text1.Text & a(i) & " "

Next i

第五套

试题一：（30分）

1. （18分）编写一个程序，输入货物的数量及单价，求总价并输出。窗体标题设置为“模拟售货机”，窗体form1上的两个标签(分别命名为 Lab1 和 Lab2，标题为“货物的数量(个)：”和“货物的单价(元)：”)两个名称分别为 Txt1 和 Txt2 的文本框;一个名称为 Cmd1 的命令按钮，其标题为“总价”。结果用消息框显示如图2所示。当用户输入货物的数量与单价后，用户单击“总价”按钮或按回车键，输出正确的结果，程序运行效果如图1 所示。（要求：程序中不得使用变量，事件过程中只能写一条语句。）


图1	图2

操作要求：

（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试题一的文件夹下。

（2）（10分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	模拟售货机	标签1	name	lab1
标签2	name	lab2	标签1	caption	货物的数量(个)
标签2	casption	货物的单价(元)	文本框1	name	txt1
文本框2	name	txt2	命令按钮	name	cmd1
命令按钮	caption	总价	命令按钮	default	true

（3）（4分）编写适当的事件，当用户输入货物的数量及单价，用消息框输出结果。（说明：程序中不得使用变量，事件过程中只能写一条语句。）

2．（12分）在名称为Forml的窗体上画个列表框,其名称为L1;一个水平滚动条，其名称为HS1，Smallchange属性为2。Largechange属性为10。Min属性为10, Max属性为100,编写适应的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项其内容是“XX”，其中XX是滚动框所在的位置，如图2所示。

图2

操作要求：

（1）（2分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。

（2）（6分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）

表1

对象名	属性	属性值	对象名	属性	属性值
列表框	name	l1	水平滚动条	name	hs1
水平滚动条	Smallchange	2	水平滚动条	Largechange	10
水平滚动条	max	100	水平滚动条	min	10

（3）（4分）根据题意编写适当的事件和代码，实现如图2效果。（说明：程序中不得使用变量，事件过程中只能写一条语句。）

试题二（25分）

1. （15分）设计如图3、图4所示的程序，单击按钮，通过输入框输入数字，如果是正数，则显示在List1中，如果是负数显示在List2中。同时统计正数、负数的和，显示在相应的标签中，图5所示。要求输入框在输入时，能动态提示当前输入的是第几个数，如图5所示。完成命令按钮相关的代码。

图3

图4

图5

打开某路径下的工程文件test2-1.vbp，完成下列操作：

（1）（12分）将2.txt文件复制到命令按钮的单击事件中（3分），根据题意完成（1）（2）（3）（4）（5），让程序正确执行。（每填空2分，共10分。

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

Private Sub Command1_Click()

Dim n%, a!, s1!, s2!

'变量N表示数据的个数，变量a表示从键盘输入一个数

's1，s2分别表示正数和负数的和

'变量名不得更改

End Sub

2． 10分）在考生文件夹下有一个工程文件test2-2.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a²+b²=C²。例如，3、4,5就是一个满足条件的整数组合(注意：a，b，C分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标签Labell中。如图6所示：

图6

　　注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

打开某路径下的工程文件test2-2.vbp，完成下列操作：

(1)（8分）根据题意将代码窗口中的（1）（2）（3）（4）填空完成。（每格2分，共8分）

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。

Private Sub Command1_Click()

Dim i%, j%, k%, m%

For i = 1 To (1)

For j = 1 To 60

For k = 1 To (2)

If i ^ 2 + j ^ 2 = k ^ 2 Then

m = m + (3)

End If

Next k

Next j

Next i

Label1.Caption = m / (4)

End Sub

2. Txt

n = 1

a = Val(InputBox("请输入第" & n & "个数，输入0结束","输入"))

Do While (1)

If a > 0 Then

List1.AddItem a

s1 = (2)

Else

List2.AddItem a

s2 = s2 + a

End If

n = (3)

a = Val(InputBox("请输入第" &(4) & "个数，输入0结束"，"输入"))

(5)

Label3.Caption = Label3.Caption & s1

Label4.Caption = Label4.Caption & s2

试题三（20分）

设计如图9、图10所示程序，初始排序按钮不可用。单击开始按钮，每隔0.2秒在6个文本框中随机产生6个0-9的数字，同时按钮标题变成“结束”，如图10所示。单击结束按钮，文本框中数字停止变化，按钮标题变成“开始”，同时排序按钮可用。单击“排序”按钮，把文本框中的数字从小到大排序，显示在相应的标签中，如图10所示。


图9	图10

打开某路径下的工程文件test3.vbp，完成下列操作：

1. （6分）单击开始按钮，每隔0.2秒在6个文本框中随机产生6个0-9的数字，同时按钮标题变成“结束”，如图10所示。单击结束按钮，文本框中数字停止变化，按钮标题变成“开始”。完成（1）（2）（3）的填空。

2. （4分）完成定时器事件中（4）、（5）的填空；（每格2分，共4分）

3. （8分）完成排序事件中的（6）（7）、（8）、（9）的填空；（每格2分，共8分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim a%(0 To 5)

Private Sub Command1_Click()

If Command1.Caption = "开始" Then

Timer1.Enabled = (1)

Command1.Caption = "结束"

Else

Timer1.Enabled = False

Command1.Caption = (2)

Command2.Enabled = (3)

End If

End Sub

Private Sub Command2_Click()

For i = 0 To 5

a(i) = Val((6))

Next i

For i = 1 To 5

For j = 0 To 5 - i

If (7) Then

t = a(j)

a(j) = a(j + 1)

a(j + 1) = t

End If

Next j

Next i

For i = 0 To 5

s = (8)

Next i

Label1.Caption = "中奖号码为：" & (9)

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

For i = 0 To (4)

Text1(i).Text = Int((5) * Rnd)

Next i

End Sub

第六套

试题一（30分）

设计一个VB程序，实施硬件各参数的选择显示在列表框中如下图2所示。


图1	图2

操作要求：

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹中。

2.（12分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	硬件配置	Combo1	text	空白
Label1	caption	所选配置	Form1	fontsize	小四
Combo1	style	1	Frame1	caption	内存
Frame2	caption	其它设备	Option1	caption	4G
Option2	caption	8G	Check1	caption	声卡
Check2	caption	显卡	Check3	caption	网卡

3. （1）（2分）将1.txt文件内容（六种电脑品牌）添加到适当的事件中，实现窗体加载后显示结果如图2所示。（窗体加载时，组合框中已添加六个项目）

（2）（12分）分别单击各控件的适当事件和代码，结果如图2所示。

原（3）己删除

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

1.txt

"苹果"

"惠普"

"方正"

"戴尔"

"华硕"

"联想

试题二：（25分）

1. （12分）用VB编制一个程序，初始界面如图3所示。当用户从键盘输入任意字符到文本框1（文本框多行显示）后，单击“统计”按钮，则对其中的字母、数字、空格、其他字符进行分类统计，并将统计结果分别显示在相应的文本框中．如图4所示；单击“退出”按钮，则关闭窗口退出程序。（此题不用大小写涵数）


图3	图4

打开某路径下的试题二文件夹中工程文件test2-1.vbp，完成下列操作：

（1）（10分）将2.txt文件复制到命令按钮的适当事件中（2分），根据题意完成（1）（2）（3）（4）的填空，让程序正确执行。（每填空2分，共8分）

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

2.txt

Dim n1%, n2%, n3%, n4%, m%, x$

m = Len(text1.text)

For i = 1 To (1)

x = Mid(Text1.Text, i, 1)

If x >= "A" And x <= "Z" Or (2) Then

n1 = n1 + 1

ElseIf x >= "0" And x <= "9" Then

n2 =(3)

ElseIf x = " " Then

n3 = n3 + 1

Else

n4 = n4 + 1

(4)

Next i

Text2.Text = n1

Text3.Text = n2

Text4.Text = n3

Text5.Text = n4

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End

End Sub

2. （新增加的）（13分）修改VB程序，使其具有下列功能：单击“找素数”按钮（Command1），在列表框（list1）中显示2-100之间所有的素数。设计界面和运行效果如图1、图2所示。


图1	图2

打开考生文件夹下的工程文件”text2-2.vbp”，完成下列操作：

（1）（3分）选择“找素数”按钮合适的事件过程（2分），将考生文件夹下”code1.txt”文件中的代码复制到该过程中（1分）。

（2）（8分）修改”注释1”、”注释2”、”注释3”、”注释4”所在行的代码，能让程序正确执行

（3）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。

Code1

Dim n%, f%, j%

'注释1

f = 0

For j = 1 To n

'注释2

f = 1 '注释3

end if

Next j

If f=2 Then

list1.additem =n '注释4

end if

next n

Private Sub Command1_Click()

End Sub

试题三（20分）

用VB编制程序，初始界面如图5所示，当单击“输入行数n”按钮时，弹出对话框如图7所示，输入图形的行数n，n的范围是[1，9]，若不符合要求则重新输入直到符合为止，如图6。单击“打印P按钮”则输出相应的图案，如图8。


图5	图6


图7	图8

打开某路径下的试题二文件夹中工程文件test3.vbp，完成下列操作：

1．（6分）将3.txt文件复制到适当的事件中，根据题意完成（1）、（2）、（3）的填空。让程序能正确执行并符合题意。

2．（12分）单击打印图形，能正确打印如图的图形且最后一行位置从5列开始打印。完成相应的（4）、（5）、（6）（7）及注释1处添加一条代码，注释2处修改相应的代码。（参考答案已修改好）

3．（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

3.txt

n = Val(InputBox("请输入行数（1-9"))

Do Until (1)

MsgBox "行数为符合，请重新输入", , "ks1"

n = (2)

Loop

Command1.Enabled = (3)

Dim (4) as Integer

Private Sub Command1_Click()

Cls

For i = 1 To n

Print (5);

For j = 1 To (6)

If (7) Then

Print "*";

Else

'注释1：只能用chr()函数打印数字字符

End If

Next j '

Print Tab(5); '注释2：换行

Next i

End Sub

第七套

试题一：（30分）

设计一个选课系统，程序运行时,在选课名称的列表框中加载如图1所示的课程


图1	图2

操作要求：

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2.（12）参照图1完成界面设计：按表添加相关对象并设置相关的属性：

（每个属性设置1分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	课程选择	Form1	fontsize	26
Label2	caption	已选课名称	Label1	caption	课程名称
List2	backcolor	&H00FFFF80&	List1	backcolor	&H0080C0FF&
Command1	name	Cmd1	Command2	name	Cmd2
Command1	caption	>>	Command2	caption	<<
Command1	Enabled	false	Command2	Enabled	false

3. （1）（4分）窗体加载时，在列表框1已加载图1的项目: 语文、英语、数学、程序设计、网络操作系统、网络设备配置、PR、PS、体育、心理、职业道德、音乐。（加载事件2分，添加列表框内容2分）

（2）（5分）编适当事件当用户选中列表框1的内容，command1按钮有效，单击“》”按钮，则把选中的课程移动到右边列表框中；且command1按钮又变成无效。（每知识点1分，共5分）

（3）（5分）编适当事件当用户选中列表框2的内容，command2按钮有效，单击“《”按钮，则把选中的课程移动到左边列表框中；且command2按钮又变成无效。（每知识点1分，共5分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）

1. （15分）VB程序功能：激活窗体通过输入框随机给小学生出 10 道二位正整数的加法题，每答对一道题得10 分，最后用消息框输出小学生的得分。程序运行界面如图3和图4所示。


图3	图4

打开某路径下的工程文件test2.vbp，完成下列操作：

（1）（3分）将文件2-1.txt复制到适当的事件中去。

（2）（10分）事件中的代码进行相应的填空（1）（2）（3）（4）（5），并能正确执行程序的结果。（每空2分，共10分）

（3）（2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

2-1.txt

Dim a%, b%, x%, s%

Randomize

For i = 1 To 10

a = (1)

b = Int(90 * Rnd) + 10

x = (2)

If a + b = (3) Then

s = s + (4)

Else

MsgBox "继续努力，加油！"

End If

Next i

(5)

2. （10分）在考生文件夹下有一个工程文件test2-1.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项(如图5所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些选中的城市(如图6所示)。已经给出了所有控件和程序，但程序不完整。


图5	图6

　　（1）（8分）要求：请去掉程序中的注释符，把代码窗口中的程序的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。（程序中有4个？各2分，共8分）

（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹

Private Sub Command1_Click()

Dim k%

For k = List1.ListCount - 1 To 0 ？'K从最大到0，则步长应为-1

If List1.Selected(k) = True Then

List2.AddItem ？'添加项到list2中

List1.RemoveItem ？'通过下标删除list1中的项目

End If

Next k

End Sub

Private Sub Command2_Click()

Dim k%

Text1.Text = "已选中的城市有："

For k = 0 To List2.ListCount - 1

Text1.Text = ? + " " + List2.List(k) '将list2中的项目连接在text1中的内容后

Next k

End Sub

Private Sub Form_Load()

List1.AddItem "宁波"

List1.AddItem "杭州"

List1.AddItem "绍兴"

List1.AddItem "湖州"

List1.AddItem "温州"

List1.AddItem "台州"

List1.AddItem "嘉兴"

List1.AddItem "海盐"

End Sub

试题三（20分）

VB程序功能：产生15[0,100]的偶数进行排序。单击“排序”按钮，则将数组a 中的15个数按从小到大的顺序（用冒泡法）显示在文本框Text2中。

图7

图8

打开某路径下的工程文件test3.vbp，初始界面如上图7所示，完成下列操作：

1.（2分）将文本框1设置成多行显示；

2. （8分）单击“产生数组”按钮，用函数生成15个0~100之间（不含0和100）并将它们保存在一维数组a 中，同时也将这15个数值显示在Text1中，结果如图8所示；完成（1）（2）（3）（4）的填空。

3. （8分）单击“排序”按钮，则将数组a 中的15数按从小到大的顺序（用冒泡法）显示在文本框Text2中，结果如图8所示。完成（5）（6）（7）（8）的填空。

4. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim a%(15)

Private Sub Command1_Click()

For i = 1 To 15

a(i) = Int((1) * Rnd) + 1 '产生(0，100)的随机整数

If a(i)(2) <> 0 Then i = i - 1

Next i

For i = 1 To (3)

Text1.Text = Text1.Text + (4)

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 14

For j = 1 To (5)

If a(j) >= (6) Then

t = a(j): a(j)= a(j+1):(7)

End If

Next j

Next i

For i = 1 To 15

Text2.Text = Text2.Text & (8) & " "

Next i

End Sub

第八套

试题一：（30分）

设计一个VB程序：其功能实现简单四则运算。运行界面如图1和图2所示


图1	图2

操作要求：

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	四则运算	Form1	maxbutton	false
Form1	minbutton	false	Form1	fontsize	四号字
Frame2	caption	运算符号	Frame1	caption	两个操作数
Option1	caption	+	Frame3	caption	运算结果
Option2	caption	-	Option3	caption	*
Option4	caption	/	Label1	borderstyle	1

3. （12分）分别单击“+”、“-”、“*”“/”单选按钮，实现加法、减法、乘法与除法运算，结果如图2所示；（注意：程序中不得使用任何变量，每个事件各1分，共4分，每个事件只写一句正确代码各2分，共8分，其中单击“/”单选按钮时，不考虑除数为零，计算结果在标签1显示。）

4．（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）（重新出题）

1.（15分）打开工程文件test2.vbp,程序运行时界面如图3、4所示，


图3	图4

操作要求：

（1）（6分）添加适当事件（各1分，共2分）若选中“累加”单选按钮，则“10”、“l2”单选按钮不可用，（2分）若选中“阶乘”单选按钮，则“1000”、“2000”单选按钮不可用（2分）(如图3所示)。

（2）（8分）选中一组中的一个单选按钮后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算1+2+3+…+2000，选中“阶乘”和“10”，则计算10!。实现此功能完成（1）(2)(3)(4)的填空

（3）（1分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

注意：操作（1）中程序中不得使用任何变量；操作（2）要求选中按钮的数值用变量N表示，N为整型变量，累加或累乘的结果用变量S表示，S为单精度，文件必须存放在考生文件中，工程文件名为test2.vbp，窗体文件名为test2.frm。

Dim n%

Private Sub Command1_Click()

Dim s!

If Option5.Value = True Then

If Option1.Value = True Then

n = Option1.(1)

Else

n = Option2.Caption

End If

For i = 1 To n

s = s + (2)

Next i

Else

If Option3.Value = True Then

n = Option3.Caption

Else

n = Option4.Caption

End If

s = (3)

For i = 1 To n

s = s * i

Next i

End If

Text1.Text = Str((4))

End Sub

Private Sub Option5_Click()

Option1.Enabled = True

Option2.Enabled = True

Option3.Enabled = False

Option4.Enabled = False

End Sub

Private Sub Option6_Click()

Option1.Enabled = False

Option2.Enabled = False

Option3.Enabled = True

Option4.Enabled = True

End Sub

2．（10分）在考生文件夹中有一个工程文件test2-1.vbp及窗体文件test2-1.frm。在名为Forml的窗体上有一个名为Txtl的文本框：还有两个名称分别Cmd丨和Cmd2的命令按钮，它们的标题分别为“找第一个素数度”和“退出”，如图5所示。


图5	图6

编写一个程序其功能：在文本框输入一个整数（例如：678），则找出大于此文本框输入整数的第1个素数，并显示在消息框中如图6所示：

（1）（8）完成代码窗口中程序（1）（2）（3）（4）填空

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

Private Sub Command1_Click()

Dim x%, t As Boolean, f%

x = Val(Text1.Text)

x = x + (1)

t = False

Do Until (2)

f = 0

For i = 2 To x - 1

If x Mod i = 0 Then

f = 1: Exit For

End If

Next i

If (3) Then

MsgBox "大于" & Text1.Text & "第一个素数为" & x

t = (4)

Else

x = x + 1

End If

Loop

End Sub

试题三（20分）

修改VB程序实施此功能为：编写一个十佳歌手评分系统，已知共有不多于100位选手参加比赛，共有7位评委打分，选手最后得分为去掉一个最高分和一个最低分，最后求平均分（保留两位小数）将选手得分显示在list1列表框中，再根据选手得分成绩决定名次如图4所示。

图4

打开某路径下的工程文件test3.vbp，完成下列操作：

1. （6分）评委分数输入在控件数组Text1文本框中，单击“得分”按钮command1，计算选手得分完成相应的填空（1）（2）及注释1处修改相应的代码。

2. （6分）单击“名次”按钮，结果显示在list2列表框中如图4所示。完成注释1处添加一条代码；注释2处完成填空（1）；注释3处修改相应的代码。（代码中的顺序不得更改）

3. （1）（4分）添加“清空”事件，将控件数组文本框1中数据清空，（要求用循环结构）；

（2）（2分）单击“退出”按钮command3，退出评分系统。

1. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Dim n%, a!(100)

Private Sub Command1_Click()

Dim max!, min!, s!, x!

max = Val(Text1(0).Text)

min = max

s = max

For i = 1 To 6

x = (1)

If max <= x Then max = x

If min >= x Then min = x

s = s + x

Next i

n = (2)

a(n) = Int((s - max - min) / 5 * 10 + 0.5) / 10 '注释1:保留两位小数

List1.AddItem n & "号选手得分为：" & a(n)

End Sub

Private Sub Command2_Click()

Dim m%, k%

List2.Clear

For i = 1 To n

'注释1：每位选手都当自己是第1名

For j = 1 To n

If a(i)(1)a(j) Then k = k + 1 '注释2：若小于其它选手，则名次加1

Next j

List2.AddItem a(k) '注释3：添加名次

Next i

End Sub

2016年8套题

第一套

试题一 (30分)

设计一个VB程序，使其具有下列QQ登录功能：当组合框中输入QQ号或在组合框中选中QQ号（22887651），在文本框中输入密码（123456），若输入正确，显示所图2的显示结果；若不正确，则弹出消息框如图3所示。运行效果如图1、图2与图3所示。


图1
	图2
图3

1．（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1-1.frm”、“test1-2.frm“、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2．（12分）参照图1和图2完成界面设计：按表1添加相关对象并设置相关属性。

表1

对象	设置内容
“QQ登录”的窗体	名称为form1,标题为“QQ登录”
QQ图片	名称为picture1；图片为考试结果\程序设计\试题一文件夹下的Q1.jpg。
QQ头像图片	名称为image1，图片为考试结果\程序设计\试题一文件夹下的Q2.jpg。
组合框	名称为combo1
“密码”文本框	名称为text1，文本框的内容为“密码”。
“登录”单选按钮	名称为 command1，标题内容为“登录”。
“登录”单选按钮	名称为command1，背景颜色为&H00FF8080&
“登录”单选按钮	名称为command1，命令按钮外观为图形
“登录”单选按钮	名称为command1，不允许用户进行操作
窗体2	名称为form2，背景图片为考试结果\程序设计\试题一文件夹下的Q3.jpg。
窗体2上标签	名称为lab1,颜色为红色，并居中

3. （6分）当程序运行后，组合框已有一个QQ号（22887651），用适当的事件实现此功能；在文本框输入时，命令按钮允许用户进行操作，文本框内容用“*”显示，也用适当的事件实现功能。

4. （8分）当组合框中输入QQ号或在组合框中选中QQ号（22887651），在文本框中输入密码（123456），单击“登录”，若输入正确，则显示所图2的结果；若不正确，则显示所图3显示的结果。

5．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。

试题二（25分）

修改VB程序，考生文件夹下有一个工程文件test2.vbp。其窗体上有一个标题为“得分”的框架，在框架中有一个名称为Textl的文本框数组，含6个文本框控件;文本框Text2用来输入难度系数。程序运行时，单击“开始”按钮时，左边的6个文本框中每0.5秒随机产生[0，10]的带一位小数的数；且“开始”按钮的标题变为“停止”，单击“停止”，“计算”按钮显示，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。


图3	图4

打开试题二“文件夹中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗体上添加计时器，并按表2设置相关属性。

表2

对象	设置内容
计时器	名称为Timer1；间隔时间0.5秒；默认不启用。

2．（6分）选择“开始”按钮合适的事件过程，实现如下功能：单击“开始”按钮，计时器启用，且“开始”按钮的标题变为“停止”，单击“停止”按钮，计时器不启用，并“计算”按钮显示，“停止”按钮又变为“开始”按钮。将“D:\test1111\考试结果\程序设计\试题二“文件夹下“code1.txt”文件中的所有代码复制到相应过程中并完成“-①-”、“-②-”填空实现此功能。

3．（4分）选择计时器合适的事件过程，将“D:\test1111\考试结果\程序设计\试题二“文件夹下“code2.txt”文件中的选择相关的代码复制到该过程中。

4．（9分）分别在代码中的“-④-”、“-⑤-”和“-⑥-”处填写一条代码（填写完成后，删除标号“-④-”、“-⑤-”和“-⑥-”，以让程序正确执行。调试并运行程序。

5．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Private Sub Command1_Click()

Dim max!, min!, s!, x!

max = Val(Text1(0).Text)

min = max

'④

For i = 1 To 5

' ⑤

If max < x Then max = x

If min > x Then min = x

s = s + x

Next i

'⑥

Text3.Text = Int(s * 100) / 100 '结果保留到第2位小数，不四舍五入。

End Sub

Private Sub Command2_Click()

End Sub

code2选择下列相关的代码：

（1）

Randomize

For i = 1 To 6

Text1(i).Text = Int(101 * Rnd) / 10

Next i

（2）

Randomize

For i = 0 To 5

Text1(i).Text = Int(101 * Rnd) / 10

Next i

（3）

Randomize

For i = 0 To 5

Text1(i).Text = Int(101 * Rnd) 10

Next i

code1

If Command2.Caption = "开始" Then

' Timer1.Enabled = ①

Command2.Caption = "停止"

Command1.Visible = False

Else

Timer1.Enabled = False

Command2.Caption = "开始"

' Command1.Visible = ②

End If

试题三（20分）

修改VB程序，用VB编制一个将人民币金额（不超过4位整数）转化为大写金额的程序，。使其具有下列功能：在文本框（Text1）中输入数字，单击“转换”按钮（Command1），则在文本框（Text2）中显示相应的大写金额，程序运行的界面如图5所示；如果在文本框（Text1）中输入的人民币金额超过3位数或非正整数，单击“转换”按钮（Command1）则在文本框（Text2）中显示提示信息：“输入数据不合法！请重新输入！！”。程序运行的界面图6所示。


图5	图6

打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

1．（18分）对注释“①”、“②”、“③”所在行的代码进行修改，并在代码中的“-④-”、“-⑤-”和“-⑥-”处真写一条代码（填写完成后，删除标号“-④-”、“-⑤-”和“-⑥-”），以让程序正确执行。调试并运行程序。

2．（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“试题三“文件夹下。

Private Sub Command1_Click()

Dim num, unit$(3), str$, t%, strlen%, endStr$

num = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")

unit(1) = "拾": unit(2) = "佰": unit(3) = "仟"

Dim haveZero As Boolean

str = Val(Text1.Text) '①

If Len(str) > 4 Or Val(str) <= 0 Then

Text2.Text = "数据不合法，请重新输入"

Text1.Move '② 获得文本框1的焦点

Exit Sub

End If

For i = 1 To str '③ 去掉左侧0,例如：002

If Mid(str, i, 1) <> "0" Then str = Mid(str, i, Len(str)): Exit For

Next i

For i = 1 To Len(str)

'④

If t = 0 Then

haveZero = True

Else

If haveZero Then

endStr = endStr + "零" + num(t) + unit(Len(str) - i)

Else

'⑤

End If

Next i

' ⑥

End Sub

第二套

试题一 (30分)

设计一个VB程序，使其具有下列功能：根据选择的单位转换和输入的物体重量，单击“计算”命令按钮，在标签对象上显示计算出的单位为千克或克。运行效果如图1、图2所示。


图1	图2

1．（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2．（16分）参照图1和图2完成界面设计：按表1添加相关对象并设置设置相关属性。

表1

对象	设置内容
Logo图片	名称为picture1；图片为考试结果\程序设计\试题一文件夹下的zl.jpg。
“单位转换”标签	名称为label1。
“磅转换千克”单选按钮	名称为option1。
“斤转换克”单选按钮	名称为option2。
“输入物体重量”标签	名称为label2。
重量填写文本框	名称为text1。
换算后重量显示标签	名称为label3；字体颜色为&H00FF0000&。
“计算”按钮	名称为command1。

（每属性设置2分）

3. （10分）选择“计算”按钮合适的事件，并在事件中编写代码以实现程序功能。其中，1磅=0.45359237千克；1斤=500克。调试并运行程序。

4．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：在文本框中输入字符串，单击“开始“按钮，标签2获取文本框中的首字符与尾字符组合，并开始向右移动。当标签移到窗体边框后，再开始向左移动，实现左右移动，移动速度为每0.5秒200。运行效果如图3、4所示。


图3	图4

打开试题二文件夹中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗体上添加计时器，并按表2设置相关属性。

表2

对象	设置内容
计时器	名称为Timer1；间隔时间0.5秒；默认不启用。

2．（6分）选择“开始”按钮和“停止”按钮的合适事件过程，实现如下功能：单击“开始”按钮，计时器启用，“停止”按钮显示；单击“停止”按钮，计时器不启用，并“停止”按钮隐藏。将“D:\test1111\考试结果\程序设计\试题二“文件夹下“code1.txt”文件中选择相应的代码复制到相应过程中。

3．（1分）选择计时器合适的事件过程，将“试题二“文件夹下“code2.txt”文件中的所有代码复制到该过程中。

4．（12分）分别在代码中的“-①-”、“-②-”和“-③-”处填写一条代码或表达式（填写完成后，删除标号“-①-”、“-②-”和“-③-”），以让程序正确执行。调试并运行程序。

5．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Dim f%

Private Sub Command1_Click()

End Sub

code1

Timer1.Enabled = True

Command2.Visible = True

Timer1.Enabled = False

Command2.Visible = False

code2

' Label2.Caption =①

If Label2.Left >= Form1.Width - Label2.Width Then

' f =②

ElseIf Label2.Left <= 0 Then

f = 0

End If

If f = 1 Then

' Label2.Left = ③

Else

Label2.Left = Label2.Left + 200

End If

试题三（20分）

修改VB程序，使其具有下列功能：程序启动运行时即在文本框上显示20个[10，99]的随机整数。单击“素数个数”按钮，在标签3上显示出素数数列及标签4上显示素数个数。单击“平均数”按钮，在标签4上显示出此数列的平均数。运行效果如图5、图6所示。


图5	图6

打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

2．（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“试题三“文件夹下。

Dim a%(1 To 20), k%

Private Sub Form_Load()

Randomize

For i = 1 To 20

a(i) = Int(90 * Rnd) '①

Text1.Text = Text1.Text & a(i) & " "

Next i

End Sub

Private Sub Command1_Click()

Dim x%, f%

For i = 1 To 20

f = 0

For j = 2 To a(i) - 1

If a(i) Mod j = 0 Then

f = 1: Exit For

End If

Next j

If f = 0 Then

k = 1 '②

a(k) = a(i)

If k = 1 Then

Label3.Caption = a(k)

Else

Label3.Caption = Label3.Caption & a(k) ' ③

End If

Next i

' ④

End Sub

Private Sub Command2_Click()

Dim s%

'⑤

For i = 1 To k

s = s + a(i)

Next i

pj = s / k

' ⑥

End Sub

第三套

试题一 (30分)

设计一个VB程序，使其具有下列功能：实现100以内整数的四则运算。运行效果为图1所示：

图1

1．（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2．（16分）参照图1和图2完成界面设计：按表1添加相关对象并设置设置相关属性。

表1

对象	设置内容
窗体	名称为form1，标题为“四则运算”
标签1	名称为label1，标题为“运算数1”
标签2	名称为label2，标题为“运算数2”
水平滚动条1	名称为HScroll1，最大值100，最小值1
水平滚动条2	名称为HScroll2，最大值100，最小值1
框架	名称为Frame1，标题为“运算结果”
四个单选钮的控件数组	名称为option1，标题分别为“+”、“－”、“*”、“/”
标签3	名称为label3， appearance设置为0-flat，边框样式设置为1，前景颜色为红色
命令按钮	名称为command1，标题为“计算”

3. （10分）程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选钮，然后选择”计算“按钮合适的事件，相应的计算结果将显示在Label3中。并在事件中编写代码调试并运行程序。

4．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：在文本框1中输入字符串，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2如图2所示。

图2

打开试题二文件夹中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗体上两个单选按钮，并按表2设置相关属性。

表2

对象	设置内容
单选按钮1	名称为option2，标题为“全部大写”
单选按钮2	名称为option3，标题为“全部小写”

2．（3分）选择“转换”按钮合适的事件过程，将“试题二“文件夹下“code.txt”文件中的所有代码复制到相应过程中。

3．（16分）分别在代码中的“-①-”、“-②-”、“-③-和-④-”处填写一条代码（填写完成后，删除标号“-①-”、“-②-”、“-③-和-④-”，以让程序正确执行。调试并运行程序。

4．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“D:\test1111\考试结果\程序设计\试题二“文件夹下。

code1 Dim n As Integer, i As Integer, ch As String, a As String

n = Len(Text1.Text)

ch = ""

If Option1.Value = True Then

For i = 1 To n

'①

If a >= "a" And a <= "z" Then

ch = ch + Chr(Asc(a) - 32)

ElseIf a >= "A" And a <= "Z" Then

ch = ch + Chr(Asc(a) + 32)

Else

' ②

End If

Next i

ElseIf Option2.Value = True Then

ch = UCase(Text1.Text)

Else

' ③

End If

' ④

试题三（20分）

修改VB程序，使其具有下列功能：程序运行时，在文本框Text1中输入一个大于2的偶数，并单击“分解为”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合)。如图3所示。

图3

打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

2．（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“试题三“文件夹下。

Private Sub Command1_Click()

Dim a&, f1 As Boolean, f2 As Boolean

Text1.Text = a '①

For i = 2 To a

f1 = True

For j = 2 To i - 1

If i Mod j = 0 Then f1 = False

Next j

If f1 Then

b = a + i '②

f2 = True

For j = 2 To b - 1

If b Mod j = 0 Then f2 = 1 '③

Next j

If f2 Then

'④

Label3.Caption = b

'⑤

End If

'⑥

Next i

End Sub

第四套

试题一 (30分)

设计一个VB程序，使其具有下列功能：刚运行程序时，“古典音乐”和“篮球”单选钮为选中状态。运行效果为图1、图2所示。


图1	图2

1．（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2．（16分）参照图1和图2完成界面设计：按表1添加相关对象并设置设置相关属性。

表1

对象	设置内容
复选框1	名称为check1，标题为“音乐” '1分
复选框2	名称为check2，标题为“体育” '1分
标签1	名称为label1，标题为“爱好” '1分
标签2	名称为label2,borderstyle设置为1 '1分
框架1	名称为Frame1， '1分
框架2	名称为frame1， '1分
单选按钮1	名称为option1，标题为“古典音乐”,且选中 '2分
单选按钮2	名称为option2，标题为“流行音乐” '2分
单选按钮3	名称为option3，标题为“蓝球”,且选中 '2分
单选按钮4	名称为option4，标题为“羽毛球” '2分
命令按钮	名称为command1，标题为“选择” '2分

3. （10分）单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图1所示。如果“音乐”或“体育”未被选中，单击“选择”按钮，相应的单选钮不可选。如图2所示。

4．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：将十进制的数转换成二进制、八进制与十六进制的数。运行效果为图3所示。

图3

打开试题二文件夹中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗体上添加简单组合框，并按表2设置相关属性。

表2

对象	设置内容
组合框	名称为combo1；并设置为简单组合框。将text属性为“进制”

2．（4分）窗体加载后，组合框添加2、8和16，选择合适的事件过程，实现此功能。

3．（2分）选择组合框的合适的事件过程，将“试题二“文件夹下“code.txt”文件中的所有代码复制到该过程中

4．（13分）分别在代码中的“-①-”、“-②-”、“-③和-④-”处填写一条代码（填写完成后，删除标号“-①-”、“-②-”、“-③-”和-④-”），以让程序正确执行。调试并运行程序。

5．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Private Sub Combo1_Click()

Dim a, x&, k%, p%

a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F")

Dim s$ '答案为 s$或 s as s as String

x = Val(Text1.Text)

k = Val(Combo1.Text) '答案为k = Val(Combo1.Text)

Do Until x = 0 '答案为x = 0

p = x Mod k

x = x \ k

s = a(p) & s '答案为s = a(p) & s

Loop

Frame2.Caption = k & "进制"

Text2.Text = s

End Sub

Private Sub Form_Load()

Combo1.AddItem 2

Combo1.AddItem 8

Combo1.AddItem 16

End Sub

code1

Dim a, x&, k%, p%

a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F")

' Dim ①

x = Val(Text1.Text)

'②

' Do Until ③

p = x Mod k

x = x \ k

' ④

Loop

Frame2.Caption = k & "进制"

Text2.Text = s

试题三（20分）

修改VB程序，使其具有下列功能：程序运行时，单击“产生数组”按钮时，随机生成50个0- 10之间(不含0和10)的整数，并将其保存到一维数组a中，同时也将这50个数值在Text1文本框内显示。单击“统计”按钮时，统计出数组a中出现频率最高前三个的数值及其出现的次数，并将出现频率最高前三个的数值及出现次数在list1列表框中显示。单击“退出”按钮时，结束程序运行。程序效果如图4所示。

图4

打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

2．（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“试题三“文件夹下。

Option Base 1

Dim a%(50)

Private Sub Command1_Click()

Randomize

For i = 1 To 50

a(i) = Int(10 * Rnd) + 1 '①

Text1.Text = Text1.Text + Str(a(i))

Next i

End Sub

Private Sub Command3_Click()

Text1.Text = ""

'⑥

End Sub

Private Sub Command2_Click()

Dim x%(1 To 9), b%(1 To 9), k%, t%

For i = 1 To 9

x(i) = i

Next i

For i = 1 To 50

k = a(i)

b(k) = b(i) + 1 '②

Next i

For i = 1 To 8

For j = 1 To i '③

If b(j) < b(j + 1) Then

t = b(j): b(j) = b(j + 1): b(j + 1) = t

t = x(j): x(j) = x(j + 1): '④

End If

Next j

Next i

For i = 1 To 3

'⑤

Next i

End Sub

第五套

试题一：（30分）

用VB编制一个程序，初始界面如图1，文本框显示程序运行输出的问候语。程序运行时可通过文本框输入，效果如图2，要求用行IF语句完成根据时间变化12点前为“**上午好！”，超过12点为“**下午好！”单击“结束”按钮结束程序运行。


图1	图2

操作要求：

1．（2分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹“试题一”文件夹下。

2.（16分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性2分，共14分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	问候	Form1	icon	考生目录下1.ico
Text1	Text	空	Label1	caption	请输入昵称：
Label2	caption	空	Command2	caption	结束C
Command1	caption	确定P

3.（10分）选择适当的两个事件（2分），编写相应的代码实现此功能。（执行test1.exe文件，若上午输入给出正确结果或下午输入给出正确结果给6分，结束事件给2分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）

填空完成VB程序，其功能是在随机产生的数组中查找指定值，界面设计和程序运行效果如图3、图4所示。


图3	图4

打开某路径下的工程文件test2.vbp，完成下列操作：

1. （10分）将code1.txt文件复制到适当的事件中（1分），完成（1）、（2）、（3）填空。（每格3分，共9分）

2. （13分）将code2.txt文件复制到适当的事件中（1分），输入要查找数值，单击“查找”按钮，返回该数值在数组中位置（第几个）完成注释（4）（5）（6）（7）填空实施此功能。（每空3分，共12分）

3. （2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

Const n = 20

Dim a(20)

Code1

Randomize

For i = 1 To （1） ’数组初始化（非数值）

a(i) = Int(Rnd *（2） + 10) '产生两位随机数

List1.（3）a(i) ’添加到列表框

Next i

Code2

Dim t%, y%

t = (4) '获取输入值

For i = 1 To 20

If a(i) = t Then Label2.Caption = "所查找数据位于第" & i & "位": （5）’依次查找，找到位置后返回位置退了循环

y = （6） '计数

Next i

If （7） >= 20 Then Label2.Caption = "未发现所查找数据"

试题三、（20分）

修改考生文件夹下的VB程序使其具有下列功能：

在文本框中输入一个数（大于等于5），然后单击“查找”命令按钮，找出给定数的三个最大的素数，并显示在标签控件数组label1中，如图所示运行效果如图5所示。

图5

打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：

1.（18分）对注释“①”、“②”、“③”所在行的代码进行修改，并在代码中的“-④-”、“-⑤-”和“-⑥-”处真写一条代码（填写完成后，删除标号“-④-”、“-⑤-”和“-⑥-”），以让程序正确执行。调试并运行程序。

2. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Private Sub Command1_Click()

Dim num%, i%, n%

'(4)

Text1.Text = num '(1)

For i = num To 2 '(2)

flag = False

For j = 1 To Sqr(i) '(3)

If i Mod j = 0 Then '（5）: Exit For

Next j

If Not flag And n <= 2 Then

n = n + 1

'(6)

End If

Next i

End Sub

第六套

试题一：（30分）

用VB编制一个程序，初始界面如图1。程序运行时可通过单选按钮选择性别，对应称乎为“先生/女士”复选框爱好选择，效果如图2，单击“确定”按钮在文本框内显示结果。


图1	图2

操作要求：

1．（2分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹“试题一”文件夹下。

2.（14分）参照图完成界面设计：按表添加相关对象并设置相关的属性：

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	兴趣爱好	Label1	caption	请选择
Text1	multiline	true	Text1	text	空白
Check1	caption	户外	Text1	forecolor	&H000000FF&
Text1	fontname	幼圆	Text1	alignment	2
Option1	caption	男	Check2	caption	摄影
Option2	value	true	Option2	caption	女
Command1	caption	确定	Command2	enabled	false

3.（12）编写适当的事件（2分） ,选择“男”按钮，单击确定后文本框显示如图2所示的结果；若选择“女“，复选框都选，在文本框则显示”女士爱好户外摄影“。（执行test1.exe文件，若选择“男”复选框选择给出正确结果给出5分；若选择“女”，复选框选择给出正确结果给出5分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

试题二（25分）

修改VB程序，其功能是求最大公因子，当单击“求最大公因子”按钮时，提求键盘输入两个正整数，并求出最大公因子，用消息框显示结果。



图3	图4

打开某路径下的工程文件test2.vbp，完成下列操作：

1. （2分）将code.txt文件复制到适当的事件中;

2. （21分）单击命令按钮弹出对话框，提示从键盘上输入数据，并求出最大公约数，能过消息框给出结果。完成相关代码（1）、（2）、（3）、（4）、（5）、（6）、（7）的填空，去掉注释。（每小题3分，共21分）

3. （2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

Code:

Dim x%, y%, x1%, y1%, n

x = (1) '输入第一个数

y = (2) '输入第二个数

x1 = x

y1 = y

n = (3) '取余数

Do While (4) '满足条件循环

x = (5) ’X值变化

y = (6) ’Y值变化

n = x Mod y

loop

Msgbox "两个整数" & x1 & "和" & y1 & "最大公约数为：" & (7) '显示最大公约数

试题三、（20分）

修改考生文件夹下的VB程序使其具有下列功能：单击命令按钮打印如图4所示倒三角形

图4

打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：

1. （18分）对注释“①”、“②”、“③”所在行的代码进行修改，并在代码中的“-④-”、“-⑤-”和“-⑥-”处真写一条代码（填写完成后，删除标号“-④-”、“-⑤-”和“-⑥-”），以让程序正确执行。调试并运行程序。

2. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Private Sub Command1_Click()

Dim i%, j$ '(1)

For i = -4 To 4 '(2)确定打印行数

Print Tab(2 * (i - 1) + 1); '(3)对齐打印位置

For j = 1 To 10 - i

'(4) ’打印输出

Next j

' For j = (5) To 1 Step -1

Print j;

Next j

' (6)

Next i

End Sub

第七套

试题一（30分）

设计一个VB程序，使其具有下列功能：在第一个文本框（text1）中输入一个十进制整数，单击“转换”按钮，将该数转换成十六进制数，并显示在第二个文本框中。单击“清除”按钮则清除两个文本框中的内容，单击“退出”按钮则结束程序。程序设计、运行界面如图1、图2所示。

1. （2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“考试结果\程序设计\试题一”文件夹下。

2.（16分）参加图1和图2完成界面设计：按表1添加相关对象并设置相关属性。表1

对象	设置内容
窗体	名称为form1；标题为进制转换。
“输入的十进制整数：”标签	名称为label1。
“转换成十六进制数”标签	名称为label2
位于上方的文本框	名称为text1；内容为空。
位于下方的文本框	名称为text2；内容为空。
“转换”按钮	名称为command1。
“清除”按钮	名称为command2
“退出”按钮	名称为command3

3．（10分）在文本框1输入十进制数，单击“转换”，在文本框2显示正确结果；（6分）单击“清除”按钮，将文本框1、2清除（2分）；单击“退出”，程序结束。

4．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“D:\test1111\考试结果\程序设计\试题一“文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：单击“显示”按钮，在图片框中显示如下图所示的图形，单击“清除”按钮，清除图片框中的图形。设计、运行界面如图3、图4所示。


图3	图4

打开“考试结果\程序设计\试题二”文件夹中的工程文件“test2.vbp”，完成下列操作：

1. （4分）在窗体上添加图片框，并设置图片框的font属性，使其字体大小为“四号”。

2. (4分) (选择“显示”按钮合适的事件过程，将“考试结果\程序设计\试题二”文件夹下“code1.txt”文件中的所有代码复制到该过程中。

3. (3分)选择“清除”按钮合适的事件过程，将“考试结果\程序设计\试题二”文件夹下“code2.txt”文件中的所有代码复制到该过程中。

4. (12分)分别在代码中的“-（1）-”，“-（2）-”和“-（3）-”处填写一条代码（填写完成后，删除标号“-（1）-”，“-（2）-”和“-（3）-”），以让程序正确执行。调度并运行程序。

5. (2分)保存工程文件和窗体文件，生成可执行文件“test2.exe”并保存到“考试结果\程序设计\试题二”文件夹下。

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Code1:

Dim i As Integer, j As Integer

Dim m As Integer, n As Integer

-(1)-

Picture1.Print Tab(12);

For j = 1 To 5 - Abs(i)

Picture1.Print "*";

Next j

-(2)-

For m = 1 To 5 - Abs(i)

Picture1.Print "*";

Next m

Picture1.Print

Next i

Code2

-(3)-

试题三（30分）

修改VB程序，使其具有下列功能：程序启动运行时即随机产生20个10-100（含10和100）之间的随机整数，把这些数据存入数组a中，并在文本框中显示出来，数与数之间用空格隔开。单击“插入”按钮，根据用户的输入，向数组a中的指定位置插入一个指定的数，将插入后的结果显示在另一个文本框中。程序设计界面、运行界面如图5、图6所示。


图5	图6

打开“考试结果\程序设计\试题三”文件夹中的工程文件“test3.vbp”，完成下列操作：

1. (18分)对注释“（1）”、“（2）”和“（3）”所在行的代码进行修改，并在代码中的“-（4）-”、“-（5）-”和“-（6）-”处填写一条代码（填写完成后，删除标号“-（4）-”、“-（5）-”和“-（6）-”），以让程序正确执行。调试并运行程序。

2. (2分)保存工程文件和窗体文件，生成可执行程序“test3.exe”并保存到“考试结果\程序设计\试题三”文件夹下。

Dim a() As Integer

Private Sub Command1_Click()

Dim x As Integer, n As Integer

Dim i As Integer

x = Val(Text2.Text)

n = Val(Text3.Text)

ReDim a(1 To 21) '(1)

For i = 20 To n '(2)

'-(4)-

Next i

'-(5)-

For i = 1 To 21

Text4.Text = Text4.Text & a(i) & " "

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

ReDim a(1 To 20)

Randomize

For i = 1 To 20

a(i) = Int(Rnd * 90 + 10) '(3)

'-(6)-

Next i

End Sub

第八套

第一题（ 30分）

设计一个VB程序，使其具有以下功能：在左边文本框Text1中输入任意字符串，单击转换按钮Command1，在右边文本框Text2中只显示字母（不分大小写），其他类型的字符过滤掉。程序运行效果为图1所示.

图1

1、 (2分)创建一个“标准EXE”工程，将其窗体文件和工程文件分别以”test1.frm”和”test1.vbp”保存到“试题一”文件夹下。

2、 (12分)参照图一对界面进行设计：按表一添加相关对象设置相关属性。（6*2=6分）

表1

对象	设置内容
Form1	标题设置“数据过虑”
“输入数据”标签	名称为Lbl1
“过滤后数据”标签	名称为Lbl2
左边文本框	名称为Txt1
右边文本框	名称为Txt2
“过滤”按钮	名称为Cmd1

3、 (14分)选择适当的事件(2分),编写程序代码，实现要求的功能。

4、 (2分)保存窗体文件和工程文件，生成Test1.exe文件并保存到“试题一”中。（1分）

第二题（25分）

在窗体激活事件中，输出直到最后一项小于10^-5为止。程序不完整，请填空使程序完成相应的数据处理。程序运行效果为图2所示

图2

打开“试题二”的工程test2.vbp文件，完成下列操作：

1、(3分)在窗体的的适当事件中，将“试题二”下的code2.txt中的代码复制到该过程中。

2、(20分)分别在代码①、②、③、(4)处填写代码，使程序能正确运行。（填写完成后，删除①、②、③）、(4)5*4=20分）

3、(2分)保存窗体文件和工程文件，生成Test2.exe文件并保存到“试题二”中。

Code:

Dim n!, s!,t!

n = 0: s = 0

(4)

n = ①

t = t * n

s = ②

Loop Until ③

Print "s=1-1/2!+1/3!-1/4!+...-1/n!≈" & s

第三题（20分）

在文本框Text1中输入一个字符串，单击“统计”按钮，统计其中A、B、C、D……的次数（区分大小写），并按出现的次数从高到低排序，输出到文本框Text2中。程序运行效果为

图3所示.

图3

打开“试题三”的工程test3.vbp文件，完成下列操作：

1、(18分) 对注释“（1）”、“（2）”和“（3）”所在行的代码进行修改，并在代码中的“-（4）-”、“-（5）-”和“-（6）-”处填写一条代码（填写完成后，删除标号“-（4）-”、“-（5）-”和“-（6）-”），以让程序正确执行。调试并运行程序。

2、(2分)保存窗体文件和工程文件，生成Test3.exe文件并保存到“试题三”中。（2分）

Private Sub Command1_Click()

Dim a(1 To 26) As Integer, b(1 To 26) As Integer, i As Integer, j As Integer

Dim k%

'a()数组存放26个字母的ASCII值，b()数组存入对应字母的个数

For i = 1 To 26

a(i) = 64 + i

Next i

Text2.Text = ""

For i = 1 To (Text1.Text) '(1)

x = Right(Text1.Text, i, 1) '(2)

If x >= "A" And x <= "Z" Then

k = Asc(x) - 64

b(k) = b + 1 '(3)

End If

Next i

'(4)

For j = 1 To 26 - i

' (5)

t = b(j): b(j) = b(j + 1): b(j + 1) = t

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 26

If b(i) <> 0 Then

'(6)

End If

Next i

End Sub

2017年8套题

第一套

试题一（30分）：

设计一个如图1所示的界面，实现甲壳虫左右移动100缇、上下移动100缇；实现甲壳虫放大或缩小各100；实现甲壳虫显示与隐藏功能。

图1

操作要求：

1. （2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2.（12分）参照图1完成界面设计：按表1添加相关对象并设置相关属性。

表1

对象	设置内容
窗体form1	名称为Form1,标题为“甲壳虫”，背景颜色为白色’2分
图像框image1	图片为\试题一文件夹下的甲壳虫.jpg，stretch设置true。 ’2分
命令按钮1	名称为Command1，标题分别为“↑”’1分
命令按钮2	名称为Command2，标题分别为“←”’1分
命令按钮3	名称为Command3，标题分别为“→”’1分
命令按钮4	名称为Command4，标题分别为“↓”’1分
命令按钮5	名称为Command5，标题分别为“放大”’1分
命令按钮6	名称为Command6，标题分别为“缩小”’1分
命令按钮7	名称为Command7，标题分别为“显示”’1分
命令按钮8	名称为Command8，标题分别为“隐藏”’1分

3. （16分）根据题意编写相应的事件；每个事件2分，共16分

评分标准参考答案

二、试题二（25分）

添加计时器控制，并设置初始化状态：时间间隔为1秒、不可用；窗体的最大化和最小化按钮不可用。将界面中的垂直滚动条的最大值和最小值分别设置为3000和100。

功能：单击“启动”按钮，计时器开始工作，按钮的标题变为“暂停”；再次单击“暂停”按钮，计时器停止工作，按钮标题变成“启动”，垂直滚动条的控制计时器的Intervel属性，范围在100~3000，计时器：使标签组1共计6个依次循环出现，标签框2显示标签组1出现个数。效果图2-2所示。

图2-1 图2-2

操作要求：打开“试题二“文件夹中的工程文件“test2.vbp”，完成下列操作：

1.（6分）添加相关的控件和属性：添加计时器控制，并设置初始化状态：时间间隔为1秒、不可用；窗体的最大化和最小化按钮不可用。将界面中的垂直滚动条的最大值和最小值分别设置为3000和100。

2．（17分）单击“启动”按钮，计时器开始工作，按钮的标题变为“暂停”；再次单击“暂停”按钮，计时器停止工作，按钮标题变成“启动”，垂直滚动条value的值来控制计时器的Intervel属性，范围在100~3000，计时器：使标签组1共计6个依次循环出现，标签框2显示标签组1出现个数。根据题意完成相应的“-①-”、“-②-”、“－ƒ－”“―④―”、“―⑤―”“―（6）―”填空以让程序正确执行。调试并运行程序。

3．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Dim n%

Private Sub Command1_Click()

If Timer1.Enabled = False Then

Timer1.Enabled = True

Command1.Caption = "暂停"

Else

'(1)

Command1.Caption = "启动"

End If

End Sub

Private Sub Form_Load()

For i = 0 To 5

Label1(i).Visible = False

Next i

End Sub

Private Sub Timer1_Timer()

If (2) Then

For i = 0 To 5

Label1(i).Visible = False

Next i

'n = (3)

End If

Label1(n).Visible = True

'(4)

' (5)

End Sub

Private Sub VScroll1_Change()

'Timer1.Interval = (6)

End Sub

试题三（20分）

有一根长600cm的钢筋，需要截成长度为69cm、39cm、29cm的三种规格的短料，在三种规格至少各截1根的前提下，如何截取才能使所余下的材料最少？结果如图3所示：

图3

操作要求：打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

（1）（3分）将标签5(label5)属性设置为居中显示、有边框且Appearance为0-flat

（2）（17分）将文件3.txt文件复制到相应的事件中，当窗体激活时显示图3所示的结果，根据题意完成相应的（1），（2），（3），（4）（5）填空。（评分标准在参考答案中）

3.txt

Dim x%, y%, z%, p%

Min = 600

For x = 1 To (1)

For y = 1 To 25

For z = 1 To 34

p = (2)- x * 69 - y * 39 - z * 29

If p >= 0 And Min >= (3) Then

Min = p

Text1.Text = x

Text2.Text = y

text3.text=z

(4)

Next z

Next y

Next x

Label5.Caption =(5)

第二套

试题一（30分）

设计界面如图1所示一个留言板，并可设置字体及字体效果，单击“清除”按钮，清空文本框的内容，单击“退出”按钮，程序结束。（其中单选按钮、复选框及命令按钮均为控件数组）

图1

操作要求：

1. （2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2.（13分）参照图1完成界面设计：按表1添加相关对象并设置相关属性。

表1

对象	设置内容
窗体form1	名称为Form1,标题为“留言板”’1分
文本框Text1	多行显示且垂直滚动条 ’2分
单选按钮(控件数组)	名称为Option1，标题分别为“黑体”，“幼圆”，“楷体”，“华文中宋” '4分
复选按钮（控件数组）	名称为Check1，标题分别为“加粗”，“下划线”，“斜体”，“删除线” '4分
命令按钮（控件数组）	名称为Command1，标题分别为“清除”，“退出”。'2分

3. 编写相应的事件：（评分标准见参考答案）

（1）（5分）单击单选按钮中任一个按钮，在文本框显示相应的字体（要求只有一句代码）（2）（5分）单击复选按钮中任一个按钮，在文本框显示字体的效果（要求用多分支选择结构select case语句，条件表达式用index）

（3）（5分）单击 “清除”命令按钮，则文本框清空；否则程序结束（用命令：end）（要求用二分支IF结构编写）、

试题二（25分）

组合框类型改为下拉列表，添加文本框（垂直滚动条且多行显示）功能：选择“大写字母”单击“产生”按钮，在文本框中显示30个随机的大写字母，选择“小写字母”则产生30个小写字母。单击“处理”按钮，将30个字母中最大的字母显示在列表框中，如有重复字符，则都显示在列表框中。每次单击“处理”按钮，列表框内容都清空。如图2所示。

图2

打开工程文件“test2.vbp”，完成下列操作：

（1）（7分）完善界面和属性设置（窗体标题设置为试题二，组合框类型改为下拉列表'2分，添加文本框（垂直滚动条且多行显示’4分）

（2）（18分）根据题意完成“①”、“②”、“③”所在行的代码填空，并在代码中的“-④-”、“-⑤-”和“-⑥-”处真写一条代码或表达式（填写完成后，删除所有标号）以让程序正确执行。调试并运行程序。（每小题3分，共18分）

保存窗体文件和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Dim a%(1 To 30)

Private Sub Command1_Click()

Dim dx%

Randomize

Text1.Text = ""

If Combo1.Text = "大写字母" Then

dx = Asc("A")

ElseIf Combo1.Text = "小写字母" Then

'dx = (1)

End If

If dx <> 0 Then

For i = 1 To 30

'a(i) = Int(Rnd * 26) + (2)

'Text1.Text = Text1.Text + " " + (3)

Next i

End If

End Sub

Private Sub Command2_Click()

Dim sz%

'sz = (4)

For i = 2 To 30

'If a(i) >= sz Then (5)

Next i

List1.Clear

For i = 1 To 30

'If a(i) = sz Then (6)

Next i

End Sub

试题三（20分）

修改VB程序，使其具有下列功能：产生15个[10,99]的随机奇数进行排序。单击“排序”按钮，则将数组a 中的15个数按从小到大的顺序（用冒泡法）显示在文本框Text2中。

运行效果如图3所示。

图3

打开“试题三“文件夹中的工程文件“test3.vbp”，完成下列操作：

1．（18分）对注释“①”、“②”、“③”所在行的代码进行修改，并在代码中的“-④-”、“-⑤-”和“-⑥-”处真写一条代码或表达式（填写完成后，删除所有标号，以让程序正确执行。调试并运行程序。（每小题3分，共18分）

2．（2分）保存窗体文件和工程文件，生成可执行程序“test3.exe”并保存到“试题三“文件夹下。

Dim a%(15)

Private Sub Command1_Click()

Randomize

For i = 1 To 15

a(i) = Int(99 * Rnd) + 10 '①

If a(i) Mod 2 = 0 Then i = i + 1 '②

Next i

For i = 1 To 15

'Text1.Text = Text1.Text + a(i)'③

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 14

' For j = 1 To ④

If a(j) >= a(j + 1) Then

't = a(j): a(j) = a(j + 1): ⑤

End If

Next j

Next i

For i = 1 To 15

' Text2.Text = Text2.Text & ⑥ & " "

Next i

End Sub

第三套

试题一（30分）

设计一个VB程序，用于实现成绩录入与统计的功能。要求输入的数据必须是0-100之间的数值型数据，根据复选框中选定的课程进行合并计算。文本框、复选框都为控件数组。

图1

1．（2分）创建一个“标准EXE文件”工程，将其窗体文件和工程文件分别以”test1.frm”、”test1.vbp”为文件名保存到“试题一”文件夹下

2．（13分）参照图1和表1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性值为1分，共13分）表1：

对象名	属性	属性值	对象名	属性	属性值
Form1	Caption	成绩统计	Check1(2)	Caption	影视
Label1	Caption	数学	Check1(3)	Caption	VB
Label2	Caption	语文	Command1	Caption	合计
Label3	Caption	影视	Label6	Caption	“”
Label4	Caption	VB	Label6	BorderStyle	Fixed Sinlge
Check1(0)	Caption	数学	Command2	Caption	清空
Check1(1)	Caption	语文

3. （13分）输入成绩，根据复选框中选定的课程进行合并计算。（执行“test1.exe”文件，单击“合计”按钮，根据复选框中选定的课程进行合并计算，共7分；单击按钮“清空”：实现文本框内容清空、复选框未选中及标签6清空,共6分;）（说明：对复选框选定的课程进行合并计算一律用for语句和if语句（行if语句和块if语句）编写求和变量用S，变量类型为单精度；对文本框内容清空也一律用for语句编写）评分标准见参考答案

4. （2分）生成可执行文件”test1.exe”，保存至”试题一”文件夹下。

试题二（25分）

补充VB程序，使其具有下列功能：单击窗体，输出如图所示图形，要求图形第一行的第一个“D”在第10列输出，运行效果如图2所示。

图2

打开“试题二”文件夹中的工程文件”test2.vbp”完成下列操作

1．（4分）取消窗体的最大化、最小化按钮（属性设置各2分，共4分）

2．（20分）对注释 “①” “②” “③” ”④” “⑤” 处添加事件、表达式及一条代码（填完后，删除标号），调试运行（每空4分，共20分）

3. （1分）保存窗体，生成可执行文件”test2.exe” ，保存至”试题二”文件夹下。

评分标准见参考答案

Private Sub ________ '①

Dim i%

Form1.Cls

For i = 1 To 4

Print Tab(__________); '②

For j = 1 To 10 - 2 * i

If j = 1 Or ________ Then '③

Print _______ '④

Else

Print " ";

End If

_________ ' "⑤"

Next i

End Sub

Private Sub Form_Load()

End Sub

试题三（20分）

补充VB程序，使其具有下列功能：统计输入的内容中数字字符的个数，并将各字符按从小到大排序后并在窗体上输出。程序运行效果如图3所示。

打开“试题三”文件夹中的工程文件”test3.vbp”完成下列操作

1. （2分）设置文本框text1的属性允许最多输入20个字符；

2．对注释 “①” “②” “③” ”④” “⑤” “⑥” 处添加一条代码（填完后，删除标号），调试运行（每空格3分，共18分）

保存窗体，生成可执行文件”test3.exe” ，保存至”试题三”文件夹下。

评分标准见参考答案

Private Sub Command1_Click()

Cls

Dim c, a$(20), i%, str1$, k%

str1 = Text1.Text

For i = 1 To Len(str1)

c = __________ '②

If c >= "0" And c <= "9" Then

k = k + 1

_________ '③

End If

Next i

For i = 1 To k - 1

For j = 1 To _______ '④

If a(j) > a(j + 1) Then

tmp = a(j)

a(j) = a(j + 1)

a(j + 1) = tmp

End If

Next j

Next i

Print "数字字符共有："; ______ ; "个" '⑤

Print "从小到大排序后为：";

For i = 1 To k

Print _________ '⑥

Next i

End Sub

Private Sub Command2_Click()

_________ '①

End Sub

第四套

试题一（30分）

设计一个VB程序，实现移动图片的功能。要求：完成图片上下左右移动的功能。如单击滚动条“”，实现图片向右移动；单击“”图片，图片向下移动。

1．（2分）创建一个“标准EXE文件”工程，将其窗体文件和工程文件分别以”test1.frm””test1.vbp”为文件名保存到“试题一”文件夹下

2．（12分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性值为1分，共12分）

对象名	属性	属性值	对象名	属性	属性值
Fom1	Caption	移动的图片	VScroll1	SmallChange	50
Label1	Caption	左边		LargeChange	100
Label2	Caption	右边		Min	0
HScroll1	SmallChange	50	Label3	Caption	上边
	LargeChange	100	Label4	Caption	下边
	Min	0
Picture1	Picture	vb.jpg

3. （14分）。执行“test1.exe”文件,窗体加载时，滚动条初始化：水平滚动条max属性值为窗体的宽度，垂直滚动条max属性值为窗体高度。（共6分）

单击“向左”箭头，实现文字向左（水平滚动条的value值）移动，单击“向右”箭头，实现文字向右（水平滚动条的value值）移动。(共4分)

单击“向上”箭头，实现文字向上（垂直滚动条的value值）移动，单击“向下”箭头，实现文字向下（垂直滚动条的value值）移动。(共4分)

4. （2分）生成可执行文件”test1.exe”，保存至”试题一”文件夹下。

评分标准见参考答案

试题二（25分）

补充VB程序，使其具有下列功能：利用定时器实现字体放大/缩小，要求：字体最大值为100，最小值为10，“文字”在最大与最小之间每隔0.2秒增5或减5。

打开“试题二”文件夹中的工程文件”test2.vbp”完成下列操作

1．（4分）设置label1标签属性,使标签能够根据文字自动调整大小。定时器初始设置为不工作。

2．（20分）对注释 “①” “②” “③” ”④” “⑤” 处添加一条代码（填完后，删除标号），调试运行（每空4分，共20分）

3. （1分）保存窗体，生成可执行文件”test2.exe” ，保存至”试题二”文件夹下。

评分标准见参考答案

Dim blnZoom As Boolean

Private Sub Form_Load()

Timer1.________ = 200 '①

________= True '②

End Sub

Private Sub Timer1_Timer()

If blnZoom Then

If Label1.FontSize > 100 Then

________ '③

Else

Label1.FontSize = Label1.FontSize + 5

End If

Else

If ________ Then ' ④

blnZoom = True

Else

________= Label1.FontSize - 5 '⑤

End If

End Sub

试题三（20分）

在窗体上包含一个名为option1的控件数组，含有3个单选按钮，其标题分别为：“1！+2！+…10!”、“1！+2！+…11!” “1！+2！+…12!”。补充程序，实现功能：选择相应的“单选按钮”，单击“计算”按钮，可以计算相应的阶乘的和，并在text1中显示该阶乘的值。

图3

打开“试题三”文件夹中的工程文件”test3.vbp”完成下列操作

1．（3分）设置单选按钮属性，效果如图3所示

2．（15分）对注释 “①” “②” “③” ”④” “⑤”处添加一条代码（填完后，删除标号），调试运行（每空3分，共15分）

3. （2分）保存窗体，生成可执行文件”test3.exe” ，保存至”试题三”文件夹下。

评分标准见参考答案

Private Sub Command1_Click()

Dim s As Long

Dim t As Long

Dim i%, j%, n%

s = 0

For i = 0 To 2

If ________ Then n = 10 + i '①

Next i

For i = 1 To n

________ '②

For j = 1 To i

t = __________ '③

Next j

s = s + __________ '④

Next i

Text1.Text = ________ '⑤

End Sub

第五套

试题一：（30分）

用VB编制一个程序，初始界面如图1。程序运行时标签大小为1500*1500可通过拖动水平滚条来时实调整标签宽度，通过拖动垂直滚条实时调整标签的高度，标签最大10000*10000，最小为100*100。

图1

操作要求：

1．（2分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹“试题一”文件夹下。

2.（18分）参照图完成界面设计：按表添加相关对象并设置相关的属性：

对象名	属性	属性值	对象名	属性	属性值
Label1	caption	空白	Hscroll1	max	10000
Label1	left	0	Hscroll1	min	100
Label1	Top	0	Vscroll1	max	10000
Label1	width	1500	Vscroll1	min	100
Label1	height	1500

3.编写适当的事件实现功能（8分）

4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

评分标准见参考答案

试题二（25分）

单击Command1按钮后，产生8个【1-100】之间的随机整数，存入a数组中，并显示在List1中。单击Command2按钮后，将a数组用冒泡排序的方法从小到大排序，并显示在List2中。在Text1中输入待插入的【1-100】之间整数，单击Command3按钮后，插入数组a中，这9个数仍旧按升序排列，并显示在List3中。现提供界面如下，请完成代码，以实现题目要求的功能：程序运行界面如下图所示。

实现上述功能的VB程序如下。请在划线处填入适当的语句和代码，把程序补充完整。

打开某路径下的工程文件test2.vbp，完成下列操作：

1. （3分）将code2.txt文件复制到适当的事件中

2. （21分）输入数字后，单击“运行”命令按钮能在文本框中给出结果。完成“（1）、（2）、（3）、（4）、（5）、（6）、（7）”的填空和修改。

3. （1分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。

评分标准见参考答案

Code2

'事件一

n = 8

For i = 1 To n

a(i) = Int((1))

List1.AddItem a(i)

Next i

'事件二

For i = 1 To n - 1

For j = 1 To (2)

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j

Next i

For i = 1 To n

List2.AddItem (3)

Next i

'事件三

x =(4)

For i = n To 1 Step -1

If (5) Then Exit For

Next i

t = i + 1

For i = n + 1 To t Step -1

a(i) =(6)

Next i

(7) = x

n = n + 1

For i = 1 To n

List3.AddItem a(i)

Next i

Dim a%(100), n

试题三（20分）

英文单词统计的 Visual Basic 程序，实现功能如下：在界面左边的文本框 Text1 中输入英文句子，单击“统计”按钮（Command1），在右边的列表框 List1 中显示英文单词及其在句子中出现的位置，并在按钮上方的标签框Label1中显示单词个数（假定每个单词中不包含英文字母以外的其他字符）。程序运行效果如图所示。

1. （2分）将code3.txt文件复制到适当的事件中

2. （16分）在文本框中输入英文句子后，单击“统计”命令按钮能在列表框中给出结果。完成“（1）、（2）、（3）、（4）、（5）、（6）、（7）、（8）的填空和修改。

3. （2分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题三”文件夹。

评分标准见参考答案

Code3:

Dim a(1 To 1000) As String '存放每个单词

Dim d(1 To 1000) As Integer '每个单词的位置

dim s$,slen%

List1.(1)

s = Text1.Text

slen = (2)

j = 0: k = 1: b = 1

For i = 1 To slen

c =(3)

If (c < "a" Or c > "z") And ((4)) Then

If j <> 0 Then

a(k) =(5)

d(k) = b

k = k + 1

j = 0

End If

b = (6)

Else

j =(7)

End If

Next i

List1.AddItem "位置内容"

For i = 1 To k - 1

List1.AddItem Str(d(i)) + " " + (8)

Next i

Label1.Caption = Str(k - 1) + "个"

2017年计算机类VB技能操作题（6）

考试说明：

1．在答题过程中请注意保存；

2．提交前请校对所有文件是否存在。

试题一 (30分)

设计一个VB程序，使其具有下列功能：系统加载时在标签中显示“上机操作”，单击“放大字体”命令按钮，将标签内字体的字号“+1”，单击“缩小字体”将标签内字体的字号“－1”。运行效果如图1所示。

图1

1．（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到“试题一 ”文件夹下。

2．（12分）参照图1和表1添加相关对象并设置设置相关属性。

表1

对象	设置内容
标签	自动调整大小 '2分
标签	名称为lbl1。 '2分
标签位置	上边界500，左边界1000 '2分
“放大字体”	名称为cmd1。标题为“放大字体”'3分
“缩小字体”	名称为cmd2。标题为“缩小字体”'3分

3. （14分）系统加载时在标签内显示“上机操作”（4分），单击“放大字体”命令按钮，将标签内字体的字号“+1”（5分），单击“缩小字体”将标签内字体的字号“－1”（5分）并在事件中编写代码以实现程序功能。调试并运行程序。

4．（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：在文本框中输入数值A、B（A不大于B,提示如图2-1），单击“查找“按钮，标签1中显示A、B之间的所有素数（包括A、B）。输入3和7。运行效果如图2-2所示。

图2-1

图2-2

打开试题二文件夹中的工程文件“test2.vbp”，完成下列操作：

1．（2 分）将“试题二“文件夹下“code2.txt”文件中的所有代码复制到合适的过程中

2．（21分）分别在代码中的“（1）、（2）、（3）、（4）、（5）、（6）、（7）”处填写一条代码或表达式，以让程序正确执行。调试并运行程序。

3．（2分）保存窗体和工程文件，生成可执行程序“test2.exe”并保存到“试题二“文件夹下。

Code2:

dim m%,n%

m =(1)

n = Val(Text2.Text)

Label1.Caption =(2)

If (3) Then

MsgBox (4)

Else

For i = (5)

For j = 2 To i-1

If i Mod j = 0 Then (6)

Next j

If (7) Then Label1.Caption = Label1.Caption & " " & i

Next i

End If

代码：

试题三、（20分）

编写一个有关“水果销售排行榜”的VB程序（已知水果种类小于100），功能如下：运行程序时，首先输入每种水果及销量数据输入文本框Text1和text2中并单击输入按钮，该销量数据存放在数组中，并在左边列表框List1中显示。单击“排名”按钮Command1后，程序将对输入的各种水果销售数据从高到低依次排序，并在右边的列表框List2中显示。运行效果如图3所示。

图3

打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：

1. （2分）在将code3.txt文件复制到适当的事件中

2. （18分）完成（（1）（2）（3）（4）（5）（6）填空实现题目要求功能（每空3分）

3. 保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

Code3:

Dim a(1 To 100), b(1 To 100)

Dim num As Integer

Dim xl As Single

xl = (1)

If xl > 0 Then

(2)

List1.AddItem Text1.Text + " ： " + Str(xl)

(3)

b(num) = Text1.Text

End If

Text1.Text = ""

Text2.Text = ""

Dim i, j, k As Integer

Dim t1 As Single, t2 As String

For i = 1 To(4)

k = i

For j = i + 1 To num

If a(j) > a(k) Then (5)

Next j

If i <> k Then

t1 = a(i): a(i) = a(k): a(k) = t1

t2 = b(i): b(i) = b(k): b(k) = t2 '-6-

End If

Next i

List2.Clear

For i = 1 To num

(6) '-7-

Next i

Private Sub Form_Load()

List1.AddItem "名称" + " " + "销量"

End Sub

2017年计算机类VB技能操作题（7）

考试说明：

1．在答题过程中请注意保存；

2．提交前请校对所有文件是否存在。

试题一（30分）

设计一个VB程序，初始界面如图1所示，程序运行后，每一秒钟从列表框中取出一个项目显示在标签中，首先显示“第一项”，然后显示“第二项”、“第三项”、“第四项”，如此循环，效果如图1-2所示。

图1 图2

图1-1 图1-2

1、创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp”为文件名保存到到“考生文件\试题一”文件夹下。（2分）

2、参照效果图1-1完成界面设计：按表1添加相关对象并设置相关属性。（12分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	Caption	循环显示	Label1	Caption	空
Form1	一个关闭按钮，运行时不可改变窗体大小		Label1	Borderstyle	1
List1	name	l1	Timer1	Name	t1
l1	list	第一项第二项第三项第四项	Timer1	Enable	false
Label1	Name	lab1	Timer1	时间间隔一秒

3、选择适当的事件，使用程序加载时计时器对象有效。（4分）

4、选择适当的事件，编写代码每一秒钟从列表框中取出一个项目显示在标签中，首先显示“第一项”，然后显示“第二项”、“第三项”、“第四项”，如此循环（列表框的项目个数用变量n表示，并n为整型）。（12分）

5、保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到到“考生文件\试题一”文件夹下。

试题二（25分）

修改VB程序，使其具有下列功能：

1、单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用，“通话开始”命令按钮变为不可用；

2、如果单击“通话结束”按钮，则在“结束时间”右侧的文本框中显示结束时间，同时计算机通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用，“通话结束”命令按钮变为不可用；

3、计时收费的标准是：通话时间在3分钟以内时，收费0.5元；3分钟以上时，每超过1分钟加收0.15元，不足1分钟按1分钟计算。

如下图2所示。

图2

打开“试题二”文件夹中的工程文件“test2.vbp”，完成下列操作。

1、打开“试题二”文件夹下的“code1.txt”文件，复制全部代码到窗体的合适事件中。（1分）

2、分别在代码中的①②③④⑤⑥处填写一句完整的代码（填写完成后，删除标号和注释符，不得修改其他部分的代码），以让程序正确执行。调试并运行程序。（每空4分，共24分）

3、保存窗体文件和工程文件，生成可执行文件“test2.exe”并保存到“试题二”文件夹下。

Code1:

'(1) = Str(Time())

Text1(1).Text = "": Text1(2).Text = ""

Cmd1.Enabled = False

Cmd2.Enabled = True

代码：

Private Sub Cmd2_Click()

Text1(1).Text = Str(Time())

t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text)

t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text)

t = (2)

m = t \ 60

If (3) Then m = m + 1

s = 0.5

If m - 3 > 0 Then

s = s + (4)

End If

Text1(2).Text = Str(s) + "元"

⑤

⑥

End Sub

试题三（20分）

修改VB程序，使其具有下列功能：程序运行时单击“产生”按钮，在窗体上列表框2上产生[100，500]的正整数并进行升序排序，单击“合并”按钮，把列表框1和列表框2合并添加到列表框3并升序排序。结果所图3所示

图1 图2

打开“试题三”文件夹中的工程文件“test3.vbp”，完成下列操作。

1、分别在代码中的①②③④⑤⑥⑦⑧⑨⑩处补充完整的代码（填写完成后，删除标号和注释符，（每格2分，共20分）

不得修改其他部分的代码），以让程序正确执行。调试并运行程序。

2、保存窗体文件和工程文件，生成可执行文件“test2.exe”并保存到“试题三”文件夹下。

Private Sub Command1_Click()

Dim t%

For i = 1 To 30

a(i) = (1)

List2.AddItem a(i)

Next i

For i = 0 To (2)

t = i

For j = i + 1 To (3)

If List2.List(t) > List2.List(j) Then t = (4)

Next j

If t <> j Then

temp = List2.List(i)

(5)

List2.List(t) = (6)

End If

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 60

If i < 31 Then

b(i) = (7)

Else

b(i) = (8)

End If

Next i

For i = 1 To (9)

' For j = 1 To 60 - i

If b(j) > b(j + 1) Then temp = b(j): b(j) = b(j + 1): b(j + 1) = temp

Next j

Next i

For k = 1 To 60

List3.List(k - 1) = (10)

Next k

End Sub

2017年计算机类VB技能操作题（8）

考试说明：

1．在答题过程中请注意保存；

2．提交前请校对所有文件是否存在。

试题一：（30分）

设计一个选课系统，程序运行时,在选课名称的列表框中加载如图1所示的课程，运行效果如图2所示。


图1	图2

图3	图4

操作要求：

1、创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。（2分）

2、参照图1完成界面设计：按表1添加相关对象并设置相关的属性：（10分）

表1

对象名	属性	属性值	对象名	属性	属性值
Form1	caption	课程选择	Form1	fontsize	18
Label2	caption	已选课名称	Label1	caption	课程名称
List2	backcolor	&H00FFFF80&	List1	backcolor	&H0080C0FF&
Command1	name	cmd1	Command2	name	cmd2
Command1	caption	>>	Command2	caption	<<

3、窗体加载时，在列表框1已加载图1的项目: 语文、英语、数学、程序设计、网络操作系统、网络设备配置、PR、PS、体育、心理（4分）

4、若选中课程名称列表框1的项目，单击“>>”按钮，将它移动到已选课名称的列表框2中，没选中则用对话框提示“请选中项目”，如图3所示；若选中已选课名称的列表框的项目，单击“<<”按钮，将它移动到课程名称的列表框中，没选中则用对话框显示“请选中要取消课程”如图4所示。（12分）（用二分支选择结构IF语句）

5.保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。（2分）

试题二（25分）

修改VB程序，单击窗体时使其在窗体上输出如图5所示的蛇形方阵

图5

打开“试题二”文件夹中的工程文件“test2.vbp”，完成下列操作。

1、打开“试题二”文件夹下的“code1.txt”文件，复制全部代码到窗体的合适事件中。（1分）

2、分别在代码中的完成（1）、（2）、（3）、（4）、（5）、（6）（7）（填写完成后，删除标号和注释符，不得修改其他部分的代码），以让程序正确执行。调试并运行程序。（其中（5）与（6）每空2分，其余每空4分，共24分）

3、保存窗体文件和工程文件，生成可执行文件“test2.exe”并保存到“试题二”文件夹下。

Code1：

For i = 1 To 10

If (1) Then

For j = 1 To (2)

Print Tab(5 * j); 10 * (i - 1) + (3)

Next j

(4)

Else

For j = 1 To 10

Print (5); (6) - j + 1;

Next j

(7)

End If

Next i

试题三（20分）

修改VB程序，使其具有下列功能：窗体启动时，在窗体上输出10个姓名，程序运行时，在Text1文本框中输入一个姓氏或姓名后，单击“查找”按钮，则进行查找，若找到，就把所有与Text1中所有具有Text1中姓氏的姓名或相同的姓名显示在Text2中，如图6所示。若未找到，则在Text2中显示“未找到”，如图7所示；若Text1中没有查找内容，则用消息框输入如图8所示的提示错误。