2022年VB考试题及答案 .pdf

《2022年VB考试题及答案 .pdf》由会员分享，可在线阅读，更多相关《2022年VB考试题及答案 .pdf（35页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、学习资料收集于网络，仅供参考学习资料VB 程序设计期末考试题一、选择题1 下列常量中，是Integer类型常量的是（C ） 。A、123& B、-38844 C、123% D、32768 2 下面选项中 () 是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于 VB的集成开发环境（IDE）的叙述中，不正确的是（B ） 。A、IDE是设计、调试、运行VB程序的工具。B、用户不能随意关闭IDE中的窗口。C、 窗体设计 窗口是用来设计应用程序界面（窗体）的。D、打开 / 关闭各窗口的命令主要在IDE的视图 菜单中。4 len( “vb程序设计 ”)=( C ) 。A、 5

2、B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后， A= （A） 。A、157 B、12334 C、123 D、12334 7 在一个语句内写多条语句时, 用来分隔每条语句的符号是(C). A、, B、; C、: D、8 将逻辑型数据转换成整型数据时，转换规则是（D ） 。A、将 True 转换为 1 ，将False 转换为 0 B、将 True 转换为 1 ，将False 转换为 -1 C、将 True 转换为 0 ，将False 转换为 -1

3、 D、将 True 转换为 -1 ，将False 转换为 0 9 表达式 2+3*45-SIN(X+1)/2中最先进行的运算是(D). 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料A、SIN B、45 C、3*4 D、x+1 10 如果 x=2，则表达式 x+12 Or sin(x)0.9 And 3x+3的值（B ） 。A、不能计算B、 True C、5 D、False 11 随机产生

4、10，50 之间整数的正确表达式是（D ） 。A、Round( Rnd*50) B、 Int(Rnd*40+10)C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体, 工程管理器窗口中就会增加一个(C). A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(1)产生的随机整数的闭区间是(B). A、1,100 B、0,99 C、0,100 D、1,99 14 下列数据类型中, 占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种 () 程序设计

5、语言 .B A、过程式B、非过程式C、机器D、低级16 函数 Int(10*Rnd)是在 (A) 范围内的整数 . A、0,9 B、0,1 C、1,9 D、1,10 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资

6、料18 函数 Len(Str(Val(123.4)的值为(B). A、5 B、6 C、8 D、11 19 Int(198.555*100+0.5)/100的值为BA、199.6 B、198.56 C、200 D、198 20 以下各表达式中, 计算结果为 0的是 (A). A、FIX(12.4)+FIX(-12.6) B、CINT(12.4)+CINT(-12.6) C、INT(12.4)+INT(-12.6) D、FIX(13.6)+FIX(-12.6) 21 MsgBox() 的正确语法是（D ） 。A、 MsgBox( 标题 ，提示信息 ，按钮类型 ) B、 MsgBox( 提示信息 ，

7、标题 ，按钮类型 ) C、MsgBox(标题 ，按钮类型 ，提示信息 ) D、 MsgBox( 提示信息 ，按钮类型 ，标题 ) 22 38-3 OR 10+2 5,-1,0)后,x 的值为 (D). A、5 B、0 C、6 D、-1 25 下面关于 VB 的叙述中，不正确的是（A ） 。A、用 VB 编写的程序可以在任何操作系统环境中运行。B、VB 是面向对象的可视化的软件开发工具。C、VB 是在 20世纪60年代美国 Dartmouth 学院开发的 Basic 语言基础上发展而形成的。 D、VB 是由美国 Microsoft（微软）公司开发程序设计语言。26 表达式 16 / 4-25*8

8、 / 4 Mod 5 2 = ( A )。A、4 B、0 C、-2 D、 -6 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料27 声明符号常量应该用关键字(B). A、Private B、Const C、Static D、V26/ariant 28 下列数据类型中, 占用内存最大的是(D). A、Boolean B、Integer C、Byte D、Single 29 下列 VB数据类型

9、中，占用内存最少的是（D ） 。A、Currency B、Integer C、Boolean D、Byte 30 RGB 函数通过红 . 绿. 蓝三基色混合产生某种颜色, 某语法为 RGB ( 红. 绿. 蓝), 括号中红、绿、蓝三基色的成分使用0255之间的整数 . 若使用三个滚动条分别输入三种基色, 为保证输入数值有效 , 则应设置(B)属性. A、Scroll和Change B、Max 和Min C、Smallchange 和 LargeChange D、Value 31 k=12.5 ，len( str( k ) )=( B ) 。A、 4 B、5 C、 3 D、 2 32 表达式 A

10、bs(-5)*55/5的值是 D A、1 B、5 C、-25 D、25 33 产生 10,37之间的随机整数的VisualBasic表达式是(C). A、Int(Rnd(1)*27)+11 B、Int(Rnd(1)*28)+11 C、Int(Rnd(1)*28)+10 D、In t(Rnd(1)*27)+10 34 工具栏中的 启动 按钮的作用是(B).A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35 不需要编译，计算机便可直接执行的程序是（B ） 。A、C语言程序名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - -

11、- - - - - 名师精心整理 - - - - - - - 第 4 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料B、 机器语言程序C、 汇编语言程序D、 Visual Basic语言程序36 Val (“123ab ”)=（D ） 。A、0 B、 不能转换C、1230 D、123 37 表达式 16/4-25*8/4MOD52 的值为 A A、4 B、2 C、14 D、20 38 删除字符串前导和尾随空格的函数是(D).A、Rtrim( ) B、Ltrim() C、Lcase D、Trim() 39 下列表达式中 ,其值为 0的是(C).A、15

12、 mod 9 B、7/9 C、79 D、7 mod 15 40 表达式 Len(123 程序设计 ABC)的值是 B A、17 B、10 C、14 D、20 41 Int(-3.1)+round (-4.6)=_C_。A、-8 B、-6C、-9 D、-7 、/ 、Mod 、* 等4个算术运算符中, 优先级最低的是(A). A、Mod B、/ C、* D、 43 下面正确的赋值语句是（D ） 。A、x=y=1 B、x+2=y2+2 C、x+y=1 D、x=y+z1 44 Len(实践应用能力 ) 的值是(A). A、6 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -

13、 - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料B、4 C、不能确定D、8 45 表达式 Mid(SHANGHAI,6,3)的值是(C). A、ANGH B、SHA C、HAI D、SHANGH 46 表达式 253 mod 3 *Int(4.5)的值为(B). A、1 B、8 C、4 D、5 47 下面变量名称正确的是（C ） 。A、x 1 B、integer C、 x_1_y D、 x , y 48 不能正确表示条件两个整型变量 A和B之一为 0, 但不能同时为

14、 0 的布尔表达式(D). A、A*B=0ANDAB B、(A=0ORB=0)ANDAB C、A=0ANDB0ORA0AND B=0 D、A*B=0AND(A=0ORB=0) 49 如果 X 是一个正的实数, 将千分位四舍五入, 保留两位小数的表达式是(C).A、0.01*int(100*(x+0.05) B、0.01*int(x+0.05) C、0.01*int(100*(x+0.005) D、0.01*int(x+0.005) 50 表达式 X+1X是(D).A、非法表达式B、字符表达式C、算术表达式D、关系表达式51VisualBasic的编程机制是 (B). A、面向图形B、事件驱动C

15、、面向对象D、可视化52 下面 4项中合法的变量名是(A). A、X_yz B、X-Y C、123abc D、integer 53 以下可以作为 VB变量名的是 (C). A、COS(X) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料B、X(-1) C、CO1 D、SIN 54 表达式 (73+1)*(185-1)的值是 (B). A、8.76 B、6 C、6.67 D、7.8 55 下

16、列哪个变量名的取法是不正确的(C). A、sTme B、T_12 C、T12% D、T_Temp 56 可以同时删除字符串前导和尾部空白的函数是(B). A、Ltrim B、Trim C、Mid D、Rtrim 57 VB窗体文件的扩展名是(A). A、FRM B、VBW C、VBP D、BAS 58 一个具有图形用户界面的“ 标准 EXE ” 工程必须包含的文件是（A ） 。A、工程文件和窗体文件。 B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59 数学式 3X5写成 VB表达式是（A ） 。A、3=X and X=3 and 5X C、3=X or X5

17、 D、3=X ”A” and Ucase$(C$)=0 AND a+cb+3 OR NOT d 的值是 _false_ 。4. 表示 x是5的倍数或是 9的倍数的逻辑表达式为_x mod 5 = 0 OR x mod 9 = 0_。5. 在刚建立工程时， 使窗体上的所有控件具有相同的字体格式，就对 _font_ 的属性进行设置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是 _-3_ 、_2_、_-2_ 、_3_。7.Label 和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 _label _ 控件；若允许用户

18、输入文本，则应使用_Textbox _ 控件。8. 若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1 ，请对以下事件过程填空。Private Sub Cmdopen_Click()_ _frm1.show _ end sub9. 表达式 93 7 Mod 2 2 的值是 _1_。10. 表达式 Ucase(Mid( “ abcdefgh ” ,3,4)的值是 _CDEF_ 。11. 当程序运行时， 要求窗体中的文本框呈现空白，则在设计时， 应当在此文本框的_ 属性 _窗口中，把此文本框的_ text _ 属性设置成空白。12. 已知 a=3 ， b=4 ， c=

19、5 ， 表达式 ab and Not ca Or cb And ca And Not b 3000 Print 从1 到:; i; 的和是 ; s End Sub 答案【学生答案】i = i + 2 【参考答案】i=i+1 2. - 【程序改错】- 862 题目：以下程序段用于输出100-300 的所有素数- Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)

20、i = 2 *ERROR* swit = 1 *ERROR* While swit = 0 If n Mod i = 0 Then swit = 1 Else *ERROR* i = i - 1 End If Wend If swit = 0 Then Print n; End If Next n End Sub 答案【学生答案】swit = 1 【参考答案】swit=0 【学生答案】While swit = 0 【参考答案】While i=i And swit=0 While swit=0 And i=i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - -

21、- - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料【学生答案】i = i - 1 【参考答案】i=i+1 3.Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); 9*9 table Print: Print Print * ; For i = 1 To 9 *ERROR* Print Tab(i * 6); i Next i P

22、rint For j = 1 To 9 Print j; ; For k = 1 To j Print Tab(k * 6); j * k; ; *ERROR* Next j Print *ERROR* Next k 答案【学生答案】Print Tab(i * 6); i 【参考答案】 Print Tab(i * 6); i; 【学生答案】Next j 【参考答案】 Next k 【学生答案】Next k 【参考答案】Next j 4.- 【程序改错】- 题目：以下程序段用于计算5的N次方。- Option Explicit Private Sub Form_Click() Dim n As

23、Integer, k As Integer, s As Long n = InputBox( Input n ) *ERROR* k = 0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 21 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料*ERROR* s = 0 Do While k = n s = s * 5 k = k + 1 *ERROR* Next Print 5的; n次方是 ; s End Sub 答案【学生答案】k =

24、0 【参考答案】k=1 【学生答案】s = 0 【参考答案】s=1 【学生答案】Next 【参考答案】loop - 5. 【程序改错】- 题目：以下程序段用于打印如图1所示的九九乘法表：- Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); 9*9 table Print: Print Print * ; For i = 1 To 9 *ERROR* Print Tab(i * 6); i Next i Print For j = 1 To 9

25、Print j; ; *ERROR* For k = 1 To 9 *ERROR* Print Tab(j * 6); j * k; ; Next k Print Next j End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 22 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料答案【学生答案】Print Tab(i * 6); i 【参考答案】Print Tab(i*6);i; 【学生答案】For k = 1 To 9 【参

26、考答案】For k = 1 To j 【学生答案】Print Tab(j * 6); j * k; ; 【参考答案】Print Tab(k*6);j*k; ; 6. 【程序改错】- 题目：下面程序可输出如下图形： * * * * * - Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = * For i = 5 To 1 Step -1 *ERROR* Print Spc(n) For j

27、= 1 To 2 * m - 1 Print s; Next j Print *ERROR* n = n + 1 *ERROR* m = m - 1 Next i 答案【学生答案】Print Spc(n) 【参考答案】Print Spc(n); Print Spc(i); ?Spc(n); ?Spc(i); 【学生答案】名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 23 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料n = n + 1 【

28、参考答案】n=n-1 n=-1+n 【学生答案】m = m - 1 【参考答案】m=m+1 7. 题目：以下程序段用于输出100-300 的所有素数- Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For i = 101 To 299 k = Int(Sqr(i) For n = 2 To k If i Mod n = 0 Then *ERROR* Exit End If Next n *ERROR* If n k Then Print

29、 i; End If *ERROR* Next n Print i 答案【学生答案】Exit 【参考答案】exit for 【学生答案】If n k Then If kn Then 【学生答案】Next n 【参考答案】next i Next i 程序填空1.从键盘输入三个整数，从其中找出最大值并输出到窗口Private Sub Form_Click() Dim a%, b%, c%, max% a = Val(InputBox( 请输入一个整数) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - -

30、 - - 第 24 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料b = Val(InputBox( 请输入一个整数) c = Val(InputBox( 请输入一个整数) max=a *FILL* If _Thenmax=b End If If max c Then *FILL* _ End If*FILL* Print a; 、; b; 、; c; 中最大值是 ;_ End Sub 答案【学生答案】If _Then 【参考答案】maxb maxmax b=max 【学生答案】_ 【参考答案】max=c 【学生答案】Print a; 、; b; 、

31、; c; 中最大值是 ;_ 【参考答案】max 2. 以下程序的功能。Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(请输入 a的值 ) b = InputBox(请输入 b的值 ) c = InputBox(请输入 c的值 ) d = b * b - 4 * a * c p = -b / (2 * a) If d = 0 Then *FILL* If _ Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else 名师资料总结 - -

32、-精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 25 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 x1 = p x2 = p *FILL* _ Print x1=; x1, x2=; x2 *FILL* _ q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; i End If 答案【学生答案】If _ Then 【参考答案】d0 【学生答案】_ 【参考答案】End if End If end

33、if 【学生答案】_ 【参考答案】else Else ELSE 3. 从键盘输入学生分数，统计学生总人数和各分数段人数， 即优秀（ 90-100 ）、良好（ 80-89 ）、中等（ 70-79 ）、 及格（ 60-69 ）、不及格（ 60以下）的人数。Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = 请输入分数（ -1 结束） msgtitile = 输入数据 score = Val(InputBox(msg, msgtitle) *FILL* While _ total = total + 1 *FILL*

34、Select Case _ Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 26 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料 Case Else n5 = n5 + 1 *FILL* _ score = Val(InputBox(msg,

35、msgtitle) Wend Print n1, n2, n3, n4, n5, total End Sub 答案【学生答案】While _ 【参考答案】score=0 and score=0 and score=100 score-1 【学生答案】Select Case _ 【参考答案】score 【学生答案】_ 【参考答案】End Select 4以下程序段用于实现：输入两个正整数m 和n，求其最大 公因数和最小公倍数。Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(请输入一个正整数) num2

36、 = InputBox(请输入一个正整数) *FILL* If _ Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 *FILL* Do While _ temp = a Mod b a = b *FILL* _ Loop Print 最大公因数为：; a Print 最小公倍数为：; num1 * num2 / a 答案【学生答案】If _ Then 【参考答案】num1num1 【学生答案】Do While _ 【参考答案】b0 b0 0b temp0 temp0 0temp Not b=0 Not 0=

37、b 【学生答案】_ 【参考答案】b=temp 5 以下程序用于判断一个正整数（3）是否为素数。 Private Sub Form_Click() n = InputBox(请输入一个正整数（3） ) k = Int(Sqr(n) i = 2 swit = 0 *FILL* Do While i = k And _ *FILL* If _ Then swit = 1 Else *FILL* _ End If Loop If swit = 0 Then Print n; 是一个素数 Else Print n; 不是素数 End If End Sub 答案【学生答案】Do While i = k A

38、nd _ 【参考答案】swit=0 【学生答案】If _ Then 【参考答案】n Mod i = 0 n i = n / i 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 28 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料n / i = int ( n / i) 【学生答案】_ 【参考答案】i = i + 1 6题目：从键盘上输入一串字符，以? 结束，统计输入字符中的 大、小写字母和数字的个数。Private Sub Form_Cli

39、ck() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(请输入一个字符) *FILL* Do While _ Select Case ch Case a To z n1 = n1 + 1 *FILL* Case _ n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 End Select ch = InputBox(请输入一个字符) *FILL* _ Print n1, n2, n3 答案【学生答案】Do While _ 【参考答案】do while ch? Do While ch? 【学生答案】Case

40、 _ 【参考答案】case A to Z Case A to Z 【学生答案】_ 【参考答案】loop Loop 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 29 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料窗体设计1 在名称为 Form1的窗体上画一个文本框，名称为Txt1 ；再画一个命令按钮，名称为 C1，标题为 移动 ，如图 1所示。请编写适当的事件过程，使得在运行时，单击 移动 按钮，文本框水平移动到窗体的最左端如图2所示。程

41、序中不得使用任何变量。注意：完成题目后，必须保存工程后再关闭。【控件】 VB.CommandButton_ 标准答案： Name=C1 学生答案： Name= 【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Caption= 移动学生答案： Caption= 【控件属性评分】错误【控件】 VB.TextBox_ 标准答案： Name=Txt1 学生答案： Name= 【事件评分】错误【事件】 Private Sub C1_Click() 标准答案： Txt1.Left = 0 学生答案：二 1 、 利用VB设计上面的程序界面。窗体的标题为字体修改 ；其中包括一名称

42、为Label1, 标题为 请输入文字 的标签；一名称为 Text1 ，内容为空的文本框；名称为 Command1, 标题为 隶书 ，名称为 Command2, 标题为 黑体 的两个命令按钮。 2 、程序功能：单击 隶书命令按钮时，文本框的字体设为隶书 ；单击 黑体命令按钮时，文本框的字体设置为黑体 。提示：不能使用任何变量！【事件】 Private Sub Command2_Click() 标准答案： Text1.Font = 黑体 学生答案：【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Caption= 隶书学生答案： Caption= 【事件评分】错误【事件

43、】 Private Sub Command1_Click() 标准答案： Text1.Font = 隶书 学生答案：【控件属性评分】错误【控件】 VB.Label_ 标准答案： Caption= 请输入文字学生答案： Caption= 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 30 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料三在名称为 Form1的窗体上建立一个名称为List1 的列表框。要求：在程序运行后，通过Form_Load

44、() 事件过程加载窗体时，执行语句List1.AddItem AAA，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图所示。【事件】 Private Sub Form_Load() 标准答案： List1.AddItem AAA 学生答案：【事件评分】错误【事件】 Private Sub List1_Click() 标准答案： List1.AddItem List1.Text 四 在名称为 Form1的窗体上建立一个水平滚动条，名称为HS1 ，其最大值为 100，最小值为 0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.

45、Value，如图所示（程序中不能使用任何变量）【事件】 Private Sub HS1_Scroll() 标准答案： Print HS1.Value 学生答案：【控件属性评分】错误【控件】 VB.HScrollBar_ 标准答案： Name=HS1 学生答案： Name= 【控件属性评分】错误【控件】 VB.HScrollBar_ 标准答案： Max=100 五 1 、 在名称为 Form1的窗体上建立一个名称为l1的标签，并设置他不可见； 两个名称为cmd1和 cmd2，标题分别为 显示 1和 显示 2的命令按钮。 2 、编写适当的事件过程，要求程序运行后，如果单击 显示 1 命令按钮，则标

46、签可见并显示字符串 aaa ；如果单击 显示 2 命令按钮，则标签可见并显示字符串 bbb。程序中不能使用任何变量，直接显示字符串；不能使用默认属性。程序开始运行时界面如图1所示标准答案： Caption= 显示 1 学生答案： Caption= 【控件属性评分】错误【控件】 VB.Label_ 标准答案： Visible=0 False 学生答案： Visible= 【控件属性评分】错误【控件】 VB.Label_ 标准答案： Name=l1 学生答案： Name= 【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Name=cmd2 学生答案： Name= 名师

47、资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 31 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Name=cmd1 学生答案： Name= 【事件评分】错误【事件】 Private Sub cmd1_Click() 标准答案： l1.Visible = True l1.Caption = aaa 学生答案：【事件评分】错误【事件】 Private Sub cmd2

48、_Click() 标准答案： l1.Caption = bbb 六 1 、在名称为 Form1的窗体上画一个文本框，名称为Text1,且不可见；再画两个命令按钮，名称分别为 c1和c2，标题分别为 隐藏 和显示 。2、请编写适当的事件过程，使得在运行时，如果单击 隐藏 按钮，则文本框消失；如果单击 显示 按钮，则文本框显示出来，如图1和图 2所示。程序中不得使用任何变量。【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Name=c2 学生答案： Name= 【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Caption= 显示学生答案

49、： Caption= 【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Name=c1 学生答案： Name= 【控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Caption= 隐藏学生答案： Caption= 【控件属性评分】错误【控件】 VB.TextBox_ 标准答案： Visible=0 False 学生答案： Visible= 【事件评分】错误【事件】 Private Sub c2_Click() 标准答案： Text1.Visible = True 学生答案：【事件评分】错误【事件】 Private Sub c1_Click

50、() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 32 页，共 35 页 - - - - - - - - - 学习资料收集于网络，仅供参考学习资料标准答案： Text1.Visible = False 学生答案：七标题为 输出 的命令按钮，如图1-12所示。要求程序运行后，在文本框输入几个字符，单击 输出 按钮，则在窗体上显示文本框中的文字。注意：在程序中不能使用任何变量，不能使用默认属性。控件属性评分】错误【控件】 VB.CommandButton_ 标准答案： Name=Cm