VB上机复习资料.pdf

《VB上机复习资料.pdf》由会员分享，可在线阅读，更多相关《VB上机复习资料.pdf（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、属性设置及程序改错题gc402.读入 N后，求算式1+1/(1 2)+1/(2 3)+,+1/(n-1)n)的值。请修改程序中2 处错误，在二行带有“*”的提示行之间Dim sum As Single,kk As Single,mm As Single Dim i As Integer,n As Integer mm=InputBox(请输入要求的项数N)n=Val(mm)sum=1 For i=1 To n改：For i=1 To n-1 kk=i*(i+1)sum=1/kk改：sum=sum+1/kkNext i Print SUM=;sum gc403.求三角形的面积。该窗体上有1 个标

2、签 Label1“请输入三条边的边长”，3 个文本框Text1、Text2 和 Text3，1 个命令按钮Command1“开始计算”。程序运行后，能够先判断从3 个文本框中输入的 3 条边是否构成三角形。如果可以构成，则计算并输出该三角形的面积；否则要求重新输入。Dim a As Double,b As Double,c As Double,s As Double,area As Double a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If(a+b c)And(c 0)And(a+c b)And(b 0)or(c+b a)And(a

3、 0)Then or 改 and s=(a+b+c)/2 area=Abs(s*(s-a)*(s-b)*(s-c)Abs 改 sqr MsgBox 面积是&area Else MsgBox 不能构成三角形,请重新输入 End If gc319.该窗体运行时位居Visual Basic主窗口的中央，运行时呈最大化窗口。在编辑框中输出从100 开始被 3、5、7 除余数均为1的 10 个数。该窗体有两个命令按钮command1“开始计算”、command2“清空文本框”和一个文本框Edit1。点击“开始计算”，开始求满足条件的数，将满足条件的数输出到文本框中，每输出一个换一行。要求：(1)设置窗体

4、 Form1和命令按钮command1的属性；(2)在 command1 的 click代码中有两个错误，请调试改。Dim i%,j%,k%i=100 j=0 Do If(i Mod 3=1)And(i Mod 5=1)And(i Mod 7=1)Then Text1.Text=Text1.Text&i&Chr(13)&Chr(10)j=j+1 End If If j 10 Then Exit Do 改：j=10 i=i 1 改：i=i+1Loop gc482.在窗体上建有2 个标签控件(Label1、Label2)、2 个文本框(Text1、Text2)和两个命令按钮(Command1、Co

5、mmand2)。Label1、Label2 的属性已设置；Text1、Text2 分别用于输入和显示华摄氏温度，其 Text 属性为空；Command1、Command2 分别用于“华氏转摄氏”、“摄氏转华氏”(Caption属 性)，温度转换公式为：F=9/5*C+32(其中 F 为华氏温度，C为摄氏温度)。要求：1)设置 Text1、Text2 和 Command1、Command2 的属性；2)在编写的Command1_Click()和 Command2_Click()二个过程代码中各有一个错误，请调试改正。Public C As Double,F As Double Private S

6、ub Command1_Click()F=Text1.Value 改：F=val（Text1.Value）C=5/9*(F-32)Text2.Text=C End Sub Private Sub Command2_Click()C=Text2.Value 改：C=val（Text2.Value）F=9/5*C+32 Text1.Text=F End Sub gc481.已知 Fibonacci数列：1，1，2，3，5，8.即 F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2 (n=3)下列程序的功能是：建立一个窗体，运行时，点击该窗体，用数组来求 Fibonacci数列的前 2

7、0 项，且以每行 5 项的格式将这20 项显示出来。窗体代码中有二行错误，请改正,不得增删语句。Dim f(20)As Integer f(1)=1 f(2)=1 For i=3 To 20 f(i)=f(i)+f(i-1)改 f(i)=f(i-2)+f(i-1)Next i For i=1 To 20 Print f(i);If(i Mod 5)=5 Then 改(i Mod 5)=0 Print End If Next i gc536.编写一个窗体的代码，其功能是：产生 100 个在区间 20，100 中的随机整数，然后求其中所有偶数的和。Dim arr(100)As Integer,s

8、As Integer For i=1 To 100 arr(i)=20+80*Rnd(-1)改 Int(20+81*Rnd)Next i For i=1 To 100 If arr(i)Mod 2=0 Then s=s+arr(1)改：s=s+arr(i)End If Next i Print s gc372.交换两个数（例10，20），要求 Swap1用值传递，Swap2用地址传递，使第一个 PRINT语句输出：A10，B 20；第二个 PRINT语句输出：A 20，B10。Public Sub swap1(x As Integer,y As Integer)改：swap1(ByVal x

9、As Integer,ByVal y As Integer)Dim t As Integer t=x:x=y:y=t End Sub Public Sub swap2(m As Integer,n As Integer)Dim t As Integer t=m:n=m:n=t 改：t=m:m=n:n=t End Sub gc320.设计一个窗口，使用到frame,option,text,label,line五种控件。选择加、乘运算来得到相应的结果，其中乘法运算取整。要求如下：设置 Option3 的 caption属性，Option3 的 caption要求为运算符号*，当鼠标移动到该控件时，

10、能够出现对该运算符号的解释，如*的解释为 乘法 。在编写的两个程序代码option1_click（）和 option3_click（）中各有一个错误，请调试改正。Private Sub Option1_Click()Label1.Caption=+Text3.Text=Text1.Text+Text2.Text 改：Text3.Text=Val(Text1.Text)+Val(Text2.Text)End Sub Private Sub Option3_Click()Label1.Caption=*Text3.Text=Integer(Text1.Text*Text2.Text)改：Text3

11、.Text=Int(Val(Text1.Text)*Val(Text2.Text)End Sub gc248.设计一个窗口，日历牌每 10 秒显示一次，每次显示 10 秒；系统时间的数字式表每秒显示一次新的时间。要求：一、设置计时器Timer1 和 Timer2 的属性二、在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误，请调试改正.If Label1.Visible=True Then Label1.Visible=False Else Label1.Visible=False 改：=True End If If Label2.Caption Ti

12、me()Then Label2.Caption=Timer()改：=Time()End If gc315.frm窗体的标题为“火箭发射”，其中有两个标签按钮：航天飞机和云彩，名称分别为P1 和 P2；还有一个计时器，名称为Timer1；一个命令按钮，名称为C1，标题为“发射”。1)设置计时器的属性，使其在初始状态下不计时；每隔0.1秒调用 Timer 事件过程一次。2)单击“发射”按钮，则航天飞机每隔0.1 秒向上移动一次，当到达云彩下方时，航天飞机停止移动。Private Sub C1_Click()下行有错 Timer1.Enabled=False 改：=True End Sub Priv

13、ate Sub Timer1_Timer()Static a%a=a+1 下行有错 If P1.Top P2.Top+P2.Left Then P2.Left改：P2.Height P1.Move P1.Left,P1.Top-5-a,P1.Width,P1.Height Else Timer1.Enabled=False End If End Sub gc317.设计一个窗体，单击“自动”按钮，标签Label1 每 0.1 秒向右移动一次，当到达窗体右边时自动向左移动，单击“手动”按钮时则单击一次标签移动一次，要求标签中显示文字为“上机测试”。具体要求：设置计时器Timer1 和标签 Lab

14、el1 的属性。在编写的Command2_Click(),Timer1_Timer()中各有一处错误，请调试改正。Private Sub Command2_Click()Timer1.Enabled=flase Timer1.Timer 改：Timer1_Timer End Sub rivate Sub Timer1_Timer()Label1.Move Label1.Left+50*Step If Label1.Left+Label1.Width Form1.Width Then Step=-1 ElseIf Label1.Left 0 Then 改：If Label1.Left=0 Ste

15、p=1 End If End Sub gc335.设计一个窗体，在文本框Text1 中显示计算机的当前时间。在 Text2 中输入一个比当前晚的时间，输入的时间格式为小时:分:秒，单击计时按钮开始倒计时，当到达设定时间时，程序显示时间到并停止计时。其中Timer1 用来控制当前时间的显示，Timer2 用来倒计时。开始时Text2 中文本内容为空，窗体标题为“倒计时程序”。具体要求：设置文件Timer1 和窗体的属性。在编写的二个过程代码Timer1_Timer()和 Timer2_Timer()中各有一处错误，请调试改正。Private Sub Timer1_Timer()Text1.Tex

16、t=Format(Now,SS:HH:MM)改：HH:MM:SS End Sub Private Sub Timer2_Timer()If Text1.Text=Text2.Text Then 改：Text2.Text=Text1.Text MsgBox 时间到!Timer1.Interval=0 End If End Sub gc457.在窗体上建有标签(Label1)、定时器(Timer1)和两个命令按钮(Command1、Command2)。Label1 用于显示系统时间的数字式表，每 0.5 秒显示一次新的时间，其BorderStyle属性为：1-Fixed Single；Comman

17、d1、Command2 分别用于“计时”、“暂停”。要求：1)设置 Label1 和 Timer1 的属性；2)在编写的 Command2_Click()和 Timer1_Timer()二个过程代码中各有一个错误。Private Sub Command2_Click()Timer1.Enabled=True 改：False Command1.Enabled=True Command2.Enabled=False End Sub Private Sub Timer1_Timer()If Label1.Caption Time()Then Label1.Caption=Timer()改：=Time

18、()End If End Sub gc587.在名称为 Form1的窗体上建有文本框、命令按钮和计时器各一，其名称分别为Text1、C1和 T1，且 Text1 的初始内容为0，C1的标题为“开始计数”；在开始运行时不计数，单击“开始计数”按钮后，则使文本框中的数每秒加1。要求：1)设置命令按钮和计时器的属性；2)在 C1_Click()和 T1_Timer()两个过程代码中各有一个错误，请调试改正。Private Sub C1_Click()Timer1.Enabled=True 改：T1.Enabled=True End Sub Private Sub T1_Timer()Text1.Te

19、xt=Text1.Text+10 改：Text1.Text+1 End Sub gc334.设计一个窗体，当单击按钮时将文本框Text1 中的内容增加到列表框List1中,当单击 List1中某个项目时将它增加到List2中,当单击 List2中某个项目时将其从List2中删除。开始时 Text1中文本内容为空，按钮Command1 的提示信息为“增加”。具体要求：设置文件文本框Text1 和命令按钮Command1 的属性。在编写的二个过程代码List1_Click()和 List2_Click()中各有一处错误，请调试改正。Private Sub List1_Click()List2.Ad

20、dItem List1.ListIndex 改：List1.Text List2.Refresh List1.Refresh End Sub Private Sub List2_Click()List2.RemoveItem List2.List(List2.ListIndex)改：List2.RemoveItem List2.ListIndex List2.Refresh End Sub gc562 在“求偶数数字组成的平方数”窗体Form1上建有：命令按钮 Command1、Command2 和Command3，分别用于“运行”、“清理”和“结束”（Caption 属性）；标签 Label

21、1，用于提示平方数的位数“N：”（3 或 4 位）；文本框 Text1，用于输入平方数的位数；列表框 List1，用于输出偶数数字组成的平方数。程序启动后，按“清理”按钮，则将文本框及列表框清空，焦点设置在文本框；在文本框中输入n 的值，单击“运行”按钮，在规定范围内查找符合要求的数据并在列表框中显示结果；按“结束”按钮,结束程序运行。要求：1)设置 Command1、Command2 的相关属性；2)在 Command1_Click()和 Command2_Click()两个过程代码中各有一个错误，请调试改正。rivate Sub Command1_Click()Dim i As Integ

22、er,a As Integer Dim low As String,high As String,n As Integer n=Text1.Text low=10000 high=99999 For i=Left(low,n)To Left(high,n)If flag(i)Then If Int(Sqr(i)=Sqr(i)Then If flag(Sqr(i)Then List1.List i&=&Sqr(i)&2 此处有一错改：List1.AddItem i&=&Sqr(i)&2 End If End If End If Next i End Sub Private Sub Command

23、2_Click()Text1=List1.Clear Text1.Focus 此处有一错改：Text1.SetFocus End Sub gc318.设置文字 欢迎使用VISUAL BASIC6.0 字体大小和字体颜色，字体大小由水平滚动条来确定(最大为20，最小为10)，字体颜色由三个文本框输入，采用RGB格式。要求：(1)设置 Hscroll1的属性。(2)在过程 Command1_Click()和 HScroll1_Change()代码中各有一处错误，请调试更正，不得增删语句。Private Sub Command1_Click()Label1.ForeColor=RGB(Text1.T

24、ext,Text2.Text,Text3.Text)改：RGB(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text)End Sub Private Sub HScroll1_Change()Label1.FontSize=HScroll1 改：=HScroll1.Value End Sub gc458.窗体上有一个文本框，名称为Text1；3 个标签，名称分别为“请输入成绩”、“成绩评语”和空白；一个命令按钮，名称为C1，标题为“获得评语”。请编写适当的事件过程，使得在运行时，在 Text1 中输入 0 到 100 间的数字，单击“获得评语”按钮，在L

25、abbel3 中本题表中显示的内容。Private Sub c1_click()x=Val(Text1.Text)If x 100 And x=85 Then strtemp=该生成绩优秀 ElseIf x=60 Then strtemp=该生成绩合格 Else strtemp=该生成绩不合格 End If Label3.Caption=该生成绩 改：Label3.Caption=strtemp End Sub gc510gc509.frm的功能是：输入圆的半径，求圆面积。在“求圆面积”窗体上建有3 个 Label 控件、2 个 Command 控件和 1 个 Text控件，Text1 用于输

26、入圆的半径，Label1 和 Label2 分别用于提示“已知圆的半径圆：”和“面积为：”，Label3 用于显示输出圆的面积，以上控件的属性已经设置。Command1 和 Command2 分别用于“计算”和“结束”（Caption 属性），它们的快捷键分别是Alt-S和 Alt-X，即单击 Command1 或按 Alt-S开始计算，单击Command2 或按 Alt-X退出程序运行。要求：1)设置 Command1、Command2 的属性；2)在 Command1_Click()和 Command2_Click()二个过程代码中各有一个错误，请调试改正。Private Sub Comm

27、and1_Click()Const pi=3.14 If Text1.Text=Then 改：If Text1.Text Then r=Text1.Text If r=Val(Text1.Text)Then s=pi*r*r Label3.Caption=s Else MsgBox 输入的不是数据，请重新输入！Text1.SetFocus End If End If End Sub Private Sub Command2_Click()Exit 改：End End Sub gc316.的功能是：设计一个窗体，当在文件控件File1中单击相应图形文件时能实现在Image1 中进行浏览，要求文件

28、控件中只显示扩展名为 BMP 的文件，图形要求按同样大小进行显示。具体要求：设置文件控件File1和图像控件Image1 的属性。在编写的二个过程代码Dir1_Change()，File1_Click()中各有一处错误，请调试改正。Private Sub Dir1_Change()File1.Path=Dir1.Drive 改：File1.Path=Dir1.Path End Sub Private Sub File1_Click()Dim fname As String If Right(Dir1.Path,1)=Then fname=Dir1.Path&File1.FileName Els

29、e fname=Dir1.Path&File1.FileName End If Image1.Picture=fname改：Image1.Picture=LoadPicture(fname)End Sub tk316.frm的功能是：当按下“显示杨辉三角形”按钮时，提示从键盘输入一个数值n，并在 Picture1中显示 n 行杨辉三角形，该程序不完整，请补充空白（1）、（2）处，以便能得到正确答案。Private Sub Command1_Click()当 n=5 时的三角形为 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 Dim n%,a()As Long Dim i%,j%n

30、=InputBox(请输入需要显示的行数N:)ReDim a(n)Picture1.Cls For i=1 To n a(1)=1 a(i)=1 For j=i-1 To 2 Step-1 a(j)=(1)填：a(j)+a(j-1)Next j For j=1 To i Picture1.Print Tab(6*(j-1);a(j);Next j (2)填：Print Next i End Sub gc373.frm的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0 或 1 用其数目来表示，当遇到不同字符时用“*”表示。例 如：字 符 串 1111000001111

31、11111000111110000 压 缩 后 为“14*5*9*3*5*4”。Private Sub Form_Click()cString=111100000111111111000111110000 cResult=Left(cString,1)nCount=1 For n=2 To Len(cString)比较前后两个字符是否相同，同则计字符数，否则记*If Mid(cString,n,1)=Mid(cString,n-1,1)Then nCount=nCount+1 Else cResult=cResult+Trim(Str(nCount)+*nCount=nCount+1 改：nC

32、ount=1 End If End If 改：Next n cResult=cResult+Trim(Str(nCount)Print 压缩后为 +cResult End Sub gc561.frm的功能是：在计算窗口画1 个标签:Label1,1个文本框:text1,1个计算按钮：command1。读入 N(N=2)后，单击按钮，计算出 1+3/(2 1)+4/(3 2)+,+(n+1)/(n(n-1)的值Private Sub form_click()Dim sum As Single,kk As Single,mm As Single Dim i As Integer,n As Inte

33、ger*mm=InputBox$(请输入要求的项数N)n=mm sum=0 改：sum=1 For i=2 To n kk=(i+1)/(i*(i-1)sum=1/kk 改：sum=sum+kk Next i Print sum=;sum End Sub gc588.frm 的功能是：在一个窗体中建立一个标签框、一个文本框和一个命令按钮，单击命令按钮能计算：sum=1+2/3!+3/4!+.+n/(n+1)!前 50 项的值，并在文本框中显示出来。要求编写“计算”命令按钮的程序代码，请修改程序中2 处错误，并调试该程序，使之正确运行，不得增加或删除程序行。Private Sub Command

34、1_Click()Dim NN As String,Sum,Item As Single Dim I As Integer,J As Integer,N As Integer NN=InputBox$(请输入求的项数N)N=Val(NN)Sum=1 For I=2 To N Item=0 改：Item=1 For J=2 To I+1 Item=Item*J Next J Sum=Sum+Item 改：Sum=Sum+I/Item Next I Text1.Text=Sum End Sub gc535.frm的功能是：在“定义坐标系统绘正弦曲线”窗体From1上建有命令按钮Command1 和

35、 Command2，分别用于“定义坐标系统”和“绘正弦曲线”（Caption 属性），它们的快捷键分别是Alt-S和 Alt-X，即单击 Command1 或按 Alt-S绘制坐标系统，单击Command2 或按 Alt-X绘制正弦曲线。要求：1)设置 Command1、Command2 的属性；2)在 Command1_Click()和 Command2_Click()两个过程代码中各有一个错误，请调试改正。Private Sub Command1_Click()Cls Form1.Scale(-8,2)+(8,-2)改：Form1.Scale(-8,2)-(8,-2)Line(-7.5,0

36、)-(7.5,0):Line(0,1.9)-(0,-1.9)CurrentX=7.8:CurrentY=0.2:Print X CurrentX=0.5:CurrentY=2:Print Y For i=-7 To 7 Line(i,0)-(i,0.1)CurrentX=i-0.2:CurrentY=-0.1:Print i Next i For i=-1 To 1 If i 0 Then CurrentX=-0.7:CurrentY=i+0.1:Print i Line(0.5,i)-(0,i)End If Next i End Sub Private Sub Command2_Click(

37、)CurrentX=-6.283:CurrentY=0 For i=-6.283 To 6.283 Step 0.01 x=1:y=Sin(i)改：x=i:y=Sin(i)Line-(x,y)Next i End Sub gc613 答案If Check2.Value=0 改为 If Check2.Value=1 s=Check3.Caption 改为 s=s+Check3.Caption gc641 答案第三行：n=1 改为 n=0 倒数第二行：text1.text=n gc666 答案command1_click()下面 Text3=Text1+Text2 改为 Text3=Val(Tex

38、t1)+Val(Text2)Private Sub Command2_Click()Text1.Focus 改为 Text1.setFocus gc667 案m=1 改为 m=0 n=n+m 改为 n=n+1 程序填空题tk320.判断方程式 ax2+bx+c=0 的实根情况，在三个文本框中输入a、b、c 的值，显示最终的实根信息。请补充空白（1）、（2）处。Dim a As Single,b As Single,c As Single Dim d As Single a=Val(text_a.Text)b=Val(text_b.Text)c=Val(text_c.Text)d=(1)填：b

39、2-4*a*c If d 0 Then label_result.Caption=该方程式有两个不等的实根 (2)Then 填：ElseIf d=0 label_result.Caption=该方程式有两个相等的实根 Else label_result.Caption=该方程式没有实根 End If tk373.对于数列1,1,2,3,5,8,(从第 3 项开始，每一数列项的值为前 2 项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。在(1)和(2)中填入正确的内容。a1=1 a2=1 nSum=a1+a2 ncount=2 Do While nSum

40、1000 x=(1)填：a1 a1=a2 a2=x+a1 nSum=nSum+a2 ncount=ncount+1 Loop ncount=(2)填：ncount-1 Print 前+Str(ncount)+项的和刚好不大于1000 tk402.产生一个每次运行都不同的10 个包含端点的300 到 500 之间的随机整数，并求出这些整数的和与平均值。在(1)和(2)中填入内容。Dim a(10),i As Integer,s As Integer Randomize For i=1 To 10 a(i)=Int(1)填：201*Rnd+300 Print a(i)s=(2)填：s+a(i)Ne

41、xt i Print Print 和=;s Print 平均值=;s/10 Print tk403.显示所有的水仙花数。所谓水仙花数就是指一个3 位数，其各位数字立方的和等于该数本身。例如：153 就是水仙花数。该窗体上有 2 个命令按钮Command1“开始显示”、Command2“结束”。文件中已经给出了Command1 和 Command2 的 Click事件过程，但Command1 的 Click事件过程不完整，请在空白(1)、(2)处。Dim ss As String Dim n As Integer,i As Integer,a As Integer,b As Integer,c

42、As Integer n=0 Print For i=100 To 999 (1)填：ss=Str(i)a=Val(Mid$(ss,2,1)b=Val(Mid$(ss,3,1)c=Val(Right$(ss,1)If(2)Then 填：i=a 3+b 3+c 3 n=n+1 Print Tab(5);水仙花数;n;为:;Spc(3);i Print End If Next i tk248.当按下“求最大公因子”按钮时，提示从键盘上输入两个正整数，求最大公因子。程序不完整，请补充空白(1)、(2)处。Dim m,n As Integer m=InputBox(请输入 m的值)m=(1)填：Val

43、(m)m1=m n=InputBox(请输入 n 的值)n=Val(n)n1=n Do While n 0 remain=(2)填：m Mod n m=n n=remin Loop Print m1;和;n1;的最大公因子是;m tk317.从文本框Text1中输入一串字符,统计各字母出现的次数(大小写不区分),并对出现的字母显示其出现的个数。该程序不完整，请补充空白(1)、(2)处，以便能得到正确答案，但不得增删原语句。Dim a(1 To 26)As Integer Dim c As String*1 le=(1)填：Len(Text1.Text)For i=1 To le c=UCase

44、(Mid(Text1.Text,i,1)If c=A And c 0 Then Picture1.Print ;Chr(j+64);=;a(j);End If Next j tk481.设计一个窗体，窗体的标题设置为“等级考试”，在窗体上有一个命令按钮，其名称为Command1，标题为“计算机”，程序运行时，如果单击命令按钮，则交换窗体和命令按钮的标题，下图是程序运行后的情况。要求：1)设置窗体的标题与命令按钮的标题2)在命令按钮的代码中填空,程序不完整，请补充(1)、(2)空白处。Dim temp As String temp=Command1.Caption Command1.Captio

45、n=(1)填：form1.Caption Form1.Caption=(2)填：temp tk510.设计一个窗体，在窗体上有一个命令按钮，其名称为Command1，标题为“求解一元二次方程的根”，程序运行时，如果单击命令按钮，从键盘上输入参数，能求出任意一元二次方程的根，填空。Dim a As Single,b As Single,s As String Dim c As Single,d As Single,p As Single，q As Single s=InputBox$(请输入系数a)a=Val(s)s=InputBox$(请输入系数b)b=Val(s)s=InputBox$(请输

46、入系数c)c=Val(s)d=(1)填：b*b-4*a*c q=(2)填：Sqr(b*b-4*a*c)p=-b/(2*a)If d 0 Then Print x1=;p;+;q/(2*a);i Print x2=;p;-;q/(2*a);i ElseIf d=0 Then Print x1=x2=,p Else Print x1=;p+q/(2*a)Print x2=;p-q/(2*a)End If tk315.通过调用过程Sort 将数组按降序排序。程序运行后，在四个文本框各输入一个整数，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来。该程序不完整.Dim Start As I

47、nteger,Finish As Integer Dim i As Integer,j As Integer,t As Integer Start=LBound(a)Finish=UBound(a)For i=Start To Finish-1 For j=i+1 To(1)填：Finish 第二空 If a(i)(2)a(j)Then 填：t=a(j)a(j)=a(i)a(i)=t End If Next j Next i tk318.随机产生 10 个 100 以内的随机数，显示在窗体左边文本框内，要求用冒泡法将其按从小到大的顺序排列出来，并把结果显示在窗体右边文本框内，程序不完整，请补充

48、空白(1)，(2)处.Dim temp As Integer Dim j As Integer Text2.Text=For(1)填：i=1 To 9 For j=i+1 To 10 If(2)Then 填：Data(j)s(Max)Next j temp=s(Max)s(Max)=s(i)s(i)=temp Next i If KeyAscii=13 Then Text1.Text=Else n=n+1 (2)填：s(n)=Chr(KeyAscii)End If tk402.编写程序，产生一个每次运行都不同的10 个包含端点的 300 到 500 之间的随机整数，并求出这些整数的和与平均值。

49、Dim a(10),i As Integer,s As Integer Randomize For i=1 To 10 a(i)=Int(1)填：201*Rnd+300 Print a(i)s=(2)填：s+a(i)Next i Print Print 和=;s Print 平均值=;s/10 Print tk561.编写程序，产生一个每次运行都不同的20 个包含端点的100 到 300之间的随机整数，并求出这些整数的均值、最大值、最小值。Dim a(20),i As Integer,s As Integer Dim max As Integer,min As Integer,m As Int

50、eger max=100 min=300 Randomize For i=1 To 20 a(i)=Int(1)填：Int(201*Rnd+100)If a(i)max Then max=a(i)If a(i)35 Then i=(1)填：5Label1.FontSize=(2)填：iEnd Sub tk509 单击窗体时，显示一条直线在窗体中以0.1 秒的速度下降。程序不完整，请补充(1)、(2)空白处，以便能得到正确答案.Private Sub Form_Load()Timer1.Interval=_(1)_ 填：100 With Line1 .X1=100 .Y1=100 .X2=500