第1章 Visual basic60基本知识 4.编写一个倒计数窗体程序。其功能是,用户在文本框中输入一个自然数,然后单 击“倒计数”按钮,文本框中的数字就每隔0.5秒逐次减1,当减到0时,倒计数停止 Option Explicit Private Sub Form Load Timer l Enabled false Timer1 Interval =500 End Sub Private Sub Command1 Click Timer Enabled =Tr End Sub Private Sub Timer 1 Timer If Val(TextI. Text)=0 Then Timer 1. Enabled False Text. SetF Textl. Text Str( Val(TextIText End If End Sub 15.菜单有哪几种类型?应用程序中菜单的用途是什么? 主要有标准下拉菜单和弹出式菜单这两种类型。菜单能够有效改善用户界面。菜单实 质上是命令的组合,它把诸多面向用户的命令按照类别合理组织,并很直观地展现出来, 由此使用户可以很方便地操作命令。 16.工具栏的作用是什么?如何使得工具栏上的按钮和菜单命令在操作上保持一致? 工具栏是用来配合菜单的。工具栏具有菜单所缺少的图形化的外观,而且提供了比菜 单更快捷的访问方式。工具栏上的按钮可以通过调用菜单控件的事件来获得对菜单命令的 配合 17. Visual basic提供了哪些对话框函数 Visual basic提供的对话框函数有 (1) Input Box函数,用于等待用户在文本框中输入,并返回包含文本框内容的字符·10· 第 1 章 Visual Basic 6.0 基本知识 14. 编写一个倒计数窗体程序。其功能是，用户在文本框中输入一个自然数，然后单 击“倒计数”按钮，文本框中的数字就每隔 0.5 秒逐次减 1，当减到 0 时，倒计数停止。 Option Explicit Private Sub Form_Load() Text1 = "" Timer1.Enabled = False Timer1.Interval = 500 End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Val(Text1.Text) = 0 Then Text1.Text = "" Timer1.Enabled = False Text1.SetFocus Else Text1.Text = Str(Val(Text1.Text) - 1) End If End Sub 15. 菜单有哪几种类型？应用程序中菜单的用途是什么？ 主要有标准下拉菜单和弹出式菜单这两种类型。菜单能够有效改善用户界面。菜单实 质上是命令的组合，它把诸多面向用户的命令按照类别合理组织，并很直观地展现出来， 由此使用户可以很方便地操作命令。 16. 工具栏的作用是什么？如何使得工具栏上的按钮和菜单命令在操作上保持一致？ 工具栏是用来配合菜单的。工具栏具有菜单所缺少的图形化的外观，而且提供了比菜 单更快捷的访问方式。工具栏上的按钮可以通过调用菜单控件的事件来获得对菜单命令的 配合。 17. Visual Basic 提供了哪些对话框函数？ Visual Basic 提供的对话框函数有： （1）InputBox 函数，用于等待用户在文本框中输入，并返回包含文本框内容的字符