1、第一套1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为K:k426001005请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。(1)在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽都为1200的正方形。请设置适当的属性满足以下要求：窗体的标题为“正方形”，窗体的最小化按钮不可用；正方形的边框为虚线（线型不限）。运行后的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。(2)在名称为Form1、标题为“标签”的窗体上，画一个名称为Label1，并可自动调
2、整大小的标签，其标题为“计算机等级考试”，字体大小为三号字；再画二个命令按钮，标题分别是“ 体”和“ 体”，名称分别为Command1、Command2。如图所示。要求：个命令按钮的Click 件 程。程序运行后，如 “ 体”命令按钮， 标签 示为 体字体；如 “ 体”按钮， 标签 示为 体字体。注意：程序 不 用 ， 件 程 一 。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。2 应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹”均为K:k426001005(1)在考生文件夹下 一个工程文件sjt3.vbp,其窗体上 一个名称为La
3、bel1的控件 ， 三个标签，标题分别是“ 时 ”、“时 ”和“用”； 一个名称为Text1的控件 ， 三个 为currency1的文本框；“ 二个名称分别为Cmd1和Cmd2的命令按钮，标题分别是“ ”和“”；其 属性窗“”命令按钮的 状fi设置为fl用，如图所示。 程序的 是计算用计时。计时标 为：时 在3分以 时，0.5；3分以上时，每 1分0.15，不足1分按1分计算。程序”行的操作如下：如 “ ”按钮， 在“ 时 ”的文本框 示 时 ，“”命令按钮 为可用状fi，“ ”命令按钮不可用。如 “”按钮， 在“时 ”的文本框 示时 ， 时计算用，并其 示在“用”的文本框 ，“ ”命令按钮
4、为可用状fi，“”命令按钮不可用。在窗体文件 出控件（如图所示）和程序，程序不整，要求 程序 的注， 为正的 currency1，以现上 。注意：不 存在的 和控件属性，最后 后的文件按 文件名存盘。Private Sub Cmd1_Click()? = Str(Time()Text1(1).Text = “: Text1(2).Text = “Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1).Text = Str(Time()t_start=Hour(Text1(0).Text)*36
5、00+ 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 = t_end - t_startm = t 60If m 0 Thens = ? + (m - 3) * 0.15End IfText1(2).Text = Str(s) + “?= True?= FalseEnd Sub（2）在考生文件夹下 一个工程文件sjt4.vbp,其窗体上 三个标签，三个文本框和 个命令按钮，均 用 名称
6、。程序的 是：1）如 “ 据”命令按钮， 考生文件夹下in4.dat文件 按 序方 的 （每30个 ）分别 A和B，并分别 示在Text1、text2 ；2）如 “ 并”命令按钮， A、B 个 并为 一个按 序方 的 C，并 并后 C 的 据 序方 示在Text3 。窗体 出所 控件（如图所示）以 “ 据”命令按钮的Click 件 程，请“ 并”命令按钮的Click 件 程， 其现上 。注意：不 存在的控件和程序，在程序运行 ，必须 行 并操作，必须 窗体上 的“”按钮程序， 。最后，程序按 文件名存盘。Dim a(30) As Integer, b(30) As Integer, c(60)
7、 As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path 然后建立一个菜 ，标题为“控件”，名称为menu,包 个子菜 项，一个是“ 示命令按钮”，名称为subMenu2,如图所示。 适当的 件 程， 程序运行时，如 择“ 命令按钮”菜 命令， 命令按钮控件。注意：程序 不 用 ，每个 件 程 用一 。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp,窗体文件名为sjt2.frm. 2. 应用（2小题，每分20分，计40分）注意：下面出现的“考生文件夹”均为K：k326003026(1)在考生文件夹下 一
8、个工程文件sjt3.vbp,运行情况如图所示。程序的 是计算如下表达 的：z=(x-2)!+(x-3)!+(x-4)!+(x-N)!其 的N和x 键盘分别输 个文本框Text1 、Text2 。 名称为Command1、标题为“计算”的命令按钮， 计算表达 的，并计算 示在名称为Labell的标签 。在窗体文件 出控件和程序，程序不整请 程序 的注， 程序 的为正的 。要求：程序调试 后，必须按 如图所示输 N=5，x=12,然后计算z的，并计算 示在标签Labell ， 。注意：不 程序的其他分和控件属性。 后的文件按 文件名存盘。Private Function xn(m As Integ
9、er) As LongDim i As IntegerDim tmp As Longtmp = ?For i = 1 To mtmp =?Next? = tmpEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As IntegerDim z As Long, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x - iz = z + ?NextLabel1.Caption = zCall Save
10、ResultEnd SubPrivate Sub SaveResult()Open App.Path MEnd SubPrivate Sub Form_Load()End Sub3. 应用（1小题，计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26180103在窗体上建立三个菜 （名称分别为Read、Calc 和Save,标题分别为“ 据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2）（如图所示）。程序运行后，如 ”行“ 据”命令， datainl.txt文件 的100个整 ，放 一个 ，
11、的下界为1；如 “计算并输出”按钮， 的下标为 的 在文本框 示出，求出 的和，并 所求 的和在窗体上 示出；如 “存盘”按钮，求出 的和并所求 的存 考生文件夹下的dataout.txt 文件 。在考生文件夹下的 一个工程文件sjt5.vbp，考生可装 文件。窗体文件 的ReadData 程可以 datainl.txt文件 的100个整 Arr ； WriteData 程可以 指定的整 考生文件夹下指定的文件 （整 计算求 ，文件名为dataout.txt）。注意：考生不 窗体文件 存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm第 一套1. 基本操作（2小
12、题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26180101请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。(1)在名称为Form1的窗体上画 个标签（名称分别为Label1和Label2,标题分别为“ 名”和“ ”）、 个文本框（名称分别为Text1和Text2，Text属性均为currency1 ）和一个命令按钮（名称为Command1,标题为“ 示”）。然后 命令按钮的Click 件 程。程序运行后，在 个文本框 分别输名和 ，然后 命令按钮， 在窗体上 示 个文本框 的 ，如图所示。要求程序 不 用任” 。注意：存盘时必须
13、存放在考生文件夹下，工程文件名为sjt1.vbp,窗体文件名为sjtl.frm。(2)在名称为Form1的窗体上面画一个图片框（名称为Picturel）、一个水平 动 （名称为Hscroll1）和一个命令按钮（名称为Command1,标题为“设置属性”）， 属性窗在图片框 装 一个图形（文件名为pic1.jpg，位于考生目录下），图片框的高与图形的高相 ，图片框的宽任意（如图1所示）。 适当的 件 程，程序运行后，如 命令按钮， 设置水平 动 的如下属性：Min 100Max 1500LargeChange 100SmallChange 10后就可以 动 动 上的 动块放大或缩小图片框。运行后
14、的窗体如图2所示。要求程序 不 用任” 。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp。窗体文件名为sjt2.frm。2. 应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹”均为C:WEXAM26180101在考生文件夹下 一个工程文件sjt3.vbp（相应的窗体文件名为sjt3.frm），请装 文件，在窗体上画一个 表框（名称为List1）和一个文本框（名称为Text1），如图1所示。 窗体的MouseDown 件 程。程序运行后，如 用鼠标左键 窗体， 键盘上输 要添 表框 的项目（ 任意，不 于三个）；如 用鼠标键 窗体， 键盘上的输 要 的项目，其
15、表框 。程序的运行情况如图2所示。提 的窗体文件可以现上 。这个程序不整，请 充整。要求： 程序 的注， 程序 的为适当的 ， 其正运行，不 程序 的其他分。最后 后的文件按 文件名存盘。Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)If Button = 1 ThenText1.Text = InputBox(“请输 要添的项目“)List1.AddItem ?End IfIf Button = 2 ThenText1.Text = InputBox(“请输
16、要 的项目“)For i = 0 To ?If List1.List(i) = ? ThenList1.RemoveItem ?End IfNext iEnd IfEnd Sub(2)在考生文件夹下 一个工程文件sjt4.vbp（相应的窗体文件名为sjt4.frm），其 是 调用 程FindMin求 的最小，请装 文件。程序运行后，在四个文本框 各输 一个整 ，然后 命令按钮，即可求 的最小，并在窗体 示出（如图所示）。这个程序不整，请 充整，并 正运行。要求： 程序 的注， 程序 的为正 ， 其现上 ，不 程序 的其他分。最后后的文件按 文件名存盘。Option Base 1Private
17、Function FindMin(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = ?(a)Finish = ?(a)Min = ?(Start)For i = Start To FinishIf a(i) ? Min Then Min = ?Next iFindMin = MinEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1.Text), Val(Te
18、xt2.Text), Val(Text3.Text), Val(Text4.Text)For i = 1 To 4arr2(i) = CInt(arr1(i)Next iM = FindMin(?)Print “最小是: “; MEnd Sub3. 应用（1小题，计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26180101在窗体上建立三个菜 （名称分别为Read、Calc 和Save,标题分别为“ 据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2）（如图所示）。程序运行后，如 ”行“ 据”
19、命令， datainl.txt文件 的100个整 ，放 一个 ， 的下界为1；如 “存盘”按钮，求出 的和并 所求 的存 考生文件夹下的dataout.txt文件 。在考生文件夹下的 一个工程文件sjt5.vbp，考生可装 文件。窗体文件 的ReadData 程可以 datainl.txt文件 的100个整 Arr ； WriteData 程可以 指定的整 考生文件夹下指定的文件 （整 计算求 ，文件名为dataout.txt）。注意：考生不 窗体文件 存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为第 二套1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考
20、试文件夹”均为K:k2526180207请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Forml的窗体上画一个命令按钮,其名称为Commandl(如图1所示),然后 属性窗设置命令按钮的属性,现如下 :1)窗体标题为“设置按钮属性”2）命令按钮的标题为“等级考试”3）程序运行后，命令按钮不 示4）命令按钮的标题用三号 体 示程序的运行情况如图2所示。要求：不 任”代码。* 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（2）在名称为Forml的窗体上画一个标签，其名称为Labell，在属性窗 Bor
21、derStyle属性设置为1(如图1所示), 适当的 件 程。程序运行后，如 窗体， 可 标签 窗体的上 （ 在程序 适当属性现）。程序的运行情况如图2所示。要求：不 用任” 。*注意：存盘时必须放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。2. 应用（2小题，每题20分，计40分）注意：下面出现的“考试文件夹”均为C:WEXAM26180207(1)在考生文件夹下 一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 其 是生30个01000的 机整 ，放 一个 ，然后输出其 的最小。程序运行后， 命令按钮（名称为Commandl,标题为“输出最小
22、”），即可求出最小，并在窗体上 示出(如图所示)。这个程序不整，请 充整，并 正运行。要求： 程序 的注， 程序 的为正的 ， 其现上 ，不 程序 的其他分。最后 后的文件按 文件名存盘。Option Base 1Private Sub Command1_Click()Dim arrN(30) As IntegerDim Min As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * ?)Next i? = arrN(1)For i = 2 To 30If ? ThenMin = arrN(i)End IfNext iPrint MinEnd
23、 Sub（2）在考生文件夹下 一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上 一个命令按钮和一个文本框。程序运行后， 命令按钮，即可计算出01000 不 被7整的个 ，并在文本框 示出。在窗体的代码窗 ， 出分程序，其 计算不 被7整的整 的个 的操作在用 程Fun 现，请 程的代码。要求：请 动程序 的任” ， 在Function Fun() 和End Function 填 的若 。最后后的文件按 文件名存盘。Sub SaveData()Open App.Path :再画 个命令按钮,名称分别为C1,C2,标题分别为“是”，“”，高均为300，宽均为800。如图所示
24、。 请在属性窗 设置适当属性满足一下要求：1）窗体标题为“ ”，窗体标题 下不 示最大化和最小化按钮；2）在任”情况下，按回 键都相当于 “是”按钮；按ESC键都相当于 “”按钮。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（2）在名称为Form1的窗体上画一个文本框，名称为Text1，其宽为1000；再画一个 动 ，名称为HS1。其 的 是1000-2000。请 动 的Change 件 程，程序运行后，如 动 动框，可按 动 的 文本框的宽。运行时的窗体如图所示。程序 不 用任” ， 件 程 一 。*注意：保存时必须存放在考生文件夹下，工
25、程文件名为sjt2.vbp，窗体文件名为sjt2.frm2 (1)在考生文件夹下 一个工程文件sjt3.vbp ,窗体上 个 表框,名称分别为 List1,List2 ,在List2 设 ; 个命令按钮,名称分别为C1,C2,标题分别为“添”,“”.如图所示.程序的 是在运行时,如 边 表框 的一个 表项, “添”按钮, 项 左边的 表框;若 左边 表框 的一个 表项, “”按钮, 项 回边的 表框 .文件 出所 控件和程序,程序不整,请 程序 的注, 程序 的?为正的 .不 程序 的其他分,不 控件的属性.最后 后的文件按 文件名存盘。Private Sub C1_Click()Dim k
26、As Integerk = 0 While (k P2.Top + P2.? ThenP1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.HeightElse Timer1.? = FalseEnd IfEnd Sub（2）在考生文件下 一个工程文件sjt4.vbp，窗体上 个文本框，名称分别为Text1、Text2；和一个命令按钮，名称为C1，标题为“定”；请画 个 按钮，名称分别为Op1、Op2，标题分别为“男生”、“女生”；再画 个复 框，名称分别为Ch1、Ch2，标题分别为“体”、“ ”。请 适当的件 程， 在运行时， “定”按钮后现下面的要求：
27、1) 根据 的 按钮，在Text1 示“我是男生”或“我是女生”。2) 根据 的复 框，在Text2 示“我的 是体”或“我的 是 ”或“我的 是体 ”。如图所示。注意：不 出的程序和 控件的属性。在程序运行 ，必须 一个 按钮和 一个复 框，并 “定”按钮。必须 用窗体上 的按钮程序， 。Private Sub Form_Unload(Cancel As Integer)Open “out4.txt“ For Output As #1Print #1, Op1.Value, Op2.Value, Text1.TextPrint #1, Ch1.Value, Ch2.Value, Text2.
28、TextClose #1End Sub3 应用（1小题，计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26170102在考生目录下 一个工程文件sjt5.vbp，其窗体上 一个文本框，名称为Text1； 个命令按钮，名称分别为C1、C2,标题分别为“计算”、“存盘”，如图所示。并 一个函 程isprime可以在程序 直接调用，其 是判断参 a是为 ，如 是 ， 返回True， 返回False。请 适当的 件程， 在运行时， “计算”按钮 找出小于18000的最大的 ，并 示在Text1 ； “存盘”按钮， Text1 的计算 存 考生目录下的out5.txt 文件 。注意：考生不
29、isprime函 程和控件的属性，必须 计算 “存盘”按钮存 out5.txt文件 ， 。第 套1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为C：WEXAM26180225请根据以下个小题的要求设计Visual Basic应用程序（包括界面和代码）。(1)在名称为Forml的窗体上建立一个名称为0p1的 按纽 ， 三个 按钮， 的标题 为“ 择1”、“ 择2”、“ 择3”，其下标分别为0，1，2， 状fi下，“ 择2”为 状fi。运行后的窗体如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp,窗体文件名为sjt1.frm(2)在窗体
30、上建立一个二级菜 ，第一级 2个菜 项，标题分别为“ 辑”、“帮助”，名称分别为edit、help.其 “ 辑”菜 子菜 ，共 3个菜 项，其标题 为“剪切”、“复”、“粘贴”，名称分别为“cut”、”copy”、“paste”(如图所示)。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。2 应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹“均为C：WEXAM26180225(1)在考生文件夹下 一个工程文件sjt3.vbp, 的 是在运行时 示名为Form2的窗体， Form2上的“C2“按钮， 示名为Form1的窗体；For
31、m1上的“C1“按钮， Form1的窗体。这个 程并不整 要求：Form2设为启动窗体； Form1上的按钮的标题为“ “， Form2上按钮的标题 为“ 示”。 程序 的注， 程序 的为正的 ， 起现上 ，不程序 的其他分。最后 后的文件存盘。工程文件和窗体文件仍以 的文件名存盘。正程序运行后的界面如图所示。Private Sub C1_Click()Form1.Visible = ?End SubPrivate Sub Form_Load()End SubPrivate Sub C2_Click()Form1.Visible = ?End SubPrivate Sub Form_Load(
32、)End Sub(2)在考生文件夹下 一个工程文件sjt4.vbp, 的 是在文本框 输 一个整 ， “ 动”按钮后，如 输 的是正 ， 动 的 动框向 动与 相等的 ，如 动 的最大 ， 不 动，并 示“文本框 的 太大”；如 输 的是负 ， 动 的 动框向左 动与 相等的 ，如 动 的最小 ， 不 动，并 示“文本框 的 太小”，如图所示。要求： 程序 的注， 程序 的为正的 ， 其现上 ，不 程序 的其他分，不 控件的属性。最后 后的程序以 的文件名存盘。Private Sub C1_Click() If HS1.Value + Text1.Text HS1.? ThenMsgBox “文本框 的 太大“ ElseIf HS1.Value + Text1.Text ? ThenMsgBox “文本框 的 太小“Else ? = HS1.Value + Text1.TextEnd IfEnd SubPrivate Sub Form_Load()
