VB第六章习题答案(上海立信会计学院)
vb6.0第六章 习题解答
习题六一、选择题答案Aadcc dc二、填空题答案1、a(I,j)+b(I,j)2、下标越界3、64、1 2 2 4 3 6第六章选择题部分解析3、sum表示a数组各元素的和X表示a数组元素和的平均值最后打印出a数组中大于平均值的元素Sum=1+2+3+4+5=15，x=3大于3的有4，55、倒着看文本框中显示什么？答：显示的是array1（1，3）+array2（2，3）的和接着往前看程序发现array1（i，j）=i+j所以array1（1，3）=1+3=4Array2(2,3)=2+3=5所以4+5=9二、填空题解析2、x数组最大元素是x（6）退出for循环时，i=7然后print x（i）相当于print x（7）但是没有x（7）这个元素，超出最大下标了。
若把print x（i）改为print x（a）则值是36第六章编程题1、Private Sub Form_Click()Dim a(1 To 20) As Integer, i As IntegerDim j As Integerj = 0 '用来表示小于60的个数Picture1.Print "产生的数组为:"Picture1.PrintPicture2.Print "其中小于60的元素有:"Picture2.PrintFor i = 1 To 20a(i) = Int(Rnd * 100 + 1)Picture1.Print a(i);If i Mod 10 = 0 Then Picture1.PrintIf a(i) < 60 Thenj = j + 1Picture2.Print a(i); " ";If j Mod 10 = 0 Then Picture2.PrintEnd IfNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub2、Private Sub Form_Click()Dim a(1 To 10) As IntegerDim max As Integer, min As Integer, i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90 + 10)Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.PrintNext imax = a(1)min = a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iLabel1.Caption = "最大数为：" & maxLabel2.Caption = "最小数为：" & minEnd SubPrivate Sub Form_Load()RandomizeEnd Sub3、Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()Dim x As Integer, flag As Integer, i As Integerflag = 0 '标志，表示数组中是否存在xx = InputBox("请输入x的值，为整数", "输入", 1) For i = 1 To 20If x = a(i) Thenflag = 1 'flag改变，说明存在Exit ForEnd IfNext iIf flag = 1 ThenPrint "数组中存在" & xPrint "位置：" & iElsePrint "数组中不存在" & xEnd IfEnd SubPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 20 '生成数组a(i) = Int(Rnd * 100) '题目没要求，随便的范围Next iFor i = 1 To 19 '冒泡排序For j = 20 To i + 1 Step -1If a(j) > a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNext jNext iFor i = 1 To 20 '打印数组Print a(i);If i Mod 5 = 0 Then PrintNext iEnd SubPrivate Sub Form_Load()RandomizeEnd Sub4、Private Sub Form_Click()Dim a(1 To 15) As SingleDim i As Integer, c1 As Integer, c2 As Integer, c3 As Integer, avg As SingleFor i = 1 To 15a(i) = InputBox("请输入第" & i & "个学生的成绩", "输入成绩", 60)avg = avg + a(i)Next iavg = avg / 15For i = 1 To 15If a(i) > avg Then c1 = c1 + 1If a(i) < 60 Then c2 = c2 + 1If a(i) >= 90 Then c3 = c3 + 1Next iPrint "高于平均分的人数"; c1Print "<60的人数"; c2Print ">=90的人数"; c3End Sub5、Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer, c(1 To 4, 1 To 4) As IntegerPrivate Sub Command1_Click()‘（2）题For i = 1 To 4For j = 1 To it = a(i, j)a(i, j) = a(j, i)a(j, i) = tNext jNext iPicture2.ClsPicture2.Print "a转置后："Picture2.PrintFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j); " ";Next jPicture2.PrintNext iEnd SubPrivate Sub Command2_Click()‘（3）题Picture2.ClsMax = c(1, 1)t1 = 1t2 = 1For i = 1 To 4For j = 1 To 4If c(i, j) > Max ThenMax = c(i, j)t1 = it2 = jEnd IfNext jNext iPicture2.Print "max=", MaxPicture2.Print "c("; i; ","; j; ")"End SubPrivate Sub Command3_Click()‘（4）题Picture1.ClsPicture2.ClsFor i = 1 To 4For j = 1 To iPicture1.Print a(i, j); " ";Next jPicture1.PrintNext iFor i = 1 To 4For j = i To 4Picture2.Print Tab(j * 5); b(i, j);Next jPicture2.PrintNext iEnd SubPrivate Sub Command4_Click()‘（5）题Picture1.ClsFor i = 1 To 4t = a(1, i)a(1, i) = a(3, i)a(3, i) = tNext iFor i = 1 To 4For j = 1 To 4Picture1.Print a(i, j); " ";Next jPicture1.PrintNext i End SubPrivate Sub Command5_Click()‘（1）题Picture3.Print "c矩阵："Picture3.PrintFor i = 1 To 4For j = 1 To 4c(i, j) = a(i, j) + b(i, j)Picture3.Print c(i, j); " ";Next jPicture3.PrintNext iEnd SubPrivate Sub Form_Load()ShowPicture1.Print "a矩阵："Picture1.PrintPicture2.Print "b矩阵："Picture2.PrintFor i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 40 + 30)b(i, j) = Int(Rnd * 35 + 101)Picture1.Print a(i, j); " ";Picture2.Print b(i, j); " ";Next jPicture1.PrintPicture2.PrintNext iEnd Sub。
大学VB实验答案
上海立信会计学院本科实验报告班级：学号：姓名：指导教师：系部：专业：实验时间：实验4 循环结构一、实验目的1．掌握For语句的使用2．掌握Do语句的各种形式的使用。
3．掌握如何控制循环条件，防止死循环或不循环。
二、实验要求1．在C:\下建立子文件夹“VB实验4”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件（41.exe），本实验中的第二题，需保存的文件有：工程文件(42.vbp)、窗体文件(42.frm) 及可执行文件（42.exe），其余实验依此类推。
2．撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。
三、实验内容：1.编一程序利用单循环结构显示如图4-1所示的界面。
要求：循环体内显示的内容用String函数来实现，找出循环控制变量与String函数内字符个数的关系：即String(2*i-1,Trim(Str(i)))。
窗体显示字体默认、大小为小四，通过单击窗体触发程序运行。
图4-1Private Sub Form_Click()For i = 1 To 9Print Tab(15 - i); String(2 * i - 1, Trim(Str(i)))Next iEnd Sub2.计算π的近似值，π的计算公式为：)12()12()2(75653431222222+⨯-⨯⋅⋅⋅⨯⨯⨯⨯⨯⨯⨯=n n n π，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format 函数保留5位小数。
窗体中所有控件字体默认、大小为小四。
效果如图4-2所示。
图4-2Private Sub Command1_Click()pi = 2For i = 1 To 10pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=10 ∏近似值="; Format(pi, "0.00000")pi = 2For i = 1 To 100pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=100 ∏近似值="; Format(pi, "0.00000")pi = 2For i = 1 To 1000pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))Next iPrint " n=1000 ∏近似值="; Format(pi, "0.00000")End Sub3. 求Sn=a+aa+aaa+aaaa+…+aa …aaa(n 个a)，其中a 是一个由随机数产生的1～9（包括1、9）中的一个正整数，n 是一个由随机数产生的4～9（包括4、9）中的一个正整数，产生随机数需使用Randomize 语句。
[VIP专享]VB第6章课后练习答案
![[VIP专享]VB第6章课后练习答案](https://img.taocdn.com/s3/m/3ca1a7c9bceb19e8b8f6bac2.png)
第6章过程与函数一、填空题1．数组名作为过程或函数实参，相应的形参传递方式为____按地址传递____。
2．一维长整型数组a作过程形参写作：a() As Long，二维长整型数组b作过程形参写作：____b() As Long ____。
3．过程形参为整型，对应实参为5.64，传递给形参的值为____6____。
4．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用____按值传递____方式。
5．调用过程时对形参的改变就是对相应实参变量的改变，则该形参采用____按地址传递____方式。
6．声明Single类型全局变量x，写作____Public x As Single（或 Publicx!）____；声明Integer类型静态变量x，写作____Static x As Integer（或 Static x%）____。
7．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作____Form2.y____。
8．阅读如下代码，单击窗体后，窗体上的显示结果为____s = 2 s = 5 s =9____。
Dim i As Integer, n As IntegerPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 3s = sum(i): Print "s ="; s;Next iEnd SubPrivate Function sum(n As Integer)Static j As Integerj = j + n + 1: sum = jEnd Function二、选择题1.VB程序设计语言中，函数过程与子过程必须分别用关键字（ C）声明。
(A)Private，Public (B)Public，Private(C)Function, Sub (D)Sub, Function2.要调用一个已经定义好的函数myfunction( )，用语句的方式调用函数，下列写法哪个是正确的（D）(A)Call myfunction (B)myFunction(C)myFunction ( ) (D)CallmyFunction( )3.定义过程时，如果在过程名前加关键字Private，则该过程为（ A）。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
vb6.0实验六习题与答案
vb6.0实验六习题与答案实验六专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。
框架Fr1包含单选按钮Op1和Op2。
2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。
⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。
Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click() Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
vb教程答案第六章
1．阅读程序，写出程序结果答： 6 7 92 5 81 3 42．提示：在交换首尾对称位置的数组元素时注意，循环的终值只能到数组的一半，而不能到数组的最大下标，否则会将数组元素值又还原成原来的数值。
程序界面如下图5-2所示：图5-2参考程序如下：Private Sub Command1_Click()Dim a(15) As Integer, i As Integer, j As Integer, t As Integer'给数组赋值，并输出在文本框1中For i = 1 To 15a(i) = Int(Rnd * 100) + 1Text1.Text = Text1.Text & Str(a(i))Next i'交换数组对称位置的数据For i = 1 To 7t = a(i)a(i) = a(16 - i)a(16 - i) = tNext i'输出交换后的数组内容For i = 1 To 15Text2.Text = Text2.Text & Str(a(i))Next iEnd Sub3．提示：可以对数组的每个元素与其后面的所有元素逐个进行比较，如果有相同的数，将后面出现的数值清为0，最后统计所有不为0的数据个数。
参考程序如下：Private Sub Command1_Click()Dim a(20) As Integer, i As Integer, j As Integer, k As Integer'给数组赋值，并输出在窗体上RandomizeFor i = 1 To 20a(i) = Int(Rnd * 100) + 1Print a(i);Next iPrint'统计有多少个不相同的数For i = 1 To 19For j = i + 1 To 20If a(j) = a(i) Then a(j) = 0Next jNext i'统计不相同的数，并输出在窗体上For i = 1 To 20If a(i) <> 0 Then k = k + 1Next iPrint "一共有" & k & "个不相同的数"End Sub4．本题的主要思路是：先给数组的20个数赋值并输出，然后按照求最大值的算法思想，先将前4个数之和赋给存放最大值的变量max，同时记录4个数中第一个数的下标，然后对剩下的每4个数求和，判断是否大于max，如果是，将新的最大值送给max，同时记录其首数据的下标，最后，只要输出四个相邻数之和的最大值，并输出这四个数即可。
【免费下载】计算机二级VB第6章选择题及答案
A、A
B、 B 8、有如下程序段：
Private Sub Form_Click()
Dim s%, t%, a%, b%
s = 1: t = 1
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > 0 Then s = s + 1
If a > b Then
Else
t=t+s
X = 3: Y = 5: z = 9 X=X+Y Y=X-Y If X + Y > Z - X Then z = X + Y If X + Y > Z - Y Then X = z + Y
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电，力根通保据过护生管高产线中工敷资艺设料高技试中术卷资，配料不置试仅技卷可术要以是求解指，决机对吊组电顶在气层进设配行备置继进不电行规保空范护载高与中带资负料荷试下卷高问总中题体资，配料而置试且时卷可，调保需控障要试各在验类最；管大对路限设习度备题内进到来行位确调。保整在机使管组其路高在敷中正设资常过料工程试况中卷下，安与要全过加，度强并工看且作护尽下关可都于能可管地以路缩正高小常中故工资障作料高；试中对卷资于连料继接试电管卷保口破护处坏进理范行高围整中，核资或对料者定试对值卷某，弯些审扁异核度常与固高校定中对盒资图位料纸置试，.卷保编工护写况层复进防杂行腐设自跨备动接与处地装理线置，弯高尤曲中其半资要径料避标试免高卷错等调误，试高要方中求案资技，料术编试交写5、卷底重电保。要气护管设设装线备备置敷4高、调动设中电试作技资气高，术料课中并3中试、件资且包卷管中料拒含试路调试绝线验敷试卷动槽方设技作、案技术，管以术来架及避等系免多统不项启必方动要式方高，案中为；资解对料决整试高套卷中启突语动然文过停电程机气中。课高因件中此中资，管料电壁试力薄卷高、电中接气资口设料不备试严进卷等行保问调护题试装，工置合作调理并试利且技用进术管行，线过要敷关求设运电技行力术高保。中护线资装缆料置敷试做设卷到原技准则术确：指灵在导活分。。线对对盒于于处调差，试动当过保不程护同中装电高置压中高回资中路料资交试料叉卷试时技卷，术调应问试采题技用，术金作是属为指隔调发板试电进人机行员一隔，变开需压处要器理在组；事在同前发一掌生线握内槽图部内纸故，资障强料时电、，回设需路备要须制进同造行时厂外切家部断出电习具源题高高电中中源资资，料料线试试缆卷卷敷试切设验除完报从毕告而，与采要相用进关高行技中检术资查资料和料试检，卷测并主处且要理了保。解护现装场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
VB第六章习题答案(上海立信会计学院)
上海立信会计学院班级：学号：姓名：指导教师：系部：专业：习题六p150一、简述子过程与函数过程的共同点和不同之处。
答：相同之处：都是功能相对独立的一种子程序结构，它们有各自的过程头、变量声明和过程体，在程序的设计过程中可以提高效率。
不同之处：（1）声明的关键字不同。
子过程为Sub，而函数过程为Function。
（2）了过程无值就无类型说明，函数过程有值因此有类型的说明（3）函数的过程名称同时是结果变量，因此在函数过程体内至少要对函数的过程名赋值一次数据，而子过程内不能赋值。
（4）调用的方式不同，子过程是一条独立的语句，可以用Call子过程名或省略Call直接以子过程名调用；函数的过程不是一条独立的语句，是一个函数值，必须参与表达式运算。
（5）通常，函数过程可以被子过程代替，只需要在调用的过程中改变一下过程调用的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。
二、什么是形参，实参什么是值引用地址引用地址应用对实参有什么限制答：形参：在定义过程时的一种假设的参数，只代表该过程的参数的个数、类型，它的名字不重要，没有任何的值，只表示在过程体内将进行的一种操作。
实参：在调用子过程时提供过程形参的初始值，或通过过程体处理后的结果。
值引用：系统将实际参数的值传到形参之后，实参与形参断开联系，过程中对于形参的修改不会影响到实际参数的变化。
地址引用：实参与形参共同使用一个存储单元，在过程中对形参进行修改，则对应的实际参数也同时变化。
在地址引用时，实参只能是变量，不能是常量或表达式。
三、指出下面过程语句说明中的错误：（1）Sub f1(n%) as Integer（2）Function f1%(f1%)（3）Sub f1(ByVal n%())（4）Sub f1(x(i) as Integer)答：（1）Sub子过程名没有返回值，因此就没有数据的类型（2）函数名与形参名称相同（3）形参n为数组，不允许声明为ByVal值传递（4）形参x(i)不允许为数组元素四、已知有如下求两个平方数和的fsum子过程：Public Sub fsum(sum%, ByVal a%, ByVal b%)sum = a * a + b * bEnd Sub在事件过程中若有如下变量声明：Private Sub Command1_Click()Dim a%, b%, c!a = 10:b = 20则指出如下过程调用语句的错误所在：（1）fusum 3, 4, 5（2）fsum c, a, b（3）fsum a + b, a, b（4）Call fsum(Sqr(c), Sqr(a), Sqr(b))（5）Call fsum c,a,b答：（1）furm子过程的第一个形参是地址传递，因此对应的实参3不能是常量（2）furm的第一个形参是整型而且是地址传递，对应的实参c是单精度，数据类型不匹配（3）furm的第一个形参是地址传递，因此对应的实参a+b不应当是表达式（4）furm的第一个形参是地址传递，因此对应的实参Sqr(c)不应当是表达式（5）用Call语句调用furm子过程时，必须用圆括号来描述实参六、要使变量在某事件过程中保留值，有哪几种变量声明的方法答：声明为static或者全局变量七、为了使某变量在所有的窗体中都能使用，应在何处声明该变量答：应在窗体\模块的通用声明段用Public关键字声明为全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
上海立信会计学院
班级：学号：姓名：指导教师：
系部：专业：
习题六p150
一、简述子过程与函数过程的共同点和不同之处。
答：相同之处：都是功能相对独立的一种子程序结构，它们有各自的过程头、变量声明和过程体，在程序的设计过程中可以提高效率。
不同之处：
（1）声明的关键字不同。
子过程为Sub，而函数过程为Function。
（2）了过程无值就无类型说明，函数过程有值因此有类型的说明
（3）函数的过程名称同时是结果变量，因此在函数过程体内至少要对函数的过程名赋值一次数据，而子过程内不能赋值。
（4）调用的方式不同，子过程是一条独立的语句，可以用Call子过程名或省略Call直接以子过程名调用；函数的过程不是一条独立的语句，是一个函数值，必须参与表达式运算。
（5）通常，函数过程可以被子过程代替，只需要在调用的过程中改变一下过程调用的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。
二、什么是形参，实参？什么是值引用？地址引用？地址应用对实参有什么限制？
答：形参：在定义过程时的一种假设的参数，只代表该过程的参数的个数、类型，它的名字不重要，没有任何的值，只表示在过程体内将进行的一种操作。
实参：在调用子过程时提供过程形参的初始值，或通过过程体处理后的结果。
值引用：系统将实际参数的值传到形参之后，实参与形参断开联系，过程中对于形参的修改不会影响到实际参数的变化。
地址引用：实参与形参共同使用一个存储单元，在过程中对形参进行修改，则对应的实际参数也同时变化。
在地址引用时，实参只能是变量，不能是常量或表达式。
三、指出下面过程语句说明中的错误：
（1）Sub f1(n%) as Integer
（2）Function f1%(f1%)
（3）Sub f1(ByVal n%())
（4）Sub f1(x(i) as Integer)
答：（1）Sub子过程名没有返回值，因此就没有数据的类型
（2）函数名与形参名称相同
（3）形参n为数组，不允许声明为ByVal值传递
（4）形参x(i)不允许为数组元素
四、已知有如下求两个平方数和的fsum子过程：
Public Sub fsum(sum%, ByVal a%, ByVal b%)
sum = a * a + b * b
End Sub
在事件过程中若有如下变量声明：
Private Sub Command1_Click()
Dim a%, b%, c!
a = 10:
b = 20
则指出如下过程调用语句的错误所在：
（1）fusum 3, 4, 5
（2）fsum c, a, b
（3）fsum a + b, a, b
（4）Call fsum(Sqr(c), Sqr(a), Sqr(b))
（5）Call fsum c,a,b
答：（1）furm子过程的第一个形参是地址传递，因此对应的实参3不能是常量
（2）furm的第一个形参是整型而且是地址传递，对应的实参c是单精度，数据类型不匹配（3）furm的第一个形参是地址传递，因此对应的实参a+b不应当是表达式
（4）furm的第一个形参是地址传递，因此对应的实参Sqr(c)不应当是表达式
（5）用Call语句调用furm子过程时，必须用圆括号来描述实参
六、要使变量在某事件过程中保留值，有哪几种变量声明的方法？
答：声明为static或者全局变量
七、为了使某变量在所有的窗体中都能使用，应在何处声明该变量？
答：应在窗体\模块的通用声明段用Public关键字声明为全局变量。
八、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？两者之间有没有联系？
答：不能作为同一个变量应用，
没任何联系，各自在过程中有效。