二级vb上机试题及答案

1 / 23 Vb试题一 一、基本操作题（4 小题，其中第 1、2 题每题 7 分，第 3、4 题每题 8分，共计 30分） 请根据以下各小题的要求设计 VisualBasic 应用程序（包括界面和代码）。 1．在窗体上建立一个二级菜单，该菜单含有“文件”、“帮助”（名称分别为 vbFile 和 vbHelp）两个主菜单项，其中“文件”菜单包括“打开”、“关 闭”、“退出”三个子菜单项（名称分别为 vbOpen、vbClose、vbExit），如图 1．1－1所示。只建立菜单，不必定义其事件过程。 编制程序的过程中弹出的对话框 图 1．1－1 图 1．1－2 2．在名为 Form1的窗体上画一个框架，名称为 Frm1，标题为“框架”，高度为 2500，宽度为 4000；再在框架中画一个文本框，名称为 Text1，高度为 400，宽度为 1200，其位置距框架的左边框 600，距框架的上边框 1200，文本框中的初始内容设置为″ 文本框″，如图 1．1－2所示。 图 1．1－3 3．在名称为 Form1的窗体中建立一个名称为 Text1 的文本框，其初始内容为“等级考试”；再建立两个命令按钮，名称分别为 Cmd1、Cmd2，标题分别为“宋体”、 “黑体”（如图 1．1－3所示）。要求程序运行后，在单击“宋体”按钮时，则执行语句 Text1．FontName＝″宋″；在单击“黑体”按钮时，则执行语句 Text1．FontName ＝“黑体”。 图 1．1－4 4．在名称为 Form1的窗体中建立两个名称分别为 Opt1和 Opt2，标题分别为“本科生”、“研究生”单选按钮。如果选“本科生”单选按钮，则在窗体上显示“我 是本科生”；如果选择“研究生”单选按钮，则在窗体上显示“我是研究生”，如图 3．1－4所示。 图 1．1－5 答案一： 2 / 23 1．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 工程。 步骤 2：单击“工具”菜单的“菜的编辑器”项弹出如图 3．1－8所示的对话框。 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：在窗体上添加一个框架（Frame 1）。控件的基本属性设置在题目中已经给出。 步骤 3：在框架内画一个文本框（Text 1）。 3．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码。 Option Explicit Private Sub Cmd1＿Click（） Text1．FontName＝“宋体” End Sub Private Sub Cmd2＿Click（） Text1．FontName＝“黑体” End Sub 4．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Option Explicit Private Sub Opt1＿lick（） If Opt1．Value Then Cls Print“我是本科生” End If End Sub Private Sub Opt2＿Click（） If Opt2．Value Then Cls Print“我是研究生” End If End Sub 套题二： 二、简单应用题（2小题，每题 20 分，计 40分） 1．设计两个窗体，Form1 用于输入整数，Form2用于输出扬辉三角。编写适当的事件过程。程序运行后，根据用户输入的整数（小于 10）， 输出相应的扬辉三角。执行结果如图 1．2－1所示 图 1．2－1． 3 / 23 图 1．2－2 2.设计一个 Form1，请在窗体上画两个文本框，三个标签和一个按钮，编写适当的事件过程。程序运行后，输出指定年中指定月的天数。执 行结果如图 1.2-3 图 1．2－3 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案二： 1．步骤 1：启动 Visual Basic6.0，打开一个新工程。如果 Visual Basic6.0已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：单击“工程添加窗体”菜单，命名为 Form1//。 步骤 3：添加控件、设置控件属性。 步骤 4：编写代码： Form1的代码： Private Sub Command1＿Click（） Form2．Show End Sub Form2的代码： Private Sub Form＿Load（） Dim n，c，i，j，As Integer Visible＝True n＝Val（Form1．Text1．Text） For i＝O Ton－1 c＝1 p＝26－3 ＊i Print Tab（p）；c； For j＝1 To i c＝c ＊（i－j＋1） j Print Tab（p＋6＊j）；c； Next j Next i End Sub 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。 4 / 23 步骤 3：编写代码： Private Sub Command1＿Click（） y＝Val（Text1．Text） m＝Val（Text2．Text） If（y Mod 400）＝0Then ieap＝1 ElseIf（yMod4）＝0 Then leap＝1 Else leap＝0 End If Select Case m Case 1，3，5，7，9，10，12 d＝31 Case 4，6，9，11 d＝30 Case 2 If leap＝1 Then d＝29 Else d＝28 End If End Select Label3．Caption＝“该月有”＋Trim（Str（d））＋“天” End Sub 套题三： 三、综合应用（1小题，计 30 分） 把第八套上机试题建立在学生数据文件（stu＿list）读到内存，并在屏幕上显示出来。运行界面如图 1.3－1所示。 图 1.3-1 答案三： 该程序中的标准模块仍使用前面程序中的标准模块。 窗体代码为： 5 / 23 Private Sub Form＿Click（） Static stud（）As stu Open”c：＼stu＿list”For Input As ＃1 n＝Input Box（”enter number of student：”） Re Dim stud（n）As stu FontSize＝12 Print“姓名”；Tab（20）；“学号”；Tab（30）；”年龄”；Tab（40）；“住址” Print For i＝1 To n Input ＃1，stud（i）．stname，stud（i）．num，stud（i）．age，stud（i）．addr Print stud（i）．stname；Tab（20）；stud（i）．num；Tab（30）；stud（i）．age；＿ Tab（40）；stud（i）．addr Next i Close ＃1 End Sub Vb试题二 一、基本操作题（4小题，其中第 1、2 题每题 7分，第 3、4 题每题 8 分，共计 30 分） 请根据以下各小题的要求设计 Visual Basic 应用程序（包括界面和代码）。 1．在窗体上有一个名称为 P1 的图片框和两个名称分别为 C1、C2，标题分别为“显示”、“清除”的命令按钮（如图 2．1－2所示）。程序运行后，如果单击 “显示”按钮，则把考生文件夹中的图形文件 pic1．gif装入图片框中，如果单击“清除”按钮，则从图片框中清除该图片。请填空（程序中的 App．path 用来 指定当前目录）。 编制程序的过程中需要的对话框 图 2.1－1 图 2.1－2 2．在名称为 Form1 的窗体中建立一个列表框，利用属性窗口预设 5个列表项，分别为“aaa”、“bbb”、“ccc”、“ddd”、“eee”；再建立 2个单选按钮， 名称分别为 Opt1、Opt2，标题分别为“选择 1”、“选择 2”，并设置 Opt2为选中状态。（如图 2．1－3所示）。 6 / 23 图 2.1－3 3．在名称为 Form 1 的窗体中建立一个名称为 Cmd1，标题为“显示”的命令按钮（如图 2.1－3所示）。要求程序运行后，如果单击“显 示”按钮，则执行语句 Form 1．Print“显示”；如果单击窗体，则执行语句 Form 1．Cls。 图 2.1－4 4．在名称为 Form1 的窗体上建立一个水平滚动条，名称为 HS1，其最大值为 100，最小值为 0。 要求程序运行后，每次移动滚动框时，都执行语句 Form1．PrintHS1．Value（如图 2.1－4所示）（程序中不能使用任何其他变量）。 图 2.1－5 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案一： 1．步骤 1：启动 VisualBasic6．0，打开一个新工程。如果 VisualBasic6．0 已经运行，单击“文件 新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Option Explicit Private Sub C1＿Click（） P1．Picture＝Load Picture（App．Path＋”＼pic1．Gif”） End Sub Private Sub C2＿Click（） P1．Picture＝Load Picture（） End Sub2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0已经运行，单击“文件 新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。如图 3．3－9 所示。 3．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Private Sub Cmd1＿Click（） Form1．Print“显示” End Sub 7 / 23 Private Sub Form＿Click（） Form1．Cls End Sub 4．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Private Sub HS1＿Change（） Cls Form1．Print HS1．Value End Sub 二、简单应用题（2小题，每题 20 分，计 40分） 1．设计一个窗体 Form1，请在窗体上画两个框架，其名称分别为 F1 和 F2，标题分别为“交通工具”和“到达目标”。在 F1 中画两个单选按钮，名称分别为 Op1 和 Op2，标题分别为“飞机”和“火车”。在 F2中画两个单选按钮，名称分别为 Op3 和 Op4，标题分别为“广州”和“昆明”。画一个标签，其名称为 Lab1， 宽度为 3000，高度为 375。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下图 2.2-1。 选中的单击按钮 单击窗体后产生的结果（标签中显示的内 容） 交通工具 到达目标 第一种情况 飞机 广州 坐飞机去广州 第二种情况 飞机 昆明 坐飞机去昆明 第三种情况 火车 广州 坐火车去广州 第四种情况 火车 昆明 坐火车去昆明 程序的运行情况如图 2．2－2所示。存盘时，工程文件名为 MyProject．vbp，窗体文件名为 My frm．frm。 图 2.2-2 2．设计一个窗体 Form1，请在窗体上画二个文本框，其名称分别为 Text1、Text2，文本框内容分别设置为“等级考试”、“计算机”。然后画一个标签，其名 称为 Lab1，高度为 375，宽度为 2000。再画两个单选按钮，名称分别为 Op1 和 Op2，标题分别为“交换”和“连接”，最后再画一个命令按钮，其名称为 C1， 标题为“确定”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Text1文本框中内容与 Text2文本框中内容进行交换， 并在标签处显示“交换成功”（如图 2．2－3所示）；如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的 Text1 和 Text2的内容连接起来，并在 标签处显示连接后的内容。存盘时，工程文件名为 MyProject ．vbp，窗体文件名为 Myfrm．frm。 图 2．2－3 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案二： 1．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 8 / 23 步骤 3：编写代码： Private Sub Form＿Click（） If Op1．Value＝True Then If Op3．Value＝True Then Lab1．Cpption＝”坐飞机去广州” ElseIf Op4．Value＝True Then Lab1．Caption＝”坐飞机去昆明” End If Else If Op2．Value＝True Then If Op3．Value Then Lab1．Cap tion＝“坐火车去广州” Else If Op4．Value＝True Then Lab1．Cap tion＝“坐火车去昆明” End If End If End Sub 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Private Sub C1＿Click（） If Op1．Value Then Text1．Text＝“计算机” Text2．Text＝”等级考试” Lab1．Caption＝”交换成功” Else Lab1．Caption＝Text1．Text＋Text2．Text End If End Sub 三、综合应用（1小题，计 30 分） 建立一个顺序文件 students．dat，用于输入学生的姓名和成绩。用户界面如图 2．3－1所示。 图 2．3－1 注意：在程序运行前，必须将文件以相应的文件名保存在考生方件夹下。 答案三： 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。 步骤 3：编写代码： Private Sub Command1＿Click（） Write ＃1，Text1．Text，Text2．Text Text1．text＝″″ Text2．Text＝″″ End Sub 9 / 23 Private Sub Command2＿Click（） Close End End Sub Private Sub Form＿Activate（） Text1．SetFocus End Sub Private Sub Form＿Load（） Open″students．dat″For Output As ＃1 End Sub Private Sub Text1＿KeyPress（KeyAsciiAsInteger） If KeyAscii＝13 Then Text2．SetFocus End If End Sub Private Sub Text2＿KeyPress（KeyAscii As Integer） If KeyAscii＝13 Then Text1．SetFocus End If End Sub 试题三 一、 基本操作题（4小题，其中第 1、2 题每题 7 分，第 3、4题每题 8 分，共计 30 分） 请根据以下各小题的要求设计 VisualBasic应用程序（包括界面和代码）。 1．Visual Basic 中 Mouse Down 事件用来处理鼠标键动作。此事件应用于 Form窗体，则事件子程序的声明如下： Private Sub Form＿MouseDown（Button As Integer，Shift As Integer，＿X As Single，Y As Single） End Sub 其中 Button＝1 表示按下鼠标左键，button＝2 表示按下鼠标右键。X和 Y表示鼠标的当前位置。当按下鼠标左键时，则在鼠标的当前位置输出 W； 按下鼠标右键时则在鼠标的当前位置上输出 A；若是任何键盘按键则清屏。运行后如图 3．1－1 所示。 图 3．1－1 2．设计一个程序，用户界面如图 3．1－2所示。程序运行后，单击“窗体左移”功能按钮，窗体就左移 100，单击“窗体右移”功能按钮，窗体就右 移 100。 10 / 23 图 3．1－2 3．设计一个窗体 Form1，在此窗体模块中声明一个长度为 256个字符的定长字符串 str。 4．设计一个窗体 Form1，在此窗体上画命令按钮，若 x 为一个正实数，编写适当的事件过程。 程序运行后，单击命令按钮对 x 的第 3位小数四舍五入后显示在窗体上。 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案一： 1．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件 新建工程”菜单，打开一个新的标准工程。 步骤 2：编写代码： 其中以下两事件函数可以直接调用： Private Sub Form＿KeyPress（KeyAscii As Integer）为键盘按键时激活的事件。 Private Sub Form＿MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single）为 Mouse 按下时激活的事件。 编写程序代码如下： Public lastx As Single Public lasty As Single Private Sub Form＿Key Press（KeyAscii As Integer） Cls End Sub Private Sub Form＿Mouse Down（Button As Integer，Shift As Integer，X As Single，Y As Single） Current X＝X Current Y＝Y If Button＝1 Then Print”W” Else Print”A” End If End Sub 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件。 步骤 3：编写代码： Private Sub Command1＿Click（） Left＝Left－100 End Sub Private Sub Command2＿Click（） Left＝Left＋100 End Sub 3．Dim str As String ＊256 4．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 11 / 23 步骤 2：添加代码。 步骤 3：编写代码： Private Sub Commandl＿Click（） Dim x As Single x＝3．123413312 Print 0．01 ＊Int（100＊（x＋0．005）） End Sub 二、 简单应用（2 小题，每题 20 分，计 40 分） 1．设计一个窗体 Form1，编写适当的事件过程。程序运行后，在窗体上放置一个文本框 Text1，每过 1 秒钟文本框的背景色能够由红到绿，绿到蓝， 再由蓝到红循环变化。执行结果如图 3.2－1 所示。 图 3．2－1 2．有一个工程文件 MyProject6．vbp，编写适当的事件过程。本程序将对文本 Text1符串中的所有字母加密，加密结果在文本框 Text2 显示。程序运行界面如 图 3．2－2所示。 图 3．2－2 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案二： 1． 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置属性。 对象类型 属性 属性值 定时器 Name Timer Interval 1000 文本框 Name Text1 Text "Text1" 步骤 3：编写代码： Option Explicit Dim r As Integer 12 / 23 Dim x As Integer Dim y As Integer Dim z As Integer Private Sub Form＿Load（） r＝0 Me．Timer1．Interval＝1000 End Sub Private Sub Timer1＿Timer（） Select Caser Case0 x＝255 y＝0 z＝0 r＝1 Case1 x＝0 y＝255 z＝0 r＝2 Case2 x＝0 y＝0 z＝255 r＝0 End Select Me．Text1．BackColor＝RGB（x，y，z） End Sub 2． 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置属性。 对象类型 属性 属性值 文本框 Name Text1 Text "Text1" Name Text2 Text 空 步骤 3：编写代码： Option Explicit Private Sub Form＿Click（） Dim strinput As String＊70 Dim strtemp As String Dim code As String ＊70 ’加密结果 Dim i As Integer Dim length As Integer ’字符串长度 Dimi asc As Integer strinput＝Me．Text1．Text 13 / 23 i＝1 code＝”” length＝Len（RTrim（strinput）） Do While i＜＝length strtemp＝Mid（strinput，i，1） If strtemp＞＝”A”And strtemp＜＝”Z”Then iasc＝Asc（strtemp）＋5 If iasc＞Asc（”Z”）Then iasc＝iasc－26 End If code＝LeftS｜（code，i－1）＋ChrS｜（iasc） Else If strtemp＞＝”a”Andstrtemp＜＝”z”Then iasc＝Asc（strtemp）＋5 Ifiasc＞Asc（”z”）Then iasc＝iasc－26 End If code＝LeftS｜（code，i－1）＋ChrS｜（iasc） Else code＝LeftS｜（code，i－1）＋strtemp End If i＝i＋1 Loop Me．Text2．Text＝code ’显示加密 End Sub 三、综合应用（1 小题，计 30 分） 编写程序，按下列格式输出月历，并把结果存放入一个文件中。程序执行结果如图 3．3－1 所 示。 NON SUN TUE WED THU FAI SAT 2 1 3 4 5 6 7 9 8 10 11 12 13 14 16 15 17 18 19 20 21 23 22 24 25 26 27 28 30 29 31 图 3．3－1 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案三： 14 / 23 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。 设计一个窗体，在其中放置若干对象。 这些对象的属性如表所示。 对象类型 属性 属性值 文本框 Name Text1 Name Text2 Multiline Ture Scrollbars 3 标签数组 Name Label1 Caption "年份"，"月份" 命令按钮 Name Command1 Caption "确定" 组合框 Name Combo1 List 1,2...,12 步骤 3：编写代码： 在该窗体上设置如下事件过程： Private Sub Command1＿Click（） Dim days（1 To 37）As Integer For i＝1 To 37 days（i）＝0 Next i m＝Combo1．Text d＝DateSerial（Val（Text1．Text），m，1） i＝Weekday（d） While（Month（d）＝Combo1．Text） days（i）＝Str（Day（d）） d＝d＋1 i＝i＋1 Wend Text2．Text＝”SUN MON TUE WED THU FAI SAT”＿ ＋cHR（13）＋cHR（10） For j＝1 To i Text2．Text＝Text2．Text＋””＋trans（days（j）） If j Mod 7＝0 Then Text2．Text＝Text2．Text＋Chr（13）＋Chr（10） End If Next j Open”month．txt”ForOutput As ＃1 Print＃1，Text2．Text Close＃1 End Sub Private Sub Form＿Load（） For i＝1 To 12 Combo1．AddItem i 15 / 23 Next i Text1．Text＝Year（Now） End Sub Private Function trans（s As Integer）As String If s＝0 Then trans＝”” ElseIf s＜10 Then trans＝””＋Trim（Str（s）） Else trans＝Trim（Str（s）） End If End Function 试题四 一、 基本操作题（4小题，其中第 1、2题每题 7分，第 3、4题每题 8分，共计 30分） 请根据以下各小题的要求设计 Visual Basic 应用程序（包括界面和代码）。 1．以点（500，500）和点（1500，1500）为对角线在窗体上画一矩形，分别以 FillStyle 的不同模式填充，实现矩形内填充模式的动态变化。 2．用 InputBox（）函数输入 3 个正整数，打印其最大的数。 3．计算 sum＝1！＋（1！＋2！）＋（1！＋2！＋3！）＋„＋（1！＋2！＋„＋10！）。 4．计算 s 的值及 s 首次大于 10000 时的 n 值。S＝1＋2＋22＋„＋2n＋„ 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案一： 1．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置属性。 步骤 3：编写代码： Private Sub Command1＿Click（） For i％＝0 To 7 FillStyle＝i％ Line（500，500）－Step（1000，1000），，B For j＝1 To 100000 Next j Cls Nexti％ End Sub 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：编写代码： Private Sub Form＿Click（） Dima，b，c，maxAsInteger a＝Val（InputBox（”a＝”，”srk”）） b＝Val（InputBox（”b＝”，”srk”）） c＝Val（InputBox（”c＝”，”srk”）） If a＞b Then max＝a Else max＝b End If If c＞max Then max＝c 16 / 23 End If Printmax End Sub 3．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：编写代码： Private Sub Form＿Click（） Dim s As Double Dim s1 As Double Dim i As Integer Dim k As Double k＝1∶s＝0∶s1＝0 For i＝1 To 10 k＝k ＊i s＝s＋k s1＝s1＋s Next i Print s1 End Sub 4．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：编写代码： Private Sub Form＿Click（） Dim i As Integer Dim s As Single i＝0 s＝0 Do Whiles＜10000 s＝s＋2＾i i＝i＋1 Loop Print i－1 End Sub 二、 简单应用题（2小题，每题 20 分，计 40 分） 1．设计一个窗体 Form1，请在窗体上画三个标签，两个文本框和一个按钮，编写适当的事件过程。程序运行后，输入两个字符串，判断输入的子串是 否是主串的简写，如：“中华全国妇女联合会”的简写为“中国妇联”。执行结果如图 4．2－1 所示。 图 4．2－1 2．设计一个窗体 Form1，请在窗体上画一些对象，编写适当的事件过程。程序运行后，通过单击一个命令按钮输出所有对象的名称。执行结果如图 4．2－2 所示。 17 / 23 图 4．2－2 注意：在程序运行前，必须将文件以相应的文件名保存存在考生文件夹下。 答案二： 1．步骤 1：启动 Visual Basic6.0，打开一个新工程。如果 Visual Basic6.0已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。 步骤 3：编写代码： Private Sub Command1＿Click（） str1＝Trim（Text1．Text） str2＝Trim（Text2．Text） n＝Len（str2） f＝1∶i＝1 While i＜＝n s＝Mid(str2，i，1） If InStr（i，str1，s）＝0Then f＝0 End If i＝i＋1 Wend If f＝1 Then Label3．Caption＝”两字符串医配成功” Else Label3．Caption＝“两字符串不医配” End If End Sub 2．步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。 步骤 3：编写代码： Private Sub Command1＿Click（） Print”窗体中的所有对象” For Each Control In Me．Controls Print Control．Name Next Control End Sub 三、综合应用题（1 小题，计 30分） 设计一个界面，有两种功能。程序运行后，功能一是将在一个文本框中输入的数据存入文件 file．txt 中，功能二是将文件中的数据显示到另一个文本框中。对 象的属性如表： 18 / 23 对象类型 属性名 属性值 文件框 Name Text1 Multiline Ture Name Text2 Multiline Ture 命令按钮 Name Command1 Caption 写入文件 Name Command2 Caption 读出文件 注意：文件必须存放在考生文件夹下，窗体文件名为 Myfrm7．frm，工程文件名为 MyProject7．vbp。 答案三： 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件新建工程”菜单，打开一个新的标准工程。 步骤 2：添加控件、设置控件属性。控件的基本属性设置在题目中已经给出。 步骤 3：编写代码： Private Sub Command1＿Click（） Open”c：＼file．txt”For Output As ＃1’设计顺序文件 Print ＃1，Text1．Text Close ＃1 End Sub Private Sub Command2＿Click（） Text2．Text＝”” Open”c：＼file．txt”For Input As ＃2’设计为顺序文件 Do Until EOF（2） Line Input ＃2，nline Text2．Text＝Text2．Text＆nline＆Chr（13）＋Chr（10） Loop Close ＃2 End Sub 试题五 一、 基本操作（4小题，其中第 1、2题每题 7分，第 3、4题每题 8分，共计 30分） 1．编写程序，单击窗体时在窗体上打印如图 5．1 －1 所示的图形。 19 / 23 图 5．1－1 2．编写一个程序，建立并输出一个 5＊5 的矩阵，该矩阵对角线上元素均为 1，其余均为 2，并要求打印的数字方阵两列数字之间空 3 格， 两行之间空一行。执行结果如图 5．1－2 所示。 图 5．1－2 3．窗体上有一个文本框，两个单选框，如图 5．1－3 所示要求程序运行时可以显示以下信息：显示的是几号字，显示是什么字体，单击单 选框时将在文本框中显示响应的信息。 图 5．1－3 4．动态字：在窗体放置一个定时控件和标签，标签放在窗体中间，使用定时器控制标签上的文字颜色和文字大小，每秒变化一次，字体大 小变化范围为 10～31。 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案一： 步骤：1．启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0已经运行，单击“文件／新建工程”菜单，打开一个新 的标准工程。 步骤 2：编写代码： Private Sub Form＿Click（） For i＝1 To 5 Print Sps（10－i）； Print String（2＊i－1，″＊″） Next i For i＝4 To 1 Step- Print Spc（10－i）； Print String（2＊i－1，″＊″） Next i End Sud 2．答案 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件／新建工程”菜单，打开一个新的 标准工程。 步骤 2：编写代码： Public Sub printarray（） ，下面程序用于打印 5行 5 列的数字方阵 ，使两对角线上元素均为 1，其余为 2 ，打印的数字方阵两列数字之间空格，两行之间空一行 Dim a（5，5）As Integer Dim i As Integer Dim j As Integer For i＝1 To 5 20 / 23 For j＝1 To 5 If i＝j Or i＝6－j Then a（i，j）＝1 Else a（i，j）＝2 End If frm1．Print a（i，j）； frm1．Print Space（3）； Next j frm1．Print frm1．Print Next i End Sub Private Sub Form＿Click（） printarray End Sub 3．答案 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件／新建工程”菜单，打开一个新的 标准工程。 步骤 2：添加控件、设置属性。 对象类型 属性 属性值 单选框 Name Option1 Caption "几号字" Index 0 Name Option2 Caption "什么字体" Index 1 文本框 Name Text1 Text 空 命令按钮 Name Command1 Caption "结束" 步骤 3：编写代码： Private Sub Command1＿Click（） End End Sub Private Sub Optionl＿Click（Index As Integer） Seleat Case Index Case0 Textl．Text＝″显示的是″＋str（Text1．FontSize）＋″号字！″ Case 1 Textl．Text＝″显示的是″＋Textl．FontName＋″字！″ End Select End Sub 4．答案 21 / 23 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件／新建工程”菜单，打开一个新的 标准工程。 步骤 2：添加控件、设置属性。 对象类型 属性 属性值 标签 Name Lb1 Caption "动态字体" 定时器 Name Timer Interval 11000 步骤 3：编写代码： 将定时器控件的 Interval 属性设置为 1000。 Private Sub Timerl＿Timer（） Lbl．ForeColor＝QBColor（Int（Rnd＊16）） Lbl．FontSize＝Int（Rnd＊22）＋10 Lbl．Left＝（frml．ScaleWidth－Lbl．Width）／2 Lbl．Top＝（frml．ScaleWidth－Lbl．Height）／2 End Sub 二、 简单应用（2小题，每题 20分，计 40分） 1．设计一个窗体 Forml，在文本框 Textl 中输入一个年份（0－9999），单击命令按钮 Commandl 后判断该年是否为闰年，并在标签框 Labell 中输出响应的信息。如图 3．10－4 所示。 图 3．10－4 2．有一个工程文件 MyProject6．vbp，利用文本框检查用户口令，使用静态变量来限制输入口令 3 次，如果口令错则提示“对不起，口令 错！”，如果输入 3 次仍错误，则提示“对不起，你无权使用！” 如 3 次内口令正确，则提示“欢迎使用本系统！”界面如图 3．10－5 所示。 图 3．10－5 注意：在程序运行前，必须将文件以相应的文件名保存在考生文件夹下。 答案二： 1． 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件／新建工程”菜单，打开一个新的 标准工程。 步骤 2：添加控件、设置属性。 步骤 3：编写代码： Private Sub Commandl＿Click（） Dim year As Integer 22 / 23 year＝Val（Textl．Text） If year＜0 Or year＞9999 Then Labell．Caption＝″输入数据有错误，请重输。″ Exit Sub If year Mod 4＝0 And year Mod 100＜＞0 Or＿ year Mod 100＝0 And year Mod 400＝0 Then MsgBox″该年份为闰年″，，″提示″ Else MagBox″该年非闰年″，，″提示″ End If End Sub Private Sub Form＿Activate（） Textl．SetFocus End Sub 2．答案 步骤 1：启动 Visual Basic6．0，打开一个新工程。如果 Visual Basic6．0 已经运行，单击“文件／新建工程”菜单，打开一个新的 标准工程。 步骤 2：添加控件、设置属性。 步骤 3：编写代码： Private Sub Textl＿KeyPress（Key Ascii As Integer） Staticn As Integer If KeyAscii＝13 Then If Text1．Text＝″abcd″