精华内容
下载资源
问答
  • VB6.0程序设计教程(第二版)》例题源程序及习题.实验参考答案,有现成的例子,及参考答案
  • 简要介绍资料的主要内容,以获得更多的关注
  • VB程序题:编写一个随机文件程序。 要求: (1)建立一个具有5个学生的学号、姓名和成绩的随机文件(Random. dat)。 (2)读出Random.dat文件中的内容,然后按成绩排序,最后按顺序写入另一个随机文件(Randoml.dat)...

    实验8-6

    VB程序题:编写一个随机文件程序。
    要求:
    (1)建立一个具有5个学生的学号、姓名和成绩的随机文件(Random. dat)。
    (2)读出Random.dat文件中的内容,然后按成绩排序,最后按顺序写入另一个随机文件(Randoml.dat)。
    (3)再一次读出文件的内容,按文件中的顺序将学生的信息显示在屏幕上,检查正确性。

    解题,画3个按钮控件,代码如下:

    Private Type Studtype
        no As String * 4
        name As String * 6
        mark As Single
    End Type
    Dim Student As Studtype, Stud(1 To 5) As Studtype, t As Studtype

    Private Sub Command1_Click()
        Open "C:\Random.dat" For Random As #1 Len = Len(Student)
        With Student
            .no = "0001"
            .name = "张三"
            .mark = 66
        End With
        Put #1, 1, Student

        With Student
            .no = "0002"
            .name = "李四"
            .mark = 99
        End With
        Put #1, 2, Student

        With Student
            .no = "0003"
            .name = "王五"
            .mark = 88
        End With
        Put #1, 3, Student

        With Student
            .no = "0004"
            .name = "赵六"
            .mark = 55
        End With
        Put #1, 4, Student

        With Student
            .no = "0005"
            .name = "钱七"
            .mark = 77
        End With
        Put #1, 5, Student

        Close #1
    End Sub

    Private Sub Command2_Click()

        Open "C:\Random.dat" For Random As #1 Len = Len(Student) 
    Print
    Print "Random.dat 文件内容:"
        For i = 1 To 5
            Get #1, i, Student
            Print Student.no, Student.name, Student.mark
            Stud(i) = Student
        Next i
        Close #1

        For i = 1 To 5
            For j = i + 1 To 5
                If Stud(i).mark > Stud(j).mark Then t = Stud(i): Stud(i) = Stud(j): Stud(j) = t '按成绩排序
            Next j
        Next i

        Open "C:\Random1.dat" For Random As #2 Len = Len(Student)

        For i = 1 To 5
            Put #2, i, Stud(i)
        Next i

        Close #1
    End Sub

    Private Sub Command3_Click()
        Open "C:\Random1.dat" For Random As #1 Len = Len(Student)

    Print
    Print "Random1.dat 文件内容:"
        For i = 1 To 5
            Get #1, i, Student
            Print Student.no, Student.name, Student.mark
            Stud(i) = Student
        Next i
        Close #1
    End Sub

    展开全文
  • VB程序设计教程(第四版) 龚沛曾

    万次阅读 多人点赞 2019-03-27 13:59:46
    VB程序设计教程(第四版) 龚沛曾 课后习题答案 目录 第一章课后答案 第二章课后答案 第三章课后答案 第四章课后答案 第五章课后答案 第六章课后答案 第七章课后答案 第八章课后答案 .... 第一章课后答案...

    VB程序设计教程(第四版) 龚沛曾 课后习题答案

    目录

    第一章课后答案

    第二章课后答案

    第三章课后答案

    第四章课后答案

    第五章课后答案

    第六章课后答案

    第七章课后答案

    第八章课后答案

    ....


    第一章课后答案

    1、简述Visual Basic的特点。

    答:(1)具有基于对象的可视化设计工具

    (2)事件驱动的编程机制

    (3)提供易学易用的应用程序集成开发环境

    (4)结构化程序语言

    (5)强大的网络、数据库、多媒体功能

    (6)完备的联机帮助功能

     

    3、Visual Basic 6.0有学习版、专业版和企业版,怎样知道所安装的是哪个版本?

    答:在启动封面上能显示对应的版本

     

    4、Visual Basic 6.0有多种类型的窗口,若想在设计时看到代码窗口,怎样操作?

       答:选择视图——代码窗口

     

    5. 叙述建立一个完整的应用程序的过程。

       答:(1)建立用户界面的控件对象

    (2)控件属性的设置

    (3)控件事件过程及编程

    (4)运行和调试程序

    (5)保存程序

     

    6. 当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件?若要保存该工程中的所有文件,应先保存什么文件,再保存什么文件?若不这样做,系统会出现什么信息?

    答:2个;先保存.frm文件,再保存.vbp文件;系统会弹出“文件另存为”对话框。

    7. 保存文件时,若不改变目录名,则系统默认的目录是什么?

       答:VB98

     

    第二章课后答案

    2、属性与方法的区别是什么?

       答:对象中的数据保存在属性中,用来描述和反映对象特征的参数。

        方法是附属于对象的行为和动作,也可以理解为指使对象动作的命令。

    5、如果文本框要显示多行文字,应对什么属性设置为何值?

        答:将文本框的Multiline属性设置为True.

    6、标签和文本框的区别是什么?

      答:标签的内容在Caption属性内,在窗体上只能显示文字,不能编辑。

    文本框内容在Text属性内,在窗体上可直接对内容进行编辑。

    7、要让文本框获得焦点的方法是什么?

        答:SetFocus

     

    9、当某文本框输入数据后(按了回车键),经判断后认为是数据输入错,应怎样删除原来文本框中的数据?

    答:[文本框.]text=””

    10.在程序运行前,对某些控件设置属性值,除了在窗体中直接设置外,还可以通过代码设置,这些代码一般存放在什么事件中?如果要将命令按钮定位在窗体的中央,试写出事件过程代码。

    答:Form_Load( );

    Private Sub Form_Load() 

    Command1.Left = Form1.ScaleWidth \ 2 - Command1.Width \ 2 

    Command1.Top = Form1.ScaleHeight \ 2 - Command1.Height \ 2

    End Sub

     

    第三章课后答案

    1. 下列哪些是VB的合法常量,分别指出其类型。

    (1)100.0    单精度型                  (2)%100   非法    

    (3)1E1    单精度型                   (4)123D3 双精度型

    (5)123,456    非法                    (6)0100   整型 

    (7)”ASDF” 字符型                     (8)”1234”  非法

    (9)#2000/10/7#  日期型                 (10)100#  双精度型

    (11) 非法                           (12)&O100 八进制整型

    (13)&O78   非法                      (14)&H123 十六进制整型  

    (15)True  逻辑型                      (16)T   非法

    (17) &H12ag  非法                   (18)-1123!   单精度型

     

    2. 下列符号中,哪些是VB的合法变量名?

    (1)a123   合法         (2)a12_3    合法 

    (3)123_a   非法       (4)a 123  非法

    (5)Integer  非法       (6)XYZ   合法  

    (7)False  非法        (8)sin(x)   非法

    (9)sinx    合法       (10)变量名    合法  

    (11)abcdefg   合法   (12)   非法

     

    3.  把下列算术表达式写成VB表达式。

     (1)     Abs(x+y)+z^5

    (2)     (1+x*y)^6

    (3)   (10*x+Sqr(3*y))/x/y

    (4)      (-b+sqr(b^2-4*a*c))/(2*a)

    (5)    1/(1/r1+1/r2+1/r3)

    (6)      sin(45*3.14/180)+(exp(10)+ log(10))/sqr(x+y+1)

    4.根据条件写出相应的VB表达式。

    (1)产生”C”~”L”范围内的一个大写字符。 

    Chr(int(Rnd*10+67)

    (2)  产生100~200(包括100和200)范围内的一个正整数。   

    Int(Rnd*101+100)

    (3)已知直角坐标系中任意一点的坐标(x,y),表示其位于第一或第三象限内。  

    x*y>0

    (4)  表示x是5或7的倍数。  

    x Mod 5=0 or x Mod 7=0

    (5)将任意一个两位数x的个位数与十位数对换。例如,x=78,则表达式的值应为87.

     (x Mod 10)*10+x\10

    (6)  将变量x的值按四舍五入保留小数点后两位。例如,x的值为123.2389,则表达式的值应为123.24。

    Round(x,2)

    (7)表示字符型变量C是字母字符(不区分大小写字母)。 

     Ucase(c)>=”A” And Ucase(c)<=”Z”

    (8)  取字符型变量S中从第5个字符起的6个字符。  

    Mid(S,5,6)

    (9)表示关系表达式。

    x>=10 And x<20

    (10)  x, y之一小于z。   

    x<z  And  y>=z Or y<z And x>=z

    (11)x 和 y都大于z。   

     x>z And y>z 

     

    5.   写出下列表达式的值:

    (1)123+23 mod 10 \ 7+Asc(“A”)   188

     (2)  100+”100”& 100     “200100”

         (3)Int(68.555*100+0.5)/100   68.56

    (4) 已知A$=”87654321”,求表达式Val(Left$(A$,4)+Mid$(A$,4,2))    876554

    (5)DateAdd(“m”,1,#1/30/2000#)    #2/29/2000#

     (6)  Len (“VB程序设计”)                                  6

     

    7.  Visual Basic提供了哪些标准数据类型?声明类型时,其类型关键字分别是什么?其类型符又是什么?

    数据类型

    关键字

    类型符

    字节型

    Byte

    逻辑型

    Boolean

    整型

    Integer

    %

    长整型

    Long

    &

    单精度型

    Single

    双精度型

    Double

    #

    货币型

    Currency

    @

    日期型

    Date(time)

    字符型

    String

    $

    对象型

    Object

    变体型

    Variant

    9. 将数字字符串转换成数值,使用什么函数?判断是否是数字字符串,使用什么函数?取字符串中的某几个字符,使用什么函数?实现大小写字母间的转换,使用什么函数?

    Val( ) IsNumeric( )Mid( )Ucase( )Lcase( )

    第四章课后答案

    第五章课后答案

    第六章课后答案

    第七章课后答案

    第八章课后答案

    ....

    展开全文
  • PAGE 1 Java程序设计教程 第 3 版 课后参考答案 第一章 填空题 1Java源程序文件的扩展名是 javaJava 源程序经编译后生成 Java 字节码文件,其扩 展名是 class 2在 Java 语言中,将源代码翻译成 java 字节码文件 时产生...
  • 实验8-7 在教学篇例8.7的基础上增加“修改确定”按钮以及用于定位记录的按钮面板,如图2.8.5所示,并编写时间过程。 解题,代码如下: 先建立标准模块,代码是: Type studtype iNo As Integer ...

    实验8-7

    在教学篇例8.7的基础上增加“修改确定”按钮以及用于定位记录的按钮面板,如图2.8.5所示,并编写时间过程。

    解题,代码如下:

    先建立标准模块,代码是:

    Type studtype
        iNo As Integer
        strName As String * 20
        strSex As String * 1
        sMark As Single
    End Type


    再在窗体上建立相应的按钮等控件,窗体代码如下:

     

    Dim Student As studtype
    Dim Record_No As Integer
    Sub Form_Load()
        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Label1.Caption = LOF(1) / Len(Student)
        Close #1
        
        If Label1.Caption <> "0" Then Command3_Click '记录不为零,就显示第一条记录
    End Sub

    Sub Command1_Click() '追加记录
        With Student
            .iNo = Val(Text1.Text)
            .strName = Text2.Text
            .strSex = IIf(Option1.Value, "1", "0")
            .sMark = Val(Text3.Text)
        End With

        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = LOF(1) / Len(Student) + 1
        Label1.Caption = Record_No
        Text4.Text = Record_No '加这句,当场修改记录就不用手工输入了
        Put #1, Record_No, Student
        Close #1
    End Sub

    Sub Command2_Click() '显示记录
        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = Val(Text4.Text)
        Get #1, Record_No, Student
        Text1.Text = Student.iNo
        Text2.Text = Student.strName
        If Student.strSex = "1" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        Text3.Text = Student.sMark
        Record_No = LOF(1) / Len(Student)
        Close #1
    End Sub

    Private Sub Command3_Click() '第一条记录
        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = 1
        Get #1, Record_No, Student
        Text1.Text = Student.iNo
        Text2.Text = Student.strName
        If Student.strSex = "1" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
       
        Text3.Text = Student.sMark
        Text4.Text = "1"
        Close #1

    End Sub
    Private Sub Command4_Click() '下一条记录
        If Record_No = Val(Label1.Caption) Then
            MsgBox "已经是最后一条记录了"
            Exit Sub   '已经是最后一条记录就退出。
        End If

        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = Record_No + 1
        Get #1, Record_No, Student
        Text1.Text = Student.iNo
        Text2.Text = Student.strName
        If Student.strSex = "1" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        Text3.Text = Student.sMark
        Text4.Text = Record_No
        Close #1
    End Sub

    Private Sub Command5_Click() '前一条记录
        If Record_No = 1 Then
            MsgBox "已经是第一条记录了"
            Exit Sub '已经是第一条记录就退出。
        End If

        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = Record_No - 1
        Get #1, Record_No, Student
        Text1.Text = Student.iNo
        Text2.Text = Student.strName
        If Student.strSex = "1" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        Text3.Text = Student.sMark
        Text4.Text = Record_No
        Close #1
    End Sub

    Private Sub Command6_Click() '最后一条记录
        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = Val(Label1.Caption)
        Get #1, Record_No, Student
        Text1.Text = Student.iNo
        Text2.Text = Student.strName
        If Student.strSex = "1" Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        Text3.Text = Student.sMark
        Text4.Text = Label1.Caption
        Close #1
    End Sub

    Sub Command7_Click() '修改记录
        With Student
            .iNo = Val(Text1.Text)
            .strName = Text2.Text
            .strSex = IIf(Option1.Value, "1", "0")
            .sMark = Val(Text3.Text)
        End With

        Open "C:\STUDENT.DAT" For Random As #1 Len = Len(Student)
        Record_No = Val(Text4.Text)
        Put #1, Record_No, Student
        Close #1
    End Sub

    展开全文
  • VB程序设计教程(D第三版)龚沛曾 课后习题答案
  • 第1章概述 二.选择题: 1.C 2. B. 3.C. 4.C. 5.A 6.C 7.D 8.B 9.B 10.B 11.A12.C 13.D 14.C 15.D 16.A17.C 18.A19.A20.D 21.B...设计,运行,中断 4.F5 5.调试 6.切换文件夹 四.编程及上机调试: 1.略 2.Sub Form_Click( La
  • 自测1 程序代码 Private Sub Command1_Click) Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click) Label1.FontBold = True End Sub Private Sub Command3_Click) Label1.FontUnderline = ...
  • vb程序设计教程 第四版 北京邮电大学出版社 第四版 蒋加伏 一~十二章课后习题答案
  • Visual.Basic程序设计教程的配套教材,讲的很细,思路很清晰,适合中国人看。
  • BASIC是20世纪60年代由美国达特茅斯大学的两位教授共同设计的计算机程序设计语言,是国际上广泛使用的一种计算机高级语言。 Basic语言简单易学、人机交互容易、程序调试简便,目前仍是计算机程序设计初学者入门学习...
  • 内容简单的设计教程及例子,适合初学者,学习使用
  • VB程序设计》习题答案(蒋加伏)《VB程序设计》习题答案(蒋加伏)
  • vb 程序设计教程第四版课后答案 篇一 visual_basic 程序设计教程 第 4 版_ 课后答案 第一章 习题参考答案 一 填空题 对象事件驱动 编译运行模式 解释运行模式 二 简答题 简述 vb 的特点 答可视化的程序设计方法 面向...
  • 习题一 答案在教材上找 习题二 1.对象指现实世界中的实体每个对象有自己的特征(属性)行为(方法)和发生在该对象上的活动...VB工具箱中的可视图标是VB系统设计好的标准控件类通过将控件类实例化得到真正的控件对象在窗体
  • VB答案,《VB程序设计》课后习题答案-林卓然编著(第2版)
  • vb 课后习题答案 第一章 习题参考答案 一 填空题 1对象 事件驱动 2编译运行模式 解释运行模式 二 简答题 1 简述 VB 的特点 答可视化的程序设计方法 面向对象的程序设计思想 事件驱动的编程机制 结构化的程序设计语言...
  • VB程序设计教程实验

    2010-05-27 15:33:32
    VB程序设计教程当中常用控件与界面设计的实验
  • VB 程序设计 课后答案 绝对真实和完整 欢迎大家下载!!
  • 龚沛曾 课后答案 - 习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对...
  • VB.NET程序设计课后实验最齐全答案,从实验1到实验11,高等教育出版社第二版,龚沛曾主编。
  • 第一章 VB 开发环境与 VB 概述 习题答案 习题 一选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. B A A B D B A A C B C D A D 第二章 常用控件与界面设计 习题答案 习题 一选择题 15. 16. 17. 18. 19. 20. ...
  • visual basic 程序设计教程课后部分答案 第三版 高等教育出版社,全部的实验题目答案和实验报告答案,很全很详细,适合自学VB的一套很好的参考资料
  • visual basic 程序设计教程课后部分答案 第三版 高等教育出版社(F)
  • VB6.0程序设计教材习题参考答案(罗朝盛)版
  • 实验8-1 编写如图2.8.1所示的应用程度。若单击“建立文件”按钮,则分别用Print#和和Write#语句将三个同学的学号、姓名和成绩写入Score.dat和Score1.dat;若单击“读取文件”按钮,则用line Input 语句按行将两个...

    实验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

    展开全文
  • 非常详细的大学VB.NET程序设计实践教程电子教案
  • 普通高等教育“十一五”国家级规划教材 Visual Basic 6.0 程序设计教程(第3版)答案 罗朝盛主编
  • VB开发环境与VB概述 习题答案 习题 一选择题 B A A B D B A A C B C D A D 常用控件与界面设计 习题答案 习题 一选择题 C B C A A B B B C C B B D A B B B C C D B B B C C C A B B C B C B B D B D D B A B A B B ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,773
精华内容 709
关键字:

vb程序设计教程答案