vb程序设计书习题和参考答案(3)

Dim i As Integer

For i = 1 To 10 Step 2 s = s + i Next i Print s;

End Sub

Private Sub Command1_Click() Call p

End Sub

程序2. 请写出单击命令按钮后，窗体上的显示结果。

Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod y

End Sub

Private Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5

Call s(a, b) Print a, b

End Sub

三、程序填空题

1．【程序说明】如果两个质数的差为2，就称这两个质数为质数对。下列程序用于输出100以内的质数对。

Private Function p(m As Integer) As Boolean Dim i As Integer (1) For i = 2 To Sqr(m)

If (2) Then p = False: Exit For Next i

End Function

Private Sub Command1_Click() Dim i As Integer

Dim p1 As Boolean, p2 As Boolean p1 = p(3)

For i = 5 To 99 Step 2 p2 = p(i)

If p1 And p2 Then Print (3) p1 = p2 Next i

End Sub 2．【程序说明】下列过程用选择法对double类型数组按值从小到大排序。

Private Sub Sort( (1) )

Dim i As Integer, j As Integer, k As Integer, t As Double For i = 1 To (2) k=i

For j = i + 1 To n

If (3) Then k = j Next j

t=a(i): a(i)=a(k): a(k)=t Next i

End Sub 3．【程序说明】下列程序用于将一维数组反序排放。

Private Sub swap(b() As Integer, n As Integer) Dim m As Integer, i As Integer For i = 1 To (1) m = b(i)

b(i) = (2) b(n - i + 1) = m Next i

End Sub

Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i Print a(i); Next i Print

Call swap( (3) ) For i = 1 To 10 Print a(i); Next i

End Sub 四、程序设计题

1．编制通用函数过程，计算Double类型一维数组所有元素的平均值。

2．编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号（提示：Sub过程的形参列表如x() As Single, m As byte, n As Byte, xmax As Single,ki As Byte,kj As Byte）。

习题六

一、选择题

1. 要为按钮设计一个访问键A，应该在Caption中加入 。

A．&A B．@A C．$A D．#A 2. 要把按钮设置为不可使用，应设置 属性为False。

A．Enable B．Default C．Cancel D．Caption 3. 要使按钮能够显示图片，应先设置 属性。

A．Style B．Enable C．Index D．Caption

4. 将命令按钮Command1设置为窗体的缺省按钮，可修改该控件的 属性。

A．Enabled B．Value C．Default D．Cancel 5. 将焦点主动设置到指定的控件或窗体上，应采用 方法。

A．SetDate B．SetFocus C．SetText D．SelText

6. 要使标签控件的大小能随Caption属性的大小自动调整，应该设置 属性为

True。

A．Enabled B．Visible C．AutoSize D．Alignment 7. 要使文本框显示滚动条，需先设置 属性。

A．AutoSize B．MultiLine C．Alignment D．ScrollBars 8. 下列 属性表示文本框中选定的内容。

A．SelLength B．Text C．Caption D．SelText 9. 下列 控件没有Caption属性。

A．命令按钮 B．标签 C．框架 D．文本框 10. 下列不能接收焦点的控件是 。

A．命令按钮 B．文本框 C．标签 D．列表框 11. 改变文本框中文字的颜色，应该修改 属性。

A．BackColor B．ForeColor C．Font D．FontBold 12. 选中单选按钮控件时，Value属性的值为 。

A．True B．False C．0 D．1 13. 选中复选框控件时，Value属性的值为 。

A．True B．False C．0 D．1

14. 若要在同一窗体中安排两组单选按钮（OptionButton）可用 控件予以分隔。

A．文本框 B．框架 C．列表框 D．组合框 15. 下列 对象具有编辑功能，即运行时可以进行输入或修改。

A．下拉式列表框 B．下拉式组合框 C．复选框 D．标签 16. 不能通过 来删除列表框中的表项。

A．RemoveItem方法 B．Clear方法 C．Text属性

17. 若要把\成为List1清单中的第三项，则可执行语句 。

A．List1.AddItem \ B．List1.AddItem \C．List1.AddItem 3,\ D．List1.AddItem 2,\18. 设置列表框各表项中的文本，用 属性。

A．Selected B．List C．Text D．Caption 19. 下面 表示列表框控件List1的最后一个项目。

A．List1.List(List1.ListIndex) B．List1.List(List1.ListIndex-1) C．List1.List(List1.ListCount) D．List1.List(List1.ListCount-1) 20. 执行List.RemoveItem List1.ListCount语句的结果为 。

21.

22.

23. 24.

25. 26. 27.

28. 29. 30.

A．删除最后一项 B．删除所有项 C．出错 D．显示所有项 下列关于组合框的说法中，正确的是 。 A． 组合框有Click事件，没有Change事件。 B． 组合框有Change事件，没有Click事件。 C． 组合框既有Change事件，也有Click事件。 D． 组合框没有Change事件和Click事件。

滚动条的 属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增减量。

A．LargeChange B．SmallChange C．Value D．Change

单击滚动条两端的任意一个滚动箭头，都将触发该滚动条的 事件。 A．KeyDown B．Change C．Scroll D．Click 下列事件中， 能够触发滚动条的Scroll事件。 A．单击滚动条两端的滚动箭头 B．单击滚动条上滑块两侧的空白处 C．单击滚动条上的滑块 D．拖动滚动条上的滑块 在任何情况下， 控件在运行时都不可见。 A．标签 B．按钮 C．复选框 D．定时器 下列 控件没有Value属性。 A．滚动条 B．复选框 C．定时器 D．单选按钮 下列设置中，可以使定时器Timer1停止计时的是 。 A．Timer1.Locked=True B．Timer1.Locked=False C．Timer1. Enabled =True D．Timer1. Enabled = False 定时器控件的 属性决定Timer事件发生的时间间隔。 A．Interval B．Top C．Visible D．Enabled 要将一个控件设置成为一个控件数组，应该设置 属性。 A．Index B．TabIndex C．Caption D．Enabled 下面有关控件数组的说法，错误的是： 。

A．控件数组由一组具有共同名称和相同类型的控件组成。 B．控件数组中的每一个控件共享同样的事件过程。

C．控件数组中的每个元素的下标由控件的Index属性指定。 D．同一控件数组中的元素只能有相同的属性设置。

二、程序填空题

1、 程序说明：密码验证程序。在窗体上已建立一个标签Label1、文本框Text1和命令按钮

Command1。请将以下事件过程填完整。 Private Sub Form_Load()

Text1. ⑴ = \End Sub

Private Sub Command1_Click()

If ⑵ = \' 密码不区分大小写 MsgBox \密码正确\ Else

MsgBox \密码错误\ End If End Sub

2、 以下程序用于实现字符串的反转。在Text1中输入字符串并按回车确认后，在Text2中

显示反转字符串，请将程序补充完整。

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer, x As String, y As String If ⑴ Then x = Text1.Text （2）

For i = n To 1 Step -1 （3） Next i

（4） End If End Sub

3、 以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。

Private Sub Command1_Click() i = 0

Do While i< ⑴

If List1.Selected(i) = True Then ⑵ Else

⑶

End If Loop End Sub

4、 程序说明：在窗体上有一个标签Label1和一个水平滚动条Hscroll1,其Min的值为0，

Max的值为100，程序运行后，单击滚动条两端的箭头和拖动滚动滑块时，在标签中实时显示滚动条的值。

Private Sub HScroll1_ ⑴ () Label1.Caption = ⑵ End Sub

Private Sub HScroll1_ ⑶ () ⑷ End Sub 三、程序设计题

1、 编程实现文本框内文本信息的剪切、复制和粘贴的功能。界面设计如图1所示，要求各

命令按钮为一个控件数组。 a) 程序刚运行时3个命令按钮都不能响应。 b) 选择文本后，“剪切”和“复制”按钮能响应。 c) 单击“剪切”或“复制”按钮后，只有“粘贴”按钮能响应。 d) 单击“粘贴”按钮后，3个命令按钮都不能响应。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb程序设计书习题和参考答案(3)在线全文阅读。