VB程序设计学习与实验指导书答案（包含实验答案）

VB学习与实验指导测试题

参考答案

第一章

一、选择题 1 6 11 16 1 4 A B A A 2 7 12 17 事件 视图 属性窗口 B C C B 2 5 3 8 13 18 D A C D 对象按钮 窗体编辑器 4 9 14 3 D C D 5 10 15 工程 B A C 二、填空题 第二章

一、选择题 1 6 1 4 A D 类 2 7 C A 2 5 3 C 事件 4 3 6 D 5 Name（名称） C 二、填空题 第三章

一、选择题 1 6 11 16 21 26 1 2 3 4 5 6 7 A C C A B C 2 7 12 17 22 27 A C C C D B 3 8 13 18 23 28 CD A A B A D 4 9 14 19 24 29 C D D B B B 5 10 15 20 25 A D D D C 二、填空题 (a*sin(30*3.14/180)+c*log(b))/((abs(d)+1)*(e+f))+1 mod x*y>0 and x=fix(x) and y=fix(y) y mod 4=0 and y mod 100<>0 or y mod 400=0 int(rnd*90)+10 0 “” 空格 8 (1) (3) (5) (7) (9) 9 (11) (13) (15) (17) (19) (21) (23) (1) (3) (5) (7) 10 (8) (9) (10) (11) (12) 8 abcd false I like VB 4 4 10 -10 aa 0 C 4 中国 VISUAL BASIC x<-100 or x>100 x<=y or x>=z a = 0 Xor b = 0 UCase(s) = s 6,845.30 (2) (4) (6) (8) (10) (12) (14) (16) (18) (20) (22) (24) (2) (4) (6) 1 出错（类型不匹配） 29/06/2008 4 3 4 -1 3 1 5 34.54 上海 visual basic a=int(a) and b=int(b) and a*b>0 a>0 and fix(a)<>a len(s)<10 Left(s, 1) = \instr(s,\Trim(s) = s Date() = #8/8/2008# Weekday(date) = 2 第四章

一、简单填空 1 2 3 4 5 1 2 3 4 Randomize N=int(rnd*90)+10 M=(int(rnd*91)+10)/10 Exit for Exit do 150 12 22 23 -1 5 3 0 20 40 60 二、读程序写结果 三、程序填空 1 2 3 4 5 Len(s) Mid(s,I,1) c>=”A” and c<=”Z” c>=”a” and c<=”z” c>=”0” and c<=”9” 1 2 n\\2 n mod i=0 sum+i n=sum 1000 Cstr(n) Cstr(m) Right(s2,len(s1))=s1 100 200 2 n-1 exit for count+1 cound mod 5=0 print Sum=1 A*x*x/((2*n-1)*(2*n)) Sum+a Abs(a)<=1e-7 第五章

一、选择题 1 6 11 1 2 3 B A B 120 36 10 31 7 26 14 26 2 7 12 C D D 3 8 13 C B A 4 9 A C 5 10 C A 二、读程序写结果 三、程序填空 A(I,j); Picture1.print 1 A(I,1) 1 2 3 4 A(I,j) J “第” & I & “行最大数是” & maxdata & “,第” maxj & “列” Text1.text & a(i) K Preserve b(k) B(k)=a(i) Sqr(n-m)=int(sqr(n-m)) Redim preserve b(k) N A(m) & b(m) Int(rnd*51)+50 1 B(i)+1 第六章

一、判断题 1 6 11 16 1 6 √ √ × √ A D 2 7 12 17 2 7 √ √ √ √ C B 3 8 13 18 3 8 × √ √ √ A A 4 9 14 19 4 × √ × √ A 5 10 15 20 5 √ √ √ √ A 二、选择题 四、读程序写结果 x=2 y=2 1 m=2 9 2 4 5 9 27 50 3 26 5 4 64 5 7 14 5 11 22 15 30 29 6 29 3 12 7 25

第七章

一、选择题 1 6 11 16 21 1 2 3 4 5 6 7 8 9 10 B D C C B 2 7 12 17 22 B A A A C 3 8 13 18 23 D D B A B 4 9 14 19 24 C B C B B 5 10 15 20 25 B B D C B 二、简单填空 LargeChange Timer.Enabled = False AddItem 格式 Picture Enabled Load SetFocus MultiLine ms 三、程序填空 Inputbox Timer1_timer 1 Text2.text Label3.caption=”” Form_load List1_dblclick 2 List1.listindex List2_dblclick List2.listindex (3) Text 3 List1.text Removeitem 10-2*i-1 第八章

一、选择题 1 D 2 B 3 C 4 5 C 二、简单填空