2018可视化程序设计(VB)(共10页).docx

《2018可视化程序设计(VB)(共10页).docx》由会员分享，可在线阅读，更多相关《2018可视化程序设计(VB)(共10页).docx（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上可视化程序设计（VB）窗体顶端一 、 单项选择题 (共 10 题、0 / 20 分 ) 1、下列程序段的执行结果为（ ）。Dim x as integerIf x Then Print x Else Print x+1 End if A、显示出错信息 B、0 C、1D、-12、下列程序的执行后，X的结果为（）。Private Sub Command1_Click( )x=0For i=1 to 3x=1For j=1 to 4x=2For k=1 to 5x = x + 2Next kNext jNext iPrint xEnd Sub A、24B、36 C、12 D

2、、483、已知d=#2015-04-01#表达式year(d)+1的值是（ ）。 A、05 B、2016 C、02 D、出错4、可用于设置系统当前时间的语句是（ ）。 A、Date B、Timer C、Date$ D、Time5、程序的运行结果为（）。 Dim k As Integer n=5:m=1:k=1 While k=n m=m*2 k=k+1wendPrint m A、32 B、1 C、5 D、406、在使用菜单编辑器设计菜单时，必须输入的项是（ ）。 A、快捷键 B、索引 C、名称 D、标题 7、要禁用计时器控件，需要设置为False的属性是（ ）。 A、Interval B、Ti

3、mer C、Visibale D、Enable8、图像框根据加载的图像的大小调整尺寸，需要设置为False的属性是（ ）。 A、Appearance B、Picture C、Stretch D、AutoSize 9、以下关于变量作用域的叙述中，正确的是_。 A、模块级变量只能用Private关键字声明 B、窗体中凡被声明为Private的变量只能在某个指定的过程中使用 C、全局变量必须在标准模块中声明 D、Static类型变量的作用域是它所在的窗体或模块文件10、控件数组是通过（ ）来区分控件数组元素的。 A、Index属性 B、Count属性 C、名称 D、控件标题二 、 判断题 (共 10

4、 题、0 / 10 分 ) 1、事件驱动编程机制是VB的特点之一。 正确 错误2、2xy是合法的变量名。 正确 错误3、如果返回是字符型，则函数名后有“$”字符。 正确 错误4、为了指明某个对象的操作，必须在方法或属性前加上对象名，中间用空格隔开。 正确 错误5、算术运算符的优先级低于字符运算符的优先级。 正确 错误6、xyz_1是合法的变量名。 正确错误7、对象指的是类的实例。 正确 错误8、字符是构成程序设计语言的最小语法单位。 正确 错误9、函数Int(-4.2)的值为-5。 正确 错误10、Shell函数可调用其他任意程序。 正确错误三 、 填空题 (共 5 题、0 / 10 分 )

5、1运行语句：t = MsgBox(Hello, 64, Come)后，在信息提示框内显示的内容是_ Hello _。2、VB中包含_和事件过程两种sub过程。3、设a = 10，b=12，则执行x = Iif ( b a*a = 10 , 0 , -1 )后，x的值为（）4、数学中完数是指这样的整数：该数的各因子之和是它的本身。例如，6的因子是1，2，3，而6=1+2+3，所以6是完数。下列程序是找出21000以内的完数，并显示结果，其中，函数isWs（m as integer）as Boolean用来判断参数m是否是完数。Function isWs(m AsInteger) As Boole

6、an Dim i As Integer, s As Integer For i = 1 To m - 1 IfThen s = s + i End If If (m = s) Then Else isWs = False End If Next iEnd FunctionPrivate SubCommand1_Click() Dim i As Integer For i = 2 To 1000 If Then Print i; Next iEnd Sub参考答案：m mod i=0 isWs=True isWs=True5、以下程序段的输出结果是_3_。 Num=0While num=2num

7、=num+1WendPrint num四 、 程序阅读题 (共 5 题、0 / 15 分 ) 1、程序为：Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For I = LBound(a) To UBound(a) a(I) = a(I) * a(I)Print a(I)Next IEnd Sub程序运行后，单击窗体后，在窗体显示的结果是：参考答案：149162536492、在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：Private Sub Form_Load( )List1.AddItem “123 ”Li

8、st1.AddItem “456 ”List1.AddItem “369”List1.AddItem “789 ”Text1.Text = “ ”End SubPrivate Sub List1_DblClick( )a = List1.TextPrint a + Text1.TextEnd Sub程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（ ）参考答案：3、写出下面程序运行时单击窗体的输出结果。Private Sub f(a%, b%) a = a+ b b = a- bEnd SubPrivate Sub Form_Click() Dima%, b% a

9、 =23 b =12 Callf(a, b) Printa= & a; ,b= & bEnd Sub参考答案：a=35,b=234、写出下列事件过程的执行结果。Private Sub Command1_Click()s3 (1)s3 (1)End SubPrivate Sub s3(ByVal a As Integer)Dim x AsIntegerStatic y AsIntegerx=x+a: y=y+aPrint x=; x,y=; yEnd Sub5、在窗体上画一个命令按钮，然后编写如下事件过程：Private SubCommand1_Click( )x=0For i=1 to 3x=

10、1For j=1 to 4x=2For k=1 to 5x = x + 2Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果为（12）五 、 简答题 (共 5 题、0 / 25 分 ) 1、VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？单击工程资源管理器窗口的“查看代码”按钮。2、简述VB6.0的主要特点。参考答案：（1）面向对象的程序设计（2）具有结构化程序设计语言（3）事件驱动编程机制（4）强大的数据库、多媒体功能（5）完备的联机帮助功能3、将数字串转换成数值用什么函数？判定是否是数字串用哪个函数？取字符串某几个字符使用什么函数？大

11、小写字母转换用什么函数？参考答案：（1）数字串转换成数值用val函数；（2）判定是否是数字串用isnumeric函数。（2）取字符串某几个字符使用mid函数。（3）大小写字母转换用lcase函数ucase函数。4、哪种数据类型的内存容量较少，且可存300的值？为什么？5、什么是对象？什么是类？什么是事件过程？参考答案：（1）对象是面向对象程序设计的核心，是构成应用程序的基本元素。（2）类是对同种对象的抽象描述，是创建对象的模版。（3）事件过程是对某个对象事件所做的操作。六 、 程序设计题 (共 2 题、0 / 20 分 ) 1、用随机函数产生100个0,999以内的随机整数，输出能够被3整除并

12、且个位不为0的数并且统计满足条件的数的个数。要求每行输出10个数。 参考答案：Private Sub Form_Click() Dim a(99) As Integer, i%, j%, flag%, temp%, k% For i = 0 To 99 Randomize 初始化随机数发生器 a(i) = Int(999 - 0 + 1) * Rnd + 0) 按要求生成随机数放入数组 Next i For i = 0 To 99 If a(i) Mod 3 = 0 And a(i) Mod 10 0 Then j = j + 1 Print a(i); If j Mod 10 = 0 Then Print vbCrLf End If End If Next i Print vbCrLf Print 满足条件的数的个数为： & jEnd Sub2、编写一个递归函数将一个正整数n的各位数字从低位到高位分解开，例如123，分解为3 2 1，其中n的值在命令按钮单击事件中用InputBox（）函数输入。命令按钮单击事件中：n=inputBox()fx(n)递归函数：fx(m)ifm 专心-专注-专业