大学VISUAL BASIC程序设计教程-课件PPT
收藏
资源目录
压缩包内文档预览：
编号：21836467
类型：共享资源
大小：5.82MB
格式：ZIP
上传时间：2019-09-06
上传人：QQ24****1780
认证信息
个人认证
王**（实名认证）
浙江
IP属地：浙江
25
积分
- 关 键 词：
-
大学VISUAL
BASIC程序设计教程-课件PPT
大学
visual
basic
程序设计
教程
课件
ppt
- 资源描述：
-
大学VISUAL BASIC程序设计教程-课件PPT,大学VISUAL,BASIC程序设计教程-课件PPT,大学,visual,basic,程序设计,教程,课件,ppt
- 内容简介：
-
4.1 顺序结构4.2 选择结构程序设计4.3 循环结构第4章 基本的控制结构退出4.4 综合实例4.1 顺序结构4.1.1 数据输出4.1.2 数据输入返回退出4.1 .1 数据输出1 Print方法2 与Print方法有关的函数3 使用位置属性4 清除方法CLS5 使用“标签”控件的输出1 Print方法Print方法的语法格式为：object.Print Spc(n) | Tab(n) expression charpos其中：object：窗体、图片框、打印机等对象。Expression：要打印的数值表达式或字符串表达式。Charpos：逗号或分号，指定下个字符的插入点。2. 与Print方法有关的函数与Print相配合的函数： （1）Tab函数与 Print # 语句或 Print 方法一起使用，对输出进行定位。格式：Tab(n)当在一个 Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输入项之间用分号隔开。例题Private Sub Form_Click() Print 12345678901234567890 Print Tab(5); 5; Tab(10 - 2); 8, 注意这里10-2当前位置5，故同行显示 Print Tab(5); 5; Tab(10 - 6); 4; Tab(20 - 15); 5; 注意这里10-6当前位置4，故同行显示End Sub程序执行结果见图4-1。程序中已经对程序显示特点做出解释。图4-1 Print方法与Tab()函数结合（2）Spc函数格式：Spc(n)在显示或打印列表中的下一个表达式之前插入n个空白数，n为032767之间的整数。Spc函数与输出项之间用分号隔开。 如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。如果 n 大于输出行的宽度，则 Spc 利用下列公式计算下一个打印位置：当前位置+ (n Mod 行宽)Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab函数从对象的左端开始记数，而Spc函数只表示两个输出项之间的间隔。3. 使用位置属性位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体、图片框或打印页上。这两个属性分别表示当前输出位置的横坐标与纵坐标。 格式： 对象名称.CurrentX =x对象名称.CurrentY =y例如：下面程序将图片框相对于窗体居中显示，图片框中的文字居中显示。Private Sub Form_Click()Dim str1 As String str1 = 图片框相对窗体、文字相对图片框居中显示 Picture1.FontName = 宋体 图片框中文字的字体 Picture1.FontSize = 16 图片框中文字的字号 Picture1.Left = (ScaleWidth - Picture1.Width) / 2 图片框水平位置 Picture1.Top = (ScaleHeight - Picture1.Height) / 2 图片框垂直位置 Picture1.CurrentX = Picture1.ScaleLeft + Picture1.Width / 2 - Picture1.TextWidth(str1) / 2 输出水平位置 Picture1.CurrentY = Picture1.ScaleTop + Picture1.Height / 2 - Picture1.TextHeight(str1) / 2 输出垂直位置 Picture1.Print str1 在图片框中输出字符串str1End Sub各对象的其他参数保持默认值。程序设计时和运行结果见图4-2。无论怎样调整窗体，只要单击窗体，都会按题目要求调整图片框和文本的位置。TextWidth()为求文本宽度的函数。 （a）设计时 （b）运行时图4-2 位置属性的应用4. 清除方法CLSCls 将清除图形和打印语句在运行时所产生的文本和图形，清除后的区域以背景色填充。但是设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。 语法： 对象名称.Cls例如，为了在运行时双击窗体时清除图片框中的文本，编写的程序为：Private Sub Form_DblClick() Picture1.Cls 清除图片框中的文本End Sub如果将代码由Picture1.Cls改为.Cls，将无法清除图片框中的文本。 5.使用“标签”控件的输出标签（Label）是VB中最常用的输出文本信息的工具，目前几乎完全取代了Print方法。例如：建立一个Label控件和Command控件，按表4-1设置设计时属性。加入如下代码，运行程序。Private Sub Command1_Click() Label1.WordWrap = True Label1.AutoSize = True Label1.BorderStyle = 1 Label1.BackColor = &H80000014End Sub由运行结果可知，单击命令按钮后，标签控件可以自动适用内容，并自动换行，且加上边框，背景色为白色以突出显示文字。表4-1 属性设置（a）设计时 （b）运行结果图4-3 利用标签控件输出4.1.2 数据输入 1 使用“文本框”控件进行输入2 SetFocus 方法3 与用户交互的函数和过程1 使用“文本框”控件进行输入例4-1：如图4-4所示，在设计时建立四个标签控件和三个文本框控件，各控件的设置见表4-2。要求在运行时，双击填写意见的文本框，可以将该文本框放大至窗口的1/2。设计步骤如下：（1）建立应用程序用户界面单击“文件|新建工程”，进入窗体设计器。按如图4-4（a）所示布局增加四个标签Label1 Label4和三个文本框Text1Text3。（2）属性设置按表4-3所示设置各对象的属性值，其他属性值不变。（3）编写代码双击Text3文本框，打开Text3的代码窗口，在过程下拉列表框中选择“DblClick”，编写Text3的DblClick事件的代码：Private Sub Text3_DblClick()Text3.Left = 0Text3.Width = Width Text3的宽度为窗口宽度Text3.Height = Height / 2 Text3的高度为窗口高度的1/2Label4.Top = Text3.Top + Text3.Height + 100 Label4始终在Text3之下End Sub2 SetFocus 方法使某个控件获得焦点，可以有多种方法：（1）直接单击这一控件。（2）按Tab键（或Tab+Shfit组合键）按规定的次序在各控件之间移动焦点。（3）在代码中使用SetFocus 方法使得某一控件获得焦点。使用SetFocus 方法的格式为：.SetFocus其中：为对象表达式，其值为可以获得焦点的控件对象名称。例4-2：在上述工程中，增添一个命令按钮，单击该按钮时将清空所有文本框中的内容（完善的工程将要编写保存用户信息的代码）。（1）增加Command命令按钮。在窗体的合适位置增加一个Command命令按钮，调整其大小。（2）设置属性可以将Caption属性值设置为“发送”。设置Font属性符合整体风格。（3）编写Command1的Click事件的代码Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub并在上例代码的后面增加一行如下代码：Command1.Top = Text3.Top + Text3.Height + 100 Command1始终在Text3之下该代码使得Command1控件始终保持在Text3控件之下。3 与用户交互的函数和过程 1InputBox函数 作用：在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框中内容，函数值的类型为 String类型。 语法格式： 变量%=InputBox(, , , , , , )2MsgBox函数和MsgBox过程作用：在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。 语法格式 变量%=MsgBox(, , , , )例4-3：在上述实例中，要求单击“发送”命令按钮后，显示如下对话框，提示您输入身份证号，并将输入内容保存在变量strIDcard中。增添的代码为：Private Sub Command1_Click()Dim strIDcard As String, strText As StringstrText = 请输入您的身份证号并单击“确定” + Chr(13) + Chr(10) + 重新填写请单击“取消”strIDcard = InputBox$(strText, 身份证号, , 100, 100)Text1.SetFocusEnd Sub如果单击“确定”按钮，则strIDcard的值为输入值“123456789”，否则为空字符串。图4-5 使用InputBox 函数（2）MsgBox函数和MsgBox过程MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为：变量%=MsgBox(, , , , )MsgBox语句的用法为：MsgBox , , , , 其中：、和的意义同InputBox函数。可选项。整型表达式，指定显示按钮的数目及形式，使用的图标类型，缺省按钮的种类以及消息框的强制回应等。如果省略，则 的缺省值为 0。表4-3 设置值及其意义表4-4 MsgBox函数的返回值单击“是”：完成提交操作，显示如图4-7对话框，单击“确定”结束程序。单击“否”：返回Command1_click事件，重新显示如图4-5所示输入对话框。单击“取消”：没有提交操作，显示如图4-8对话框，单击“确定”结束程序。图4-6 MsgBox 对话框的应用（a）例4-4：在上例中，如果要求在单击InputBox对话框中的“确定”按钮后，弹出一个如图4-6所示的对话框，以便用户进行审查并作出如下选择： 图4-7 MsgBox 对话框的应用 图4-8 MsgBox 对话框的应用修改的Command1_click事件代码为：Private Sub Command1_Click()Dim intMsgin As IntegerDim strmsg As StringstrText = 请输入您的身份证号并单击“确定” + Chr(13) + Chr(10) + 重新填写请单击“取消”strIDcard = InputBox$(strText, 身份证号, , 100, 100)strmsg = 请确认您的身份证号码： + Chr(13) + Chr(10) + strIDcard 图4-9对话框显示的内容If strIDcard ThenintMsgin = MsgBox(strmsg, vbYesNoCancel + vbQuestion + vbDefaultButton2, 确认身份证)End IfSelect Case intMsginCase 6 .提交意见单的代码略MsgBox 您的意见已经提交，谢谢！, vbOKOnly + vbInformation, 已经提交Case 7Command1_Click 重新执行Command1_Click 事件Case 2MsgBox 您已经放弃提交意见，欢迎下次参加！, vbOKOnly + vbCritical, 放弃提交End SelectEndEnd Sub4.2 选择结构程序设计 4.2.1 If条件语句4.2.2 Select Case4.2.3 条件函数返回退出4.2.1 If条件语句1单分支条件结构（If.Then语句）2双分支结构（If.Then.Else语句）3多分支结构（IfThenElseIf语句）4If语句的嵌套1单分支条件结构（If.Then语句）用 If.Then 结构有条件地执行一个或多个语句。单行语法和多行块语法都可以使用：（1）If Then （2）If ThenEnd If下面两个例子等价：（1）If todayDate Now Then todayDate = Now（2）If todayDate Now Then todayDate = Now End If注意：If.Then 的单行格式不用 End If 语句。如果 为 True 时要执行多行代码，则必须使用多行块 If.Then.End If 语法。例如：If todayDate Now Then todayDate = Now Timer1.Enabled = False 定时器控制失效。End If图4-12 单分支条件语句 图4-13 单分支条件语句实例2. 双分支结构（If.Then.Else语句）可以用 If.Then.Else 块定义几个语句块，执行其中一个语句。其语法格式也有两种形式：（1）If ThenElseEnd If（2）If ThenElse当的值为真时，执行Then后面的语句块1（或语句1），否则执行Else后面的语句块2（或语句2）。其流程见图4-11。y=图4-14 双分支结构流程例如：计算分段函数y = 本题在选择条件时，可以选择x0作为条件，也可以选择x0作为条件。这里选择x0作为条件。画出如图4-12所示流程图。y=图4-12 双分支结构流程实例y=3*x*x+4*x-51）用单分支结构实现y=3*x*x+4*x-5If x0 Then y=或If x0 Then y=3*x*x+4*x-5If x0 Then y=但是，不能这样表示：If x0 Then y=（2）用双分支结构实现If x0 Then y=Elsey=3*x*x+4*x-5End Ify=3*x*x+4*x-53. 多分支结构（IfThenElseIf语句）多分支结构可以处理两个或两个以上分支。其语句形式为：If Then ElseIf Then Else End IfVisual Basic 首先测试。如果它为 False，Visual Basic就测试，依次类推，直到找到一个为 True 的条件。当它找到一个为 True 的条件时，Visual Basic就会执行相应的语句块，然后执行 End If 后面的代码。作为一个选择，可以包含 Else 语句块，如果条件都不是 True，则 Visual Basic 执行 Else 语句块。图4-13 多分支结构流程FalseTrueTrueFalseTrueFalse语句块n+1 语句块n 例4-5：利用If.Then.Else 语句编写求函数y = 的值的程序，要求只要在文本框Text1中输入自变量x的值，就在标签栏label1上显示函数值。根据题意，在窗体上添加一个文本控件Text1和标签控件label1，代码应包含在Text1_change事件中。代码为：Private Sub Text1_Change() Dim x As Double, y As Double Label1.Caption = 清空Label1的内容 x = CDbl(Text1.Text) 将字符串类型转化为双精度类型 If (x = 1# And x =700（2）intmark0=680 AND intmark0=145 OR intmark2=145 OR intmark3=145 OR intmark4=280流程图见图4-18。设计步骤如下：（1）建立应用程序用户界面按如图4-19建立四个文本框（Text1Text4）接受成绩输入，两个标签控件（Label1Label2），一个命令按钮Command1，设置各控件的属性，其中Command1的Caption属性值为“查询”。图 4-15多分支结构流程实例TrueFlaseTrueFlase图4-16应用程序运行情况（2）编写程序代码根据流程图，编写出Command_click事件的代码为：Private Sub Command1_Click() Dim intmark0 As Integer, intmark1 As Integer Dim intmark2 As Integer, intmark3 As Integer, intmark4 As Integer intmark1 = CInt(Text1.Text) intmark2 = CInt(Text2.Text) intmark3 = CInt(Text3.Text) intmark4 = CInt(Text4.Text) intmark0 = intmark1 + intmark2 + intmark3 + intmark4 Label3.Caption = intmark0 If intmark0 = 700 Then MsgBox 您获得了特等奖, vbOKOnly + vbInformation, 获奖通知 ElseIf intmark0 = 680 Then MsgBox 您获得了优秀奖, vbOKOnly + vbInformation, 获奖通知 ElseIf intmark1 = 145 Or intmark2 = 145 Or intmark3 = 145 Or intmark4 = 280 Then MsgBox 您获得了特别奖, vbOKOnly + vbInformation, 获奖通知 Else MsgBox 很遗憾，您没有获奖, vbOKOnly + vbInformation, 获奖通知 End IfEnd Sub4. If语句的嵌套上面学习了If语句的基本形式，可以通过这些基本形式加以复合，获得更为复杂的If结构，称为If语句的嵌套。一般形式如图4-17所示。图4-18为在Else块中嵌套If结构的形式。可根据实际情况选择采用何种结构。图4-17 If语句复合结构的一般形式 图4-18在Else块中嵌套If结构的形式 图4-19 正确与错误的转向例4-7：求a、b、c中三个实数的最大值、最小值，程序中不得使用循环结构和转向语句。a、b、c三值从三个文本框中输入，当单击命令按钮时将结果显示在窗体上。画出流程图。（1）设计流程图根据题意，画出如图4-20所示流程图。图4-20 求三个数极值的流程Maxinabc=cMininabc=aFalseTrueMaxinabc=aMaxinabc=cMininabc=bMininabc=cTrueFalseMininabc=bFalseTrueMaxinabc=c（2）设置界面与控件属性在窗体上添加三个文本框，一个命令按钮，设置各自的属性（主要是Caption属性和Font属性）。False4.2.2 Select CaseSelect Case的结构形式为：Select Case Case Case Case Case ElseEnd SelectSelect Case选择结构执行的过程为：（1）计算的值（2）将的值与Case语句中的中的每一个值逐一进行比较。如果与其中的一个值相匹配，则执行该语句中的。如果不止一个 Case与相匹配，则只对第一个匹配的 Case 执行与之相关联的。如果在表达式列表中没有一个值与测试表达式相匹配，则 Visual Basic 执行 Case Else 子句（此项是可选的）中的语句。最后执行End Select语句。图4-22 Select Case选择结构流程V例4-8：表4-5为华中航空总公司机票打折表。试根据此表编写程序。日期、机票数从文本框中输入，打折情况在窗体上输出。如图4-23。 表4-5 机票优惠率（2）设计应用程序用户界面添加6个标签控件Label1 Label6，按顺序见图4-23所示。Label1 Label5的Caption属性依次为：“请输入日期”、“月”、“日”、“请输入订票数”、“张”，Label6的Caption属性设计时为空白，运行时用来显示优惠率。添加3个文本框控件Text1Text3，按顺序见图4-23所示。添加一个命令按钮Command1。图4-23 机票优惠率查询系统（3）编写代码根据流程图，编写出Command1_ Click事件的代码如下：Private Sub Command1_Click() Dim intnn As Long Dim intss As Integer,strdate As Integer intnn = Clng(Text3.Text) strdate = Cint(Trim(Text1.Text) & Trim(Text2.Text) Select Case strdate Case 428 To 431, 51 To 57, 928 To 931, 101 To 107 If intnn = 30 Then intss = 35 Else intss = 15 Case 71 To 79, 710 To 731, 81 To 89, 810 To 831 If intnn = 30 Then intss = 30 Else intss = 20 Case Else If intnn = 30 Then intss = 25 Else intss = 10 End Select Label6.Caption = 您所订机票优惠率为： & str(intss) & %End Sub另外，可以取系统的日期作为输入日期，该事件可以指定为Text1_DbClick事件，即双击Text1发生的事件，代码为：Private Sub Text1_DblClick() Text1.Text = Month(Now) Text2.Text = Day(Now)End Sub当要重新输入数据时，可以自动清空各文本框的内容。其中单击Text1清空所有文本框的内容，单击其他文本框，只清空被单击的文本框的内容。Private Sub Text1_Click() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Text2_Click() Text2.Text = End Sub Private Sub Text3_Click() Text3.Text = End Sub此外，还应为每一个文本框的键盘按下事件编写如下代码，表明当按回车键时，自动跳到下一个必要的控件：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocusEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocusEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocusEnd Sub图4-24机票优惠率计算流程图其他满足条件=30=302530303010302035154.2.3 条件函数 1IIf 函数2Choose函数IIf 函数的功能是根据表达式的值，来返回两部分中的其中一个。其语法格式为：IIf(, , )例如，求分段函数：y= 函数值的语句可以简单地表示为：y=Iif(x0,2*x+3,4-3*x)Choose函数的功能是：从参数列表中选择并返回一个值。其语法格式为：Choose(, , , . ,)下面的示例使用 Choose 函数来显示某天的执勤人员情况， strDay 参数传递到过程之中的索引。Function GetChoice(strDay As string) strName= Choose(strDay, 王大虎, 谢伟烽, 马家栋, 何右嘉, 吴仁杰,)End Function当strDay的值为1时，返回字符串“王大虎”，当strDay的值为2时，返回字符串“谢伟烽”，以此类推。当strDay的值不在15之间时，返回NULL。4.3.1 Do.Loop语句4.3.2 For.Next语句返回退出4.3.3 循环嵌套4.3.4 For Each.Next4.3.5 退出控制结构4.3 循环结构4.3.1 Do.Loop语句1前测型Do.Loop循环在前测型Do.Loop循环中，只要 为 True 就执行 。其语法格式为：Do While | Until Loop例4-9：编写程序，根据多项式：=求的近似值。精度要求= 0.000000000001) sum = sum + temp i = i + 1 temp = 1# / i / i Loop pi = Sqr(6# * sum) Picture1.Print i ;次 Picture2.Print piEnd Sub由于程序代码是直接从设计界面拷贝过来，所有代码书写格式已经经过VB格式化。程序运行情况参见图4-26。例4-10：编写程序：:判断一个数是否为素数。（1）设计流程图根据题目要求，设计出如图4-27所示的流程图。当k 2147483647 Then MsgBox 数据溢出，请重新输入, vbOKOnly + vbOKCancel + vbInformation, 数据错误 Text1.Text = Else图4-28判断素数程序运行实例 n = CLng(Text1.Text) m = 0: k = 2 Do While k = Sqr(n) And m = 0 If n Mod k = 0 Then m = 1 Else k=k + 1 End If Loop If m = 0 Then Label2.Caption = 是一个素数 Else Label2.Caption = 不是一个素数 End IfEnd IfText1.SetFocus End Sub2.后测型Do.Loop循环Do.Loop 语句的另一种演变形式是先执行，然后在每次执行后测试 。称为后测型Do.Loop循环。这种形式保证至少执行1次，其语法格式为：DoLoop While | Until 例4-11：求两个正整数m和n的最大公约数。求最大公约数最常用的方法是辗转相除法。其设计思路是：（1）假设m大于n；（2）用n作除数除m，得余数r。（3）若r0，则令mn，nr，继续相除得到新的r值，直到r=0为止。（4）最后的n即为最大公约数。解题步骤如下：（1）设计流程图根据题意，设计出如图4-29所示流程图。图4-29 求最大公约数的流程图直到r=0（2）设计应用程序界面所需添加的控件的属性值参见表4-8。表4-8 判断素数应用程序控件属性值（3）编写代码Private Sub Command1_Click() Dim m As Long, n As Long, temp As Long If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) 2147483647 Or Val(Text2.Text) 2147483647 Then MsgBox 输入的数0或溢出，请重新输入！ MsgBox 输入的数0或溢出,请重新输入!, vbInformation + vbOKOnly, 数据错误 Text1.Text = Text2.Text = 图4-30 求最大公约数程序运行实例 Text1.SetFocusElsem = Val(Text1.Text)n = Val(Text2.Text)If m n Then temp = m: m = n: n = tempEnd If Do r = m Mod n m = n n = r Loop While r 0 Label3.Caption = mEnd IfEnd Sub4.3.2 For.Next语句Do 循环使用于在不知道执行多少次时。有时，循环的次数是已知的，这时最好使用 For.Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：For = To Step Next 例4-12：求11000之间所有能够被13整除的数。按每行各行10个数排满足条件的数。（1）设计流程图根据题意，设计如图4-34所示流程图。图4-31求被13整除的数的流程图 （2）设计应用程序界面应用程序所需控件属性值参见表4-9。表4-9 求被13整除的数应用程序控件属性值（3）编写代码图4-32 程序运行情况 Dim i As Integer, j As Integerj = 0For i = 1 To 1000 If i Mod 13 = 0 Then j = j + 1 Picture1.Print i; If j Mod 10 = 0 Then Picture1.Print End IfNext iPicture1.PrintPicture1.Print 一共有 & j & 个数可以被13整除End Sub其中，语句If j Mod 10 = 0 Then Picture1.Print控制每行打印满足条件的数的个数（10个），注意语句 Picture1.Print i;后的分号不能省略。程序运行情况参见图4-32。Private Sub Command1_Click()4.3.3 循环嵌套在一个循环体内又出现另外的循环语句称为循环嵌套。 例4-13：指出下面程序的运行结果：Private Sub Form_Click() Dim a As Integer, i As Integer, j As Integer a = 0 For i = 1 To 5 For j = -2 To 2 a = a + i + j图4-33 程序运行结果 Next j Print a;Next iPrintPrint i, j, aEnd Sub例4-14：编程求图4-38所示乘法九九表。执行分析图4-38可知：如果将每一个等式作为一个方阵的节点，则每一个等式出现的位置上行列的数字是相同的。因此，可以用如下嵌套的循环作为对一个节点的描述：For i=1 to 9 For j=1 to i Next jNext i这里，为乘法等式：expss = i & & j & = & i * j。现在，主要的问题是控制每个表达是出现的位置，可以用Tab函数来实现，假设给每个等式的宽度为10，第一个等式出现在第4行，则Tab函数可以这样表示：Tab(j - 1) * 10 + 3); 图4-34 乘法九九表（1）在窗体上添加一个命令按钮和一个Pictrue控件，编写command1_click事件的代码如下：Private Sub Command1_Click() Dim i As Integer, j As Integer Dim expss As String For i = 1 To 9 For j = 1 To i expss = i & & j & = & i * j Picture1.Print
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号