问答题


【参考答案】

[解析] 文本框中显示的文本由Text属性设置；命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[解析] 本题主要是考查对文件的读写，对文件进行操作之前必须打开文件，使用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 第二步：调试并运行程序。 第三步：按题目要求存盘。
问答题
注意：下面出现的“”均为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。
相关试题