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

admin2009-02-15  26

问题 阅读以下说明和Visual Basic代码,将应填入(n)处的字名写在对应栏内。
   [说明]
   以下代码实现了当用户推出界面时,判断TextEdit中的文字是否发生改变,弹出对话框判断,让用户选择选择是否保存文件或取消退出界面操作。阅读下面代码,补充完整。
   [代码7-1]
   Begin VB.Form Forml
   //...窗体描述(略)
     Begin VB.TextBox TextEdit
       Height         =  1830
       Left           =  180
       TabIndex       =  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)  
     (2)  
   End Sub
   Private Sub Form_Unload ( Cancel As Integer )
     Dim myval As String
     If  (3)   Then
       myval = MsgBox ( "保存文件的更改吗?", vbYesNoCancel, "提示信息" )
       If  (4)   Then
          MsgBox "保存成功"
          End
       End If
       If  (5)   Then End
       If  (6)   Then Cancel = 1
     End If
   End Sub

选项

答案(1)txtchange=notchange (2)notchange=True (3)txtchange=True (4)myval=vbYes (5)myval=vbNo (6)myval=vbCancel

解析 本题代码实现了当用户退出界面时,判断TextEdit中的文字是否发生改变,弹出对话框判断,让用户选择是否保存文件或取消退出界面操作。(1)、(2)完成了状态初始化。(3)文字发生了改动,txtchange= True,向用户发出提示信息,弹出对话框。(4)、(5)、(6)根据对话框的返回值做出相应的反应。
转载请注明原文地址:https://kaotiyun.com/show/zwDZ777K
0

最新回复(0)