问答题


【参考答案】

[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
用数组a(A0)来接收InputBox输入的......

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

问答题
[解析] 命令按钮的标题由Caption属性来设置，单击命令按钮触发Click事件；执行完毕，“开始”按钮变成“完成”，且无效(变灰)：Open grade.dat For Input As #A以只读方式打开文件，读出数据；求平均数则先求每个数的和然后除以数字的个数即可；程序中用到的Input读文件的格式为：Input#文件号，变量列表，在将数据写入文件时，要使用Write#语句而不是使用Print#语句，因为Write#语句能够将各个数据项正确的区分开。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表AF-E。 表 AF-E 控 件 属 性 设 置 值 label Name Caption LabelA 考试文件夹 GRADE.DAT label Name Caption LabelB 考试文件夹 AVERAGE.DAT label Name Caption LabelC 源文件： label Name LabelD 目标文件： label Name Caption LabelE 从源文件中读出数据并求出它们的平均数后，写入目标文件 Commandbutton Name Caption COMSTART 开始 Commandbutton Name Caption COMSTART 退出 第二步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim g As Single, N As Integer, S As Single myfileA=App.Path & & grade.txt myfileB=App.Path & & average.txt ’Open For As #A ’Open For As Do While Not EOF(A) ’ Input , g N=N+A S=S+g Loop Close #A ’S=S ’Write #B, Close ’COMSTART.Caption= ’COMSTART.Enabled= End Sub 参考代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim g As Single, N As Integer, S As Single myfileA=App.Path & & grade.txt myfileB=App.Path & & average.txt Open myfileA For Input As #A Open myfileB For Output As #B Do While Not EOF(A) Input #A, g N=N+i S=S+g Loop Close #A S=S N Write #B, S Close COMSTART.Caption= 完成 COMSTART.Enabled=False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘
问答题
注意：下面出现的“”均为c： wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上放置一个名称为Drive1的Drive ListBox控件，一个名称为Dir1的 DirListBox控件和一个名称为Filel的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名(不显示路径名)。如图16-1所示。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。 (2) 在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。 注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp，如图16-2所示。
相关试题