SSub xx()
MsgBox "这里是16(vbCritical):关键信息提示图标,一把红色的叉叉。", 16
MsgBox "这里是32(vbQuestion):询问提示图标,一个问号。", 32
MsgBox "这里是48(vbExclamation ):感叹号警示图标,一个黄色感叹号。", 48
MsgBox "这里是64(vbInformation):i提示符,信息提示图标,一个灰色的i字符。", 64
End Sub
上面的代码中,16可以替换成VbCritical,64可以替换成vbInformation。这些数字是VB系统常数的数值。也就是在VB系统里面,vbInformation这个常数的数值为64,以此类推!以下是各个数值常数所对应的图标!
追问
我不管输入什么样的信息,点击查询,为什么总是出现这个,要怎么改?
本回答被提问者采纳