1
课前体验
Private Sub Form_Click()
For i = 1 To 10
For j = 1 To i
Print "* ";
Next j
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
】
Private Sub Form_Click()
Print: Print
FontName = "
隶书
"
FontSize = 16
Print "
姓名
"; Tab(8); "
年龄
"; Tab(16); "
职务
";
Print Tab(24); "
单位
"; Tab(32); "
籍贯
"
2
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
“
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