VB模拟题目十答案

1、计算机水平考试模拟试题十( VB)一、选择题 (40 分，共 25 题)1、单选题执行下列代码的结果是 O Private Sub Command 1 _Click()Dim a(10)For I = 1 To 10a(I) = 1*10Next IPrint a(I)End Sub(A) 、110(B) 、10(C) 、100(D) 、数组下标越界2、多选题在 Visual Basic 中，下面的 4 个语句语法中正确的有。(A)、 x=Log(0)(B)、 x=Sqr(0)(C)、 x=Sin(0)(D)、 x=Sgn(0)3、单选题执行下面的语句后，分别输入1 和 2,输出结果是 oPr

2、ivate Sub Form_Click()a 二 InputBox(T)b 二 InputBox("2")Print a + b + 1End Sub(A) 、 13(B ) 、 a+b+1(C)、 4(D)、 124、多选题从键盘上输入一个实数nu,利用字符串函数对该数进行处理。程序输岀结果可能为 oPrivate Sub Commandl_Click()nu=InputBox("nu=")n$=Str$(nu)P=InStr(n$, n.n)Ifp>0 ThenPrint Mid$(n$,p)ElsePrintHEND nEnd If(A)、

3、 只去掉数据中的小数点，保留所有数字输出(B)、 输出数据的小数部分(C)、 输出数据的整数部分(D)、 利用字符方式输出数据nu(E)、 输出内容为 END5、单选题为了把焦点移到某个指定的控件，所使用的方法是 o(A) 、 GetFocus (B ) 、 SetFocus(C) 、 Visible(D) 、 Refresh6、单选题修改控件属性，一般可以使用属性窗口，也可以通过 为属性赋值(A) 、 命令(B) 、 代码(C) 、 对象(D) 、 方法7、单选题可以将 VB 的控件分为三种类型，不属于这三种类型。(A)、 对象控件(B)、 内置 ( 标准 ) 控件(C)、 外来控件(D)、

4、 ActiveX 控件8、单选题执行下列程序，从键盘输入10,运行结果是 -Private Sub Command l_Click()S=InputBox( n 请输入一个数字： ”) Select Case SCase Is>0Print n>0nCase Is>3Print n>3nCase Is>5Print n>5nEnd SelectEnd Sub(A) 、 >3(B) 、 >0(C) 、 出错>5 (D) 、9 、 多选题当窗体上画一个名称为 Listl 的列表框，一个名称为 Label 1 的标签。列表框 中显示若干城市的名称

5、。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 o(A) 、Private Sub Listl_Click() : Label 1 .Caption=Listl.listindex : End Sub(B) 、 Private Sub Listl_Click(): Label 1 .Name=Listl.text: End Sub(C) 、 Private Sub Listl_Click(): Label 1 .Caption=List 1 .text: End Sub(D) 、 Private Sub Listl_Click() : Labell

6、.Name=Listl : End Sub(E) 、 Private Sub Listl_Click(): Labell.Caption=Listl : End Sub属性的值(A)、 Text(B)、 AutoSize(C)、 Caption(D)、 Name11、 单选题窗体的图形通过 属性设置(A)、 Size(B)、 PictureBox(C )、LoadPicture(D )、Picture12、 单选题下列表达式，哪一个可以产生(A)、 Int(Rnd*7)(B)、 Int(Rnd(6)+l)(C)、 Int(Rnd*6)(D)、 Int(Rnd*6+l)10、 单选题要使标签能够

7、显示所需要的文本，应在程序中设置其1到 6 之间的随机整数 o13、 单选题可以通过检查驱动器列表框的(A)、 Path(B)、 List(C)、 Drive(D )、Index属性来判断当前选择的驱动器。14、单选题下列程序的输出结果是oPrivate Sub Command l_Click()Print ” * ” :Print ”* ” :Print(A) 、(B) 、(C) 、End Sub* * * * * *15、单选题为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为。(A)、 Get文件号，记录号，变量名(B)、 Put 文件号，记录号 , 变量名(C)、Ge

8、t文件号，变量名，记录号(D)、 Put 文件号，变量名 , 记录号16、单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label 1, Label2 和Command 1, 然后编写如下程序：Private Sub func(L As Label, By Vai a As Integer) L.Caption = "1234" a = a * aEnd SubPrivate Sub Form_Load() Labell.Caption = nABCD H Label2. Caption = 10End SubPrivate Sub Command 1 _Click(

9、) a = Val(Label2. Caption) Call func(Labell, a) Label2.Caption = aLabell 和 Label2 中显示的内容分别是End Sub 程序运行后，单击命令按纽，在两个标签(A)、 1234 和 10(B)、 ABCD 和 100(C)、 1234 和 100(D)、 ABCD 和 1017、单选题执行下列程序，输出结果是Private Sub Command l_Click() a=10 Dob=b+aa=a+2loop while a>20Print aEnd Sub(A)、12(B)、10(C)、22(D)、7518、单

10、选题阅读程序：Fun cti on pl(a As In teger)Static bb = b+ 1pl 二 a * bEnd Fun cti onPrivate Sub comma nd 1 _click()Dim a As In teger a = 5For I = 1 To 3Print pl (a)Next IEnd Sub程序运行单击命令按纽，输岀结果为：后，(A)5 5 10、(B)5 10 15、(C)5 10 50、(D)10 15 2019、多选题数组元素的个数必须是，否则会岀错。(A)、常数(B)、字符(C)、常数表达式(D)、 变量(E)、函数20、单选题可以用直接操作

11、DOS文件系统的 语句改变当前的目录或文件夹。(A)、MkDir(B)、RmDir(C)CurDir(D) 、 ChDir21、单选题当一个窗口变为活动窗口时，事件发生。(A) 、 LostFocus(B ) 、 Active(C) 、 Initialize(D) 、 Deactive22、多选题下列 是 Visual Basic 标准控件。(A) 、 文本框(B) 、 窗体(C) 、 对话框(D) 、 命令按纽(E) 、 菜单项23、单选题窗体的 Name 属性为窗体指定。(A) 、 标题(B) 、 输出文字信息(C) 、 边框格式(D) 、 名字24、单选题用于 VB 程序设计的控件在 (

12、A) 、 工具箱中(B) 、 工具菜单中(C) 、 工具栏上(D) 、 工程窗口中25、单选题设有如下的记录类型Type Person number as string name as sring age as integerEnd type 则正确引用该记录类型变量的代码是 O(A) 、 P=""(B )、 Dim s As Type Person : = "张立 "(C) 、 Dim s as Person : = " 张立 " (D ) 、 Dim s As Type :

13、=" 张立 " 二、组合选择 (20 分，共 10 题)26、单精度数据类型系统使用 T 标识符。27、在 Visual Basic 6.0 中，过程有子程序过程和函数过程，其中 M 执行完后将得到一个返回值。28、对象对事件的响应是通过执行相应的一K来实现的。29、关于驱动器，下列叙述中不正确的是一A o30、DoEvents语句的作用是一S=31、若要卸载一个窗体，可以使用该窗体的_B语句。32、若要结束一个 VB应用程序，可以使用一P语句。33、下面一L是合法的日期型常量。34、程序设计阶段，下列一1控件在窗体上大小固定，不能由用户任意改变。35、执行循环语句For

14、a=-3 to 2 Step 1Pr int aNext a时，循环体被执行一J次。注意:请在试题的下划线处填写答案前所对应的字母，如"(D) Style ”，只能填写英文字母“D”大小写均可，必须在英文输入状态下输入)，不能填写"Style，”否则作错误作答处理，填完后按回车键可转到下一题。可供选择的答案如下：(A)要改变系统当前的工作驱动器需要使用ChDrive语句(B)UnLoad(C)Stop(D)"11-09-99 "(E)复选框(Check)(F)当语句中的条件为真时执行循环体，当条件为假时，终止循环(G)通用过程(H)子程序过程(I)计时器

15、 仃imer)(J)6(K)事件过程(L)#11-09-99 9:36:23 PM#(M)函数过程(N)从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器(O)0(P)End(Q)Load(R)Hoat(S)将控制权交给操作系统(T)Si ngle三、判断题(10分，共10题)36 、 当一个应用程序只包含一个窗体时，Unload 语句的作用与 End 语句的作用没区别。正确错误37 、 下列语句是否正确： Print a= 10+20 正确错误38、 在一行中有多条语句时，逗号 " ， "可作为语句间的分隔符。正确错误39 、 数组的元素在上下界内可以是不连续的。

16、正确错误40 、 在同一过程中，数组与简单变量允许同名。正确错误41 、 Unload 语句与 End 语句的区别在于： Unload 语句只是卸载一个窗体，而 End 语句是 结 束整个应用程序。正确错误42 、 下面关于 Tab 顺序的说法，是否正确：按照缺省规定，第一个建立的控件其 Tabindex 的 值为 0 。正确错误43 、 下列关于 MsgBox 函数的说法，是否正确： MsgBox 函数不能接受用户输入。 正确错误44 、 如果想设置文字属性为斜体字，则使用FontBold 命令。正确错误45 、 在一个数组中所有的数组元素都具有相同的数据类型。正确错误四、编程题 （30 分，共 2 题）46 、 （注：文件均保存在 E:shiti_10vbcp2000009 文件夹中）（ 12.0 分）素数是指只能被 1和它本身整除的数，要求在窗体上输出100-200 之间的