精华内容
下载资源
问答
  • VB程序设计教程(D第三版)龚沛曾 课后习题答案
  • PAGE 1 Java程序设计教程 第 3 版 课后参考答案 第一章 填空题 1Java源程序文件的扩展名是 javaJava 源程序经编译后生成 Java 字节码文件,其扩 展名是 class 2在 Java 语言中,将源代码翻译成 java 字节码文件 时产生...
  • 高等教育出版社龚沛曾版VB程序设计教程数组实验答案,在课本中是实验E
  • 这里使用的是《vb程序设计教程(第四版)——龚沛曾》: 实验3(主要考察分支选择结构。1—7考察select和if语句,8用到choose函数,9—11以控件option和check为主) 3.1: Option Expl...

    这里只是个人对书中题目的解答,并不代表最优代码。仅供参考。有哪里错误或者不足的地方还望指出,Thanks♪(・ω・)ノ 

    以及 不要脸地 求探讨求点赞。嘿嘿

    这里使用的是《vb程序设计教程(第四版)——龚沛曾》: 

    实验3(主要考察分支选择结构。1—7考察select和if语句,8用到choose函数,9—11以控件option和check为主)

    3.1 :

    Option Explicit'这里习惯使用 Option Explicit 来做外部全局定义
    Dim x!, y!',只在一个过程中使用的变量,读者在任何地方定义都是可以的
    
    Private Sub Form_click()
        x = InputBox("说吧,你购买物品的原价是多少?")
        Select Case x
            Case Is < 1000
                y = x
            Case Is < 2000
                y = 0.9 * x
            Case Is < 3000
                y = 0.8 * x
            Case Else
                y = 0.7 * x
        End Select
        MsgBox "给你打个折,算你" & y & "元"
    End Sub
    

    select和if语句都可以实现,有兴趣的读者用if语句尝试一下叭。

    3.2 :

    Option Explicit
    Dim x!, y!
    '对我比较懒(你看我题目都懒得打),所以拿上面的代码来用了。
    Private Sub Form_click()
        x = InputBox("说吧,你花了多少时间上网?")
        Select Case x
            Case Is < 10
                y = 30
            Case Is < 50
                y = 30 + 2.5 * (x - 10)
            Case Else
                y = 30 + 2.5 * (50 - 10) + 2 * (x - 50)
        End Select
        If y > 150 Then y = 150
        MsgBox "那么你要给我" & y & "元网费"
    End Sub

    3.3:

    Option Explicit
    Dim x%, y%, z%
    Dim swit% '定义一个中间变量用来储存数据
    
    Private Sub Command1_Click()
        x = InputBox("告诉我你的第一个数字x:")
        y = InputBox("第二个数字y:")
        z = InputBox("还差一个数字z:")
        Print Spc(10); "x"; Spc(4); "y"; Space(4); "z"
        Print "排序前: "; x; Tab(15); y; Tab(20); z
        'space和spc函数效果是一样的,不同的是spc函数只能在print方法中使用
        If x < y Then
            swit = y
            y = x
            x = swit
        End If
        'if语句有两种书写方式:上面的块形式需要使用end if来结束语句
        If z > x Then swit = z: z = x: x = swit
        '这种形式就不需要end if,但语句之间需要冒号隔开
        If z > y Then swit = z: z = y: y = swit
        Print "排序后: "; x; Tab(15); y; Tab(20); z
        '题目对输出的格式有要求的时候(上下行对齐)这里喜欢用tab
        '至于具体的tab后面应该跟多少,就自己测试吧,这里也没有太好的方法
    End Sub
    

    3.4:

    控件的建立这里不贴图了。直接上代码:

    Private Sub Command1_Click()
        Select Case Trim(Text3.Text)
            Case "-"
                Text4.Text = Val(Text1.Text) - Val(Text2.Text)
            Case "+"
                Text4.Text = Val(Text1.Text) + Val(Text2.Text)
            Case "*"
                Text4.Text = Val(Text1.Text) * Val(Text2.Text)
            Case "/"
                Text4.Text = Val(Text1.Text) / Val(Text2.Text)
        End Select
    End Sub
    
    Private Sub Command2_Click()
        End
    End Sub
    

    3.5:

    Option Explicit
    Dim m As Integer, n%, x%, y%
    '两种定义变量类型的方式是一样的
    
    Private Sub Form_Load()
        Form1.Show
    'show方法加载form1,使print方法可以在load事件使用
    'ps:题设控件太麻烦了,就不能简简单单没有伤害吗???我决定不采纳你的建议
    again:
        n = InputBox("你数数笼里几只脚?:")
        m = InputBox("你再数数有几个头?:")
        If n < 2 * m Then
            MsgBox "兄嘚,脚得是头数的两倍吧?你再数数?"
            GoTo again
        ElseIf m < 0 Then
            MsgBox "头能是负数吗?再输一遍:"
            GoTo again
        End If
        y = n \ 2 - m '这里用/应该也可以,既然都是整数那我用整除了啊
        x = m - y
        Print "所以你有" & x & "只鸡"; "还有"; y; "只兔子=(:з」∠)_" '皮这一下非常开心
    End Sub
    

    啥……有朋友告诉我做这个的时候还没学goto语句?那我再做一个老老实实照书上来不用goto的可以吧?还不快给我点赞

    哝,三个label,一个放提示“输入总头数”“输入总脚数”balabala,剩下俩作为输出的容器,这里是label2和label3.读者可以根据自身情况调整。总感觉这个代码有点毛病。到底哪里有毛病呢……

    Private Sub Text2_lostfocus()
        Dim m%, n%, y%, x%
        n = Val(Text2.Text)
        m = Val(Text1.Text)
        If n < 2 * m Then
            MsgBox "兄嘚,脚得是头数的两倍吧?你再数数?"
            Text2.Text = ""
            Text2.SetFocus
        End If
        If m < 0 Then
            MsgBox "头能是负数吗?再输一遍:"
            Text2.Text = ""
            Text1.SetFocus
        Else
        y = n / 2 - m
        x = m - y
        Label2.Caption = y
        Label3.Caption = x
        End If
    End Sub

    3.6:

    一样不做控件展示了。这里接受x1和x2数据的分别是label2和label3

    Dim a!, b!, c!, d!, p!, q!
    
    Private Sub Command1_Click()
        a = Val(Text1.Text)
        b = Val(Text2.Text)
        c = Val(Text3.Text)
        d = b * b - 4 * a * c
        If d >= 0 Then
            p = -b / (2 * a) '除号优先级高于*,必须加括号
            q = Sqr(d) / (2 * a)
            X1 = p + q
            X2 = p - q
            Label2.Caption = X1
            Label3.Caption = X2
        Else
            megbox "你给的数据我处理不来,换个实根好吗?"
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Text1.SetFocus
        End If
    End Sub
    
    Private Sub Command2_Click()
        End
    End Sub

    3.7:

    Option Explicit
    Dim n As Integer
    
    Private Sub Command1_Click()
        Text1.Text = ""
        Text1.SetFocus
        Cls '清除窗体上输出的东西
    End Sub
    
    Private Sub text1_keypress(keyascii As Integer)
        Dim c As String
        c = Chr(keyascii)
        If c <> "=" Then
            If c = "(" Then
                n = n + 1
            ElseIf c = ")" Then
                n = n - 1
            End If
        Else
            If n < 0 Then
                Print "左括号少于右括号"; n; "个,按重置按钮,重新输入"
            ElseIf n > 0 Then
                Print "左括号多于右括号"; n; "个,按重置按钮,重新输入"
            ElseIf n = 0 Then
                Print "括号匹配"
            End If
        End If
    End Sub
    

    3.8: 

    Option Explicit
    Dim a, c
    
    Private Sub Form_click()
        Cls '清空上一次输入,以便一次运行多次测试
        a = InputBox("给我一个1~7的数字:", "判断星期")
        Select Case a
            Case 1
            c = "Monday"
            Case 2
            c = "tuesday"
            Case 3
            c = "Wednesday"
            Case 4
            c = "Thursday"
            Case 5
            c = "Friday"
            Case 6
            c = "Saturday"
            Case 7
            c = "Sunday"
        End Select
        Print c
    End Sub
    
    Private Sub form_load()
        Form1.Show
        a = InputBox("给我一个1~7的数字:", "判断星期")
        c = Choose(a, "Monday", "tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")
        Print "你输入的是" & c '不同的输出方法判断使用的是select还是choose
    End Sub

    3.9:

    Option Explicit
    
    
    Private Sub Command1_Click()
    '函数的设置
        If Option1.Value Then
            Label3.Caption = Sin(Val(Text1.Text))
        ElseIf Option2.Value Then
            Label3.Caption = Exp(Val(Text1.Text))
        ElseIf Option3.Value Then
            Label3.Caption = Sqr(Val(Text1.Text))
        End If
            
    '字形的设置
        If Check1.Value Then
            Label3.FontBold = True
        Else
            Label3.FontBold = False
        End If
        If Check2.Value Then
            Label3.FontItalic = True
        Else
            Label3.FontItalic = False
        End If
        If Check3.Value Then
            Label3.FontUnderline = True
        Else
            Label3.FontUnderline = False
        End If
        
    End Sub

    3.10:

    Private Sub Command1_Click()
        If Option1.Value Then
            If Option3.Value Then
                Label1.Caption = "从上海到南京,高铁价格:140"
            ElseIf Option4.Value Then
                Label1.Caption = "从上海到南京,动车价格:93"
            ElseIf Option5.Value Then
                Label1.Caption = "从上海到南京,快车价格:47"
            End If
        ElseIf Option2.Value Then
            If Option3.Value Then
                Label1.Caption = "从上海到北京,高铁价格:555"
            ElseIf Option4.Value Then
                Label1.Caption = "从上海到北京,动车价格:410"
            ElseIf Option5.Value Then
                Label1.Caption = "从上海到北京,快车价格:179"
            End If
        End If
    End Sub
    

    3-11:

    Private Sub Command1_Click()
        Dim xb$, xl$, zy$, ah$
        If Option1.Value Then
            xb = "男"
        ElseIf Option2.Value Then
            xb = "女"
        End If
    '上面的elseif不可用else,否则未选择性别的时候也会输出性别女
    '使用option选择的时候都要注意这一点
        If Option3.Value Then
            xl = "大专"
        ElseIf Option4.Value Then
            xl = "本科"
        ElseIf Option5.Value Then
            xl = "研究生"
        End If
        If Option6.Value Then
            zy = "教师"
        ElseIf Option7.Value Then
            zy = "医生"
        ElseIf Option8.Value Then
            zy = "公务员"
        End If
        ah = ""
        If Check1 Then
            ah = ah + " 旅游"
        End If
        If Check4 Then
            ah = ah + " 集邮"
        End If
        If Check3 Then
            ah = ah + " 体育"
        End If
        If Check2 Then
            ah = ah + " 音乐"
        End If
    '结果显示,这里用回车符vbLf/chr(10)和换行符vbCr/chr(13)换行
    '用续行符“_”增加代码可读性,使用的时候注意续航符前面带空格
        Label2.Caption = "简历" & Chr(10) & _
        "姓名:" & Text1.Text & Chr(10) & _
        "年龄:" & Text2.Text & Chr(10) & _
        "性别:" & xb & Chr(13) & _
        "学历:" & xl & vbLf & _
        "职业:" & zy & vbCr & _
        "爱好:" & ah
    End Sub
    
    Private Sub Command2_Click()
        Label2.Caption = ""
    End Sub

     

    换行符vbLf/Chr(10)、回车符vbCr/Chr(13)以及二者的结合体vbCrLf的输出效果其实是一样的。那么它俩有什么区别呢?

    实验4 (主要考察循环的运用,其中8/9/10考察滚动条、11考察ActiveX控件中的进度条。其中9和11较复杂)

    4.1:

    '在load事件里使用打印方法print前,记得设置窗体的Autoredraw属性为True或者在print前加一句form1.show哦

    'click和load事件里分别用两个方法输出图形
    Dim i As Integer
    Private Sub Form_Load()
        For i = 1 To 9
            Print Tab(20 - 2 * i); String(2 * i - 1, "☺")
        Next
    End Sub
    Private Sub Form_Click()
        Dim s As String
        s = "☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆"
        For i = 1 To 9
            Print Tab(20 - 2 * i); Mid(s, 20 - 2 * i)
        Next
    End Sub
    

    4.2:

    Private Sub Form_click()
        Dim i As Integer
        For i = 1 To 9
        Print Tab(i); String(20 - 2 * i, Chr(i + 64))
        Next
    End Sub

    4.3:

    Private Sub Form_click()
        Dim s As Integer, i As Integer, n As Integer, sum As Integer
        s = 0
        For n = 1 To 30
            For i = 1 To n
                s = s + i
            Next
        Next
        Print "前30项和为" & s
        n = 0
        sum = 0
        Do Until sum > 5000
            n = n + 1
            For i = 1 To n
                sum = sum + i
            Next
        Loop
        Print "前31项和" & sum
    End Sub
    

    4.4:

    Private Sub Command1_Click()
        Dim i As Integer, n As Integer, s As String
        n = Len(Text1.Text)
        s = ""
        For i = n To 1 Step -1
            s = s + Mid(Text1.Text, i, 1)
        Next
        Text2.Text = s
    End Sub
    
    Private Sub Command2_Click()
        Text1.Text = ""
        Text2.Text = ""
    End Sub
    
    Private Sub Command3_Click()
        End
    End Sub

    4.5:

    '老规矩,题目的控件我就不建立了
    Private Sub Form_click()
        Dim i As Single, s As Single, t As Single
        s = 0
        i = 1
        t = 1
        Do While t <= 10 ^ 5'注意朕这里用的是十的五次方
            t = i + t - 1
            s = s + 1 / t
            i = i + 1
        Loop
        Print "Do While结构"; s; Tab(25); i - 1; "项"'tab控制输出格式,让你的输出好看一点
        s = 0
        i = 1
        t = 1
        For i = 1 To 100000'如题,把循环终点设成一个比较大的数字
            t = i + t - 1
            s = s + 1 / t
            If t > 10 ^ 5 Then Exit For
        Next
        Print "For结构"; s; Tab(25); i; "项"
    End Sub

    4.6: 

    Private Sub form_click()
        Dim i As Integer, j As Integer, k As Integer, n As Single
        Dim t As Integer '定义一个计数君
        t = 0
        For n = 100 To 999
            i = n Mod 10 '提取个位数
            k = n \ 10 Mod 10 '提取十位数,整除号“\”的优先级大于MOD
            j = n \ 100 '提取百位数
            If i ^ 3 + k ^ 3 + j ^ 3 = n Then
                Print n;
                t = t + 1
                If t Mod 5 = 0 Then Print
            End If
        Next n
    End Sub
    

    4.7:这里变量建议定义为双精度#,防止溢出

    Private Sub Form_click()
        Dim n#, i#, s#
        s = 2
        For n = 1 To 1000
            s = s * (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
            If n = 50 Or n = 1000 Then Print "n="; n; "时"; "s="; s
        Next
    End Sub
    

    4.8: 控件:两个label俩滚动条,变量定义同上题

    Option Explicit
    Dim a As Integer, n As Integer, sum#
    Dim temp# '定义一个加数
    Dim i As Integer, j As Integer '定义两个循环用变量
    Private Sub Form_Load() '在load事件中对滚动条初始化
        HScroll1.Max = 9
        HScroll1.Min = 1
        HScroll2.Max = 10
        HScroll2.Min = 5
    End Sub
    
    Private Sub form_click() '纵向输出
        Cls
        temp = 0
        sum = 0
        For i = 1 To n
            temp = temp * 10 + a
            sum = sum + temp
            For j = 1 To 8 '输出各个加数
                If j = i Then
                    Print Tab(15 - j); temp
                End If
            Next j
        Next i
        Print "------------------"
        Print Tab(15 - n); sum '输出和
    End Sub
    
    Private Sub HScroll1_Change()
        a = HScroll1.Value
        Label1.Caption = "a=" & a
        Call Calculate
    End Sub
    
    Private Sub HScroll2_Change()
        n = HScroll2.Value
        Label2.Caption = "n=" & n
        Call Calculate
    End Sub
    
    Public Sub Calculate() '横向输出
        Cls
        Print "sum=";
        temp = 0
        sum = 0
        For i = 1 To n
            temp = temp * 10 + a
            sum = sum + temp
            Print temp; '输出各个加数
            If i <> n Then Print "+";
        Next i
        Print "=" & sum
    End Sub
    

    4.9:很简单的题目,一个label一个hscroll搞定

    Private Sub Form_Load()
        HScroll1.Max = 72
        HScroll1.Min = 8
    End Sub
    
    Private Sub HScroll1_Change()
        Label1.FontSize = HScroll1.Value
    End Sub

    4.10: 

    三个控件:image1、hscroll1和vscroll1

    由于我们调整的是image控件的大小,注意设置image的stretch属性为true(以让图片大小自动适应image)

    btw,大小的调整是以image左上角那个点为基准

    Private Sub Form_Load()
        Image1.Picture = LoadPicture(App.Path + "/黑子.jpg")'mong用一个之前工程的图片好了
        HScroll1.Max = 4215 '根据自己希望达到的最大图片设置数值
        VScroll1.Max = 2535 '这里可以把image调到最大后去属性窗口找一下对应的数值
    End Sub
    
    Private Sub HScroll1_Change()
        Image1.Width = HScroll1.Value
    End Sub
    
    Private Sub VScroll1_Change()
        Image1.Height = VScroll1.Value
    End Sub
    

    4.11:

    review一下ActiveX控件怎么添加呢。以这题用到的progressbar为例子:

    Private Sub countdown() '来一个“倒计时”的过程
        Dim minus As Integer, second As Integer
        Dim a As Integer '一个用来定位的家伙
        a = InStr(Text1.Text, ":") - 1 '在a之前的是分钟数
        
        If a > 0 Then '给分钟数和秒数赋值
            minus = Val(Left(Text1.Text, a))
        End If
        If a > 0 Then
            second = Val(Right(Text1.Text, 2))
        Else
            second = Val(Text1.Text)
        End If
        
        Text1.Text = 60 * minus + second
        ProgressBar1.Max = Text1.Text
    End Sub
    
    Private Sub Form_click() '题目没有要求,不过做一个暂停的过程有助于debug
        Timer1.Enabled = False
    End Sub
    
    Private Sub text1_keypress(keyascii As Integer)
        If keyascii = 13 Then '开始计时
                Timer1.Enabled = True
                Timer1.Interval = 1000
                Call countdown
        End If
    
    End Sub
    
    Private Sub Timer1_Timer()
        If Text1.Text <= 1 Then Timer1.Enabled = False '停止计时
        Text1.Text = Val(Text1.Text) - 1
        ProgressBar1.Value = Text1.Text
    End Sub
    

    4.11这题有意思。做成这样是我理解太复杂了吗? 

    4.12:

    Dim a As Single, x As Single
    Dim t As Single '???????????????x[i]
    Const E = 10 ^ -5
    Private Sub Form_click()
        x = 1
        For a = 1 To 1000
            t = x
            x = 2 / 3 * x + a / (3 * x * x)
            If x <> t And Abs(x - t) < E Then Exit For
            '?????????????x<>t??????????????????????????
            If a = 3 Or a = 27 Then
                Print "x=" & x
                Print "???????a?????η?????????" & a ^ (1 / 3)
            End If
        Next a
    End Sub

    4.13:

    ps:终于开始有一点情景的题目了O(∩_∩)O       果然最后出现了反转啊。富翁这个名词这是已经被黑化了吗?2333全员仇富

    Private Sub Form_click()
        Dim a As Single '陌生人给富翁的钱
        Dim sum As Single '富翁总共给陌生人的钱
        Dim t As Single '单天富翁要给出的钱
        Dim i As Integer '定义一个计数君
        a = 10 * 30
        Print "陌生人给富翁:" & a & "万元"
        t = 0.01
        sum = 0
        For i = 1 To 30
            sum = sum + t '注意这里的sum是以“元”为单位的
            t = 2 * t
        Next
        sum = sum / 10000 '化sum以万元为单位
        Print "富翁给陌生人:" & sum & "万元"
    End Sub
    

    4.14:

    Private Sub Form_click()
        Dim x As Integer, y As Integer, z As Integer
        Print "课程考试安排的几种可能情况:"
        Print " x  y  z"
        For x = 1 To 6
            For y = 1 To 6
                For z = 5 To 6
                    If x < y And y < z Then
                        Print x; y; z
                    End If
                Next z
            Next y
        Next x
    End Sub
    

     

    展开全文
  • VB6.0程序设计教材习题参考答案(罗朝盛)版
  • vb程序设计教程 第四版 北京邮电大学出版社 第四版 蒋加伏 一~十二章课后习题答案
  • VB程序设计教程

    2011-12-28 15:47:50
    课后习题答案,少了第八章,不知道为什么,你们可以去别处找找
  • 程序设计教程第3版习题解答 习题1答案 一选择题 1.1 6.0分为3种版本不属于这3种版本的是 A学习版 B专业版 C企业版 D业余版 答D 1.2 下列方法中不能退出 的是 A按组合键 B按下组合键然后按键 C按F10键然后按F键再按X...
  • 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( )

    第四章课后答案

    第五章课后答案

    第六章课后答案

    第七章课后答案

    第八章课后答案

    ....

    展开全文
  • VB 程序设计 课后答案 绝对真实和完整 欢迎大家下载!!
  • VB6.0程序设计教程(第二版)》例题源程序及习题.实验参考答案,有现成的例子,及参考答案
  • 龚沛曾 课后答案 - 习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对...
  • vb课件\《VB6.0程序设计教程(第二版)》例题源程序及习题、实验参考答案.rar
  • 北京大学出版社《Java程序设计案例教程答案哎,我也在找不过时北京交通大学出版的求大学python3程序设计基础答案 刘德山主编 网上找不到 希望大家帮帮忙答案我也没有,...《vb程序设计案例教程》课后习题答案Pr...

    北京大学出版社《Java程序设计案例教程》答案

    哎,我也在找不过时北京交通大学出版的

    求大学python3程序设计基础答案 刘德山主编 网上找不到 希望大家帮帮忙

    答案我也没有,如果你是计算机类的专业的话,推荐你一本书,Python基础教程,比大学Python教材好多了,当当京东都有的卖

    求 java程序设计案例教程课后习题答案 高等教育出版社

    是C语言,还是VF的?

    《vb程序设计案例教程》课后习题答案

    Private Sub Command1_Click()

    For i = 1 To 10

    For j = 1 To 10

    If i * j >= 10 And i * j                 Print i * j;

    End If

    Next j

    Next i

    End Sub

    ASP.NET语言程序设计案例教程课后习题答案,只要填空题。铁道出版社出版。

    机编程

    郭新明-FTP服务器体学习课程(张孝祥监制)

    ASP.Net快速开发新闻系 在线播

    数字电路基础[宁波电大]

    计算机组成与汇编语言程序设计(赵丽梅)宁波电大

    操作系统(陈访荣)宁波电大 (在线播放)

    计算机网络(马敏飞)宁波电大

    ASP.NET 2.0快速入门(12)-ASP.NET 2.0网站快速导航

    Internet和Intranet应用(薛昭旺)宁波电大

    2004年电脑硬件安装调试维修视频教学讲授

    ASP.NET 高级排错技巧

    SQL Server 2000管理专家系列课程

    开心三人行系列(2):使用Atlas 构建AJAX应用

    Visual Basic 2005开发技巧系列课程(4):

    在Visual Basic 2005中使用.NET Framework 2.0新增功能

    SQL Server 2005 系列课程-使用ADO MD.NET开发SQL Server 2005 OLAP应用

    Visual Basic 2005开发技巧系列课程(1):使用My命名空间简化.NET Framework程序设计

    VB编程与应用(黄文)宁波电大

    Internet和Intranet应用(薛昭旺)宁波电大

    PHP视频教程从入门到精通(php mysql)

    增强windows安全全集^

    SQL Server 2005 系列课程-SQL Server 2005与XML的紧密整合(下)

    SQL Server 2005 系列课程-SQL Server 2005与XML的紧密整合(上)

    Launch 2005系列课程(11):AMO与XML/A

    c语言程序设计案例教程程立倩课后习题答案

    文库里面有答案,直接用冰点下载,不要财富值

    版权声明:本站所有文章皆为原创,欢迎转载或转发,请保留网站地址和作者信息。

    展开全文
  • nbspVisual BasicVisual Basic程序设计教程(第4版)实验答案.doc129页本文档一共被下载:次,您可全文免费在线阅读后下载本文档。 下载提示1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的...

    您所在位置:网站首页 > 海量文档

    &nbsp>&nbsp计算机&nbsp>&nbspVisual Basic

    Visual Basic程序设计教程(第4版)实验答案.doc129页

    本文档一共被下载:次,您可全文免费在线阅读后下载本文档。

    下载提示

    1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。

    2.该文档所得收入(下载+内容+预览三)归上传者、原创者。

    3.登录后可充值,立即自动返金币,充值渠道很便利

    ※声明:

    实验1-1

    编制简单的欢迎界面程序。

    要求:在屏幕上显示“欢迎学习Visual Basic”;在文本框Text1中输入姓名;单击命令按钮“你输入的姓名是”,在Label3标签显示在文本框中输入的姓名。

    程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此,即“学号-实验号-实验题目”。(如某同学的学号为所完成的是实验2的第3题,那么程序文件名为“2-3.frm”和“2-3.vbp”)

    提示:

    (1) 实验所用到的控件及属性设置见表2.1.1。

    表2.1.1 属 性 设 置

    控件名

    属 性

    Label1

    Caption="欢迎学习Visual Basic";Font属性:字号为二号,字体为隶书,Aligment=2(居中)

    Label2

    Caption="请输入你的姓名";Font属性:字体为楷体,有下划线

    Label3

    Caption="",BorderStyle=1

    Text1

    Text=""

    Command1

    Caption="你输入的姓名是"

    (2) “欢迎学习Visual Basic”要在两行显示,只要将Label1控件的宽度缩小一些。

    Private Sub Command1_Click()

    Label3.Caption = Text1.Text

    End Sub

    实验1-2

    模仿教学篇例1.1,将事件过程中的自上而下移动改为自右向左移动,同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2,背景图形文件可以选择自己喜欢的,按钮上的图标可通过Windows搜索功能查找。以“学号-1-2”为项目名保存。

    表2.1.2 属 性 设 置

    控件名

    属 性

    Form1

    Caption="实验1.2";Picture:选择自己喜欢的图片

    Label1

    Caption="我开始学习程序设计";FontSize=36;BackStyle=0

    Command1

    Caption="";Style=1;Picture="clock02.ico";ToolTipText="自动"

    Command2

    Caption="";Style=1;Picture="key04.ico";ToolTipText="手动"

    Timer1

    Interval=0

    注:因为印刷错误,例题1.1中两个命令按钮的图形与事件过程代码不一致,需要调整。

    提示: 自定义事件过程MyMove代码应调整为,可实现文字移动方向的改变

    Sub MyMove()

    Label1.Move Label1.Left - 50, Label1.Top

    If Label1.Left < 0 Then Label1.Left = Form1.Width

    End Sub

    Sub MyMove()

    Label1.Move Label1.Left - 50, Label1.Top

    If Label1.Left < 0 Then Label1.Left = Form1.Width

    End Sub

    Private Sub Command1_Click()

    Timer1.Interval = 200

    End Sub

    Private Sub Command2_Click()

    Timer1.Interval = 0

    Call MyMove

    End Sub

    Private Sub Form_Load()

    Timer1.Interval = 0

    End Sub

    Private Sub Timer1_Timer()

    Call MyMove

    End Sub

    实验1-3

    提示:

    (1) 对窗体编写两个事件:Form_Load 事件中对文本框置初值为空;Form_Click事件对鼠标单击文本框计数。

    (2) 对鼠标单击文本框计数计算为:Text1.Text=Val(Text1.Text)+1

    Private Sub Form_click()

    Text1.Text = Val(Text1.Text) + 1

    End Sub

    Private Sub Form_Load()

    Text1.Text = ""

    End Sub

    实验1-4

    提示:

    例题中Form_Resize事件可以不考虑,Picture属性设置中注意图片文件有后缀名,运行测试前需要先保存项目名,保证图片文件和程序文件在同一个文件夹下,否则会出现图片找不到的错误提示。

    Private Sub Form_Click()

    Caption = "单击窗体"

    Picture = LoadPicture(App.Path + "\p2.jpg")

    Print "欢迎使用VB"

    发表评论

    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。

    用户名:

    验证码:

    匿名?

    发表评论

    展开全文
  • 实训答案和教材课件,1.1 认识Visual Basic 1.2 Visual Basic 6.0工作环境简介 1.3 Visual Basic中常用的概念 1.4 最简单Visual Basic应用程序设计 1.5 设计Visual Basic应用程序的步骤
  • 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 ...
  • 第一章 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. ...
  • 考后答案VB程序设计综合复习资料 第一章 Visual Basic程序设计概述 一填空题 1Visual Basic 是一种面向 _ 的可视化程序设计语言采取了 _ 的编程机 制 2在 VB 中工程文件的扩展名是 _ 窗体文件的扩展名是 _ 标准 ...
  • 考后答案VB程序设计综合复习资料 第一章 Visual Basic程序设计概述 一填空题 1Visual Basic 是一种面向 _的可视化程序设计语言采取了 _ 的编程机 制 2在 VB 中工程文件的扩展名是 _窗体文件的扩展名是 _ 标准 ...
  • VB程序设计综合复习资料 第一章 Visual Basic程序设计概述 一填空题 1Visual Basic是一种面向_的可视化程序设计语言采取了_的编程机制 2在VB中工程文件的扩展名是_窗体文件的扩展名是_标准模块文件的扩展名是_ 3...
  • VB程序设计综合复习资料 第一章 Visual Basic程序设计概述 一填空题 1Visual Basic是一种面向_的可视化程序设计语言采取了_的编程机制 2在VB中工程文件的扩展名是_窗体文件的扩展名是_标准模块文件的扩展名是_ 3...
  • vb程序设计教程+第三版+龚沛曾+课后答案
  • 通过对此答案的参考,可以使我们认识到自己在VB学习上还有哪些地方需要改进
  • visual basic 程序设计教程课后部分答案 第三版 高等教育出版社,全部的实验题目答案和实验报告答案,很全很详细,适合自学VB的一套很好的参考资料
  • 程序设计案例教程课后习题参考答案 习题1 一选择题 1.在.NET中不能使用的语言是( B A.C# B.Pascal C.VB D.VC++ 2( A 可以帮助用户可视化的程序设计界面 A.工具箱 B. 类视图 C.解决方案资源管理器 D.动态帮助 3.导入...
  • vb程序设计案例教程》课后习题答案PrivateSubCommand1_Click()Fori=1To10Forj=1To10Ifi*j>=10Andi*jPrinti*j;EndIfNextjNextiEndSub求大学python3程序设计基础答案 刘德山主编 网上找不到 希望大家帮帮忙答案我...
  • 程序设计案例教程课后习题参考答案 习题1 一选择题 1在.NET中不能使用的语言是 B A.C# B.Pascal C.VB D.VC++ 2( A )可以帮助用户可视化的程序设计界面 A.工具箱 B. 类视图 C.解决方案资源管理器 D.动态帮助 3导入...
  • 序言第一篇基础知识第1章VisualBasic基本知识1.1知识点1....可视化程序设计2.事件过程3.VB6.0的三种工作模式4.设计VB6.0应用程序的一般步骤5.VB工程文件1.3学习难点1.4典型题解第2章简单的程序设...
  • VB课后答案

    2011-12-05 22:20:10
    这是课本VB程序设计教程第三版主编龚沛增课后习题答案实验D的,需要的可以看下

空空如也

空空如也

1 2 3
收藏数 49
精华内容 19
关键字:

vb程序设计教程答案