内容发布更新时间 : 2024/12/26 17:57:38星期一 下面是文章的全部内容请认真阅读。

C、List1.Index D、List1.Text

142、表示滚动条控件取值范围最大值的属性是(A)。 A、Max

B、LargeChange C、Value D、Max-Min

143、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(D)。 A、Value B、Default C、Cancel D、Enabled

144、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句(D)。

A、List1.AddItem 3, \

B、List1.AddItem \C、List1.AddItem \

D、List1.AddItem \145、复选框的Value属性为2时，表示(C)。 A、复选框未被选中 B、复选框被选中

C、复选框内有灰色的勾 D、复选框操作有错误。

146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(A)。 A、Value B、Default C、Cancel D、Caption

147、下面说法不正确的是（D）? A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号

C、一菜单项名为MenuTerm，则语句MenuTerm.Enable = Flase 将使该菜单项失效 D、希望在菜单中显示\符号，则在标题栏中输入\符号 148、以下叙述中错误的是(C)。

A、在程序运行时，通用对话框控件是不可见的

B、在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用

C、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D、调用通用对话框控件的ShowColor方法，可以打开颜色对话框

149、菜单编辑器中，输入哪一个选项（A）会在菜单栏上显示文本 A、标题

B、名称 C、索引 D、访问键

150、菜单控件只有一个事件（B） A、MouseUp B、Click C、DBClick D、KeyPress

151、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是(A)。 A、“text (.txt)|(*.txt)” B、“文本文件( .txt) | (.txt)” C、“text(.txt)||(*.txt)” D、“text(.txt)(*.txt)”

152、下面哪个属性可以控制菜单项可见或不可见（C） A、Hide B、Checked C、Visible D、Enabled

153、下面说法不正确的是（D） A、层菜单不允许设置快捷键

B、使菜单项中的文字具有下画线，可在标题文字前加&符号。

C、一菜单项名为MenuTerm，则语句MenuTerm.Enabled = Flase 将使该菜单项失效。 D、希望在菜单中显示“&”符号，则在标题栏中输入“&”符号。 154、下面哪个属性可以控制菜单项可见或不可见（C）? A、Hide B、Checked C、Visible D、Enabled

155、改变驱动器列表框的Drive属性将激活（A）事件。 A、Change B、Scroll C、KeyDown D、KeyUp

156、在窗体上建立通用对话框需要添加的控件是（C） A、Data控件 B、Form控件

C、CommonDialog控件 D、VBComboBox控件

157、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（A）。 A、Input B、Output C、Random D、Append

158、为建一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用（A）。 A、记录类型 B、数组

C、字符串类型 D、变体类型

159、下列说法错误的是（B）。

A、当用Write # 语句写顺序文件时，文件必须以Output或Append方式打开 B、用Open语句打开一个文件时，对同一个文件可以用几个不同的文件号打开 C、用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件

D、用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面 160、执行语句Open \后，对文件\中的数据能够进行的操作是(C)。 A、只能写不能读 B、只能读不能写

C、即可以读，也可以写 D、不能读，也不能写

1，下面程序对已知数组a，删除数组中数组元素中某个元素 Private Sub Command1_Click() Dim a(), key%, i%, j%

a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)

key = Val(InputBox(\输入要删除的值\For i = 0 To UBound(a) If key = a(i) Then

For j = i + 1 To UBound(a) a(j - 1) = a(j) Next j

ReDim Preserve a(UBound(a) - 1) MsgBox (\删除完成\ Exit Sub End If Next i

MsgBox (\找不到要删除的元素\End Sub

2，下列程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序 Private Sub Form_Click() Dim a, i%, n%, m%

a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a)

ReDim Preserve a(n + 1)

m = Val(InputBox(\输入欲插入的数\For i = UBound(a) - 1 To 0 Step -1 If m >= a(i) Then a(i + 1) = a(i)

If i = 0 Then a(i) = m Else

a(i + 1) = m Exit For End If Next i

For i = 0 To UBound(a) Print a(i) Next i End Sub

3，下列程序在1000~9999之间查找满足如下条件的整数：该整数，逆向排列得到的 另一个四位数是它自身的倍数（2倍以上）。查找结果和逆向排列数分别显示在对应 的列表框

Private Sub Command1_Click() Dim n As Integer Dim m As Integer Dim i As Integer For i = 1000 To 9999 m = 0 n = i

Do While n > 0

m = m * 10 + n Mod 10 n = n \\ 10 Loop

If m Mod i=0And m \\ i > 1 Then list1.AddItem i

list2.AddItem m & \ End If Next i End Sub

4，将100~150之间的偶数，拆分成两个素数之和，最后输出格式如图。其中，prime函数判断

参数x是否为质数

Private Function prime(ByVal x As Integer) As Boolean prime = ture

For i = 2 To Sqr(x) If x Mod i = 0 Then

prime = False Exit Function End If Next i

End Function

Private Sub Form_Load() i = 1

For n = 100 To 150 For k = 3 To n / 2

If prime(k) And prime(n - k) Then Print i; \Exit For End If Next k i = i + 1 Next n End Sub 10,

子过程F（N，M，T）对一个四位数n整整数判断：已知该整数n，逆向排列获得另一个4位数m是特自身的倍数，则t为true 表示满足上述条件。。。

Private Sub Command1_Click() Dim t As Boolean, i%, k% text1 = \text2 = \

For i = 1000 To 9999 Call f(i, k, t) If t Then

text1 = text1 & i & vbCrLf

text2 = text2 & k & \ End If Next i End Sub

Sub f(ByVal n%, ByRef m%, byreyftag As Boolean) Dim i% Tag = False m = 0 i = n

Do While i > 0

m = m * 10 + i Mod 10 i = i \\ 10 Loop

If m Mod n = 0 And m \\ n > 1 Then Tag = True