《VBNET程序设计》作业二.docx

1、VBNET程序设计作业二VB.NET程序设计作业二一、 单项选择题1在Visual Studio.NET的集成开发环境中，下面不属于该环境编程语言的是。AVBB C+CPascalD J#2在VB.NET中，在窗体上显示控件的文本，用属性设置。A TextB NameC CaptionD Image3对于窗体，可改变窗体的边框性质的属性是。A MaxButtonB FormBorderStyleC NameD Left4若要使标签控件显示时不覆盖窗体的背景图案，要对属性进行设置。A BackColorB BorderStyleC ForeColorD BackStyle5当运行程序时，系统自动

2、执行启动窗体的事件过程。A LoadB ClickC UnloadD GotFocus6当文本框的ScrollBars属性设置了非None值，却没有效果，原因是。A 文本框中没有内容B文本框的MultiLine属性为FalseC文本框的MultiLine属性为TrueD 文本框的Locked属性为True7要判断在文本框中是否按了Enter键，应在文本框的事件中判断。A ChangeB KeyDownC ClickD KeyPress8在VB.NET集成环境中创建VB.NET应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是。A 窗体布局窗口B 立即窗口C代码窗口D 监视窗口9

3、当创建一个项目名为“引例”的项目时，该项目的所有代码文件将保存在文件夹下。A My DocumentsB VB.NETC 引例D Windows10将调试通过后生成的.exe 可执行文件到其他机器上不能运行的主要原因是。A 运行的机器上无VB.NET系统B缺少.frm窗体文件C该可执行文件有病毒11对初学者而言，调试程序方便、有效的手段是A 在可疑的代码处设置断点点，逐语句跟踪C通过“立即”窗口显示变量的值12当需要上下文帮助时，选择要帮助的“难题”D 以上原因都不对。B查看资料D找老师问原因，然后按 键，就可出现MSDN窗口及显示所需“难题”的帮助信息。A Help B F10 C Esc

4、D F113 _属性用来设置窗体的背景图案。A BackgroundImageB GroundImageC ImageD Icon14能够获得一个文本框中被选取文本的内容的属性是_ 。A TextB SelectionLengthC SelectedTextD SelectionStart15关于数组的声明，正确的是_ 。A Dim a(5) As Integer = 1,2,3,4,5,6 CDim a( ) As Integer = 1,2,3,4,5,6BDim a(1,6) As Integer = 1,2,3,4,5,6 DDim a(1 to 6) As Integer = 1,2

5、,3,4,5,616如下数组声明语句中正确的是_。A Dim a3,4CDim a3,4As 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(ByVa

6、l CFunction f1%n%() （ByReff1% ）B Sub f1(ByRef n%) As Integer D Function f1 （ ByVal n%）20下列过程的定义正确的是_。A Public Function a( ByVal b!) As DoubleCPublic 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 S

7、ubSub 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, 7For i = 0 To UBound(a)a(i) = a(i) * a(i)Next iMsgBox(a(i)A49B 0C不确定D程序出错23如下程序输出的结果是。Privat

8、e 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 SubA123B 1C

9、147D1234564524646789789369924在过程中定义的变量， 若希望在离开该过程后还能保存过程中局部变量的值， 则应使用关键字 在过程中定义过程级变量。A Dim B 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

10、, n 2)Elsep1 = p1(x, n 2) xEnd IfEnd IfEnd FunctionA18 B7 C14 D2726如下程序，运行后各变量的值依次为 。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 t

11、o 4:MsgBox(x(i):Next iEnd subA 34756 B 35745 C 23445 D 45678二填空题1当进入 VB.NET 集成环境，发现没有显示“工具箱”窗口，应选择 菜单的 选项，使“工具箱”窗口显示，并最好将其窗口的属性设置为 。2对象的属性是指 ；对象的方法是指 。3当对命令按钮的 Image 属性装入 .bmp 图形文件后，按钮上并没有显示所需的图形，原因是对 属性设置为 。4若已建立了 Form1 、Form2 两个窗体，默认启动窗体为 Form1 。通过 菜单的 的 选项卡，可将启动对象设置为 Form2 。5对于正在使用的数组 A，要再增加一个单元，

12、但要保留原数组各元素的值，则应使用：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%

13、, 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

14、 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排序

15、For j = 0 To n - 1For k = j + 1 To nIf s(j) a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext i & vbCrLfLabel1.Text &= 排序后的数组元素为：For j = 0 To nLabel1.Text &= a(j) & Next jEnd Sub & vbCrLf完整程序：Private Sub Button1_Click(ByValsenderAsSystem.Object,ByVale AsSystem.EventArgs) Handles Butto

16、n1.ClickDim a() = 678, 45, 324, 528, 439, 387, 87, 875, 273, 82 删除了 a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)Dim i%, j%, n%, t%n = UBound(a)显示原数据Label1.Text = 待排序的数组元素为： & vbCrLfFor i = 0 To nLabel1.Text &= a(i) & Next iLabel1.Text &= vbCrLf & vbCrLf冒泡排序，相邻对比，大的数沉底For i = 0 To nFor j

17、 = 0 To n - i - 1If a(j) a(j + 1) Thent = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfNext jNext i排序结果Label1.Text &= 排序后的数组元素为： & vbCrLfFor j = 0 To nLabel1.Text &= a(j) & Next jEnd Sub4将一个有序数组中重复出现的数删除，删得只剩一个。（！）主调程序运行后的结果如图所示。解题思想：从数组最右边往左两两比较，若相同，右边的数依次左移，数组元素减 1。（程序中红色代码为应填入的内容）Private Sub Button1_Clic

18、k( ) Handles Button1.ClickDim b() As Integer = 23, 45, 45, 60, 70, 70, 70, 90, 99, 100, 100, 120, 120,120, i%, n%Label1.Text = Call p(b, n)For i = 0 To nLabel1.Text &= b(i) & NextEnd SubSub p ( (1) ) ByVal a （）Dim m%, k%n = UBound(a)m = nDo While (2) m 0If a(m) = a(m - 1) ThenFor k = (3)a(k - 1) = a

19、(k)Next kn = (4) n - 1End Ifm = (5) m - 1LoopAs Integer, ByRef n As Integerm To nReDim Preserve a(n)End Sub5在一维数组中利用移位的方法显示如图所示的结果。（程序中红色代码为应填入的内容）Private Sub Button1_Click(.) Handles Button1.ClickDim a(7) As Integer, i%, j%, t%Label1.Text = For i = 1 To 7a(i) = iLabel1.Text &= a(i) & Next iLabel1.T

20、ext &= vbCrLfFor i = 1 To 7t = (1) a(7)For j = 6 To 1 Step -1(2) a(j + 1) = a(j)Next ja(1) = (3) tFor j = 1 To 7Label1.Text &= a(j) & Next jLabel1.Text &= (4)vbCrLfNextEnd Sub6回文素数的判断和应用。（ 1）编写一函数hws(n)，对于已知正整数n，判断该数是否是回文素数，函数的返回值为布尔类型。所谓回文素数是指构成的字符左右对称的素数。例如：11、 101、 313 等。（ 2）编写主调程序，调用函数hws，并显示回文素

21、数。下面的程序求101000 以内的所有回文素数。程序设计思想： 选取正整数N ，若N 是素数，调用子过程hws判断该素数是否为回文数( 判断左右对称 )，若是，在文本框内显示所求结果，如图所示。Private Sub Button1_Click( , ) Handles Button1.ClickDim flg As Boolean,i%, j%, m%For i =m= Int(Sqr(i)For j = 2 To m 判断是否为素数If i Mod j = 0 ThenNext jIf jm ThenCallIf flg Then Text1 = Text1 & i & vbCrLfEn

22、d IfNext iEnd SubPrivate Sub hws(n As Integer, bz As Boolean)Dim j%, k%, m$bz = Truem = CStr(n) 将数值转为字符k = 求字符 m 的长度For j = 1 To k 2 判断回文数If Mid Mid(m, k - j + 1, 1) Thenbz = FalseExit ForEnd IfNext jEnd Sub7编程求1000以内满足如下条件的正整数N ： 它的各个因子 （包括1 和 N）之和sum是一个素数。例如： 25的因子为1、 5、 25，其和1+5+25 = 31是素数。程序设计思想

23、： 选取正整数N，分解其因子，并累加，子过程Prime用于判断累加和是否是素数，若是素数，在文本框内显示所求结果，如图所示。Private Sub Button1_Click( , ) Handles Button1.ClickDim flg As Boolean, i%, sum%, n%, t$For n = 2 To 1000sum = 1t = 1 存放各个因子之和表达式i = 2Do While i =求给定正整数的所有因子If n Mod i = 0 Thensum =t &= + & iEnd Ifi += 1Loopt = t & = & sumCallIf flg ThenTextBox1.text &= Str(n) & : & &