程序设计复习课件.pptVIP

程序设计复习 45、在窗体上画一个文本框（其中name属性为text1），然后编写如下事件过程； Private sub form_load() Dim i as integer, sum as integer Text1.text=”” For i=1 to 10 Sum=sum+i Next i Text1.text=sum End sub 运行结果： __________________ 46．Private sub command1_click() dim p as integer,i as integer,n as integer p=0:n=5 for i=1 to n p=p+i*2 if p=10 then exit for next i print p end sub 答案： 47、Private sub command1_click() dim ch as string,i as integer ch=”DEF” for i=1 to 3 ch=chmid(ch,i,1) next i print ch end sub 答案： 48、Private sub form_activate () Dim a as integer, b as integer，c as integer a=15 b=60 c=38 if ab then m=a else m=b if mc then m=c print “M=”;m end sub 运行结果 49、（6分） Private sub form_activate() Dim I as integer ,sum as integer Sum=0 For i=1 to 100 Sum=sum+2 Next i Print “sum=”;sum End sub 50、（8分，每空4分） Private sub form_activate() Dim p as integer, i as integer P=1 For i=1 to 5 P=p+i Next i Print “I P 分别为：”；i，p End sub 输出结果：I P分别为： 51、（6分）： A＝1 A＝A*2 A＝A*3 A=A*4 PRINT A END __________________ 52、（6分） Private Sub Form_Load() Dim X As Integer,Y As Integer, Min As Integer Text1.Text= X=20 Y=12 Min=X If XY Then Min=Y Text1.caption=Min End Sub 运行结果： 53、（6分） Dim i As Integer, n As Integer n=2 For i=1 To 5 step 2 n=n*i+1 Next i Print n= ;n 计算结果为： ___________________________ 54、Private sub form_load() Dim x as integer, y as integer Text1.text=” ” X=99 Y=98 M=X If XY then M=Y Text1.text=M End sub 运行结果 55、写出程序结果 Private sub command1_click() Dim a as integer,b as integer a=1:b=0 Do while a=5 b=b+a*a a=a+1 Loop print a,b End Sub 答案： 56、写程序结果：（6分） Text2=“34” a=（Val(Text2)-32）*5/2 print a 答案： 题目中是一个求二次函数曲线顶点坐标的vb程序，在运行时text1、text2、text3分别输入3、6、9三个数，请问text4、text5输出结果分别应为什么？ Private sub command1_click() Dim a as text, b as text, c as text a=val(text1.text) b=val(text2.text) c=val(text3.text) m=-b/(2*a) n=(4*a*c-b*b)/4*a Text4.