万能百科  > 所属分类  > 

阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。【说明】 以下代码实现了当用户

阅读以下说明和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(1)完成了状态初始化。(2)文字发生了改动,txtchange=True,向用户发出提示信息,弹出对话框。 (3)

词条内容仅供参考,如果您需要解决具体问题
(尤其在法律、医学等领域),建议您咨询相关领域专业人士。

标签