![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
求篇VB程序设计的实验报告
【实验目的】1掌握变量,常量的定义规则及VB基本输入输出函数和语句的功能和用法。2熟悉选择结构和循环结构程序设计,灵活使用各种控制语句。3掌握数组的定义方法,及数组元素的...
【 实验目的 】 1 掌握变量,常量的定义规则及VB基本输入输出函数和语句的功能和用法。 2 熟悉选择结构和循环结构程序设计,灵活使用各种控制语句。 3 掌握数组的定义方法,及数组元素的引用,赋值,输入和输出。 【 实验环境 】 VB6.0 奔腾586 【 实验内容 】 编写程序,试验Msgbox函数的功能。 程序要求:在屏幕上开辟一个对话框,对话框的下部有三个按钮,其中左边按钮中标有“终止”,中间按钮中标有“重试”,右边按钮中标有“忽略”(2)。对话框内提示语为“Are you continue to?”,对话框标题“功能测试”,显示“?”图标(32),并把第一个按钮作为默认活动按钮(0)。对话框见图2.8。输出函数的返回值,单击终止,打印返回值3,见图2.9;单击重试,打印返回值4,见图2.10;单击忽略,打印返回值5,见图2.11。
展开
展开全部
Private Sub Command1_Click() Dim str As String str = MsgBox("Are you continue to?", vbAbortRetryIgnore Or vbDefaultButton1 Or vbQuestion, "功能测试") Select Case str Case vbAbort MsgBox "3", , "功能测试" Case vbRetry MsgBox "4", , "功能测试" Case vbIgnore MsgBox "5", , "功能测试" End Select End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询