1、全国计算机等级考试二级VB上机套题共90套，含试题评析（1-45）套试卷一一、基本操作题（2小题，每小题15分，共计30分）请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体如图所示。*注意：存盘时必须存放在考生文件下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2. 在名称为Form1的窗体上画一个名称为Sha
2、1的形状控件，然后建立一个菜单，标题为“形状”，名称为shape()，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shape1和shape2，如图所示，然后编写适当的程序。程序运行后，如果 “正方形”菜单 ， 形状控件 示为正方形 如果 “圆形”菜单 ， 窗体上的形状控件 示为圆形。*注意：程序 用 ，每个 件 程 写一 。 存时必须存放在考生文件 下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。二、 单应用题（2小题，每题20分，共计40分）1.在考生文件 下有一个工程文件sjt3.vbp，窗体上 有两个文本 ，名称分别为Text1、Text2 和一个命
3、令按钮，名称为C1，标题为“ ” 请画两个单 按钮，名称分别为Op1、Op2，标题分别为“ 生”、“ 生” 画两个 ，名称分别为Ch1、Ch2，标题分别为“体”、“ ”。请编写适当的 件 程，在运行时，单“ ”按钮后下面的操作：1）根据 的单 按钮，在Text1 示“是 生”“是 生”。2）根据 的 ，在Text2 示“的currency1是体 ”“的currency1是 ”“的currency1是体 ”。如图所示。*注意：“ fi的程序和 有控件的属性。在fl 程序运行，必须 一个单 按钮和一个 ， 单“ ”按钮。必须 用窗体上的按钮fl 程序，否 ”。2.在考生文件 下有一个工程文件sjt
4、4.vbp。窗体上有一个名称为List1的 ，名称为Timer1的计时，名称为Label1的标 ，如图所示。请 属性窗口 个 ，分别是：“一 ”、“二 ”、“三 ”、“ ”。程序运行后，计时的时 设为1 ，每一 取fi一个 示在Label1的标 ， 示“一 ”，然后，依次 示“二 ”、“三 ”、“ ”，如 。在fi的窗体文件 有 全 控件和程序， ，请List1 的 ， 程序 的注 ， 程序 的?为正 的 。*注意：考生 “工程 存在的 和控件属性， 后 后的文件按 文件名存盘。三、 应用题（1小题，共计30分）在窗体上画1个文本 ，名称为Text1( 示 行)，然后 画三个命令按钮，名称分别
5、为Command1，Command2和Command3，标题分别为“ 数”，“ 计”和“存盘”，如图所示。程序的 是：单“ 数”按钮， 考生下的in5.txt文件 的所有文 放Text1（ 行 示） 单“ 计”按钮， fi 计文 i，j，k，l，m，n（ 分 小写）各 fi的次数 单“存盘”按钮， infi的次数的 计fl果依次存考生下的 序文件out5.txt 。*注意：存盘时必须存放在考生文件 下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。试题评析：在VB 有 操作方 题面要求，本评析 分 fi其 一 方 ， 考。一、基本操作题1题：建立一个的工程，工按钮控件，在Form
6、1上 fi一个名称为“Command1”的按钮。在窗体上 该按钮 贴，系 提示是否建立控件数据， “建立”， 两个命令按钮。按钮的“Caption”属性分别设为“是”，“否”，“取消”，所有命令按钮的“Height”属性和“Width”属性都设为“300”、“800”。单 窗体，“Caption”属性设为“按钮窗口”。存工程文件为：sjt1.vbp，窗体文件名为：sjt1.frm。2题：建立一个的工程， “工”菜单的“菜单编辑” ，按照要求建立标题为“形状”、名称为“Sha1”的一级菜单， 在Sha1下建立标题为“正方形”、名称为“Shape1”和标题为“圆形”、名称为“Shape2”的二级菜
7、单。单菜单“形状”的“正方形”，在代码 ：sha1.shape=1单菜单“形状”的“圆形”，在代码 ：sha1.shape=3存工程文件为：sjt2.vbp，窗体文件名为：sjt2.frm。二、 单应用题1题： 工栏的“打开工程”按钮，在考生文件 下 sjt3.vbp文件 打开。工上的“OptionButton”控件，在窗体Form1上 一个名称为“Option1”的单 按钮，在属性窗口上 该控件的名称属性设为“Op1”，标题属性设为“ 生”。用同样的方 创建一个名称为“Op2”，标题属性为“ 生”的单 按钮。工上的“CheckBox”控件，在窗体Form1上 一个名称为“Check1”的 ，
8、在属性窗口上 该控件的名称属性设为“Ch1”，标题属性设为“体 ”。用同样的方创建一个名称为“Ch2”，标题属性为“ ”的 。键单Form1窗体，执行“查看代码”命令，在代码窗体 ，输如下代码：Private Sub C1_Click()Text1.Text = “是“Text2.Text = “的currency1是“If Op1.Value Then Text1.Text = Text1.Text + Op1.CaptionIf Op2.Value Then Text1.Text = Text1.Text + Op2.CaptionIf Ch1.Value Then Text2.Text
9、= Text2.Text + Ch1.CaptionIf Ch2.Value Then Text2.Text = Text2.Text + Ch2.CaptionEnd Sub单工栏上的“ 存工程”按钮， 后的程序存盘。2题：Dim i As IntegerPrivate Sub Form_Load()i = 0 i = ?Timer1.Interval = 1000 Timer1.Interval = ?Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption = List1.List(i) Label1.Cap
10、tion = ?If i = 3 Theni = 0Elsei = i + 1End IfEnd Sub三、 应用题在考试下建工程文件sjt5.vbp。一个文本 控件， 它的“MultiLine”属性设为True。三个命令按钮，“Caption”属性分别设为“ 数”、“ 计”和存盘。考程序如下：Dim TextStr As StringDim b As Integer, a As Integer, k As Integer, g As IntegerDim c As Integer, d As Integer, e As Integer, f As IntegerPrivate Sub Com
11、mand1_Click()Dim TextStr, SubStr As StringTextStr = “Open App.Path & “in5.txt“ For Input As #1Do While Not EOF(1)Line Input #1, SubStrTextStr = TextStr & SubStrLoopClose #1Text1.Text = TextStrEnd SubPrivate Sub Command2_Click()b = 0c = 0d = 0e = 0f = 0g = 0q = 1Doa = InStr(q, LCase(Text1.Text), “i“)
12、If a 0 Thenb = b + 1End Ifq = a + 1Loop Until a = 0q = 1Doa = InStr(q, LCase(Text1.Text), “j“)If a 0 Thenc = c + 1End Ifq = a + 1Loop Until a = 0q = 1Doa = InStr(q, LCase(Text1.Text), “k“)If a 0 Thend = d + 1End Ifq = a + 1Loop Until a = 0q = 1Doa = InStr(q, LCase(Text1.Text), “l“)If a 0 Thene = e +
13、 1End Ifq = a + 1Loop Until a = 0q = 1Doa = InStr(q, LCase(Text1.Text), “m“)If a 0 Thenf = f + 1End Ifq = a + 1Loop Until a = 0q = 1Doa = InStr(q, LCase(Text1.Text), “n“)If a 0 Theng = g + 1End Ifq = a + 1Loop Until a = 0Text1.Text = b & vbCrLf & c & vbCrLf & d & vbCrLf & e & vbCrLf & f & vbCrLf & g
14、 & vbCrLfEnd SubPrivate Sub Command3_Click()Open App.Path & “out5.txt“ For Output As #1Print #1, b, c, d, e, f, gClose #1End Sub存工程文件。试卷二一、基本操作题（2小题，每小题15分，共计30分）请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1的窗体上画1个命令按钮，其名称为C1，标题为“等级考试” 画1个文本 ，名称为T1，如图1所示。编写适当的 件 程。运行后，一旦文本 的信息有任何 化输任何信息， 命令按钮消
15、失， 命令按钮的标题在文本 示fi来，如图2所示。*注意：存盘时，文件 存考生文件下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。图1 图22. 在名称为Form1，标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标 建立一个菜单，各菜单 的属性设如下 。窗体外观如图1所示。标题名称缩进附件menu ”输fi窗体标题Title 输fi当时 Clock 请编写适当的程序， “ “输fi窗体标题”菜单 时，就在标 示窗体标题， “输fi当时 ”菜单 时，在标 示当系 时 （如图2所示）。要求程序 “ 用 ，每个 件 程写一 。*注意：存盘时，文件 存考生文件 下，且
16、窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。图1 图2二、 单应用题（2小题，每题20分，共计40分）1.在考生文件 下有一个工程文件sjt3.vbp，其 是：1）单“ 数据”按钮， 考生文件 下in3.dat文件 的100个按升序排的 数 数组a ，同时 示在Text1文本 2）单“查 ”按钮， 提示用户输查 的数， 用二分 在数组a 查 该数，若查 ， 在Text2文本 示该数在数组 的位，否 示查 失败。提示：二分 查 的思路是，查 值与有序数组的 元素进行比较，若相同 查 fl 否 判断查值落在数组的上半 分还是下半 分， 继续在那一半的数组 重 上述查 程。要求：请窗
17、体的标题设为“二分 查 ”， “查 ”命令按钮的Click 件 程 的注 ， ？为正 ，以上述程序 。下图所示的是运行时输数值68的查 fl果。*注意：考生 “窗体文件 存在的控件和程序。 后，程序按 文件名存盘。2.在考生文件 下有一个工程文件sjt4.vbp。运行程序，按下鼠标左键， 在窗体上拖 鼠标时，沿鼠标移 在窗体上画fi一系圆，如图所示。fi的程序 ，要求 程序 的注 ， 程序 的？为正 的 。*注意：考生 “窗体文件 存在的控件和程序， 后程序按 文件名存盘。三、 应用题（1小题，共计30分）在考生文件 下有一个工程文件sjt5.vbp。程序的 为：在文本 Text1 输一个正
18、数N后，单“计算”按钮， 计算11+22+33+NN， 计算fl果 示在Text2 。程序 的函数f以计算mm的值。在fi的窗体文件 有 全 控件， 程序 。要求： 程序 的注 ， 程序 的?为正 的 ， 编写相应的程序，程序的 ， 且必须在运行时计算N=8时的fl果。*注意：程序的其他 分和控件属性。 后 程序后的文件按 文件名存盘。程序调试 后，必须计算N=8时的fl果，否 ”。试题评析：在VB 有 操作方 题面要求，本评析 分 fi其 一 方 ， 考。一、基本操作题1题：建一个工程，工上的“TextBox”控件，在窗体Form1上 一个文本 ，在属性窗口 “Text1”的名称属性设为“T
19、1”， “Text1”的“Text”属性设为空白。工上的“CommandButton”控件，在窗体Form1上 一个命令按钮，在属性窗口 “Command1”名称属性设为“C1”， “Caption”属性设为“等级考试”在窗体上文本 ，在代码窗体 写下如下代码：Private Sub T1_Change()C1.Visible = FalseT1.Text = C1.CaptionEnd Sub单标准工栏 的“ 存工程”按钮， 考生文件 ，以文件名为：sjt1.frm和sjt1.vbp分别存窗体文件和工程文件。2题：建立一个的工程， “工”菜单的“菜单编辑” ，按照要求建立标题为“附件”、名称
20、为“menu”的一级菜单， 在menu下建立标题为“输fi窗体标题”、名称为“Title”和标题为“输fi当时 ”、名称为“Clock”的二级菜单。单菜单“附件”的“输fi窗体标题”，在代码 ：Label1.caption=form1.caption单菜单“附件”的“输fi当时 ”，在代码 ：Label1.caption=time()存工程文件为：sjt2.vbp，窗体文件名为：sjt2.frm。二、 单应用题1题： Private Sub Command2_Click()Dim low As Integer, high As IntegerDim flag As IntegerText2.T
21、ext = “x = InputBox(“请输需要查 的数“, “输“)low = LBound(a)high = UBound(a)Dom = (low + high) 2 ? = (low + high) 2Select Case a(m)Case Is = xflag = 1Exit DoCase Is xhigh = m high = ?Case Elselow = m low = ?End SelectLoop Until flag = 1 Loop Until ?If flag = 1 Then If ? ThenText2.Text = “查 ，该数的位为“ + Str(m) +
22、 “！“ElseText2.Text = “查 失败，该数 存在！“End IfEnd Sub2题：Dim Flag As BooleanPrivate Sub Form_Load()DrawWidth = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then If Button = ? ThenFlag = TrueEnd IfEnd SubPrivate Sub Form_MouseMove(Button As I
23、nteger, Shift As Integer, X As Single, Y As Single) Private Sub Form_?(Button As Integer, Shift As Integer, X As Single,Y As Single)If Flag ThenCircle (X, Y), 300 ? (X, Y), 300End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenFlag =
24、 False Flag =?End IfEnd Sub三、 应用题Private Sub Command1_Click()=考生编写程序开始=Dim i As IntegerIf Text1.Text 0 ThenFor i = 1 To Text1.Textw = w + f(i)NextText2.Text = wElseText2.Text = “输错误“End If=考生编写程序fl =Open App.Path & “out5.dat“ For Output As #1Print #1, Text1, Text2Close #1End SubPrivate Function f(m
25、As Integer) As Longs = 1 s = ?For i = 1 To ms = s * m s = s * ?Nextf = s f = ?End Function试卷三一、基本操作题（2小题，每小题15分，共计30分）请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1，标题为“图片练习”的窗体上画1个名称为Image1、宽和高分别为1800和1200的图像 ，设属性 图像 的图形 放 缩小以与图像 的 小相适应。 后在图像 示考生文件 下的图片文件“pic1.jpg”。运行后的窗体如图所示。*注意：存盘时，文件 存考生文件下
26、，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。2. 在名称为Form1，标题为“ 练习”的窗体上画1个名称为List1的 ， 依次输“ 球时报”、“人物”、“探索”和“ 者” 画2个标题分别为“ ”和“移 ”的命令按钮C1和C2。如图所示。要求：编写适当的 件 程， “单“ ”按钮，以 的 有 的尾 单“移 ”按钮，以 的 删除。*注意：存盘时，文件 存考生文件 下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序 “ 用 ，每个 件 程 写一 。二、 单应用题（2小题，每题20分，共计40分）1.考生文件 下的工程文件sjt3.vbp 有2个初始标题分别是
27、“移 ”和“退fi”的命令按钮 1个初始状态为 用的时 Timer1。请画1个标 Label1，其标题为“计算机考试”， 示格式为黑体小号，左边界为500，且 根据 示 调 小。如图所示。程序 如下：1）单标题为“移 ”的按钮时，该按钮标题 换为“暂停”，且标 在窗体 开始移 。当标 侧窗体边时，标 移 方 为左移 当标 左侧触及窗体左边缘时，标 移 方为左移 。2）单标题为“暂停”的按钮时，该按钮的标题 换为“移 ”， 暂停标题 的移 。3）单“退fi”按钮， fl 程序运行。命令按钮的Click 件 程 fi， 件 程 ，请其 的注 ， ？为正 的 ，以上述程序 。*注意：“窗体文件 存在
28、的控件和程序。 后后的文件按 文件名存盘。2.考生文件 下有一个工程文件sjt4.vbp 有1个标题为“编号”的标 Label1，1个用于接收 手编号的初始 为空的文本 Text1 另有1个含有10个元素的标 控件数组Label2用于 示评委名称：“评委1”、“评委2”、，1个含有10个元素的文本 控件数组Text2用于接收10个评委对某 手的打分 还有1个标题为“ 计“分”的命令按钮。请 画2个根据 示 调 小、标题分别为“ 手编号”和“分”的标 Label3和Label4，1个图片 Picture1，如图所示。程序 如下：在Text1文本 输 手编号， 在Text2文本 控件数组 输10个
29、评委对该 手打分情况后，单“ 计“分”按钮， 对10个评委的打分 一个 低分和一个 高分后求平均，该分即为 手的 后“分。后 手编号和“分 示在图片 Picture1 ， Text1、Text2的 为空。命令按钮的Click 件 程 fi， 件 程 ，请其 的注 ， ？为正 的 ，以上述程序 。*注意：考生 “窗体文件 存在的控件和程序， 后程序按 文件名存盘。三、 应用题（1小题，共计30分）在考生文件 下的工程文件sjt5.vbp 有1个初始 为空的文本 Text1，2个标题分别是“ 数据”和“计算”的命令按钮 请画1个标题为“各行 小数的平均值为”的标 Label2， 画1个初始 为空的
30、文本 Text2，如图所示。程序 如下：1）单“ 数据”按钮， 考生文件 下in5.dat文件的 20行5的二维数组a ， 同时示在Text1文本 2）单“计算”按钮， 计二维数组 各行的 小数， 这些 小数的平均值 示在Text2文本。“ 数据”按钮的Click 件 程 fi，请编写“计算”按钮的Click 件 程上述 。*注意：考生 “窗体文件 存在的控件和程序，在fl 程序运行，必须进行“计算”，且必须用窗体上的按钮fl 程序，否 ”。 后，程序按 文件名存盘。试题评析：在VB 有 操作方 题面要求，本评析 分 fi其 一 方 ， 考。一、基本操作题1题：建一个工程，工上的Image控件
31、，在Form1窗体上 fi一个名称为“Image1”的图像 ，“Height”属性和“Width”属性分别设为“1200”和“1800”。 “Picture”属性图像装载Pic1.jpg图片，“Stretch”属性设为“True”， “图像 放 缩小。设窗体的“Caption”属性为“图片练习”。存工程文件为：sjt1.vbp，窗体文件名为：sjt1.frm。2题：建立一个的工程，工上的ListBox控件，在Form1窗体上 fi一个名称为“List1”的 ，在List属性 “ 球时报”、“人物”、“探索”和“ 者”。工上的“CommandButton”控件，在Form1窗体上 fi名称为“C
32、ommand1”的命令按钮，同样方 名称为“Command2”的按钮。 这两个按钮名称为“C1”和“C2”， 它们的“Caption”属性分别设为“ ”和“移 ”。“C1”按钮，在代码窗口输代码：Private Sub C1_Click()List1.AddItem (List1.List(List1.ListIndex)End SubPrivate Sub C2_Click()List1.RemoveItem (List1.ListIndex)End Sub存工程文件为：sjt2.vbp，窗体文件名为：sjt2.frm。二、 单应用题1题： 打开考试下工程文件sjt3.vbp，工上的标 ，在
33、窗体上一个标 ，设它的Caption为“计算机考试”，Font属性为黑体、小号，left属性为500，Autosize的属性为True。下面为代码：Dim flag As IntegerPrivate Sub Form_Load()flag = 0End SubPrivate Sub Command1_Click()If Command1.Caption = “移 “ ThenTimer1.Enabled = True Timer1.Enabled = ?Command1.Caption = “暂停“ElseTimer1.Enabled = FalseCommand1.Caption = “移
34、 “End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer()Select Case flagCase Is = 0Label1.Left = Label1.Left + 100 Label1.Left = Label1.Left ? 100If Label1.Left + Label1.Width = Form1.Width Then flag = 1Case Is = 1Label1.Left = Label1.Left - 100 Label1.Left = Label1.Left ? 100
35、If Label1.Left = 0 Then flag = 0End SelectEnd Sub2题：打开考试下工程文件Sjt4.vbp，工上的图片 ，在窗体上一个图片 Picture1。代码如下：Private Sub Command1_Click()If Len(Text1) = 0 ThenMsgBox “ 手编号 为空，请检查！“, , “检查“Exit SubEnd IfFor n = 0 To 9If Len(Text2(n) = 0 ThenMsgBox “评委分 为空，请检查！“, , “检查“Exit SubEnd IfNext nMax = Val(Text2(0): M
36、in = Val(Text2(0)Sum = Val(Text2(0)For n = 1 To 9 For n = ? To 9Select Case Val(Text2(n)Case Is Max Case Is ? MaxMax = Text2(n)Case Is a(i, j) Then min = a(i, j)NextSum = Sum + minNextText2.Text = Sum / 20考生编写fl End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & “out5.dat“ For Output A
37、s #1Print #1, Text2.TextClose #1End Sub 试卷一、基本操作题（2小题，每小题15分，共计30分）请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form1的窗体上画fi如图所示的三形。下 fi 直线Line1、Line2的 标值，请按 画Line1、Line2， 画fi直线Line3， 组如图所示的三形。名称X1 Y1 X2 Y2Line1 6001600 1600 600Line2 6001600 2600 1600*注意：存盘时，文件 存考生文件下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。2
38、.在名称为Form1的窗体上画一个名称为List1的 ， 任意输若 画一个名称为Text1的文本 ，”初始 。请编写List1和Text1的Click 件 程。程序运行后，如果单 的某一， 在文本 示该 相应的 序号，即：若单一 ， 在文本 示1，若单二 ， 在文本 示2，依 （如图所示） 如果单文本 ， 该 的 示在文本 。*注意：要求程序 “ 用 ， 件 程 写一 。存盘时必须存放在考生文件 下，工程文件名为sjt2.vbp，窗体文件名sjt2.frm。二、 单应用题（2小题，每题20分，共计40分）1.在考生文件 下有一个工程文件sjt3.vbp，有两个名称分别为Form1和Form2的
39、窗体，Form1为窗体，程序执行时Form2 示。Form1 有菜单（如图1所示），程序运行时，若单“格式”菜单， 示Form2窗体（如图2所示）， 一 号和体后单“ ”按钮， Form1上的文本 的号和体， Form2窗体消失。若单“退fi”菜单 ， fl 程序的运行。文件 fi 所有控件和程序， 程序 ，要求：1）用属性窗口设适当的属性， Form1窗体标题栏上的 、 小化按钮消失（如图1所示） 2）用属性窗口 Form2窗体的标题设为“格式”（如图2所示） 3）请 程序 的注 ， 程序 的？为正 的 。*注意：程序 的其他 分和其他控件的属性。 后后的文件按 文件名存盘。图1 图22.考
40、生文件 下有一个工程文件sjt4.vbp，包含 所有控件和 分程序。程序运行时，请按以下 序操作：1）单“ 数据”按钮， 考生文件 下的文件in4.dat 的100个 数 数组a 2）名称为Combo1的组 一 （如图所示）。3）单“计算”按钮， 按该 的要求对a 的数计算平均值 放文本 。4）单窗体上的按钮fl 程序。“ 数据”按钮的Click 件 程 fi，请为“计算”按钮编写适当的 件 程上述 。提示：存n个数和的 应 用Long 。*注意：“ 存在的程序，在fl 程序运行，必须 后计算一次“80个数”，且必须用窗体上的按钮fl 程序，否 ”。 后，程序按 文件名存盘。三、 应用题（1小
41、题，共计30分）在考生文件 下有一个工程文件sjt5.vbp。窗体左边的图片 名称为Picture1， 还有 个小图片，它们是一个数组，名称为Pic，在窗体边上下有三个 示 同物 的图片 ，名称分别为Picture2、Picture3、Picture4，还有一个文本 Text1以及个标 ，如图1所示。程序运行时，以用鼠标拖 的方 边的物 放左边的图片 （边的物 ），同时 该物 的 格 Text1 ，如图2所示。 放 个物 。 的方 是：程序 运行时，Picture1 的图片 数组 示，当拖 一次物 时，就 示一个图片 数组元素， 在该图片 数组元素 载相应的图片， 生物 放的 果。文件 fi
42、所有控件和程序， 程序 ，请 程序 的注 ， 程序 的？为正 的 。*注意：“ 存在的 和控件属性， 后 后的文件按 文件名存盘。图1图2试题评析：在VB 有 操作方 题面要求，本评析 分 fi其 一 方 ， 考。一、基本操作题1题：建一个工程，工上的Line控件，在Form1窗体上 fi一个名称为“Line1”的直线，“Line1”的X1、X2、Y1、Y2属性按照图 所信息进行设。同 ，建一 “Line2”的直线 按照图示设X1、X2、Y1、Y2的 标值。然后 建三 直线Line3，根据Line1和Line2的 标以及形三形的 件，“ ，Line3的X1和Y1 标值分别是Line1的X2和Y
43、2 标值，Line3的X2和Y2 标值分别是Line2的X2和Y2 标值。存工程文件为：sjt1.vbp，窗体文件名为：sjt1.frm。2题：建立一个的工程，工上的ListBox控件，在Form1窗体上 fi一个名称为“List1”的 ，在List属性 输若 ， 如：1 ，2 ，3 ，。然后工上的“TextBox”控件，在Form1窗体上 fi名称为“Text1”的文本 ，“Text1”文本 的“Text”属性设为空。在Form1上“List1”控件，在代码窗口输如下代码：Text1.Text=List1.ListIndex+1存工程文件为：sjt2.vbp，窗体文件名为：sjt2.frm。
44、二、 单应用题1题： 打开考试下工程文件sjt3.vbp。在窗体侧的工程1上单鼠标键，在打开的 菜单上 “工程1属性”，在 fi的对 ，“Form1”设为“ 对 ”，单 。1）Form1的MaxButton和MinButton属性都设为False。2）Form2的Caption属性为“格式”。3）后的代码如下：Private Sub menu2_Click()Form2.Show ? .ShowEnd SubPrivate Sub Command1_Click()If List1.Text = 0 ThenForm1.Text1.FontName = List2.List(List2.List
45、Index) Form1.Text1.FontName= List2.List(List2. ? )End IfForm2.Visible = False Form2.Visible = ?End Sub存工程文件sjt3.vbp。2题：打开考试下工程文件Sjt4.vbp。考生的代码如下：Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen “in4.dat“ For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate S
46、ub Command2_Click()考生应 的程序开始Dim sum As Longsum = 0If Combo1.ListIndex = 0 ThenFor k = 1 To 50sum = a(k) + sumNext kText1.Text = sum / 50End IfIf Combo1.ListIndex = 1 ThenFor k = 1 To 80sum = sum + a(k)Next kText1.Text = sum / 80End IfIf Combo1.ListIndex = 2 ThenFor k = 1 To 100sum = sum + a(k)Next k
47、Text1.Text = sum / 100End If考生应 的程序fl End SubPrivate Sub Form_Unload(Cancel As Integer)Open “out4.dat“ For Output As #1Print #1, Combo1.Text, Text1.TextClose #1End Sub存工程文件sjt4.vbp。三、 应用题打开考试下工程文件sjt5.vbp。的代码如下：Dim str As String, a As IntegerPrivate Sub Picture1_DragDrop(Source As Control, X As Single, Y As Si
