练习题韩信有一队兵，他想知道有多少人，便让士兵排队报数：按从1到5报，最末一个士兵报的数为1；按从1到6报，最后一个士兵报的数为5，按从1到7报，最末一个士兵报的数为4；最后在按从1到11报，最末一个士兵报的数为10.你知道韩信至少有多少兵吗？鸡兔同笼。已知鸡兔的总头数为20,总脚数为50，编写程序求鸡兔各多少只？有一对兔子，从出生后第3个月起每月生一对兔子，小兔子长到第三个月后每月又生一对兔子，假如兔子都不死，问一年中可以繁殖成多少对兔子？提示：兔子的规律为数列1，1，2，3，5，8，...，即从第3个月起每个月的兔子使前两个月的兔子之和。第四章数据的输入输出4.1数据输入一、InputBox函数4.1.2MsgBox函数格式：变量=MsgBox(<提示信息>[,<对话框类型>][,<对话框标题>])4.2数据输出4.2.1Print方法【格式】[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]【作用】在对象上输出信息。4.2.3打印机输出1.直接输出Printer.print[表达式]2.窗体输出[窗体名.]print4.3标签与文本框一、标签常用的控件属性NameCaption本章小结：掌握inputbox、msgbox、print等输入输出函数3．Space(n)Space函数用来返回n个空格组成的字符串。在进行格式化输出时非常有用。【例4-6】编写窗体的Click事件过程。PrivateSubForm_Click()Dims1,s2asstrings1=Space(10)Prints2=Space(5)&"Hello"&s1&"World"Prints2EndSub二、文本框常用的控件属性NameText实例演示:用两个数的加减乘除演示Label和TextBox的使用第四章VB及动态网页设计本章内容及要求：数据的输入函数常用的格式定位函数常用的数据输出函数重点：常用的输入输出函数，键盘与鼠标事件过程难点：Inputbox、Msgbox函数默认值对话框标题提示信息变量名=InputBox(<提示信息>[，<对话框标题>][，<输入区的默认值>][,<对话框坐标>])例如，要在屏幕上显示如下的对话框:【说明】该函数的返回值默认为字符串，如果要把返回值进行其他类型的处理，要么事先声明返回值的类型，要么对返回的字符串进行类型转换。注意：一个InputBox函数只接受一个值的输入。<提示信息>：必选项，提示用户在输入框中输入信息，长度不能超过1024个字节。<对话框标题>：在对话框的标题栏显示的标题信息，如果默认，则标题为“工程1”。<输入区的默认值>：指用户在输入框输入信息之前在其中显示的内容。无论是否输入新的信息，单击“确定”按钮后，返回输入框的当前值；单击“取消”按钮，则返回长度为零的字符串。<对话框坐标>：确定对话框的位置，分别表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现。【例4-1】在对话框中输入圆的半径，如图4-1所示，计算并输出圆的面积，如图4-2所示。图4-1输入圆的半径图4-2计算并输出圆的面积“面积计算”命令按钮对应代码如下：PrivateSubCommand1_Click()Dimr,sAsSingler=InputBox("请输入半径：","计算圆的面积",1)s=3.14rrPrintPrint"圆的面积是：";sEndSub图标标题提示信息命令按钮说明：消息对话框用于提示用户进行后面操作的选择，作为继续执行程序的依据。<提示信息>：必选项，提示用户在输入框中输入信息，长度不能超过1024个字节。<对话框类型>：为整数或符号常量，用于指定对话框中出现的控制按钮和图标的种类和数量，一般有3个参数，用“＋”号相连，参数的取值可以是数字形式和符号常量形式。如果默认某个参数，不能省略逗号，要以逗号标识是哪个默认。第1个参数表示对消息框中按钮组合的选择，第2个参数表示对消息框中显示图标的选择，第3个参数表示对消息框中默认按钮的选择。参数的取值和含义分别如表4-1、表4-2和表4-3所示。表4-1第1个参数——按钮类型“重试“和“取消”按钮VbRetryCancel5“是”和“否”按钮VbYesNo4“是”、“否”和“取消”按钮VbYesNoCancel3“终止”、“重试”和“忽略”按钮vbAbortRetryIgnore2“确定”和“取消”按钮VbOkCancel1“确定”按钮VbOkOnly0意义符号常量取值表4-2第2个参数——图标类型消息图标VbInformation64感叹号图标VbExclamation48问号图标VbQuestion32停止图标VbCritical16意义符号常量取值表4-3第3个参数——默认按钮默认按钮为第三个按钮VbDefaultButton3512默认按钮为第二个按钮VbDefaultButton2256默认按钮为第一个按钮VbDefaultButton10意义符号常量取值MsgBox函数的返回值反映了用户选择的按钮，返回值与按钮类型的对应情况如表4-4所示。表4-4返回值与按钮类型的对应情况“否”按钮VbNo7“是”按钮VbYes6“忽略”按钮VbIgnore5“重试”按钮VbRetry4“终止”按钮VbAbort3“取消”按钮VbCancel2“确定”按钮VbOk1意义符号常量取值【例4-2】显示如图4-3（a）所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，默认按钮为“是(Y)”按钮。单击“是(Y)”按钮，显示如图4-3（b）所示的消息框，显示“正在保存…”；单击“否(N)”按钮，显示如图4-3（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。图4-3执行结果PrivateSubForm_Click()choice=MsgBox("数据已经修改，是否保存？",_vbYesNoCancel+vbQuestion+vbDefaultButton1,"提示")Ifchoice=vbYesThenMsgBox"正在保存…"ElseIfchoice=vbNoThenMsgBox"不保存退出"EndIfEndIfEndSub4.1.3MsgBox语句如果MsgBox函数不需要返回值，可以省略圆括号，则变形为MsgBox语句。在例4-2中，后两个消息框的输出采用的是MsgBox语句。MsgBox语句与MsgBox函数的作用相似，各参数的含义与MsgBox函数相同。【格式】MsgBox<提示信息>[,<对话框类型>][,<对话框标题>]【说明】执行MsgBox语句后，打开一个对话框，用户必须按下Enter键或单击对话框中的某个按钮，才能继续进行后面的操作。与MsgBox函数不同的是，MsgBox语句没有返回值，通常适合用来显示较简单的信息。【例4-3】编写程序，使用MsgBox语句显示对话框，运行结果如图4-4所示。图4-4运行结果FormClick事件代码为：PrivateSubForm_Click()msg="欢迎学习VisualBasic！"Title="MsgBox语句示例"MsgBoxmsg,0,TitleEndSub分号紧凑输出逗号以14个字符为一个输出区域（打印区）输出4.2.2与Print有关的函数1．Tab(n)绝对定位Tab函数从第一列开始计数，用于把光标向后移动n个字符的位置，与输出的内容要用分号隔开。如果n大于行宽，显示位置为nMod行宽；如果n小于0，从第一列输出；如果当前光标的位置超过了n，光标则下移一行。【例4-4】用Print方法输出窗体中的信息如图4-5所示。“商品名称”一列从窗体的第二行第10列开始输出，每列的起始字符之间相差10列，每行之间间隔一空行，利用函数Tab进行控制。图4-5输出窗体中的信息PrivateSubForm_Click() Print PrintTab(10);"商品名称";Tab(20);"单价";Tab(30);"数量" Print PrintTab(10);"电视机";Tab(20);"2568";Tab(30);"150" Print PrintTab(10);"电冰箱";Tab(20);"1600";Tab(30);"85"EndSub2.Spc(n)相对定位与Tab函数类似，用于跳过n个空格输出。但与Tab函数不同的是：Tab函数从第一列开始计数，n是绝对偏移量；Spc函数从前面的输出项后开始计数，n是相对偏移量。【例4-5】利用Spc函数进行控制的程序代码如下：PrivateSubForm_Click()PrintPrintSpc(10);"商品名称";Spc(2);"单价";Spc(6);"数量"PrintPrintSpc(10);"电视机";Spc(4);"2568";Spc(6);"150"PrintPrintSpc(10);"电冰箱";Spc(4);"1600";Spc(6);"85"EndSub
|
|
