VB编程之对话框设计1

《VB编程之对话框设计1》由会员分享，可在线阅读，更多相关《VB编程之对话框设计1（71页珍藏版）》请在金锄头文库上搜索。

1、 第第6章章 对话框的设计对话框的设计第第6章章 对话框的设计对话框的设计6.1 知识要点知识要点6.2 习题与解答习题与解答6.3 实训指导实训指导6.4 测验题测验题6.1知知识要点要点1、预定定义对话框框 预定定义对话框是系框是系统已已经设计好好的的对话框，它框，它们可以通可以通过程序程序执行具行具体的函数来被体的函数来被显示。在示。在Visual Basic 6.0中，中，预定定义对话框包含框包含输入入对话框和消息框。框和消息框。（1）输入对话框）输入对话框创建输入对话框的标准函数是创建输入对话框的标准函数是InputBox函数，该函数显示一个接函数，该函数显示一个接收用户输入的对话框

2、，对话框中显示收用户输入的对话框，对话框中显示提示文本，等待用户输入或按下按钮，提示文本，等待用户输入或按下按钮，并返回文本框的内容。并返回文本框的内容。InputBox函数的语法格式为：函数的语法格式为：InputBox (prompt,title,default,xpos,ypos,helpfile,context)其中：其中：Prompt为必需的字符串表达式参数，提必需的字符串表达式参数，提供供显示在示在对话框中的提示文本。框中的提示文本。Title为可可选字符串表达式参数，提供字符串表达式参数，提供标题显示在示在对话框的框的标题栏中。中。Default为可可选字符串表达式参数，提供字符

3、串表达式参数，提供输入框的缺省入框的缺省输入文本。入文本。Xpos和和Ypos都是可都是可选的数的数值表达式，成表达式，成对出出现，指出，指出对话框左上角的屏幕坐框左上角的屏幕坐标。InputBox函数返回文本框中函数返回文本框中输入的内容，入的内容，为字符串字符串类型。型。（2）消息框）消息框创建消息框的标准函数是创建消息框的标准函数是MsgBox函函数，该函数在对话框中显示消息，等数，该函数在对话框中显示消息，等待用户按下按钮，并返回一个整数来待用户按下按钮，并返回一个整数来表示用户按下了哪一个按钮。表示用户按下了哪一个按钮。MsgBox函数的函数的语法格式法格式为：MsgtBox(pro

4、mpt,buttons,title,helpfile,context)其中：其中：Prompt是必要的字符串表达式参数，是必要的字符串表达式参数，作作为显示在示在对话框中的消息框中的消息。Buttons是可是可选参数，参数，该数数值表达表达式是分式是分别代表代表显示按示按钮形式、使用形式、使用图标样式、缺省按式、缺省按钮样式和式和对话框模式框模式的四个数的四个数值的和。的和。Title是可是可选参数。参数。该字符串表达式字符串表达式作作为标题显示在消息框的示在消息框的标题栏中。中。MsgBox函数返回函数返回值为16之之间的的一个整数，表示用一个整数，表示用户按下了按下了“确定确定”、“取消取

5、消”、“终止止”、“重重试”、“忽略忽略”或或“是是”按按钮。2、通用、通用对话框框（1）通用对话框的使用）通用对话框的使用 把把“通用对话框（通用对话框（Common Dialog）”控件添加到工具箱中的控件添加到工具箱中的方法为：方法为：从从“工程工程”菜单中选菜单中选“部件部件”命令，命令，或用鼠标右键单击工具箱，选其中或用鼠标右键单击工具箱，选其中“部件部件”命令，弹出命令，弹出“部件部件”对话框对话框。在在“部件部件”对话框的对话框的“控件控件”选项选项卡中，查找卡中，查找“Microsoft Common Dialog Control 6.0”并将其选中，并将其选中，然后单击然后单

6、击“确定确定”按钮。按钮。 “通用对话框通用对话框”提供的六种对话框可以提供的六种对话框可以通过设置它的通过设置它的Action属性或调用对属性或调用对应的六种方法来打开。通用对话框的应的六种方法来打开。通用对话框的属性、方法和含义见表属性、方法和含义见表6-1。表表6-1 通用对话框的属性、方法和作用通用对话框的属性、方法和作用 Action属性值属性值方方 法法所所显显示示的的对话框对话框1ShowOpen“打打 开开 ”对话框对话框2ShowSave“保保 存存 ”对话框对话框3ShowColor“颜颜 色色 ”对话框对话框4ShowFont“字字 体体 ”对话框对话框5ShowPrin

7、ter“打打 印印 ”对话框对话框6ShowHelpWindows帮助引擎帮助引擎（2）“打开打开”对话框对话框“打开打开”对话框的功能是指定文件的驱动对话框的功能是指定文件的驱动器、目录、文件扩展名和文件名。使用器、目录、文件扩展名和文件名。使用“打开打开”对话框时，通常首先对其进行属性对话框时，通常首先对其进行属性设置，各属性含义和设置方法如下：设置，各属性含义和设置方法如下：对话框标题（对话框标题（DialogTitle属性）：设置属性）：设置对话框的标题，缺省值为对话框的标题，缺省值为“打开打开”。文件名称（文件名称（FileName属性）：设置属性）：设置“打打开开”对话框中对话框中

8、“文件名文件名”区中的初始文件区中的初始文件名，同时也能返回用户在对话框中选中的名，同时也能返回用户在对话框中选中的文件名。文件名。初始化路径（初始化路径（InitDir属性）：设置初始属性）：设置初始目录，同时也能返回用户选择的目录名。目录，同时也能返回用户选择的目录名。过滤器（过滤器（Filter属性）：设置对话框中的属性）：设置对话框中的文件列表中显示的文件类型。设置过滤器文件列表中显示的文件类型。设置过滤器属性的格式为：属性的格式为：description1 | filter1 | description2 | filter2其中，其中，description是在是在“打开打开”对话框

9、对话框中的文件类型列表框中显示的字符串。中的文件类型列表框中显示的字符串。标志（标志（Flags属性）：用来修改每属性）：用来修改每个具体对话框的默认操作。个具体对话框的默认操作。缺省扩展名（缺省扩展名（DefaultExt属性）：属性）：设置在对话框中的缺省扩展名设置在对话框中的缺省扩展名文件最大长度（文件最大长度（MaxFileSize属属性）：设置文件名的最大字节数。性）：设置文件名的最大字节数。过滤器索引（过滤器索引（FilterIndex属性）：属性）：用索引值来指定对话框使用哪一个过用索引值来指定对话框使用哪一个过滤器。滤器。取消引发错误（取消引发错误（CancelError属属性

10、）：决定当用户单击对话框上的性）：决定当用户单击对话框上的“取消取消”按钮时，是否会显示一个报错按钮时，是否会显示一个报错信息的消息框。信息的消息框。注：注：CancelError属性的设置方法属性的设置方法对其他几种对话框也同样适用。对其他几种对话框也同样适用。（3）“保存保存”对话框对话框“保存保存”对话框也是在对话框也是在Windows应应用程序中经常用到的。用用程序中经常用到的。用ShowSave方法显示对话框，它同方法显示对话框，它同样能指定文件的驱动器、目录、文件样能指定文件的驱动器、目录、文件扩展名和文件名，其使用方法和扩展名和文件名，其使用方法和“打打开开”对话框的使用方法基本

11、相同。对话框的使用方法基本相同。（4）“颜色颜色”对话框对话框“颜色颜色”对话框用来在调色板中选择对话框用来在调色板中选择颜色，或者是创建并选择自定义的颜颜色，或者是创建并选择自定义的颜色。要使用色。要使用“颜色颜色”对话框，通常先对话框，通常先设置设置“通用对话框通用对话框”控件中与颜色对控件中与颜色对话相关的属性，然后使用话相关的属性，然后使用ShowColor方法显示对话框，使用方法显示对话框，使用Color属性获得所选择的颜色。属性获得所选择的颜色。在在“通用对话框通用对话框”控件中和颜色相关的控件中和颜色相关的属性主要有属性主要有“颜色颜色”（Color）和）和“标志标志”（Flag

12、s）两个。）两个。“颜色颜色”（Color）属性用来设置用）属性用来设置用来设置来设置“颜色颜色”对话框的初始颜色，对话框的初始颜色，同时它也能返回用户在对话框中选择同时它也能返回用户在对话框中选择的颜色。的颜色。“标志标志”（Flags）属性用来决定）属性用来决定“颜色颜色”对话框的样式。对话框的样式。（5）“字体字体”对话框对话框“字体字体”对话框用来指定字体名称、对话框用来指定字体名称、大小、颜色和样式。要使用大小、颜色和样式。要使用“字体字体”对话框，通常先设置对话框，通常先设置“通用对话框通用对话框”控件中与字体对话相关的属性，然后控件中与字体对话相关的属性，然后使用使用ShowFo

13、nt方法来显示对话框。方法来显示对话框。“和字体相关的属性主要有和字体相关的属性主要有Color、FontBold、FontItalic、FontStrikethru、FontUnderline、FontName和和FontSize。在使用在使用ShowFont方法之前，一定要方法之前，一定要把把Flags属性设置为下述常数之一：属性设置为下述常数之一：cdlCFScreenFonts或或1：屏幕字：屏幕字体体cdlCFPrinterFonts或或2：打印机：打印机字体字体cdlCFBoth或或3：既可以是屏幕字体：既可以是屏幕字体又可以是打印机字体又可以是打印机字体（6）“打印打印”对话框对

14、话框“打印打印”对话框可以指定打印输出方对话框可以指定打印输出方式。可以指定被打印页的范围，打印式。可以指定被打印页的范围，打印质量，打印的份数等等。这个对话框质量，打印的份数等等。这个对话框还包含当前打印机的信息，并允许配还包含当前打印机的信息，并允许配置或重新安装缺省打印机。置或重新安装缺省打印机。“打印打印”对话框主要属性及其具体含义如下：对话框主要属性及其具体含义如下：复制（复制（Copies）：决定打印的份数。）：决定打印的份数。标志（标志（Flags）：如果把）：如果把Flags设置为设置为0，设置，设置“打印打印”对话框中的对话框中的“打印范围打印范围”。起始页（起始页（From

15、Page）和终止页）和终止页（ToPage）：用来设置从第几页打印到）：用来设置从第几页打印到第几页。第几页。最小（最小（Min）和最大（）和最大（Max）：分别用）：分别用于设置打印的最小和最大页码数。于设置打印的最小和最大页码数。方向（方向（Orientation）：用来设定打印）：用来设定打印的方向（的方向（1表示纵向，表示纵向，2表示横向）。表示横向）。（7）“帮助帮助”对话框对话框“帮助帮助”对话框可以用来制作应用程对话框可以用来制作应用程序的联机帮助。序的联机帮助。“帮助帮助”对话框主要对话框主要属性主要有：属性主要有：帮助上下文（帮助上下文（HelpContext）：）： 返回或

16、设置帮助文件中的主题的上下返回或设置帮助文件中的主题的上下文文ID，指定要显示的帮助主题。，指定要显示的帮助主题。帮助命令（帮助命令（HelpCommand）：返）：返回或设置联机帮助的类型。回或设置联机帮助的类型。帮助键（帮助键（HelpKey）：返回或设置）：返回或设置帮助主题的关键字。帮助主题的关键字。帮助文件（帮助文件（HelpFile）：返回或设）：返回或设置帮助文件的路径及其文件名称。置帮助文件的路径及其文件名称。3、自定、自定义对话框框自定义对话框实际是一个用户自行设计的，自定义对话框实际是一个用户自行设计的，用来完成用户和系统对话的窗体。用来完成用户和系统对话的窗体。创建自定义

17、对话框首先要创建一个窗体，创建自定义对话框首先要创建一个窗体，然后在窗体上添加必要的控件，完成对话然后在窗体上添加必要的控件，完成对话框的各种功能。对话框的框的各种功能。对话框的BorderStyle属属性通常设置为性通常设置为3FixedDialog。显示对话框使用显示对话框使用Show方法。对话框分成方法。对话框分成两种类型，即模式的和无模式的。两种类型，即模式的和无模式的。模式对话框是在继续操作应用程序的其他部模式对话框是在继续操作应用程序的其他部分之前必须被关闭的。而无模式对话框允许分之前必须被关闭的。而无模式对话框允许在对话框与其他窗体之间转移焦点而不必关在对话框与其他窗体之间转移焦

18、点而不必关闭对话框。闭对话框。Show方法的两个可选参数分别是方法的两个可选参数分别是style和和ownerform。如果要显示的对话框是模式。如果要显示的对话框是模式的，则的，则Style取值为取值为1或或vbModoal；如果；如果要显示的对话框是无模式的，则要显示的对话框是无模式的，则Style取值取值为为0或或vbModoaless。Ownerform参数参数决定该对话框是作为哪一个窗体的子窗体的。决定该对话框是作为哪一个窗体的子窗体的。第第6章章 对话框的设计对话框的设计6.1 知识要点知识要点6.2 习题与解答习题与解答6.3 实训指导实训指导6.4 测验题测验题6.2习题与解答

19、与解答1、简述用述用Visual Basic创建建对话框的几种方式。框的几种方式。答案：答案： 用用Visual Basic创建对话框有创建对话框有使用函数调用预定义对话框使用函数调用预定义对话框使用使用通用对话框通用对话框自定义对话框三种常用自定义对话框三种常用方法。方法。2、试写出生成以下三个写出生成以下三个对话框所框所对应的代的代码。图图6-2图图6-1图图6-3答案：（答案：（1）a = MsgBox(程序出程序出现严重错误！现严重错误！, vbInformation + _vbAbortRetryIgnore, 警告警告)或或a = MsgBox(程序出现严重错误！程序出现严重错误！

20、, 66, 警告警告)（2）b = MsgBox(你好，欢迎使你好，欢迎使用用Visual Basic！ & Chr(13) & Chr(10) & _想要退出吗？想要退出吗？, vbQuestion + vbYesNoCancel + vbDefaultButton2, 提示提示)或或b = MsgBox(你好，欢迎使用你好，欢迎使用Visual Basic！ & Chr(13) & Chr(10) & _想要退出吗？想要退出吗？, 291, 提示提示)（3）c = InputBox(请输入你所请输入你所在城市的电话区号号码：在城市的电话区号号码：, 输入输入, 0419)3、简述、简述“通

21、用对话框通用对话框”控件的使用控件的使用方法，使用方法，使用“通用对话框通用对话框”控件可以控件可以显示哪些对话框，它们分别通过什么显示哪些对话框，它们分别通过什么方法来实现。方法来实现。答案：要使用答案：要使用“通用对话框通用对话框（Common Dialog）”，必须先，必须先把该控件添加到工具箱中。具体方法把该控件添加到工具箱中。具体方法为：为：从从“工程工程”菜单中选菜单中选“部件部件”命令；命令；在在“部件部件”对话框的对话框的“控件控件”选项卡中，查找选项卡中，查找“Microsoft Common Dialog Control 6.0”并将其选中，然后单击并将其选中，然后单击“确

22、定确定”按钮。按钮。然后就可以象使用其他控件一样式样然后就可以象使用其他控件一样式样该控件了。该控件了。 使用使用“通用对话框通用对话框”控件可以显示控件可以显示“打开打开”对话框、对话框、“保存保存”对话框、对话框、“颜色颜色”对话框、对话框、“字体字体”对话框、对话框、“打印打印”对话框和对话框和Windows帮助引擎帮助引擎对话框。它们分别通过对话框。它们分别通过ShowOpen、 ShowSave、 ShowColor、 ShowFont、 ShowPrinter 和和ShowHelp方法来实现。方法来实现。4、模式、模式对话框和无模式框和无模式对话框的区框的区别是什么？是什么？ 答案

23、：模式答案：模式对话框是在框是在继续操作操作应用用程序的其他部分之前必程序的其他部分之前必须被关被关闭的。的。而无模式而无模式对话框允框允许在在对话框与其他框与其他窗体之窗体之间转移焦点而不必关移焦点而不必关闭对话框。框。当当对话框正在工作框正在工作时，可以在当前，可以在当前应用程序的其他地方用程序的其他地方继续工作。工作。5、为什么要使用自定什么要使用自定义对话框？框？答案：自定义对话框与使用函数或通过答案：自定义对话框与使用函数或通过“通用对话框通用对话框”控件创建的对话框相控件创建的对话框相比，内容和功能都可以有更多的发挥比，内容和功能都可以有更多的发挥余地。使用函数创建的对话框一般都余

24、地。使用函数创建的对话框一般都很简单且功能单一，通常只是用来做很简单且功能单一，通常只是用来做简单的输入和提示。简单的输入和提示。 Continue通过通过“通用对话框通用对话框”控件只能创建的控件只能创建的标准的对话框。而自定义对话框则相标准的对话框。而自定义对话框则相对灵活且功能强大，通常会满足用户对灵活且功能强大，通常会满足用户为应用程序的继续运行而提供数据的为应用程序的继续运行而提供数据的需要。需要。第第6章章 对话框的设计对话框的设计6.1 知识要点知识要点6.2 习题与解答习题与解答6.3 实训指导实训指导6.4 测验题测验题6.3实训指指导6.3.1技能技能训练目的目的 掌握掌握

25、InputBox函数的使用方法函数的使用方法 掌握掌握MsgBox函数的使用方法函数的使用方法 掌握掌握“通用对话框通用对话框”的使用方法的使用方法 掌握掌握“自定义对话框自定义对话框”的创建和使的创建和使用方法用方法6.3.2技能技能训练内容内容【实训6.1】设计程序，窗体程序，窗体见 图6-4。单击“输入入”按按钮，则通通过输入入对话框分框分别输入十个整数并入十个整数并显示在示在“输入数据入数据”后面的文本框中。后面的文本框中。单击“排序排序”按按钮，十个整数从小到大排序，十个整数从小到大排序后后显示在示在“排序后排序后”后面的文本框中。后面的文本框中。单击“清除清除”按按钮，两个文本框全

26、部清，两个文本框全部清控。控。单击“退出退出”，程序，程序结束。束。图图6-4提示：提示：在窗体上添加两个标签控件在窗体上添加两个标签控件（Label1和和Label2），），它们的它们的Caption属性分别是属性分别是“输入数据：输入数据：”和和“排序后：排序后：”；再添加；再添加两个标签控件两个标签控件（Label3和和Label4），），它它们的们的Caption属性均为空，属性均为空，BorderStyle属性均设为属性均设为1；添加四个命；添加四个命令按钮（令按钮（Command1 、Command2、 Command3和和Command4），它们的），它们的Caption属性分别

27、为属性分别为“输入输入”、“排序排序”、“清除清除”和和“退出退出”。参考代码：参考代码：Option ExplicitDim a(9) As IntegerPrivate Sub Command1_Click() Dim i As Integer, s As String For i = 0 To 9 s = InputBox(请输入一个整数请输入一个整数, 输入输入) a(i) = Val(s) Label3.Caption = Label3.Caption + + s Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer,

28、j As Integer, t As Integer For i = 0 To 8 For j = i + 1 To 9 If a(j) = 1 And Val(s) = 100 ansinf = MsgBox(输入数据不合法，入数据不合法，请核核对后重后重新新输入！入！, 49, 错误提示提示) If ansinf = vbOK Then s = InputBox(请输入一个整数入一个整数, 输入入) Else End End If Loop a(i) = Val(s) Label3.Caption = Label3.Caption + + s Next iEnd Sub【实训6.3】设计一

29、个一个验证密密码的程的程序（如序（如图6-6所示）。假定密所示）。假定密码为“abc”，用，用户输入是否正确入是否正确请用消息用消息框来框来给予提示（如予提示（如图6-7所示）。如所示）。如果密果密码输入入错误，提示是否重新，提示是否重新输入入（如（如图6-8所示），但只能最多所示），但只能最多进行行三次重新三次重新输入，一旦密入，一旦密码输入次数超入次数超过三次，程序三次，程序给出警告提示（如出警告提示（如图6-9所示），并所示），并结束。束。图图6-6图图6-7图图6-8图图6-9参考代码：参考代码：Option ExplicitPrivate Sub Command1_Click() D

30、im ansinf As Integer Static i As Integer If Text1.Text = abc Then Form1.Hide ansinf = MsgBox(密密码正确，正确，欢迎迎进入本程序！入本程序！, 64, 密密码正确正确) Else ansinf = MsgBox(密密码错误，是否重新，是否重新输入？入？, 36, 错误提示提示) End If If ansinf = 6 Then Text1.Text = Text1.SetFocus ElseIf ansinf = 7 Then End End Ifi = i + 1 If i = 3 Then ans

31、inf = MsgBox(你是非法用户，程序即将退出！, 16, 严重错误) End End IfEnd SubPrivate Sub Command2_Click()Text1.Text = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End IfEnd Sub【实训6.4】设计程序。程序。实现简单文本文本编辑器具有的器具有的“打开打开”、“保存保存”、“颜色色设置置”

32、、“字体字体设置置”和和“打印打印”等功能。窗体如等功能。窗体如图6-10所示。所示。提示：窗体提示：窗体设计如如图所示，其中包含一个所示，其中包含一个通用通用对话框（框（CommonDialog1），一），一个文本框（个文本框（Text1）和六个命令按）和六个命令按钮（Command1 Command6）。）。由于本由于本实训内容与教材内容与教材6.2节例例题相似，相似，此此处仅提供提供“打开打开”功能的功能的实现代代码。图图6-10参考代码：参考代码：Private Sub Form_Load()CommonDialog1.CancelError = FalseEnd SubPrivate

33、 Sub Command1_Click()CommonDialog1.ShowOpenText1.Text = Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + Chr(13) + Chr(10)LoopClose #1End Sub第第6章章 对话框的设计对话框的设计6.1 知识要点知识要点6.2 习题与解答习题与解答6.3 实训指导实训指导6.4 测验题测验题6.4测验题6.4.1选择题1Com

34、mondialog1为窗体上一通用窗体上一通用对话框，与框，与Commondialog1.Action=3作用相同作用相同的的语句是句是 。 ACommondialog1.ShowColor BCommondialog1.ShowOpen CCommondialog1.ShowSave DCommondialog1.ShowPrinter答案：答案：A2执行下列行下列语句句 a$=inputbox(“请输入一个整数入一个整数”,”输入整数入整数”,”123”)单击确定按钮后，单击确定按钮后，a$的值为的值为 。 A字符串字符串“输入整数输入整数” B整数整数123 C空字符串空字符串 D字符串

35、字符串“123”答案：答案：D3通通过通用通用对话框能打开框能打开“字体字体对话框框”的方法是的方法是 。 ACommondialog1.ShowColor BCommondialog1.ShowFont CCommondialog1.ShowSave DCommondialog1.ShowOpen答案：答案：B4下列代下列代码中中错误的是的是 。Aa=MsgBox ()BMsgBox 信息提示信息提示, vbInformation + vbOKCancelCa=MsgBox 信息提示信息提示, vbInformation + vbOKCancelDMsgBox “答案：答案：C5下列下列为“

36、打开打开”对话框框设置置过滤器属性器属性的的语句中正确的是句中正确的是 。ACommonDialog1.Filter = 所有文所有文件件|(*.*)|文本文件文本文件|(*.txt)BCommonDialog1.Filter = 所有文所有文件件| (*.*)|文本文件文本文件| (*.txt)CCommonDialog1.Filter = 所有文所有文件件|*.*|文本文件文本文件|*.txtDCommonDialog1.Filter = 所有文所有文件件|*.*|文本文件文本文件|*.txt“答案：答案：C6.4.2填空填空题1在窗体上有一命令按在窗体上有一命令按钮Button1，其，其

37、单击事件事件代代码如下：如下： Private Sub Command1_Click() Do While z 8 x = InputBox(x=) x = Val(x) y = InputBox(y=) y = Val(y) z = InputBox(z=) z = Val(z) x = x + y + z Loop Print xEnd Sub程序运行后，若依次输入程序运行后，若依次输入1，2，3，6，7，8后，输出的后，输出的结果是结果是 （1） 。答案：答案：212在使用在使用ShowFont方法之前，一方法之前，一定要先定要先设置置 （2） 属性。属性。答案：答案：flags属性属性

38、 3在用在用Show方法方法显示自定示自定义对话框框时，分，分别用用Show方法后方法后带 （3） 和和 （4） 参数来指定窗体参数来指定窗体为模式模式对话框或非模式框或非模式对话框。框。答案：（答案：（3）VbModal或或1 （4）VbModaless或或06.4.3编程程题编写加法写加法练习测试程序。窗体如程序。窗体如图6-11所示，程序运行自所示，程序运行自动产生两个生两个100以内以内的随机整数分的随机整数分别填入两个填入两个标签中，中，单击“计算算”按按钮，出，出现如如图6-12所示的所示的对话框，框，在在对话框中框中输入运算入运算结果。确果。确认输入数据入数据后，相后，相继有提示

39、有提示计算正确或算正确或错误，“是否是否继续计算？算？”的的对话框出框出现，分，分别如如图6-13、6-14和和6-15，如果，如果选择继续，程序，程序继续随机出随机出题，选择“否否”，则程序程序给出你答出你答题情况情况统计并并给出相出相应的分数，如的分数，如图6-16。图图6-11图图6-12图图6-13图图6-14图图6-15图图6-16参考答案参考答案Option ExplicitDim cornum As Integer, totnum As IntegerPrivate Sub Command1_Click() Dim ok As Integer, result As String,

40、 mark As Integer totnum = totnum + 1 result = InputBox(计算: + Label1.Caption + + + Label3.Caption, 写出正确答案) If Val(result) = Val(Label1.Caption) + Val(Label3.Caption) Then Label5.Caption = result ok = MsgBox(你算对了，继续努力！, vbOKOnly, 答案正确) cornum = cornum + 1 Else ok = MsgBox(很遗憾，你做错了！？, vbOKOnly, 答案错误) E

41、nd If ok = MsgBox(还继续吗？, vbYesNo, 询问) If ok = 6 Then RandomizeLabel1.Caption = Round(Rnd * 100) Label3.Caption = Round(Rnd * 100) Label5.Caption = Else mark = Round(cornum / totnum * 100) ok = MsgBox(你共计算了 & totnum & 道题，其中做对了 & cornum & 道。 & Chr(13) & Chr(10) & 分数为： & mark, , 统计分数) End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Randomize Label1.Caption = Round(Rnd * 100) Label3.Caption = Round(Rnd * 100) cornum = 0 totnum = 0End SubOVER