2. 计算机
  3. 阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 【说明】 以下代码实现了当用户退出界面时，判断TextEdit中的文字是否发生改变，弹出对话框判断，让用户选择是否保存文件或取消退出界面操作。阅读下面的代码，将其补充完

阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 【说明】 以下代码实现了当用户退出界面时，判断TextEdit中的文字是否发生改变，弹出对话框判断，让用户选择是否保存文件或取消退出界面操作。阅读下面的代码，将其补充完

admin2009-02-15  53
问题 阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
【说明】
   以下代码实现了当用户退出界面时，判断TextEdit中的文字是否发生改变，弹出对话框判断，让用户选择是否保存文件或取消退出界面操作。阅读下面的代码，将其补充完整。
   【代码7-1】
   Begin VB.Form Forml
   //...窗体描述(略)
     Begin VB.TextBox TextEdit
         Height          =   1830
         Left            =   180
         Tablndex        =   0
         Text            =   "TextEdit"
         Top             =   360
         Width           =   3885
       End
   //...窗体描述(略)
   End
   【代码7-2】
   Dim txtchange As Boolean
   Dim myval As String
   Private Sub Form Load ()
    TextEdit.Text: "CIU, 中国软考联盟!"
     txtchange = False
   End Sub
   【代码7-3】
   Private Sub TextEdit_Change ()
       Static notchange As Boolean
         (1)  
   notchange = Tree
       End Sub
       Private Sub Form_Unload ( Cancel As Integer )
         Dim myval As String
         If  (2)  Then
             myval = MsgBox ( "保存文件的更改吗?", vbYesNoCancel, "提示信息" )
             If  (3)  Then
                 MsgBox "保存成功"
                 End
             End If
             If  (4)  Then End
             If  (5)  Then Cancel = 1
       End If
   End Sub
选项
答案(1)完成了状态初始化。(2)文字发生了改动，txtchange=True，向用户发出提示信息，弹出对话框。 (3)、(4)、(5)根据对话框的返回值做出相应的反应。 (1) txtchange = notchange (2) txtchange = True (3) myval = vbYes (4) myval = vbNo (5) myval = vbCancel
解析
转载请注明原文地址:https://www.kaotiyun.com/show/lsjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)