问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上画一个名称为P1的图片框,然后建立一个主菜单,标题为“操作”,名称为 Op,该菜单有两个子菜单,其标题分别为“显示”和“清除”,名称分别为Dis和Clea。编写适当的事件过程,程序运行后,如果单击“操作”菜单中的“显示”命令,则在图片框中显示“计算机考试”;如果单击“清除”命令,则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。程序中不得使用任何变量。


(2) 在Form1的窗体上画一个列表框,名称为L1,通过属性窗口向列表框中添加4个项目,分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程,过程中只能使用一条命令。程序运行后,如果双击列表框中的某一项,则把该项再添加到列表框中。程序的运行情况如图15-3所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
主菜单由单击右键选择“菜单编辑器”来创建,通......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 按钮的标题由其Caption属性设置,单击触发其Click事件。文件的操作一般按照如下步骤进行:打开或建立文件、进行读或写操作、关闭文件。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表AE-C。 表 AE-C 控 件 名 称 属 性 设 置 值 LabelB Caption 考生文件夹 RESULT.TXT LabelD Caption 目标文件: LabelE Caption 利用循环进行计算A+A B+A C+…+A A0的结果,并且把结果写入目标文件中 按钮控件 1 名称 CMDSTART Caption 开始 按钮控件 2 名称 CMDEXIT Caption 退出 第二步:编写程序代码。 程序提供的代码: Private Sub CmdEXIT_Click() End End Sub Private Sub Cmdstart_click() Dim E As Single, J As Integer Dim T As Single ’Open App.Path& For As ’E= T=A For J=B To A0 Step A T=i J E=E+T Next J ’Write #A, Close #A ’CMDSTART.Caption= ’CMDSTART.Enabled= End Sub 参考代码: Private Sub CMDEXIT_Click() End End Sub Private Sub CMDstart_click() Dim E As Single, J As Integer Dim T As Single Open App.Path & & result.txt For Output As #A E=A T=A For J=B To A0 Step A T=A J E=E+T Debug.Print T, E Next J Write #A, E Print E Close #A CMDSTART.Caption= 完成 CMDSTART.Enabled=False End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 单选按钮都是成组出现,用户在一组单选按钮中只能且最多选择一项,某项被选定后,其左边的圆圈中出现一个黑点;字体由FontName属性决定,字体的大小由FonfSize属性决定:清除文本框的内容可以用将文本框的内容置空来实现(文本框.Text= )。 需要指出的是框架是一个容器控件,用于将窗体上的控件分组,不同的对象剋放在同一个框架内,它提供了视觉上的区分和总体的激活或屏蔽功能。要使用框架对控件进行分组,必须先画出框架,然后在框架内画出需要成为一组的控件,这样才能将框架内的控件组成一个整体。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表AE-D。 表 AE-D 控 件 名 称 属 性 设 置 值 OptionA Caption 仿宋 OptionB Caption 楷体 OptionC Caption 隶书 OptionD Caption 黑体 OptionE Caption 七号 OptionF Caption 五号 OptionG Caption 三号 OptionH Caption 初号 CommandA Caption 初始化 CommandB Caption 清除 CommandC Caption 退出 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub CommandA_Click() OptionA.Value=True OptionF.Value=True TextA.Text= 请输入您要设置的文本 End Sub Private Sub CommandB_Click() OptionA.Value=True OptionF.Value=True ’TextA.Text= End Sub Private Sub CommandC_Click() End End Sub Private Sub Form_Load() OptionA.Value=True OptionF.Value=True TextA.Text= 请输入您要设置的文本 End Sub Private Sub OptionA_Click() TextA.FontName = 仿宋GBBCAB End Sub Private Sub OptionB_Click() ’TextA.FontName= End Sub Private Sub OptionC_Click() Textl.FontName= 隶书 End Sub Private Sub OptionD_Click() TextA.FontName= 黑体 End Sub Private Sub OptionE_Click() TextA.FontSize= E.E End Sub Private Sub OptionF_Click() ’TextA.FontSize= End Sub Private Sub OptionG_Click() TextA.FontSize= AF End Sub Private Sub OptionH_Click() TextA.FontSize= DB End Sub 参考代码: Option Explicit Private Sub CommandA_Click() OptionA.Value=True OptionF.Value=True TextA.Text= 请输入您将要设置的文本 End Sub Private Sub CommandB_Click() OptionA.Value=True OptionF.Value=True TextA.Text= End Sub Private Sub CommandC_Click() End End Sub Private Sub Form_Load() OptionA.Value=True OptionF.Value=True TextA.Text= 请输入您要设置的文本 End Sub Private Sub OptionA_Click() TextA.FontName= 仿宋GBBCAB End Sub Private Sub OptionB_Click() TextA.FontName= 楷体GBBCAB End Sub Private Sub OptionC_Click() TextA.FontName= 隶书 End Sub Private Sub OptionD_Click() TextA.FontName= 黑体 End Sub Private Sub OptionE_Click() TextA.FontSize= E.E End Sub Private Sub OptionF_Click() TextA.FontSize= A0.E End Sub Private Sub OptionG_Click() TextA.FontSize= AF End Sub Private Sub OptionH_Click() TextA.FontSize= DB End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
问答题
[解析] 在程序运行时控件是否可用由其Enable属性决定,当其值为True时可用,当为False不可用(灰色)。对文件进行操作必须先打开文件,同时通知操作系统对文件进行读操作还是写操作,打开文件的命令是Open,其常用形式为: Open“文件名”For模式As[#]文件号[Len=记录长度] 模式有Output(打开文件,对其进行写操作)、Input(打开文件,对其进行读操作)、Append(打开文件,在文件末尾追加记录)。 统计大小写字符和数字只需根据字符的ASCII码判断,大写字母的ASCII值是FE~I0,小写字母的ASCII值是IG~ABB,数字的为DH~EG。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfileA=App.Path & & progHa.txt myfileB=App.Path & & progHb.txt ’Open myfileA For As #A ’Open myfileB For As #B While Not EOF(A) ’Input , Ch$ If Asc(Ch$)>=DH And Asc(Ch$)<=EG Then Number=Number+A ElseIf Asc(Ch$)>=FE And Asc(Ch$)<=I0 Then Cp=Cp+A ElseIf Asc(Ch$)>=IG And Asc(Ch$)<=ABB Then Lp=Lp+A Else ’Others= End If Wend ’Print , Number, Cp, Lp, Others Close ’COMSTART.Caption= ’COMSTART.Enabled= End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfileA=App.Path & & progHa.txt myfileB=App.Path & & progHb.txt Open myfileA For Input As #A Open myfileB For Output As #B While Not EOF(A) Input #A, Ch$ If Asc(Ch$)>=DH And Asc(Ch$)<=EG Then Number=Number+A ElseIf Asc(Ch$)>=FE And Asc(Ch$)<=I0 Then Cp=Cp+A ElseIf Asc(Ch$)>=IG And Asc(Ch$)<=ABB Then Lp=Lp+A Else Others=Others+A End If Wend Print #B, Number, Cp, Lp, Others Close COMSTART.Caption= 完成 COMSTART.Enabled=False End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。