求篇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。 展开
 我来答
花落花四季芳菲9946
2015-01-07 · 超过56用户采纳过TA的回答
知道答主
回答量:127
采纳率:60%
帮助的人:64.4万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式