问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在Form1的窗体上建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“清除”,其名称分别为Dis和Clea。编写适当的事件过程,程序运行后,如果单击“操作”菜单中的“显示”命令,则在窗体上显示“等级考试”;如果单击“清除”命令,则清除窗体上显示的内容。程序的运行情况如图14-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2) 在Form1的窗体上画一个标签,其名称为Lab1;再画一个列表框,其名称为L1,通过属性窗口向列表框中添加若干个项目,每个项目的具体内容不限,编写适当的事件过程。程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。程序中不准使用任何变量,运行情况如图14-2所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。
Visual Basic中,菜单被看作控件,......

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

问答题
[解析] 文本框中显示的文本由Text属性设置;命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件。通用对话框是一种ActiveX控件,通常情况下,启动Visual Basic后,在工具箱里没有通用对话框控件,用户必须手动将它添加到工具箱里才可以使用:限制打开对话框的文件类型应对Filter属性进行设置。 可以通过下列步骤将通用对话框控件添加到工具箱中: ① 执行“工程”菜单中的“部件”命令,打开“部件”对话框; ② 在对话框中选择“控件”选项卡,然后在控件列表框中选择“Microsoft Common Dialog Control F.0”; ③ 单击“确定”按钮,通用对话框即被添加到工具箱中。解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub Commandl_Click() Dim i As Integer CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=E For i=A To CommonDialogA.Copies PrintForm Next i Cancel: End Sub Private Sub CommandB_Click() CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.HelpCommand=&HB CommonDialogA.HelpFile= C: windows help windows.hlp CommonDialogA.Action=F Cancel: End Sub Private Sub CommandC_Click() CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=C TextA.ForeColor=CommonDialogA.Color Cancel: End Sub Private Sub CommandD_Click() CommonDialogA.Flags=&HC& Or &HA& Or &HB& CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=D TextA.FontBold=CommonDialogA.FontBold TextA.FontItalic=CommonDialogA.FontItalic TextA.FontStrikethru=CommonDialogA.FontStrikethru TextA.FontName=CommonDialogA.FontName TextA.FontSize=CommonDialogA.FontSize Cancel: End Sub Private Sub CommandE_Click() End End Sub Private Sub CommandF_Click() CommonDialogA.CancelError=True On Error GoTo Cancel ’CommonDialogA.Filter= (可执行文件*.exe) *.exe|| (可执行文件*.com) *.com| ’CommonDialogA.FilterIndex= ’CommonDialogA.Action= ’Shell CommonDialogA.filename, Cancel: End Sub 参考代码: Option Explicit Private Sub CommandA_Click() Dim i As Integer CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=E For i=A To CommonDialogA.Copies PrintForm Next i Cancel: End Sub Private Sub CommandB_Click() CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogl.HelpCommand=&HB CommonDialogl.HelpFile= C: windows help windows.hlp CommonDialogl.Action=F Cancel: End Sub Private Sub CommandC_Click() CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=C TextA.ForeColor=CommonDialogA.Color Cancel: End Sub Private Sub CommandD_Click() CommonDialogA.Flags=&HC& Or &HA& Or &HB& CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Action=D TextA.FontBold=CommonDialogA.FontBold TextA.FontItalic=CommonDialogA.FontItalic TextA.FontStrikethru=CommonDialogA.FontStrikethru TextA.FontName=CommonDialogA.FontName TextA.FontSize=CommonDialogA.FontSize Cancel: End Sub Private Sub CommandE_Click() End End Sub Private Sub CommandF_Click() CommonDialogA.CancelError=True On Error GoTo Cancel CommonDialogA.Filter=_ (可执行文件*.exe) *.exe|*.exe| (可执行文件*.com) *.com|*.com CommonDialogA.FilterIndex=0 CommonDialogA.Action=A Shell CommonDialogA.FileName,A Cancel: End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (B) [解析] 程序中用到了Circle方法、Line方法和InputBox函数。 Circle方法在对象上画圆、椭圆或弧。 语法:Object.Circle[Step](x,y),radius,[color,start,end,aspect] Line方法在对象上画直线和矩形。 语法:object.Line[Step](xA,A)[Step](xB,yB),[color,[B][F] InputBox函数在一个对话框中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的String。 语法:InputBox(prompt[,title][default][,xpos][,ypos][,helpfile,context])解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub CA_Click() Dim a As Single Dim b As Single Dim t As Single On Error Resume Next If OpA.Value=True Then a=InputBox ( 输入圆环的内径(输入值必须大于0且小于H00) , _ 输入参数 ,A00) b=InputBox ( 输入圆环的外径(输入值必须大于0且小于I00) , _ 输入参数 ,B00) If a>b Then ’ t= a=b b=t End If PA.Cls ’PA.FillStyle= PA.FillColor=vbBlack ’Pi.Circle (AE00,A000), PA.FillColor=vbButtonFace PA.Circle (AE00,A000), a End If If OpB.Value=True Then a=InputBox ( 输入方框的长度(输入值必须大于0且小于C000) , _ 输入参数 ,A00) b=InputBox( 输入方框的宽度(输入值必须大大于0且小于AH00) , _ 输入参数 ,B00) PA.Cls ’PA.Line (A00, A00)-(A00+a, A00+b) , , F End If End Sub 参考代码: Private Sub CA_Click() Dim a As Single Dim b As Single Dim t As Single On Error Resume Next If OpA.Value=True Then a=InputBox ( 输入圆环的内径(输入值必须大于0且小于H00) , _ 输入参数 ,A00) b=InputBox ( 输入圆环的外径(输入值必须大于0且小于I00) , _ 输入参数 ,B00) If a>b Then t=a a=b b=t End If PA.Cls PA.FillStyle=0 PA.FillColor=vbBlack PA.Circle (AE00, A000) , b PA.FillColor=vbButtonFace Pi.Circle (AE00, A000) , a End If If OpB.Value=True Then a=InputBox ( 输入方框的长度(输入值必须大于0且小于C000) , _ 输入参数 ,A00) b=InputBox ( 输入方框的宽度(输入值必须大于0且小于AH00) , _ 输入参数 , B00) PA.Cls PA.Line (A00, A00)-(A00+a, A00+b) , , BF End If End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
问答题
[解析] 本题主要是考查对文件的读写,对文件进行操作之前必须打开文件,使用Open语句,其格式为: Open文件名[For 方式][Access 存取类型][锁定]As[#]文件号[Len=记录长度] Close语句关闭Open语句所打开的输入 输出文件。其格式为: Close[filenumberlist] filenumberlist是可选参数,为一个或多个文件号。 对文件操作完之后,必须关闭文件,使用Close语句关闭文件。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(A0) , namstring(A0) , sexstring(A0) , wages(A0) ’MyFileA=App.Path & & ’MyFileB=App.Path & & Open MyFileA For Input As #A Open MyFileB For Output As #B For i=A To A0 ’Input , num(i) , namstring(i) , sexstring(i) , wages(i) total=total+wages(i) Next i ’aver= A0 For i=A To A0 ’If Then Write #B, num(i) , namstring(i) , sexstring(i) , wages(i) Next i ’COMSTART.Caption= ’COMSTART.Enabled= End Sub 参考代码: Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim i As Integer Dim total As Integer Dim aver As Single Dim num(A0) , namstring(A0) , sexstring(A0) , wages(A0) MyFilel=App.Path & & worker.dat MyFileB=App.Path & & workerA.dat Open MyFilel For Input As #A Open MyFileB For Output As #B For i=A To A0 Input #A, num(i) , namstring(i) , sexstring(i) , wages(i) total=total+wages(i) Next i aver=total A0 For i=A To A0 If wages(i)>aver Then Write #B, num(i) , namstring(i) , sexstring(i) , wages(i) Next i COMSTART.Caption= 完成 COMSTART.Enabled=False End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。