VB[1].net习题集(6)

End If m=___________ Loop ReDim Preserve a(n) End Sub

9.在教材中介绍的选择法、冒泡法排序都是在欲排序的数组元素全输入后，再进行排序。而插入排序是每输入一个数，马上插入到数组中，数组在输入过程中总是有序，界面如图6.11所示。在插入排序中，涉及到查找、数组内数的移动和元素插入等算法。

<提示>

此例关键编一个插入排序过程，插入排序法的思路是： 数组中已有n个有序数，当输入某数x时： （1） 找x应在数组中的位置j；

（2） n-j在数依次往后移，使位置为j的数让出；

（3） 将数x放入数组中应有的位置j，一个数插入完成。 对于若干个数输入，只要调用插入排序过程即可。

Dim n As Integer

Sub TextBox1_KeyPress (???) Handles TextBox1.KeyPrss Static bb!(20) Dim i%

If n>20 Then

MsgBox(“数据太多！，1，“”警告“) End End If

If e.KeyChar =Chr(13) Then n=n+1

insert(________)

Label4.Text & =TextBox1.Text & vbCrLf ‘显示刚输入的数

For i=1 To n ‘显示插入后的有序数 Label5.Text &=bb(i) & “ ” Next i

Label5.Text & = ______________ TextBox1.Text= “” End If End Sub

Sub insert(ByRef a( ) As Single ,ByVal x!) Dim i%, j%

j=1 ‘查找x应插入的位置j Do While__________ j=j+1 Loop

For i=n-1 To j Step -1 ‘n-j个元素往又移 _________________ Next i

a(j)=x ‘x插入数组中的第j个位置 End Sub

第七章 用户界面设计

一．选择题

1． 下列控件中，没有Text属性的是（）。

A．框架 B.列表框 C.复选框 D.定时器

2．复选框的CheckState属性为CheckState.Indeterminate时，表示（ ）。 A．复选框未被选定 B.复选框被选中

C．复选框被选定并有灰色的勾 D.复选框不可以操作 3．在下列关于单选按钮和复选框的说法中，错误的是（）。 A．某个单选按钮被单击一定会触发它的CheckedChanged

B．一个单选按钮状态发生变化，同一组中必有另一个单选按钮的状态也发生变化 C．某个复选框被单击一定会触发它的CheckedChanged

D．一个复选框的状态发生变化，不会影响其他复选框的状态 4．在设计状态，列表框中的选项可以通过（ ）属性设置。

A.List B.Items.Count C.Text D.Items 5.在下面对列表框（ListBox1）的操作中，正确的语句是（）。 A.Listbox1.Items.Cls

B.ListBox1.Items.Remove(4)

C.ListBox1.Items.Remove(“计算机”)

D.ListBox1.Items.Add(1,“打印机”)

6.引用列表框（ListBox1）最后一个数据项应使用（ ）。 A.ListBox1. Items (ListBox1.Items.Count) B.ListBox1. Items (ListBox1.Items.Count -1)

C.ListBox1.Text

D.ListBox1. Items (ListBox1.SelectedIndex) 7.在下列说法中，正确的是（）。

A．在程序运行期间，可以通过恰当的设置让时钟控件显示在窗体上

B．若单击某个单选按钮，则该单击按钮的CheckedChanged事件一定被触发 C．在列表框中能够将项目按字母排序大到小排列 D．框架也有Click和DoubleClick事件

8．在下列属性和事件中，属于滚动条和进度条共有的是（）。

A.Scroll B.ValueChanged C.LargeChange D.Maximum 9.下列关于定时器的说法中，正确的是（）。

A．当Enabled属性为False时，不产生Tick事件

B．在程序运行时不可见，这是因为Visible属性为False C．当Interval属性为0，则Tick事件不会发生

D．通过恰当的设置可以将Interval属性的单位改为秒 10．以下正确的语句是（）。

A.OpenFileDialog1.Filter=All Files| *.*|Pictures(*.Bmp)|*.Bmp B.OPenFileDialog1.Filter= “All Files”|”*.* “|”Pictures(*.Bemp)”|”*.Bmp

C.OPenFileDialog1.Filter= “AllFiles|*.*|Pictures(*.Bmp)|*.Bmp” D.OpenFileDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|*.Bmp} 11.在下列关于通用对话框的说法中错误的是（）。

A．可以用ShowDialog方法打开 B.可以用Show方法打开

C．当选择了“取消“按钮后，ShowDialog方法的返回值是DialogResult.Cancel D.通用对话框是非用户界面控件

12．在下列关于菜单的说法中，错误的是（）。

A．每个菜单项都是一个对象，也有自己的属性、事件和方法 B．除了Click事件之外，菜单项还能响应DoubleClick等事件 C．菜单中的分隔符也是一个对象

D．在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。

13．假定有一个窗体类Form2，则将它实例化并显示的正确语句为（）。 A. Form2.show B. Form2.showDialog C. Dim f2 as Form2 D. Dim f2 as New Form2 f2.Show f2.Show 14.假定Form2中有一个文件框（TextBox1），则另一个窗体访问用户在该文本框中输入的数据的正确代码段是（）。（假定s为字符串变量） A.TextBox1.Text B.Form2.TextBox1.Text C. Dim f2 as New Form2 D. Dim f2 as New Form2 f2.Show f2. ShowDialog s=f2.TextBox.Text s=f2.TextBox1.Text 15.下列关于键盘事件的说法中，正确的是（）。

A．按下键盘上的任意一个键都会引发KeyPress事件

B．按下大键盘上的“1“键和数字键盘的 “1”键的e.KeyCode的值相同 C．KeyDown/KeyUp事件过程中可使用e.KeyChar

D.大键盘上“4”键的上档字符是 “$”，当同时按下Shift和大键盘上的 “4”键时，Keypress事件过程中的e.KeyChar为“$”

16. 在KeyDown/KeyUp 的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为（）。

A. e.KeyCode=Keys.F3 And e. Control B. e.KeyChar=Keys.F3 And e. Control

C. e.KeyChar=Keys.F3 And e.KeyCode=Keys.Control D. e.KeyCode=Keys.F3 And e.Ctrl 填空题

1． 复选框__________属性设置为Indeterminate，则变成灰色，并显示一个选中标记。

2． 在程序运行时，如果将框架的＿＿＿＿＿＿＿属性设置为False，则框架呈灰色，

表示框架内的所有对象均被屏蔽，不允许用户对它们操作。 3． 列表框中选项的序号是从＿＿＿＿＿＿＿＿开始的。 4． ＿＿＿＿＿＿＿表示列表框中最后一项的序号。 5． ＿＿＿＿＿＿＿方法可清除列表框中的所有选项。

6． 组合框是组合了文本框和列表框的特性而形成的一种控件。＿＿＿＿风格的组合框

不允许用户输入列表框中没有的项。

7． 滚动条响应的重要事件有＿＿＿＿＿＿和ValueChanged。

8． 当用户单击滚动条中的空白时，滑块移动的增量值由＿＿＿＿＿＿属性决定。 9． 滚动条产生ValueChanged事件是因为＿＿＿＿＿＿值改变了。

10.如果要每隔15秒产生一个计时器事件，则Interval属性应设置为＿＿＿＿＿。 11.使用＿＿＿＿＿＿方法可打开指定的网页。

12.在LinkLabel控件中，通过＿＿＿＿＿＿属性可以设置超级链接。

13．若菜单项中的某个字符之前加一个＿＿＿＿＿＿＿，则该字符成为热键。 14．在菜单项中Text中，若输入＿＿＿＿＿＿，则菜单项成了分隔符。 15．弹出菜单是通过＿＿＿＿＿＿＿＿控件创建的。

16．可通过设置控件的＿＿＿＿＿＿＿＿属性将控件与一个弹出菜单建立关联。 17．隐藏窗体的方法是＿＿＿＿＿＿＿＿。

18．在多重窗体中，除了可以指定某个窗体作为启动对象外，还可以指定＿＿＿＿＿＿作为启动对象。

19．当用户单击鼠标又键时，在MouseDown、MouseUp、MouseMove事件过程中e.Button的值为＿＿＿＿＿。

20．若同时按下Shift键和其他键，则KeyDown/KeyUp事件过程中＿＿＿＿＿＿＿＿为True。

21．下面程序段是将列表框ListBox1中重复的项目删除，只保留一项。 Dim i,j As Integer

For i=0 To ListBox1.Items.Count-1

For j=ListBox1.Items.Count-1 To ＿＿＿＿＿＿＿Step -1 If ListBox1.Items(i)=ListBox1.Items(j) Then ＿＿＿＿＿＿＿ End If Next j Next i

22.下面是一个学生成绩录入程序。它具有如下的功能： （1）文本框中能输入0~9之间的数字字符。

（2）当焦点离开文本框时，能检查录入的成绩是否有效。若成绩不在0~100之间，则清除原数据，并且要求重新输入。

（3）若文本框左边的复选框未被选定，则文本框不可以输入成绩并且不参加计算总分和平均成绩。

<程序>

Sub Form1_Load(.....) Handles MyBase.Load Me.KeyPreview=＿＿＿＿＿ End Sub

Sub Form1_KeyPress(....) Handles MyBase.KeyPress If E.KeyChar < “0” Or e.KeyChar > “9” Then ____________ End If End Sub

‘CheckBox2和CheckBox3的CheckedChanged事件过程略

Sub CheckBox1_CheckedChanged(.......)Handles Checkbox1.CheckedChanged

TextBox1.Enabled=＿＿＿＿＿＿＿ End Sub

Sub TextBox1_LostFocus(......)Handles TextBox1.LostFocus If(Val(TextBox1.Text)<0 Or Val(TextBox1.Text)>100) Then TextBox1.Text= “” ＿＿＿＿＿＿＿＿＿＿ End If End Sub

Sub Button1_Click( .....) Handles Button1.Click Dim Total As Integer=0,Count As Integer=0 If CheckBox1.Checked Then

Total=Total+(Val(TextBox1.Text)) Count=Count+1 End If

If CheckBox2.Checked Then

Total=Total+(Val(TextBox2.Text))

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB[1].net习题集(6)在线全文阅读。