第三部分 全国计算机等级考试模拟试卷及参考答案(4)

Private Sub Command1_Click() Dim intI As Integer

For intI=1 to 10 If intI<7 Then

Text1.text=Text1.text+Trim(Str(intI)) Else

Text1.SelStart=10-intI Text1.SelLength=1 Text1.SelText=“” End If Next intI End Sub

假设程序初始时，文本框中为空。当用户单击Command1按钮时，文本框中的内容为（ ）。 A) 12 B) 45 C) 56 D) 65

30．下列程序实现了将一个数组中的元素加到一个列表中。

Option Base 1 Dim arr

Private Sub Command1_Click() Dim intI As Integer

arr=Array(“list1”, “list2”, “list3”, “list4”) For intI=1 to 4

List1. arr(intI) Next intI End Sub

则空白处的子句应为（ ）。

A) InsertItem B) RemoveItem C) AddItem D) Add 二、填空题（每空2分，共30分）

1．在一个文件中显示移动文件指针的语句是 〖1〗 。

2．逻辑运算时，参与运算的两个量都是False，结果才会是False的逻辑运算是 〖2〗 运算。 3．若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 〖3〗 。 4．设有以下的循环：

x=1 Do

x=x+2 Print x

Loop Until 〖4〗 。

程序运行后，要求执行3次循环体，请填空。

5．在窗体上画一个命令和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub

Private Sub Form_KeyPress ( KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub

程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 〖5〗 。

6．下列程序实现了指定删除数组中从某个位置删除几个元素的功能。请填写空白处的子句（其中intCount是一个数组中有效数据个数的统计）。 Option Base 1 Const N=100

Dim intCount As Integer Dim myArr(N) As Integer

Private Function DeleteItem(ByVal intIndex As Integer, ByVal intC As Integer) As Integer

Dim intI Asx Integer

If intIndex > intCount Or intCount < 1 Then DeleteItem=-1 Else

If 〖6〗 <=intCount Then For intI=intIndex+intC To intCount MyArr( 〖7〗 )= myArr(intI) Next intI Else

IntCount= 〖8〗

End If End If

End Function

7．以下程序用于求s＝1+(1+2)+(1+2+3)+??(1+2+??+100)，请补充完该程序。

dim N As Integer Dim I As Integer Dim J As Long Dim S As Long N=100 J=0 S=0

For I=1 To 〖9〗 J= 〖10〗 S= 〖11〗 Next I Print S

8．以下Function过程Odd用于判断一个数是否是奇数。当单击命令按钮时，随机产生一个二位数，调用Odd过程，判断该数是否是奇数。如果是奇数，则显示true，否则显示False。 Private Sub Command1_C1ick() Dim x As Integer X=Int (Rnd*90+10) Print x, Odd(x) End Sub

Function Odd (ByVal n As Integer) As Boolean If 〖12〗 then Odd=False Else

Odd=True End If

End Function

9．下列程序实现了将一个系统时间转换成从当天零点以来的秒数。请填写空白处的子句。 Private Sub Command1_Click()

Dim myTime

Dim lngSec As Long myTime=Time

lngSec= 〖13〗 (myTime)*60+ 〖14〗 (myTime)*60+ 〖15〗 (myTime) Print myTime;”=”;lngSec End Sub

全国计算机等级考试模拟试卷四

（考试时间 90分钟，满分100分）

一、 选择题（第1-20题每题2分，第21-30题每题3分，共70分）

1．Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 A) 控件、属性、事件 B) 属性、事件、方法 C) 窗体、控件、过程 D) 窗体、控件、模块 2．下列关于“控件”属性的说法正确的是（ ）。

A) 单击窗体中的某控件，在属性窗口的属性列表框中找到所要设置的属性，即可设置其属性值 B) 所有对象都具有同样的属性

C) 控件的属性只能在设计时设置、不能在运行时修改 D) 控件的每一个属性都具有同样的默认值

3．在VisualBasic应用程序中，以下正确的描述是（ ）。 A) 过程的定义可以嵌套，但过程的调用不能嵌套 B) 过程的定义不可以嵌套，但过程的调用可以嵌套 C) 过程的定义和过程的调用均可以嵌套 D) 过程的定义和过程的调用均不能嵌套

4．下列能正确产生[1-30]之间的随机整数的表达式是（ ）。 A) 1+Rnd(30) B) 1+30*Rnd() C) Rnd(1+30) D) Int(Rnd()*30)+1

5．要声明一个长度为256个字符的定长字符串变量str，以下哪个语句是正确的（ ）。 A) dim str as string B) dim str as string(256) C) dim str as string[256] D) dim str as string*256

6．执行语句Print Format(5459.478，”##,##0.00”)，正确的输出是（ ）。 A) 5459.48 B) 5,459.48 C) 5,459.478 D) 5,459.47

7．要在程序中提示用户是否取消卸载过程，一般在哪个事件中进行处理（ ）。 A) Unload B) Onfocus

C) Getfocus D) QueryUnload 8．Initialize事件被触发的时机是（ ）。

A) 紧接在Click事件之前 B) 在Click事件之后 C) 在Load 事件之后 D) 在其他任何事件之前 9．以下关于选项按钮的说法正确的是 。

A) 选项按钮的Enabled属性用于决定该按钮是否被选中。 B) 选项按钮的Value属性用于决定该按钮是否被选中。 C) 选项按钮的Checked属性用于决定该按钮是否被选中。 D) 选项按钮的Text属性用于决定该按钮是否被选中。 10．以下（ ）方法不能实现给Icon属性赋值。 A) 在属性窗口中改变Icon属性的值

B) 在程序代码中使用LoadPicture函数给Icon属性赋值 C) 在程序代码中使用LoadIcon函数给Icon属性赋值

D) 在程序代码中使用另一个窗体的图标属性给Icon属性赋值 11．当使用Append方式打开一个文件后，文件指针指向（ ）。 A) 文件头 B) 文件尾

C) 一个随机位置 D) 没有文件指针 12．以下关于窗体的描述正确的是（ ）。 A) 只有用于启动的窗体可以有菜单

B) 窗体事件和其中所有控件事件的代码都放在窗体文件中 C) 窗体的名字和存盘的窗体文件名必须相同

D) 开始运行时窗体的位置只能是设计阶段时显示的位置 13．关于Exit For的使用说明正确的是（ ）。 A) Exit For语句可以退出任何类型的循环 B) 一个循环中只能有一个这样的语句 C) Exit For表示返回For语句去执行

D) 一个For循环中可以有多条Exit for语句 14．下列控件中可自动设置滚动条的是（ ）。 A) 复选框 B) 框架 C) 文本框 D) 标签框

15．MDI应用程序的主窗体和子窗体分别有各自的菜单。当运行该MDI应用程序，并打开一个窗体后，在

MDI主窗体的菜单条上显示的是（ ）。 A) MDI主窗体上定义的菜单 B) MDI子窗体上定义的菜单

C) MDI主窗体菜单和子窗体菜单的简单组合

D) MDI主窗体菜单和子窗体菜单组合到一起，且相同的部分不重复出现 16．向随机文件写入一个记录需要使用下列（ ）语句。 A) Get 句 B) Read语句 C) Put语句 D) Write语句 17．假定有以下循环结构

Do Until条件 循环体 Loop

则正确的描述是（ ）。

A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少执行一次循环体 18．关于窗体Visible属性说法中正确的是（ ）。

A) 在设计阶段，Visible属性被设置为False时，窗体便不可见 B) 将Visible属性设为False的作用与Show方法相同 C) Visible属性是用来设置窗体颜色

D) 将Visible属性设为True的作用与Show方法相同

19．表达式：List1.List(List1.ListCount-2) 所表示的是（ ）。 A) 列表框中的列表的最后一项 B) 列表框中的列表的第一项 C) 列表框中的列表的第二项 D) 列表框中的列表的倒数第二项 20．下列（ ）语句可以实现删除文本框（Text1）中选定文本的功能。 A) Text1.text=”” B) Text1.SelText=”” C) Delete Text1.SelText D) Delete Text1.text 21．用下面语句定义的数组的元素个数是（ ）。 Dim A(-3 To 5) As Integer

A)6 B)7 C)8 D)9 22．以下语句错误的是（ ）。 A) If a=1 And b=2 then

c=3 End If

B) If a=1 Then

c=2

Else If a=2 Then c=3 End If

C) c=IIf(a =1,2,3) D) If a=1 Then

c=2

ElseIf a=2 Then c=3 EndIf

23．阅读下列程序

Private Sub Command1_Click()

Dim intI As Integer For intI = 1 To 3 Print st(intI) Next intI

End Sub

Static Function st(ByVal tt As Integer)

Dim intS As Integer Dim strK As String strK = strK + “K” intS = intS + tt

st = strK + Str(intS) End Function

当用户单击Command1按钮后，窗体中显示（ ）。 A) K1 B) K1

K1 KK3 K1

C) K1 D) K1 KK3 KK2 KKK6 KKK3

24．在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub

程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容为（ ）。 A) bbb B) BBB C) BB D) bb

25．在一个含有两个窗体（Form1，Form2）的工程中，在标准模块中加入Sub Main过程，并将Sub Main过程设为工程启动对象。各模块中的代码如下：

?Form1模块

Private Sub Form_Click() Unload Form2 Unload Form1 End End Sub

?Form2 模块

Private Sub Form_Click() Form1.Show End Sub ?标准模块 Sub Main() Load Form1 Form2.show End Sub

则程序运行时的流程是（ ）。

A) 首先显示Form2，单击后程序结束

B) 首先显示Form1，单击后显示Form2，再单击后程序结束 C) 首先显示Form2，单击后显示Form1，再单击后程序结束

D) 首先显示Form1，接着显示Form2，再单击后显示Form1，再单击后程序结束 26．下列程序段的执行结果为（ ）。 Dim A(10), B(5) For i=1 To 10 A(i)=i Next i

For j=1To 5 B(j)=j*20 Next j A(5)=B(2)

Print “A(5)=”;A(5)

A) A(5)=5 B) A(5)=10 C) A(5)=20 D) A(5)=40

27．在窗体上画一个列表框List1和一个文本框text1。然后编写如下两个事件过程： Private Sub Form_Load() List1.AddItem=”357” List1.AddItem=”246” List1.AddItem=”123” List1.AddItem=”456” Text1.Text=”” End Sub

Private Sub List1_Dblclick() a=List1.Text

Print a+Text1.Text End Sub

程序运行后，在文本框中输入“100”，然后双击列表框中的”456”，则输出结果为（ ）。 A) 457 B) 456100 C) 100456 D) 556 28．以下程序段的执行结果是（ ）。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库第三部分 全国计算机等级考试模拟试卷及参考答案(4)在线全文阅读。