VB6.0程序设计实践教程 习题及答案(9)

2．（1）temp=1 （2） temp （3）nFactor( i ) （4）sum 3、（1） end （2） hwstring(str) （3） As Boolean

（4） n=len(strtxt) (5) True （6） False

4、（1） m As Integer, n As Integer, a( ) As Integer, b( ) As Integer

（2） Int(Rnd * 10) （3） Print （4） y( )

程序设计题：

1、具体程序为：

Function Maxnum(ByRef a() As Integer, ByVal n As Integer) As Integer Dim i As Integer Maxnum = a(1) For i = 2 To n

If a(i) > Maxnum Then Maxnum = a(i) Next i

End Function

Function Avenu(ByRef a() As Integer, ByVal n As Integer) As Single Dim i As Integer, sum As Integer For i = 1 To n sum = sum + a(i) Next i

Avenu = sum / n End Function

Sub Sortrnum(ByRef a() As Integer, ByVal n As Integer) Dim i As Integer, j As Integer, k As Integer Dim temp As Integer For i = 1 To n k = i

For j = i + 1 To n

If a(k) > a(j) Then k = j Next j

If i <> k Then temp = a(i) a(i) = a(k)

a(k) = temp End If Next i End Sub

Private Sub Form_Click()

Dim b(10) As Integer, i As Integer For i = 1 To 10

b(i) = InputBox(\请输入整数\输入\Next i

Call Sortrnum(b(), 10) Print \从小到大排序为：\For i = 1 To 10 Print b(i); Next Print

Print \最大数为：\Print \平均数为：\End Sub

2、具体程序为：

Function fe(n%, x!) As Single Dim temp As Single, i As Integer fe = 1 temp = 1 For i = 1 To n

temp = temp * x / i fe = fe + temp Next i

End Function

Private Sub Form_Click() Dim n As Integer, x As Single

n = Val(InputBox(\请输入n\输入\x = Val(InputBox(\请输入x\输入\Print \的值为：\End Sub

3、具体程序为：

Sub sort(a() As Single, n As Integer)

Dim i As Integer, j As Integer, k As Integer

Dim temp As Single For i = 1 To n k = i

For j = i + 1 To n

If a(k) < a(j) Then k = j Next j

If i <> k Then temp = a(i) a(i) = a(k) a(k) = temp End If Next i End Sub

Private Sub Form_Click()

Dim a(10) As Single, i As Integer For i = 1 To 10

a(i) = Val(InputBox(\请输入数据\输入\Next i

Call sort(a(), 10)

Print \从大到小为：\For i = 1 To 10 Print a(i);

If i Mod 5 = 0 Then Print Next i End Sub 4、

Private Function fsum(a() As Single, n As Integer) Dim i As Integer fsum = 0

For i = 1 To n

fsum = fsum + a(i) Next i

End Function

第八章 一、判断题

1．用来显示文本框内容的属性是Caption属性。

2．滚动条的Scroll事件在滑块位置改变时即被触发。 3．滚动条控件可作为用户输入数据的一种方法。 4．若在列表框中第三项之后插入一项目“ABC”，则所用语句为List1.AddItem\，3。 5．一个窗体中只能含一组单选按钮。

6．用Cls方法可以清除组合框中的所有表项。 7．列表框控件，只能设置为单选。

8．对象的属性都可以在属性窗口中设置。

9．命令按钮不但能响应单击事件，而且还能响应双击事件。

10．单选框控件和复选框控件都具有Value属性，它们的作用完全一样。

11．移动框架时，框架内的控件也跟着移动，并且框架内的各控件的Top和Left属性值也将分别随之改变。

12．当文本框的Multiline属性为True时，ScrollBars属性才有效。 13．与控件有关的赋值语句一定要放在该控件的事件中。

14．由于定时器控件在运行时是看不见的，因此在设置时可任意地将其放在任何位置。 15．当列表框中表项太多，超出了设计时的长度时，VB会自动给列表框加上垂直滚动条。

16．若文本框的MaxLength属性值为0，则该文本框内不可输入任何字符。 17．若复选框控件的Value属性值为True，则框内显示“√”，若Value属性值为False，则显示空白。

18．当触发滚动条的Scroll事件后，一定会同时触发滚动条的Change事件。

19．如果命令按钮的Defalut属性为True，那么任何时候按Enter键都相当于单击该命令按钮。

20．所有控件都有Name和Caption属性。 二、选择题

1．文本框中选定的内容，由下列 属性来反映。

A．SelText B．SelLength C．Text D．SelStart

2．执行后会删除文本框Text1中文本的语句为＿＿＿＿。

A．Text1.Caption=”” B．Text1.Text=”” C．Text1.Clear D．Text1.Cls

3．将数据“宋体”添加到列表框List1中，并使其成为第一项，使用＿＿＿＿语句。

A．List1.AddItem \宋体\，0 B．List1.AddItem \宋体\C．List1.AddItem 0，\宋体\ D．List1.AddItem \宋体\，1

4．复选框对象是否被选中，是由其＿＿＿＿属性决定的。

A．Checked B．Enabled C．Value D．Selected

5．组合框中的Style属性值确定了组合框的类型和显示方式，以下选项中不属于组合框Style属性值的是 。

A．下拉式组合框 B．弹出式组合框 C．简单式组合框 D．下拉式列表框

6．不能通过＿＿＿＿来删除列表框中的选择项。

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

7．以下不允许用户在程序运行时输入文字的控件是＿＿＿＿。

A．标签框 B．文本框 C．下拉式组合框 D．简单组合框

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

A．LargeChange B．SmallChange C．Value D．Change 9．执行语句List1.List（List1.ListCount）＝“80”语句后＿＿＿＿。

A．会产生出错信息 B．List1列表框最后一项被给为“80” C．List1会增加一个“80”项 D．指定List1列表框的表项个数为80个

10．为使文本框显示滚动条，必须首先设置的属性是＿＿＿＿。

A．AutoSize B．Alignment C．Multiline D．ScrollBars

11．设计动画时通常用时钟控件＿＿＿＿属性来控制动画速度。

A．Interval B．Timer C．Move D．Enabled

12．将定时器的时间间隔设置为1秒，那么定时器的Interval属性值应为＿＿＿＿

A．1000 B．1 C．100 D．10

13．下列哪一个属性用来表示各对象（控件）的位置＿＿＿＿。

A．Text B．Caption C．Left D．Name

14．将焦点主动设置到指定的控件或窗体上，应采用＿＿＿＿方法。

A．SetData B．SetFoucs C．SetText D．GetData

15．标签框控件和文本框控件内的对齐方式由——＿＿＿＿属性决定。

A．Alignmemt B．Multiline C．AutoSize D．Name

16．在程序运行期间属性值不允许改变的属性是＿＿＿＿属性。

A．Caption B．Name C．BackColor D．Enabled

17．OptionButton控件和CheckButton控件都有Value属性，下列叙述正确的是＿。

A．都是设置控件是否可用 B．都是设置控件是否可见

C．OptionButton的Value属性是逻辑值，而CheckButton的Value值是数值

D．OptionButton的Value属性是数值，而CheckButton的Value值是逻辑值 18．下列表达式错误的是＿＿＿＿。

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB6.0程序设计实践教程 习题及答案(9)在线全文阅读。