VB实验指导与练习题实验部分的参考答案_vb实验作业参考答案

VB实验指导与练习题实验部分的参考答案由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb实验作业参考答案”。

VB实验指导与练习题实验部分的参考答案： 实验 4 4-1： 2*pi*r Pi*r*r 4-3: chr(64+n)4-4: x mod 10

x 10 mod 10

x100 4-5:

mid(s,i,1)=Lcase(t)实验 5 5-1：

a+b+c+d Sum/4 5-2:(4*h-f)/2

(f-2*h)/2 5-4: sec360024

Sec mod(1& 24*3600)mod 3600 mod 60 5-5: 0.5*g*t*t+v0*t 实验 6 6-1: left(text1,text1.selstart)& text2 & right(text1, len(text1)– text1.selstart)6-2: timer1.enabled=true

Timer1.enabled=false 6-3: shape2.left=shape2.left +d *50 6-5:

a & check2.caption 6-6:

list1.listcount-1 6-7: 1000

List1.list(i)6-8:

text1 实验 7 7-1: n=n-3500

n-y

text1.setfocus 7-2: a=a & c 7-3: sum +j

Sum=1250 7-4: m=n

n=r

r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1

S2 & mid(s1,k,1)S2=””

7-7:

nfactor

factor+1 7-8: n 7-9:

sum=0

s & i & “ +”

list1.clear 7-10: mid(text1, i, 1)实验8 8-1：a(i)=a(16-i)

a(16-i)=temp 8-2: a(i-2)+a(i+1)+1

Text2 & vbcrlf 8-3: picture1.print

i=1 to 5

sum=sum+a(I,j)

next i

sum+a(i,j)+a(i,6-i)

not(i>1 and i1 and j

If a(i)

(a(i)10)*(b(i)10)

“sum=”;sum

8-6: a(i,2)=a(i,4)

A(i,4)=t

8-8:

picture1.print a(i,j);

Sum=sum+a(k,k)8-9:

exit for

num=a(i)8-10:

i+1 to 10

a(i)>a(j)