全真模拟题(四)

全真模拟卷（四）

一、选择题

11.在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是________。

A) 属性窗口 B) 工具箱窗口C) 窗体设计窗口 D) 工程资源管理器窗口

12.下面说法不正确的是________。

A) 变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符

C) 变量名不能使用关键字 D) 变量名的第一个字符必须是字母

13.设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为________。

A)123456 B)123445 C)5 D)6

14.下列语句正确的是________。

A) If A≠B Then Print "A不等于B" B) If A<>B Then Printf "A不等于B"

C) If A<>B Then Print "A不等于B" D) If A≠B Print "A不等于B"

15.用来设置文字字体是否斜体的属性是________。

A) FontBold B) FontSlope C) FontItalic D) FontUnderline

16.在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：

Private Sub Command1_Click()

a=12345

Print Format$(a,"000.00")

End Sub

程序运行后，单击命令按钮，窗体上显示的是________。

A) 00123.45 B) 12345 C) 12345.00 D) 123.45

17.在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("Enter an integer")

y = InputBox("Enter an integer")

Text1.Text = y + x

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是_____。A) 307 B) 37 C) 703 D) 出错

18.以下关于MsgBox的叙述中，错误的是________。

A)MsgBox函数返回一个整数B)MsgBox语句没有返回值

C)MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量

D)通过MsgBox函数可以设置信息框中图标和按钮的类型

20.

执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是________。

21.

运行程序，单击"计算"按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是________。。

A) 计算结果在文本框中显示出来 B) 过程调用语句不对，应为calc(HV，HT)

C) 过程定义语句的形式参数不对，应为Sub calc(x As Control，y As Contro1)

D) 程序不能正确运行

23.在窗体上画一个命令按钮

如下事件过程:

Private Sub Command1_Click()

For i=1 To 4

x=4

For j=1 To 2

25.在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为"myform1",双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:

Privae Sub M1_Click(Index As Integer)

Form1.Caption="myform 2"

End Sub

运行时,单击按钮数组中的第1个按钮,窗体标题为

30.

单击事件过程如下：

Private Sub Command1_Click()

CD1.FileName = ""

CD1.Filter = "All Files|*.*|(*.Doc)|*.Doc|(*.txt)|*.txt"

CD1.FilterIndex = 2

CD1.Action = 1

End Sub

关于以上代码，错误的叙述是________。

A) 执行以上事件过程，通用对话框被设置为"打开"文件对话框

B) 通用对话框的初始路径为当前路径C) 通用对话框的默认文件类型为*.txt

32.

立其若干子菜单，然后编写如下过程：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

PopupMenu Menu0

End If

End Sub

则以下叙述错误的是______。

A) Menu0在菜单编辑器中定义弹出菜单的名称B) 该过程的作用是弹出一个菜单

C) 单击鼠标右键时弹出菜单 D) 参数X、Y指明鼠标当前位置的坐标

33.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是________。

A) 任何时刻最多只有一个窗体是活动窗体

B) 在Visual Basic工程中，任何窗体或过程都可以作为"启动对象"

C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D) 如果工程中含有Sub Main过程，则程序一定首先执行该过程

34.假定在工程文件中有一个标准模块，其中定义了如下记录类型

Type Books

Name As String*10

TelNum As String*20

End Type

要求在执行事件过程Command1_Click时，在C盘根目录下的顺序文件Person.txt中写

二、填空题

6.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click()

Dim str As String,s As String,c As String

str＝UCase (Text1)

s＝""

c＝"Z"

While c＞＝"A"

If Instr(str，c)＝0 Then

s＝__【6】__ End If

c＝Chr$(Asc(c)__【7】__) Wend

If s<>""Then

Text1＝s

End If

End Sub

7.窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

8.在窗体上画名称为Command1、标题为"计算"的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为"操作数1"、

"操作数2"、"运算结果"和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为"+"、"-"、"*"和"/"。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应计算结果显示在Label4中，程留一个）写入文件file2.txt 。请填空。

Private Sub Command1_Click() Dim inchar As String, temp As String, outchar As String outchar = "" Open "file1.txt" For Input As #1 Open "file2.txt" For Input As # _【12】 n = LOF(_【13】_) inchar = Input$(n, 1) For k = 1 To n temp = Mid(inchar, k, 1) If InStr(outchar, temp) = _【14】_ Then

outchar = outchar & temp End If

Next k

Print #2, _【15】_

Close #2

Close #1

End Sub