《VBNET程序设计》作业二
- 格式：docx
- 大小：77.12 KB
- 文档页数：13
《程序设计》作业二一、单项选择题1．在Visual 的集成开发环境中，下面不属于该环境编程语言的是。
A．VB B． C++C．Pascal D ．J#2．在中，在窗体上显示控件的文本，用属性设置。
A ． Text B． Name C． Caption D ． Image3．对于窗体，可改变窗体的边框性质的属性是。
A ． MaxButtonB ．FormBorderStyle C． Name D ． Left4．若要使标签控件显示时不覆盖窗体的背景图案，要对属性进行设置。
A ． BackColor B． BorderStyle C． ForeColor D． BackStyle 5．当运行程序时，系统自动执行启动窗体的事件过程。
A ． LoadB ． Click C． Unload D ．GotFocus6．当文本框的ScrollBars属性设置了非None值，却没有效果，原因是。
A ．文本框中没有内容B．文本框的MultiLine属性为FalseC．文本框的MultiLine属性为True D ．文本框的Locked属性为True7．要判断在文本框中是否按了Enter键，应在文本框的事件中判断。
A ． Change B． KeyDown C． Click D． KeyPress8．在集成环境中创建应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是。
A ．窗体布局窗口B ．立即窗口C．代码窗口 D ．监视窗口9．当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在文件夹下。
A ． My DocumentsB ． C．引例D． Windows 10．将调试通过后生成的.exe 可执行文件到其他机器上不能运行的主要原因是。
A ．运行的机器上无系统B．缺少.frm窗体文件C．该可执行文件有病毒11．对初学者而言，调试程序方便、有效的手段是A ．在可疑的代码处设置断点点，逐语句跟踪C．通过“立即”窗口显示变量的值12．当需要上下文帮助时，选择要帮助的“难题”D ．以上原因都不对。
B．查看资料D．找老师问原因，然后按键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
A ． Help B． F10C． Esc D ． F113． __________属性用来设置窗体的背景图案。
A ． BackgroundImageB ．GroundImage C． Image D ． Icon 14．能够获得一个文本框中被选取文本的内容的属性是__________ 。
A ． TextB ． SelectionLength C． SelectedText D ．SelectionStart 15．关于数组的声明，正确的是__________ 。
A ． Dim a(5) As Integer = {1,2,3,4,5,6} C．Dim a( ) As Integer = {1,2,3,4,5,6}B．Dim a(1,6) As Integer = {1,2,3,4,5,6} D．Dim a(1 to 6) As Integer = {1,2,3,4,5,6}16．如下数组声明语句中正确的是__________。
A ． Dim a[3,4] C．Dim a{3,4}As IntegerAs IntegerB． Dim a(3,4)D． Dim a(3 4)As IntegerAs Integer17．数组声明语句A.12Dim a(4,0 To 2)B.15中的数组 a包含了C.16_________ 个数组元素。
D.2018．下面语句说明不合法的是_________。
A. Function f1%(ByVal n%) C. Sub s1(ByVal n%(10))B. Sub s1(ByVal n As Integer ) D. Function f1%()19．下列子过程最合理的是。
A ． Sub f1(ByVal C．Function f1%n%())（ByRef f1% ）B． Sub f1(ByRef n%) As IntegerD ． Function f1 （ ByVal n%）20．下列过程的定义正确的是__________。
A ． Public Function a( ByVal b!) As DoubleC．Public Function a( ByRef a!) As DoubleD． Public Function a( ByRef b!(5)) As DoubleB． Public Sub a( ByVal b!) As Double21．设有如下说明Public Sub F1(ByRef n%)n=3*n+4Eed SubSub Button1_Click() Handles Button1. ClickDim n%,m%n=3m=4‘调用 F1的语句Eed Sub则在 Button1_Click事件中有效的调用语句是。
A ． F1（ n+m）B． F1（ m）C． F1（ 5）D． F1（ m， n）22．如下程序输出的结果是。
Dim i As IntegerDim a() As Integer = {1, 2, 3, 4, 5, 6, 7}For i = 0 To UBound(a)a(i) = a(i) * a(i)Next iMsgBox(a(i))A．49 B ． 0C．不确定D．程序出错23．如下程序输出的结果是。
Private Sub Button1_Click(⋯⋯) Handles Button1.Clic kDim i%, j%Dim a() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, b(3, 3) As IntegerLabel1.Text = ""For i = 1 To 3Label1.Text &= Space(i * 3)For j = i To 3b(i, j) = a(i * j)Label1.Text &= Space(6 - Len(b(i, j))) & b(i, j)NextLabel1.Text &= vbCrLfNextEnd SubA．123 B ． 1C．147D．1234564524646789789369924．在过程中定义的变量，若希望在离开该过程后还能保存过程中局部变量的值，则应使用关键字在过程中定义过程级变量。
A ． DimB ． Private C． Public D． Static25．如下程序输出的结果是。
Private Sub Button1_Click(⋯⋯) Handles Button1.ClickMsgBox(p1(3.0, 7))End SubPublic Function p1!(ByVal x!, ByVal n%)If n = 0 Thenp1 = 1ElseIf n Mod 2 = 1 Thenp1 = x * p1(x, n \ 2)Elsep1 = p1(x, n \ 2) \ xEnd IfEnd IfEnd FunctionA．18B．7C．14D．2726．如下程序，运行后各变量的值依次为。
Public Sub Proc(ByRef a%())Static i%Doa(i) = a(i) + a(i + 1)i = i + 1Loop While i < 2End SubSub Button_Click(⋯⋯) Handles Button1.clickDim m%,i%,x%(10)For i=0 to 4:x(i)=i+1:Next iFor i=1 to 2:Call proc(x):Next iFor i=0 to 4:MsgBox(x(i)):Next iEnd subA 34756B 35745C 23445D45678二．填空题1．当进入 集成环境，发现没有显示“工具箱”窗口，应选择菜单的选项，使“工具箱”窗口显示，并最好将其窗口的属性设置为。
2．对象的属性是指；对象的方法是指。
3．当对命令按钮的Image 属性装入 .bmp 图形文件后，按钮上并没有显示所需的图形，原因是对属性设置为。
4．若已建立了Form1 、Form2 两个窗体，默认启动窗体为Form1 。
通过菜单的的选项卡，可将启动对象设置为Form2 。
5．对于正在使用的数组A，要再增加一个单元，但要保留原数组各元素的值，则应使用：ReDim ______________ A( Ubound ( A ) + 1 ) 语句。
6． .在模块的开头通过Imports System. __________语句限定， x的平方根可以写为sqrt(x) 。
7．在过程体中，用__________关键字声明的局部（过程级）变量，其值可以保留至下次过程被调用。
三．上机题1．输入一个数到文本框，然后对其求平方根，结果通过信息框输出。
2．调试下列程序，实现对数组s 由大到小排序；并将排序结果显示在标签中。
Private Sub Button1_Click( , ) Handles Button1.ClickDim s() As IntegerDim k%, j%, n%, t%s = Array(77, 67, 89, 65, 85, 53, 94, 74, 79, 90)n = UBound(s)For j = 0 To n - 1For k = ____ （ 1） _____ To nIf s(j) < s(k) Thent = s(j)s(j) =（2）___（3） ____ = tEnd IfNext kNext jLabel1.Text = ""For j = 0 To nLabel1.Text &=（4）& " "Next jEnd Sub完整程序：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.ClickDim s() As Integer = {77, 67, 89, 65, 85, 53, 94, 74, 79, 90} ' 删除了原题中的 s =Array(77, 67, 89, 65, 85, 53, 94, 74, 79, 90)Dim k%, j%, n%, t%n = UBound(s)'显示原数据Label1.Text = " 待排序数组的元素是：" & vbCrLfFor j = 0 To nLabel1.Text &= s(j) & " "NextLabel1.Text &= vbCrLf & vbCrLf'排序For j = 0 To n - 1For k = j + 1 To nIf s(j) < s(k) Thent = s(j)s(j) = s(k)s(k) = tEnd IfNext kNext j'结果Label1.Text &= " 排序后的元素为：" & vbCrLfFor j = 0 To nLabel1.Text &= s(j) & " "Next jEnd Sub3．调试下列程序，实现对数组 a 中的 10 个整数用冒泡法按升序排列，并将排序结果显示在 Label1 标签框中。
