vb教程编程实例详解pdf_vb程序设计教程答案刘炳文

vb教程编程实例详解pdf_vb程序设计教程答案刘炳文实验8-1编写如图2.8.1所示的应用程度。若单击“建立文件”按钮,则分别用Print#和和Write#语句将三个同学的学号、姓名和成绩写入Score.dat和Score1.dat;若单击“读取文件”按钮,则用lineInput语句按行将两个(当前目录)文件中的数据显示在相应的文本框。其中:学号和姓名是字符串类型,成绩是整型。解题,画2个按钮,2个文本框(2个文本框的MultiLin…

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

实验8-1

编写如图2.8.1所示的应用程度。若单击“建立文件”按钮,则分别用Print#和和Write#语句将三个同学的学号、姓名和成绩写入Score.dat和Score1.dat;若单击“读取文件”按钮,则用line Input 语句按行将两个(当前目录)文件中的数据显示在相应的文本框。
其中:学号和姓名是字符串类型,成绩是整型。

解题,画2个按钮,2个文本框(2个文本框的 MultiLine 属性设置为 True),代码如下:
Private Sub Command1_Click()
    Open “c:\score” For Output As #1
    Print #1, “051023”, “王海涛”, 66
    Print #1, “052498”, “周文英”, 88
    Print #1, “050992”, “陈建东”, 77

    Open “c:\score1” For Output As #2
    Write #2, “051023”, “王海涛”, 66
    Write #2, “052498”, “周文英”, 88
    Write #2, “050992”, “陈建东”, 77

    Close
End Sub

Private Sub Command2_Click()
    Text1.Text = “”
    Text2.Text = “”

    Dim no As String, name As String, s As Integer
    Open “c:\score” For Input As #1
    Do While Not EOF(1)
        Line Input #1, linedata
        Text1.Text = Text1.Text & linedata & Chr(13) & Chr(10)
    Loop

    Open “c:\score1” For Input As #2
    Do While Not EOF(2)
        Line Input #2, linedata
        Text2.Text = Text2.Text & linedata & Chr(13) & Chr(10)
    Loop

    Close
End Sub

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/185204.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • hashmap面试题简书_java面试问答题

    hashmap面试题简书_java面试问答题JAVA中的HashMap面试题整理JDK1.7版本,HashMap的数据结构是什么?数组+单向链表什么叫做Hash桶数组中的单向链表HashMap的数组长度为什么必须是2的幂?计算元素存在数组中下标的算法:hash值&数组长度-1如果数组长度不是2的幂,减1后二进制的某一位有可能出现0,导致数组某个位置永远存不到数据HashMap的默认负载因子是多少,作用是什么?默认负载因子是0.75作用:数组长度*负载因子=阈值(扩容条件)HashMap的默认负载因子为什么是0.75

  • FastCGI介绍

    FastCGI介绍本文主要介绍FastCGI的相关知识。有关CGI的知识,点击此处查看。1.概述FastCGI实际上是增加了一些扩展功能的CGI、是CGI的改进,描述了客户端和Web服务器程序之间传输数据的一种标准。FastCGI致力于减少Web服务器与CGI程序之间进行互动的开销,从而使Web服务器可以同时处理更多的Web请求。与CGI为每个Web请求创建一个新的进程不同,…

  • oracle <&gt_oracle asm

    oracle <&gt_oracle asm=>是Oracle中调用存储过程的时候,指定参数名进行调用.一般是,某些参数有默认值的时候,你需要跳过某些参数来进行调用。下面是具体的例子。参数的默认值SQL>CREATE

  • 串口调试助手fx2n_PLC串口调试助手详细讲解(结合实操)「建议收藏」

    串口调试助手fx2n_PLC串口调试助手详细讲解(结合实操)「建议收藏」下面技成培训网给大家分享一则案例文,学员常见问题!经常会有学员问,老师老师,我的PLC和变频器通讯不上了,不知道什么原因,您能帮我看看么。其实吧,这个一般远程是帮不上你什么的,还是要你自己去测试,找出问题,那么怎么测试呢,今天就给大家做一个详细的解说,我们通过一个实际对的案例,结合一个叫做串口调试助手的小工具,带大家了解,通讯出问题了,一般是怎么去查找问题的。案例是这样的:一台三菱的PLC,PLC…

  • TCP端口检测、网络连接时延测试工具 tcping

    TCP端口检测、网络连接时延测试工具 tcping原文地址:https://zhangnq.com/3158.html在主流的linux系统中,通过yum或者apt也可安装tcping,不过通过源安装的tcping只能显示单次检测的结果,也没有具体的连接时延。现参考windows版tcping,用python写了一个linux环境下的类似工具。代码建立socket连接,测试端口连通性和网络连接时延。deftcp(ip,por…

  • 51单片机流水灯的三种实现方法「建议收藏」

    51单片机流水灯的三种实现方法「建议收藏」首先,介绍下原理。下图为主控芯片和流水灯模块的原理图。流水灯模块接在单片机的P1口,由原理图可以知道,在P1口给一个低电平即可点亮LED灯。相反,如果要LED灯熄灭,就要把P1口的电平变为高电平即可。要实现流水灯功能,我们只要将LED1~LED8依次点亮、熄灭,依始类推,8只LED变会一亮一暗的做流水灯了。              实现8个LED流水灯程序用中

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号