VB学习与实验指导测试题 参考答案 第一章 一、选择题 1 A 2 B 3 D 4 D 5 B 6 B 7 C 8 A 9 C 10 A 11 A 12 C 13 C 14 D 15 C 16 A 17 B 18 D 二、填空题 1 事件 2 对象按钮 3 工程 4 视图 属性窗口 5 窗体编辑器
第二章 一、选择题 1 A 2 C 3 C 4 D 5 C 6 D 7 A 二、填空题 1 类 2 事件 3 4 5 6 Name（名称）
第三章 一、选择题 1 A 2 A 3 CD 4 C 5 A 6 C 7 C 8 A 9 D 10 D 11 C 12 C 13 A 14 D 15 D 16 A 17 C 18 B 19 B 20 D 21 B 22 D 23 A 24 B 25 C 26 C 27 B 28 D 29 B 二、填空题 1 (a*sin(30*3.14/180)+c*log(b))/((abs(d)+1)*(e+f))+1 2 mod 3 x*y>0 and x=fix(x) and y=fix(y) 4 y mod 4=0 and y mod 100<>0 or y mod 400=0 5 int(rnd*90)+10 6 0 “” 7 空格 8 6,845.30 9 (1) 8 (2) 1 (3) abcd (4) 出错（类型不匹配） (5) false (6) 29/06/2008 (7) I like VB (8) 4 (9) 4 4 (10) 3 4 (11) 10 -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 basic
10 (1) x<-100 or x>100 (2) a=int(a) and b=int(b) and a*b>0 (3) x<=y or x>=z (4) a>0 and fix(a)<>a (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,"a")<>0 (10) Trim(s) = s (11) Date() = #8/8/2008# (12) Weekday(date) = 2
第四章 一、简单填空 1 Randomize 2 N=int(rnd*90)+10 3 M=(int(rnd*91)+10)/10 4 Exit for 5 Exit do 二、读程序写结果 1 150 12 2 22 23 -1 3 5 3 0 4 20 40 60 三、程序填空 1 Len(s) Mid(s,I,1) c>=”A” and c<=”Z” c>=”a” and c<=”z” c>=”0” and c<=”9”
2 1 2 n\2 n mod i=0 sum+i n=sum
3 1000 Cstr(n) Cstr(m) Right(s2,len(s1))=s1
4 100 200 2 n-1 exit for count+1 cound mod 5=0 print
5 Sum=1 A*x*x/((2*n-1)*(2*n)) Sum+a Abs(a)<=1e-7
第五章 一、选择题 1 B 2 C 3 C 4 A 5 C 6 A 7 D 8 B 9 C 10 A 11 B 12 D 13 A 二、读程序写结果 1 120 36 2 10 31 7 3 26 14 26 三、程序填空
1 A(I,j); Picture1.print A(I,1) 1 A(I,j) J “第” & I & “行最大数是” & maxdata & “,第” maxj & “列”
2 Text1.text & a(i) K Preserve b(k) B(k)=a(i)
3 Sqr(n-m)=int(sqr(n-m)) Redim preserve b(k) N A(m) & b(m)
4 Int(rnd*51)+50 1 B(i)+1
第六章 一、判断题 1 √ 2 √ 3 × 4 × 5 √ 6 √ 7 √ 8 √ 9 √ 10 √ 11 × 12 √ 13 √ 14 × 15 √ 16 √ 17 √ 18 √ 19 √ 20 √ 二、选择题 1 A 2 C 3 A 4 A 5 A 6 D 7 B 8 A 四、读程序写结果
1 x=2 y=2 m=2
2 9 4 5 9 27
3 50 26
4 5 64 5
5 7 14 11 22 15 30
6 29 29 3
7 12 25 第七章 一、选择题 1 B 2 B 3 D 4 C 5 B 6 D 7 A 8 D 9 B 10 B 11 C 12 A 13 B 14 C 15 D 16 C 17 A 18 A 19 B 20 C 21 B 22 C 23 B 24 B 25 B 二、简单填空 1 LargeChange 2 Timer.Enabled = False 3 AddItem 4 格式 5 Picture 6 Enabled 7 Load 8 SetFocus 9 MultiLine 10 ms 三、程序填空
1 Inputbox Timer1_timer Text2.text Label3.caption=””
2 Form_load List1_dblclick List1.listindex List2_dblclick List2.listindex
3 (3) Text List1.text Removeitem 10-2*i-1
第八章 一、选择题 1 D 2 B 3 C 4 5 C 二、简单填空 1 popupmenu 2 3 visible 4 连接符- 5
第九章 一、选择题 1 C 2 C 3 B 4 B 5 B 6 B 7 C 8 B 二、简单填空 1 Eof 2 记录 字节 3 大小 4 复制 5 Drive 三、程序填空
1 For input Do until eof(1) Line input #1,data
2 Input as #1 #1,str Close #1
综合测试题一 一、选择题 1 A 2 C 3 D 4 B 5 D 6 A 7 A 8 C 9 A 10 C 二、填空 1 Int(x)=x and int(y)=y and x*y<0
2 YAW oureelcome
3 5 15 151
4 11 19 13
5 4 12 19 6 n nn onn
7 until abs(t)< =eps (-1)^n t*x*x/n
8 K=1 c(k)=p P=”” List1.additem c(i)
9 (Byval a as integer) as boolean i>int(a/2) judge(p)
10 False Text1.text=text1.text & “(“ & m & “,” & n & ”)” & vbcrlf M=k N mod i=0
综合测试题二 一、选择题 1 A 2 B 3 C 4 A 5 C 6 C 7 C 8 B 9 C 10 A 二、填空 1 (Int(51*rnd)+100)/100
2 2 3 4 5 6 6 7 8 10
3 W WW 8
4 2 3 3 7 4 4 12
5 GCD(21,3)=3 GCD(45,24)=3
6 47 23 11
7 Instr(s,”,”) Mid(s,n+1) A(3)=val(s) 8 m+val(mid(cstr(n),i,1))