输入框(InputBox)函数的应用

输入框(InputBox)函数的应用 实验七 输入框(InputBox)函数的应用 【实验目的】 1. 灵活掌握输入对话框函数的语法格式及使用。 2. 学会运用InputBox()函数解决实践生活中的问题。 【实验内容与要求】 1(预习教材相关知识点，完成下列上机操作题的程序代码的编写。 2(分别在D盘中建立四个文件夹:第1题、第2题、第3题、……。 3(上机验证下列几题，并将其分别保存到D盘下的几个文件夹中。 【知识点】 1( 输入框函数的语法格式 <变量>=InputBox(<提示内容>[,<对话框标题>[,<默认内容>]]) 2( 使用过程中几点说明 ?<提示内容>:指定在对话框中出现的提示信息。 ?<对话框标题>:指定对话框的标题。 ?<默认内容>:可以指定对话框的文本框中显示的默认文本。如果用户单击“确定”按钮，文本框中的文本将返回到变量中。 如:FileName=InputBox(“输入文件名”,”打开文件”,”file1”) 【上机操作题】 1(在窗体的Activate事件中编写代码，产生如下图所示的输入对话框。 第 1 页 共 3页 参考代码: Private Sub Form_Activate() score = InputBox("___________", "_______", ____) End Sub 2(在窗体的Activate事件中编写代码，产生如下图所示的输入对话框。 参考代码如下，请填写完整空格。 Private Sub Form_Activate() score = InputBox( ______________ , ______________ , _________ ) End Sub 3( 用一个Input对话框输入一个圆的半径，用MsgBox对话框输出圆面积与圆 周长。要求不显示窗体本身。 Private Sub Form_Load() Visible = False r = ___________________________________ s$ = "圆面积=" + Str$(3.1415 * r * r) + "周长=" + Str$(2 * 3.1415 * r) _______________________________________ Unload Me End Sub 第 2 页 共 3页 第 3 页 共 3页