Visual+asic实例源代码.docVIP

课前体验 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$)