vb程序设计学习与实验指导书答案

1、VB学习与实验指导测试题参考答案第一章一、选择题1A2B3D4D5B6B7C8A9C10A11A12C13C14D15C16A17B18D二、填空题1事件2对象按钮3工程4视图属性窗口5窗体编辑器第二章一、选择题1A2C3C4D5C6D7A二、填空题1类2事件6Name (名称)第二早一、选择题1A2A3CD4C5A6C7C8A9D10D11C12C13A14D15D16A17C18B19B20D21B22D23A24B25C26C27B28D29B二、填空题1(a*si n(30*3.14/180)+c*log (b)/(abs(d)+l)*(e+f)+l2mod3x*y0 and x=fi

2、x(x) and v=fix(v)4y mod 4=0 and y mod 100o0 or y mod 400=05in t(rnd*90)+10607空格86,845.3098(2)1(3)abed(4)出错（类型不匹配）(5)false(6)29/06/2008Hike VB(8)4(9)44(10)34(ID10 -10(12)-1(13)aa(14)3(15)0(16)1(17)c(18)5(19)4(20)34.54(21)中国(22)上海(23)VISUAL BASIC(24)visual basic10(1)xv-100 or x100(2)a=in t(a) and b=in

3、 t(b) and a*b0(3)x=z(4)a0 and fix(a)oa(5)a = 0 Xor b = 0(6)len (s)10(7)UCase(s) = s(8)Left(s, 1) = a And Right(s, 1) = a(9)instr(s, nan)0(10)Trim(s) = s(11)Date() = #8/8/2008#(12)Weekday(date) = 2第四章一、简单填空1Ran domize2N=i nt(rnd*90)+103M=(i nt(rnd*91)+10)/104Exit for5Exit do二、读程序写结果1150 12222 23 -135

4、30420 40 60三、程序填空1Len(s)Mid(s,l,l)c=A ” and c=a and c=0 and c=9212n2n mod i=0 sum+i n=sum31000Cstr( n)Cstr(m)Right(s2,le n(sl)=sl41002002n-1exit forcoun t+1cound mod 5=0 print5Sum=lA*x*x/(2* n.l)*(2* n)Sum+aAbs(a)v=le-7第五章一、选择题1B2C3C4A5c6A7D8B9C10A11B12D13A二、读程序写结果1120 36210 317326 14 26三、程序填空1A(IJ)

5、；Picturel.pri nt A(I,1)1A(l,j)J“第” & 1 &“行最大数是” & maxdata &“，第” maxj & “列”2Text l.text & a(i) KPreserve b(k)B(k)=a (i)3Sqr( n-m)=i nt(sqr( n-m) Redim preserve b(k) NA(m) & b(m)4In t(rnd*51)+50 1B(i)+1第六章一、判断题1V2V3X4X5J6V7V8V9V10V11X12V13V14X15V16V17V18V19V20V二、选择题1A2c3A4A5A6D7B8A四、读程序写结;果1x=2 y=2 m=

6、22945927350264564 557 1411 2215 3062929371225第七章一、选择题1B2B3D4C5B6D7A8D9B10B11C12A13B14C15D16C17A18A19B20C21B22C23B24B25B二、简单填空1LargeCha nge2Timer.E nabled = False3Additem4格式5Picture6En abled7Load8SetFocus9MultiLi ne10ms三、程序填空1In putbox Timerl timer Text2.text Label3.capti on=”2Form_load Listl_dblclic

7、k List l.li sti ndex List2_dblclick List l.li sti ndex3(3)TextListl.textRemoveitem 10-2*i-l第八章一、选择题1D2B3C45C二、简单填空1popupme nu3visible4连接符-第九章一、选择题1C2c3B4B5B6B7c8B二、简单填空1Eof2记录字节3大小4复制5Drive三、程序填空1For in put Do un til eof(l) Line in put #l,data2In put as #1 #l,str Close #1综合测试题一、选择题1A2c3D4B5D6A7A8C9A

8、10C二、填空1In t(x)=x and in t(y)=y and x*y02YAW oureelcome3515 15141119135412196n nn onn7un til abs(t)in t(a/2) judge(p)10FalseTextl.text=text 1.text & m & “了 & n & vbcrlfM=kN mod i=0综合测试题二一、选择题1A2B3C4A5c6C7C8B9C10A二、填空1(In t(51*rnd)+100)/100223456678103W WW 8423374 4125GCD(21,3)=3GCD(45,24)=364723117I

9、n str(s,)Mid(s, n+1) A( 3)=val(s)8m+val(mid(cstr( n),i,l)mand total(p2) mod 6=0 &pl & 侦 &p2 &9(a,tl ,t2)m=a(i,l) a(IJ)m then m=a(lj) s=small(l):m=large(l)10Call eu( n+2,f2)Whle inN mod j=0 and i mod j=0 P=p+1下篇实验教程实验2 Visual Basic变量、函数与表达式的使用实验2-1算术运算符的使2-202007-10-153实验2-2字符运算符的使用20071

10、020071020172007-10-10102007-10-20出错，类型不匹配实验2-3关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5常用函数的使用3.143.147.389056098930651-1.9999999982051034-11 0.705547558252512500Aa659748688-98-89-9aaa 4.5aaa4.5165Visua 6.0suaBasicBasicabcd

11、eEFG6.0BasicBasicBasicVisualBasic 6.0Bas88icaaadd2011-3152011-3-14:35:155215320113001.731.731.7317.32E-010173%实验3算法基础及程序控制结构实验3-1三个数的交换A=CC=BB=TBC实验3-2求周长和面积Const Pl=3. 14159262*p|*RPI*R*RPicturel.CisFormat (L,.00)Format (M, .00)实验3-3求分段函数的值x=Val(Textl. Text)y=l+Si n(x)y=Log(x)Textl. Text =Text2. Te

12、xt =实验3-4求一元二次方程的根Vai(Text2. Text)Vai(Text3. Text) b 2 -4*a*c xl= & (-b + Sqr (delt) / (2 * a) x2 二 & (b - Sqr(delt) / (2 * a)Text2.Text =Text3. Text =End实验 3-5 判断素数N Mod k = 0 k=NN Mod i 二 0k=2实验 3-6 求最大公约数和最小公倍数MNL=ML=Nk Mod M = 0 And k Mod N = 0Text4. Text = kExit For实验 3-7 判断升序数、降序数CStr(N)Len (S

13、) - 1Mid(S, k, 1) = Mid(S, k + 1, 1) k = Len (S)N = Vai (Textl. Text)S = CStr(N)For k = 1 To Len (S) - 1If Mid(S, k, 1) = Mid(S, k + 1, 1) Then Exit For Next k k = Len (S)实验 3-8 判断回文数 1Len(s) 21Mid(S, k, 1) Mid(S, Len (S) - k + 1, 1) k = Len (S) 2Mid(S, k, 1) + SIS = SI实验 3-9 求级数的值Vai (Textl. Text)

14、01x n s * n t / s = 10 -6 Text2. Text = y实验 3-10 查找数字串并求和 Textl. Text = Text2. Text = Listl.Clear Textl. Text 0 False 0While Mid(s, i, 1) = 0Flag = True k 二 k * 10 + Mid(s, i, 1) i = i + 1 Flag = True sum + k Text2. Text = sum 实验 3-11 随机产生 20个奇数 a Mod 2=1 n Mod 5=0 Picturel. Cis实验 3-12 加密解密Chr(Asc(

15、a) + (Asc (c) - Asc( c = Chr(Asc( A )+ (Asc (c) - Asc( Text2. Text Len(s2) Mid(s2, i, 1)And Mid(s, i, 1)9Int(99 - 10 + 1) * Rnd) + 10a) + 3) Mod 26)A)+ 3) Mod 26) c & s2c = Chr (Asc ( a)+ (Asc (c) - Asc(c = Chr (Asc ( A)+ (Asc (c) - Asc(Textl. Text =a)+ 23) Mod 26)A )+ 23) Mod 26) c & si siText2. Te

16、xt = 实验 3-13 统计单词个数Textl. Text0Mid(s, i, 1) And i max Then max = score(i) score (i) = 0 And c = 9A(c) = A(c) + 1A(k) 0m = m + 1实验 4-5 排序1 To 10Int(99 TO + 1) * Rnd + 10)Textl. Text & A(n) & 1 To 9i + 1 To 10A(i) A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j)

17、= T1 To 10Text3. Text = Text3. Text & A(i) & 10T = A(i)0 ji - 1k + 11 To 10Text4. Text = Text4. Text & A(i) &实验 4-6 二维数组的产生及输出1 To 4 1 To 5Int(9 -0 + 1) * Rnd + 0)1 To 4 1 To 5Print A(i, j);Print 1 To 41 To 5Picturel. Print A(i, j);Picturel. Print 1 To4 1 To 5Textl. Text = Textl. Text & A(i, j) & Te

18、xtl. Text = Textl.Text & vbCrLf实验 4-6 查找最大和最小元素及其位置1 To 3 1 To 4A(i, j) = Int (99 - 10 + 1) * Rnd + 10) Picturel. Print A(i, j); Picturel. PrintA(l, 1), 1, 1A(l, 1), 1, 1A(i, j) i jA(i, j) b Then DecNumber = True Else DecNumber = False End If 10 To 100 Prime(i) = True And Prime (i + 2) = True List2.

19、 Additem i &和 & i +2 DecNumber(i) 二 True And Prime(i) = True List3. Additem i实验 5-2 求多项式和 k = 1 a = f (x, k) S + a k = k + 1Single As SingleDim i As Integer, a As Single a = (x + 1) / xFor i = 2 To ka 二 a * (x + i) / (2 * i - 1) * x)Next i a实验 5-3 进制转换Asc (C) - Asc( A) + 10 Left (S, k - 1) Mid(S, k + 1)Change(Mid(S2, i, 1) * N (0 - i)T1 + T2T