VB NET习题集答案(无编程答案)-刘炳文书.doc

本文由余亚洪贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 第 1、2 章 Visual Basic .NET 程序开发环境 、 一、单选题： 单选题： 1、A 2、A 3、B 二、填空题： 填空题： ，Internet 协议。 1、XML（可扩展标记语言） 、 这里的 Internet 协议主要是指：HTTP 和 SOAP-简单对象访问协议。 2、可以提供多语言支持。 、 3、IIS（Internet Information Service） 。 、 4、ADO .NET。 （本课程不要求） 、 5、视图，工具箱。 、 6、项目， “属性”命令项， “生成”选项。 7、sln, vbproj, vb, bin。 三、编程题：略 第 6 章 常用 Windows 窗体和控件 一、单选题 1-5:CBCAD 6-10:BCABD 11-15:ADCDB 16-20:CDDCB 21-25：ACCDD 26-30:AABC 31-35：DDDDA 36-38：DCB 二、填空题 1、TextBox1.ForeColor=Color.Red; 2、对象的性质，来描述和反映对象特征的参数； 3、对象的动作和行为； 4、对窗体的 FontName 属性设置； 5、MultiLine; 6、BackgroupImage; 7、工具，对象属性，启动对象， Dim firstForm As New form1 firstForm.Show() 8、SelectAll 属性或 SelectText 属性，程序运行 9、Locked 10、Load, TabIndex, 0, Button1.Focus() 11、FormBorderStyle=FixSingle 12、Form1.Loction=new Point(left, top) 写在 Load 事件中。 13、CheckAlign=MiddleRight 14、ImageAlign 15、Image 16、Enabled *17、0 *18、ListBox1.Items(ListBox1.Items.Count - 1) 19、Items 20、Items.Clear 21、当 DropDownStyle 属性为 DropDownList 值。 22、Scroll 23、LargeChange 24、滚动条内滑块位置 25、15000 26、Now 27、TabPages 28、MouseButtons.Right 29、$ 30、Form1_Load, MyBaseLoad, cboComputer.Text, TxtComputer.Text, RideoButton1.Checked 31、i+1, ListBox1.Items.RemoveAt(j) 32、ComboBox1.Text = ComboBox1.Items(i)， Not flag 或 flag=false， ComboBox1.Items.Add(ComboBox1.Text) 33、if FontDialog1.ShowDialog=DialogResualt.OK then TextBox1.Font=FontDialog1.Font End if if ColorDialog1.ShowDialog=DialogResualt.OK then TextBox1.ForeColor=ColorDialog1.Font End if 34、Label1.Font=New System.Drawing.Font(“黑体”,24,FontStyle.Italic) 三、编程题 1设计一段程序在程序运行后，单击命令按钮后，文本框中显示出字符”欢迎来到 VB .NET 多彩世界!”, 并把文本框的背景和文字的颜色变成黄色和蓝色，字体为 “楷书” ，字型及字号变成“粗体”和 35 号字。 1、界面设计和属性 对象名 Form1 Button1 TextBox1 程序： 程序： 属性 Text Text Text 属性值 “第 5 章 上机题 1” “运行” “” 2、 在窗体上添加一个标签框， 要求在程序运行时， 单击窗体时改变标签的背景色 （绿 、 色） 、前景色（粉红）和标题，双击时还原。 提示：可以设置一个变量（将变量设为模块级） 事先把原来窗体的背景颜色属性值 ，事先把原来窗体的背景颜色属性 提示：可以设置一个变量（将变量设为模块级） 事先把原来窗体的背景颜色属性值 ， 赋给出这个变量，当执行另一个操作时，再将这个变量值赋回给窗体背景属性。 赋给出这个变量，当执行另一个操作时，再将这个变量值赋回给窗体背景属性。 程序： 程序： ，要求在窗体调整大小时，保持文框和窗体的比例不 3、在窗体上绘制一个文本框， 变，请编写事件代码。 注意：在 VB .NET 2005 版里，有了 Anchor 和 Dock 属性后，上述代码就显的不重要 了。 4、 窗体上有 3 个按顺序建立的文本框 Text1、 Text2 和 Text3, 有哪些方法可在窗体加 载时使 Text3 首先获得焦点。 方法一、用 TabIndex 属性实现 方法二：用 Focus 方法实现 TextBox3 得到焦点实现： 5、在 VB .NET 环境下，创建 1 个名为.Pro1 的项目，当窗体第一次显示时，窗体大 小为（200，200）, 窗体边框为默认边框，窗体不透明；当鼠标在窗体上单击时，窗 体边框变为固定大小的三维立体边框，窗体大小变为原来大小 2 倍且窗体变为半透 明；当鼠标指针离开窗体时，窗体恢复为第一次显示时的状态。 程序： 6、再上题所建的项目中，再添加一个窗体，在程序运行时改变窗体的背景图案，并 且两个窗体之间能够交替隐藏和显示。 程序： *7、创建两个窗体 Form1 和 Form2，在 Form1 上有命令按钮 Button1”Form2.Show“， 单击该按钮和单击 Form1 的结果相同，都是隐藏 Form1 显示 Form2; 在 Form2 上也 有一个命令按钮 Button1”Form1.Show“，单击该按钮实现隐藏 Form2 显示 Form1。 调用过程的方法， 使用同一个过程实现在 Form1 上单击按钮、 单击窗体以及在 Form2 上单击按钮的功能。 程序： 程序：多个窗体之间互相调用 在 VB 6.0 中，多个窗体之间可以很方便地互相调用，如：在 Form1 中，只需要 用一条“Form2.Show” 语句就能显示窗体 Form2。 然而在 VB.NET 中窗体处理机制发 生了很大的变化：在访问窗体之前，你必须进行窗体实例化；如果在项目中有多处 代码访问同一窗体，则必须把它的同一实例指针传递给这些代码，否则新创建的窗 体实例就不再是原先的窗体了。 下面的代码实现窗体 Form1 和 Form2 之间互相调用,Form1 为主窗体。Form1 上 的按钮 BtnShowFrm2 的标题为“显示 Form2”，Form2 上的按钮 BtnShowFrm1 的标题 为“显示 Form1”。 中的代码： （1）Form1 中的代码： Public Class Form1 Inherits System.Windows.Forms.Form 创建 Form2 的一个新的实例 Dim Frm2 As New Form2() Public Function Instance2(ByVal frm As Form2) Frm2 = frm End Function Private Sub BtnShowFrm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShowFrm2.Click 以下语句保证在 Form2 以及其他窗体中访问 Form1 时，都将得到 Form1 的同一个窗体实例。 Frm2.Instance(Me) Frm2.Show() Me.Hide() End Sub End Class 中的代码： （2）Form2 中的代码： Public Class Form2 Inherits System.Windows.Forms.Form Dim frm1 As Form1 借助一个新增的 Instance 属性来生成窗体 frm1 的实例 Public Function Instance(ByVal frm As Form1) frm1 = frm End Function Private Sub BtnShowFrm1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShowFrm1.Click Me.Hide() frm1.Show() End Sub Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed 如果 Form2 被关闭，则设置 Form1 的按钮 BtnShowFrm2 不可用。 frm1.BtnShowFrm2.Enabled = False frm1.Show() End Sub End Class 第 3 章 简单 Visual Basic .NET 程序设计 编程题： 编程题： 1、 见 P74 页 3.7 题 程序： 2、见 P74 页 3.8 题 、 程序： 第4章 编程基础（顺序结构部份） 章 编程基础（顺序结构部份） 一、单选题 1、合法常量有: (1)Single (3)Single (4)Double (7)String (9)Date (10) Double (12)八进制的 整型 (13) 八进制的整型 (14) 十六进制的整型 (15)Boolean (18)Single 2、合法变量: (1) (2) (6) (9) (10) (11) 3、(1)abs(x+y)+z5 (2)(1+x*y)6 (3)(10*x+sqr(3*y)/(x*y) (4)sin(45*3.1415926/180)+(exp(10)+log(10)/sqr(x+y+1) 4、(1)chr$(67) and chr$(76) (2)int(rnd*101)+100 (3)int(x/5) =x/5 or int(x/7)=x/7 (4)略 (5)int(x*100+0.5)/100 (6)略 (7)略 (8)x=10 and x20 (9)xz or yz and yz 5、写出下列表达式的值： (1)188 (2)200100 (3)68.56 (4)876543 (5) 6 6、答：单精度类型。 7、答：Val 函数；IsNumeric()函数；可以用 left、right、mid 函数；Ucase、Lcase 函 数。 8、答：MsgBox 返回所按按钮的值是整型数据，InputBox 输入的值返回是字符型。 二、选择题 610、ADBCDC 1115、BCBCA 15、BC(A 和 D)DB 、 、 、 16、C 、 三、填空题 1、整型，长整型，单精度型，双精度型 2、(87 mod 10)*10+8710 3、sin(15*3.1415926/180)+sqr(x+exp(3)/abs(x-y) 4、(a+b)/(1/(c+5)-c*d/2) 5、int(x/5)=x/5 or int(x/9)=(x/9) 6、false 7、-4， 3， -3， 3， -4， 4 8、CDEF 9、Ucase(s) or Lcase(s) 四、书上 P110 页 4.10 题 (1)ABCD (2)HIJK (3)CDEF (4)DEFGHIJK (6)5 (7)ghijk (8)9 第 5 章 数据输入输出 (5)11 编程题 1利用 InputBox 输入三角形三条边的长度 a，b，c，计算并显示三角形的面积。公 式为： 面积= s ( s ? a)( s ? b( s ? c) ， 其中 s=(a+b+c)/2 程序： 2、 InputBox 输入一个正实数，用 Debug 方法或者 Console 方法在一行上显示出它的 、 平方和平方根、立方和立方根，每个数保留三位小数，数据之间有间隔。 试一试，用 MsgBox 函数或 MsgBox 语句输出。 程序: 程序 3、书上 P133 页 5.2 题 程序： 程序： 控制结构与过程（选择结构部份） 第 7 章 Visual Basic .NET 控制结构与过程（选择结构部份） 选择题： 一、选择题： 1.B 2.A 3. C 4.A 5. D 6. A 7. D 8. D 二、填空题 1、7 2、分别统计由文本框 1 输入的数据中奇数的和、偶数的和，奇数放入 M 和偶数放入 N 变量中。 KeyAscii 转换成字符 (2)chr(keyascii) (4)count1=0 括号数配对 遇到右括号,括号数减 1 左括号等于右括号, 多于 (2)C (3)”A”,“E”,”I”,”O”,”U” (4)Else (5) e.KeyChar=Chr(13) 3、(1) chr(keyascii) (3)count1=count1-1 (5)count10 4、(1)UCase(chr(e.KeyChar) 三、编程题： 编程题： 1 输入三角形的三条边 a，b，c 的值，根据其数值，判断能否构成三角形。若能， 还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。 程序： 2输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能 被 4 整除但不能被 100 整除，或者能被 400 整除。 程序： 3、见书 P200 页 7.4 题 程序： 控制结构与过程（循环结构部份 结构部份） 第 7 章 Visual Basic .NET 控制结构与过程（循环结构部份） 选择题： 选择题： 填空题： 填空题： 一、 二、 2、10 15、ABBCB 、 1、33 根据计算循环次数公式而定 int（终值-初值）/步长值 +1=20 3、 、 （1）4 次 5、2 20 、 3 21 4 22 5 23 6、(12)13 、 7、(13) len(a) 、 (14) n -16 (15)N-I+1 （16）C (18) until CountN n=5 （2）12 次 4、si=2,sj=3,sk=2,I=3,j=3,k=4 、 8、(17) n mod 3=1 and n mod 5=1 and n mod 7=1 9、X=10100 程序功能是：将给定的数值经过处理后变成对应的 ASCII 字符串。 三、编程题 1、有一个长阶梯，如果每步跨 2 阶最后剩 1 阶，如果每步跨 3 阶最后剩 2 阶，如果 每步跨 4 阶最后剩 3 阶，如果每步跨 5 阶最后剩 4 阶，如果每步跨 6 阶最后剩 5 阶， 只有当如果每步跨 7 阶时恰好走完，问这个阶梯有多少阶? 提示利用其肯定是 7 的倍数这个条件，然后根据同时满足除 n 余 m(n=2，3，4，5， 6；m=1，2，3，4，5)的逻辑关系即可。 程序： 2一个球从 100m 高度自由下落，每次落地后反跳回原高度的一半，再落下。求它 在第 10 次落地时，共经过多少米?落地 10 次反弹高度多少? 程序: Private Sub BtnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click n=0 s =100 i = 100 ListBox1.Items.Add( 次数 & space(5) & 每次跳过的高度： & space(5) & 小球跳跃经过的米数：) Do n=n+1 s=s+i ListBox1.Items.Add( n & space(10) & i=i-i/2 Loop Until n = 10 ListBox1.Items.Add( ) ListBox1.Items.Add( 落地 10 次过反弹的高度 & I & 第 10 次小球经过的米数： & S) End Sub I & space(20) & s) 4、编写程序，用近似公式： 1 1 1 1 = 1 ? + ? +(-1)n-1 , 求近似值， 直到最后一项的绝对值小于 10-4 4 3 5 7 2n ? 1 为止。 程序： 的和。 5、求 S=1+(1+3)+(1+3+5)+(1+3+5+7)+99 的和。 、 程序: 6、求 S=2+22+222+22 的和。 、 共 20 个项 程序: 7、设计一个程序，求任意一个十进制整数 N 的各个位数之和，设 M（M=4）为 N 的位 、 数。 例如：8563=8+5+6+3=22 程序: 8、见书 P201 页 7.14 题 程序： 9、见书 P201 页 7.16 题，假定有下面程序段： 程序： 控制结构与过程(过程部份习题 过程部份习题) 第 7 章 Visual Basic .NET 控制结构与过程 过程部份习题 一、选择题 15:CBDB(因为调用 n 后，过程执行完毕, 将值返回调用过程，所以不能采用 c)D 610:CAD（f1 是递归函数）CB 二、填空题 1、(1) 1 4 4 (2)用递归函数实现将十进制转换成 r 进制 2、(1)6 (2)用辗转相除法求 m,n 的最大公约数 三、程序设计 1、 程序：作业完成后提供。 作业完成后提供。 、 作业完成后提供 2、程序：作业完成后提供。 、程序：作业完成后提供。 3、程序：作业完成后提供。 、程序：作业完成后提供。 4、程序： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Cursor = Cursors.WaitCursor Dim x As Single, y As Single x = Val(TextBox1.Text) y = Val(TextBox2.Text) If x = y Then TextBox3.Text = x Else TextBox3.Text = y End If End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then TextBox2.Focus() End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If e.KeyChar = Chr(13) Then Button1.Focus() End If End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox3.Cursor = Cursors.No TextBox3.ReadOnly = True TextBox1.Text = TextBox2.Text = TextBox1.Focus() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub 文本框3上鼠标图形为禁止 文本框3上不能写入 如果用户按回车键后，焦点移到计算命令按钮 如果用户按回车键后，焦点移到文本框2 “计算”后鼠标指针为沙漏形状，计算完则恢复。 Private Sub Button2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button2.KeyPress If e.KeyChar = Chr(27) Then Button2_Click(sender, e) End If End Sub Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus If Not IsNumeric(TextBox1.Text) Then TextBox1.Text = TextBox1.Focus() MsgBox(此文本框1必须输入数值！) End If End Sub Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus If Not IsNumeric(TextBox2.Text) Then TextBox2.Text = TextBox2.Focus() MsgBox(此文本框2必须输入数值！) End If End Sub 如果用户按Esc键（ASCII值为27）后，调用控件的事件过程 或者用End语句 复合数据类型(数组部份习题 数组部份习题) 第 8 章 复合数据类型 数组部份习题 一、选择题: 选择题 1-5:BDADA 填空题: 二、填空题 1、(1)int(rnd*100+1) (2)(”*”) 、 2、(3) ReDim a(n) (4)1 to (n+1)2 (5) a(j,k)=I (6) Debug.WriteLine 最后元素移出 3、(10) a(7) (11) a(j+1)=a(j) 每个元素往右移, 最左位置留出 (12) a(1)=t 4、(10) Preserve a(n+1) 插入一个数,先让数组元素加 1,保留原来的数组元素值 (11) a(I+1)=a(i) 找插入的位置 (12) a(I+1)=m 新数据插入到数组中 三、编程题 1、 程序： 作业完成后提供。 作业完成后提供。 2、程序： 作业完成后提供。 作业完成后提供。 3、程序： 、程序： 作业完成后提供。 作业完成后提供。 4、写出下列数组元素的值： 、 (1) x(1)= 0 (2)x(A+A1)= 76 (3)x(A*A1)= 6 (5)x(x(x(A)= 98 (6)x(x(A1)-x(A+C)+A*C)= 出错 (4)x(x(A+C)-A1)= 8 5、程序：从键盘上输入 10 个数，并放入一个一维数组，将前 5 个元素与后 5 个元 、程序： 素对换，即第 1 个元素与第 10 个元素对换，第 2 个元素与第 9 个元素互换，.， 第 5 个元素与第 6 个元素互换，分别输出数组原来各元素的值和对换后各元素的值。 程序： 6、程序：有一个 nm 的矩阵，编写程序，找出其中最大的元素和最小的元素所在 、程序： 的行和列，并输出其值的行号和列号。 程序： 程序： 7、编写程序，利用随机函数产生一个数组元素为两位整数的。然后执行以下操作： （1）输出这个 44 阶的矩阵的数组元素值； （2）输出矩阵两个对角线（主对角线的和和次对角线的连乘积）的值； （3）交换第一行和第三行的位置； （4）交换第二列和第四列的位置； 程序: 输出这个 44 阶的矩阵的数组元素值程序和程序界面图： 程序： 菜单程序