VB程序设计教程(第四版)龚沛曾-实验8-3

最新推荐文章于 2025-03-13 16:26:42 发布

xcxgood

最新推荐文章于 2025-03-13 16:26:42 发布

阅读量2.9k

点赞数 2

分类专栏：学习课后习题答案文章标签： VB程序设计教程第四版龚沛曾实验

本文链接：https://blog.youkuaiyun.com/xcxgood/article/details/89945926

版权

学习同时被 2 个专栏收录

24 篇文章

订阅专栏

课后习题答案

10 篇文章

订阅专栏

该博客围绕VB程序设计实验8 - 3展开，要求设计应用程序，实现单击“打开文件”“保存文件”“查找下一个”按钮的相应功能。给出了解题思路，即添加4个按钮、1个文本框和1个通用对话框控件，并附上了具体的代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

实验8-3

VB程序题：设计一个如图2.8.4所示的应用程序，要求如下：
（1.）单击“打开文件”按钮弹出一个通用对话框，选择文件后显示在文本框中
（2）.单击“保存文件”按钮后弹出通用对话框，确定文件名后保存。
（3）单击“查找下一个”按钮后在文本文件中查找单词“VB”，找到后以高亮度显示。

解题，画4个按钮，1个文本框控件，再加上一个通用对话框控件，代码如下：

Private Sub Command1_Click()
    CommonDialog1.Action = 1
    Text1.Text = ""
    Open CommonDialog1.FileName For Input As #1
    Do While Not EOF(1)
        Line Input #1, inputdata
        Text1.Text = Text1.Text & inputdata & vbCrLf
    Loop
    Close #1
End Sub

Private Sub Command2_Click()
    CommonDialog1.FileName = "Default.Txt"
    CommonDialog1.DefaultExt = "Txt"
    CommonDialog1.Action = 2
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Command3_Click()
    Static j%
    Text1.SetFocus
    j = InStr(j + 1, Text1, "VB")

    If j > 0 Then
        Text1.SelStart = j - 1
        Text1.SelLength = 2
        j = j + 1
    Else:
        MsgBox "找不到!"
    End If
End Sub

Private Sub Command4_Click()
End
End Sub