vb顺序结构（补充了msgbox图标）.pptVIP

* 例: 图标类型—16、32、48、64或符号常量 Private Sub Command1_Click() A = MsgBox(提示信息, 16, 标题内容) End Sub 例: 默认按钮—0，256，512 Private Sub Command1_Click() a = MsgBox(提示信息, 2 + 256, 标题内容) Print a End Sub 按回车打印4 * 4.3.3 用文本框(TextBox)输出数据 【例4.7】在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值 Text1 Text2 Command1 * Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text Space(5) Char _ Space(10) Str(Asc(Char)) vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) E