admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：movieclip unity)

课前体验

Private Sub Form_Click()

For i = 1 To 10

For j = 1 To i

Print "* ";

Next j

Print

Next i

End Sub

【例3-1】

Private Sub Form_Click()

c1$ = Chr$(13) + Chr$(10)

msg1$ = "请输入您的名字: "

msg2$ = "输入后按回车键"

msg3$ = "或单击“确定”按钮"

msg$ = msg1$ + c1$ + msg2$ + c1$ + msg3$

name$ = InputBox(msg$, "InputBox 函数示例", "张三")

Print name$

End Sub

【例3-2】

Private Sub Form_Click()

Msg1$=”Are you Continue to?”

msg2$=”Operation Dialog Box”

r=MsgBox(msg1$,34,msg2$)

Print r

End Sub

【例3-3】编写程序，用MsgBox函数判断是否继续执行。

Private Sub Form_Click()

msg$ = "请确认此数据是否正确"

Title$ = "数据检查对话框"

x = MsgBox(msg$, 19, Title$)

If x = 6 Then

Print x * x

ElseIf x = 7 Then

Print "请重新输入"

End If

End Sub

【例3-5】

1

Private Sub Form_Click()

Print: Print

FontName = "隶书"

FontSize = 16

Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务";

Print Tab(24); "单位"; Tab(32); "籍贯"

Print

Print "吴大明"; Tab(8); 25; Tab(16); "职员"; Tab(24); "人事科";

Tab(32); "北京"

End Sub

【例3-6】

Private Sub Form_Click()

X = InputBox("请输入成绩", "学生成绩录入", "00")

Print x

End Sub

【例3-7】

Private Sub Form_Click()

Dim x As Single, y As Single

x=InputBox(“请输入x的值”)

If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1

Print “x=”; x ,”y=” ; y

End Sub

【例3-8】

Private Sub Form_Click()

Dim msg, UserInput

msg = "请输入一个字母或0～9之间的数字."

UserInput = InputBox(msg) ‘输入一个字母或数字

If Not IsNumeric(UserInput) Then ‘判断是否是数字

If Len(UserInput) = 1 Then ‘不是数字时，判断输入的

字符串长度是否为1

Select Case Asc(UserInput) ‘判断输入字母的

ASCII码值

Case 60 To 90 '在60-90之间为大写

字母

msg = "你输入的是一个大写字母'"

msg = msg & Chr(Asc(UserInput)) & "'。"

Case 97 To 122 '小写字母

2


本文标签： 输入 是否 判断 函数

版权声明：本文标题：VisualBasic实例源代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711517088a597931.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。