二级VB习题整理-程序填空部分答案

1Do While _s 0 Thencount =_count+1_41）： 【9】2）： 【s+t1*t2*p/t3】3）： 【t3*(2*i+1)*(2*i+2)】51）：【Shu(i)】2）：【Additem n】3）：【k=0】4）：【right(n,2)】【Mid(n,3,2)】5）：【m】6flg = TrueIf Mid(n, j, 1) Mid(n, k - j + 1, 1) ThenExit ForText1 = Text1 &CStr(i) & 2= & n &vbCrLf7Isshu(i)Len(s)Ln-j+1Str$(i)Trim(str$(m)81）： 【i + 1】2）： 【pf(i + j) And pf(j - i)】3）： 【y = Sqr(x)】4）： 【p = True】5）： 【pf = p】9ni+1j+1trim(str$(m)10For k = _j+1_ To ns(j) = _s(k)_s(k)_ = tLabel1 = Label1 &s(j)& 11For i = 0 Ton 1If a(j) a(j + 1) Thena(j) = a(j + 1)Picture1.Print a(j); ;12UBound(s) + 1Exit Fors(j + 1) = s(j)Print a(i);Insert(a(), p)13UBound(a)Str$(key)-a(k)n14Aver = _ score(a)_sum = _s(0)_ElseIf s(j) max Thensum = _ sum + s(j)_score _ = (sum - max - min) / (n-1)15a(i) = Int(rnd*90)+10 If a(i)mod 3= 0 ThenPrint s/n16EOF(1)fsstr(s/n)17Not Eof(1)maxAge=Agefor output as #218For i = 1 To n-1If n Mod i = 0 Then sum =sum+isy = sum t = sy（b）If a=tAnd a b Then Print a, b19sum = sum + iCall Prime(sum, flg)Text1 = Text1 &Str(n) & : &t &vbCrLfflage = False20For i = 10 To 1000If i Mod j = 0 Then Exit ForCall hws(i, flg)k = Len(m)If Mid(m, j, 1) Mid(m, k - j + 1, 1) Then21Open file1.txt 1, #2num = num + 1 22Open file2.txt1, #3 a = a + 1 23Inputa(n)a(i)1024Len(text1.text)sfz,7,4ssval(y)25Do While i 0 Then26Check1.Value = 1UCase(s0)Mid(ss, i, len0)ss27For i = 1 To Len(_text1_) t = _ IsMyChar(sp)_If y(n) = 0_and_c = 9 ThenIsMyChar = _-1_281）： 【UBound(str)】2）： 【i+1】3）： 【j】4）： 【str(i) & * 】29mRightShift(a)Ubound（s）S（j-1）Last3