VB编程菜鸟求解答

i = MsgBox("密码错误", 5)

'MsgBox是弹窗函数，第一个参数是弹出的提示窗口需要显示的信息，第二个参数表示需要显示按钮组合，具体参数值见下面：

'vbOKOnly 0 只显示“确定”按钮。（缺省）

'vbOKCancel 1 显示“确定”和“取消”按钮

'vbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略”按钮

'vbYesNoCancel 3 显示“是”、“否”和“取消”按钮

'vbYesNo 4 显示“是”和“否”按钮

'vbRetryCancel 5 显示“重试”和“取消”按钮

If i <> 4 Then

'如果MsgBox的返回值不等于4，也就是如果点击的按钮不是“重试”，MsgBox函数返回值参见下面：

'vbOK 1 单击了“确定”按钮

'vbCancel 2 单击了“取消”按钮

'vbAbort 3 单击了“终止”按钮

'vbRetry 4 单击了“重试”按钮

'vbIgnore 5 单击了“忽略”按钮

'vbYes 6 单击了“是”按钮

'vbNo 7 单击了“否”按钮

Quit

'这个应该是自定义的过程（sub），在此处调用Quit过程退出程序

Else

MeText0SetFocus

'设置Text0获取焦点

MeText0Text = ""

'清空Text0的内容

End If

首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。

在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：

Private Sub Command1_Click()

Form2Show//用show方法加载并且显示名为Form2的窗体

End Sub 

show 方法后面省略了两个参数即Form2Show 0或Form2Show 1此参数可缺省。

扩展资料

VB窗体的三个基本概念：

编VB程序首先要创建一个良好的可视化界面。每个程序界面是由窗体(Form) 和一些必要的控件元素(Control) 构成的。由于VB属于面向对象编程，所以一般将窗体与控件都称为对象。

需要先了解一下三个基本概念：对象的属性、方法和事件。

属性：指对象(窗体,控件)的大小、颜色、方位等一系列外观或内部构造的特征。

方法：指对象(窗体,控件)所进行的操作。

事件：指对象(窗体,控件)对外部条件的响应。

现今的Windows视窗操作系统，与以前Dos最显著的区别就是其拥有一个为用户所能接受的图形界面。在这个可视化的图形界面中，户能方便地使用多个程序，而这一切就象在针对一个个窗口进行操作。

利用msgbox方法即可实现弹出，简单代码如下：

Private Sub CommandButton1_Click()

MsgBox("弹窗演示", vbInformation + vbOkOnly, "这是一个弹出")

End Sub

关于此例中用到的Msgbox的相关知识：

1、作用

在消息框中显示信息，并等待用户单击按钮，可返回单击的按钮值(比如“确定”或者“取消”)。通常用作显示变量值的一种方式。

2、语法

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

参数说明：

(1)Prompt，必需的参数，为字符串，作为显示在消息框中的消息文本。其最大长度约为1024个字符，由所用字符的宽度决定。如果prompt的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。

(2)Buttons，可选的参数，为数值表达式的值之和，指定显示的按钮的数目及形式、使用的图标样式、缺省按钮及消息框的强制回应等，可以此定制消息框。若省略该参数，则其缺省值为0。设置值见下表。

(3)Title，可选的参数，表示在消息框的标题栏中所显示的文本。若省略该参数，则将应用程序名放在标题栏中。

(4)Helpfile，可选的参数，为字符串表达式，提供帮助文件。若有Helpfile，则必须有Context。

(5)Context，可选的参数，为数值表达式，提供帮助主题。若有Context，则必须有Helpfile。

3、Button参数

用于MsgBox函数中Button参数的常量

常量 值 说明

vbOKOnly 0 只显示“确定”按钮

VbOKCancel 1 显示“确定”和“取消”按钮

VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮

VbYesNoCancel 3 显示“是”、“否”和“取消”按钮

VbYesNo 4 显示“是”和“否”按钮

VbRetryCancel 5 显示“重试”和“取消”按钮

VbCritical 16 显示“关键信息”图标

VbQuestion 32 显示“警告询问”图标

VbExclamation 48 显示“警告消息”图标

VbInformation 64 显示“通知消息”图标

vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)

vbDefaultButton2 256第二个按钮是缺省值

vbDefaultButton3 512第三个按钮是缺省值

vbDefaultButton4 768第四个按钮是缺省值

vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框

作出响应才继续工作

vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作

出响应才继续工作

vbMsgBoxHelpButton 16384将Help按钮添加到消息框

VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口

vbMsgBoxRight 524288文本为右对齐

vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示

说明：

(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48,64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候，只能由每组值取用一个数字。

(2)这些常数都是VBA指定的，可以在程序代码中使用这些常数名称代替实际数值。

4、返回值

用于MsgBox函数返回值的常量

常数 值 说明

vbOK 1 确定

vbCancel 2 取消

vbAbort 3 终止

vbRetry 4 重试

vbIgnore 5 忽略

vbYes 6 是

vbNo 7 否

5、相关说明

(1) 如果同时提供了Helpfile与Context参数，可以按F1键来查看与Context相应的帮助主题，Excel通常会在输入框中自动添加一个帮助(Help)按钮。

(2)若在消息框中显示“取消”按钮，则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮，则提供相关的帮助信息。

(3)如果要输入多个参数并省略中间的某些参数，则必须在相应位置加入逗号分界符。

这个程序就是要让使用者说出 最喜欢的人是"yumiko886"的时候 才可以关闭

主要就是 下面这个循环

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

loop until youranswer = yourname 这个是循环退出的条件 只有当回答的内容等于yourname这个变量的时候（"yumiko886"） 才退出

用MsgBox 函数，参见以下代码

    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

    Msg = "Do you want to continue "   ' 定义信息。

    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。

    Title = "MsgBox Demonstration"   ' 定义标题。

    Help = "DEMOHLP"   ' 定义帮助文件。

    Ctxt = 1000   ' 定义标题

          ' 上下文。

          ' 显示信息。

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

    If Response = vbYes Then   ' 用户按下“是”。

        MyString = "Yes"   ' 完成某操作。

    Else   ' 用户按下“否”。

        MyString = "No"   ' 完成某操作。

    End If

代码摘引自MSDN 

直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()

x = MsgBox("确定要退出吗？", vbYesNo, "提示")

If x = vbYes Then

End

End If

End Sub

VB的系统特性：

1工程限制：

实际文本之前最多只能有256 个空格的前导，在一个逻辑行中最多只能有25 个续行符。

2过程、类型和变量：

对每个模块的过程数没有限制。每个过程可包含至多64K 的代码。如果过程或模块超过这一限制，Visual Basic 便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的程，或将模块级声明移到另一模块，来避免此类错误发生。Visual Basic 用表来保存代码中的标识符名(变量、过程、常量等)。每个表限于64K。

3动态链接库声明表：

每个窗体和代码模块使用一个描述动态链接库入口点的结构的表。每个结构约40 个字节，表的大小限于64K，形成每个模块大约有1500 个声明。

4工程名表：

整个应用程序用一张包含所有名称的表。这些名称包括：常量名、变量名、自定义的类型定义名、模块名、DLL 过程声明名。对工程名表总大小没有限制，但是区分大小写的条目不得超过32K。如果超过了32K 的限制，可以在不同的模块中重新使用private 标识符以限制区分大小写的条目数到达32K。

5输入表：

在不同的模块中每引用一个标识符，便在输入表中创建一个条目。每一个这样的入口最小是24 字节，但限于64K，这样每个模块大约可以有2000 个引用。

操作如下：

1、放置按钮，起名按钮1。

2、按钮鼠标事件中输入如下代码：Dim a

Dim objCon2

Set objCon2 = HMIRuntimeActiveScreenScreenItems(

如果是帖子文字这样所有的IF都是判断一个变量，使用SELECT CASE文件是完美解决方案，在最后的CASE ELSE里面MSGBOX "全部都不满足"

真没办法看清楚，好像和帖子文本的不同，不是所有IF都判断一个变量，那还只有用IF判断，最后要检测所有的IF都没有满足，需要增加一个变量，按照帖子代码的框架这么写：

dim passed as boolean '定义变量

passed = false'初始化

if t1text =xx then

t2text=号码1

t3text=号码2

passed = true '设置标记

end if

if t1text =yy then

t2text=号码3

t3text=号码4

passed = true '设置标记

end if

'最后判断

if not passed then msgbox "全部都不满足"