VBNET总复习

总复习------编程篇 以模拟题为基础,注意知识点的拓展 一、简单界面设计和属性设置(涉及窗体、标签、按钮、文本框、单选钮等) 1.新建项目,在窗体上创建1个标签(Label1)、2个命令按钮(Button1,Button2)。 (1) 在属性窗口中设置:标签文字为你的姓名,1个命令按钮上的文字为“日期”,1个命令按钮上的文字为“粗体”。 (2) 编写代码,要求:运行程序,单击按钮“日期”,窗体标题栏上显示系统当前日期(要求使用函数)。单击按钮“粗体”,将标签文字改为粗体。 【本题要求上传窗体文件】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click me.Text = Today End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Font = New Font("宋体", 12, FontStyle.Bold) End Sub 知识拓展:1.本题用到“日期”函数:TODAY, 注意其他常用函数NOW 2. 设置标签的字体: 粗体:FontStyle.Bold 斜体:FontStyle .Italic , 删除线:FontStyle .Strikeout 下划线:FontStyle .Underline 2. 新建项目,在窗体上创建2个文本框(TextBox1,TextBox2)和2个命令按钮(Button1,Button2)。 (1) 在属性窗口中设置:窗体标题栏为你的姓名,命令按钮上的文字分别为“计算”,“清除”。 (2) 编写代码,要求:运行程序,在TextBox1文本框中输入若干英文字符。单击按钮“计算”,在TextBox2文本框中显示字符的个数,以及其中第3~第8个字符。单击按钮“清除”,清除文本框中的内容。 【本题要求上传窗体文件】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = Len(TextBox1.Text) & Mid(TextBox1.Text, 3, 6) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" End Sub 知识拓展:1.本题涉及文本框、窗体的属性设置 2.简单的数学计算:注意常用函数的使用如:字符串函数等 3. 新建项目,在窗体上创建1个命令按钮(Button1)、1个标签(Label1)和3个单选按钮(RadioButton1~RadioButton3) (1)在属性窗口中设置:标签文字为你的姓名,命令按钮上的文字为“退出”, 3个单选按钮上的文字分别为“16”、“18”、“28”。 (2) 编写代码,要求:运行程序,单击单选按钮可相应改变标签文字的大小。单击命令按钮“退出”可关闭窗体。 【本题要求上传窗体文件】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Close() End Sub Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click Label1.Font = New Font("宋体", 16) End Sub Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click Label1.Font = New Font("宋体", 18) End Sub Private Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click Label1.Font = New Font("宋体", 28) End Sub 知识拓展:1.涉及利用单选钮控制标签上文字的大小 2. 拓展:利用单选钮控制标签的背景颜色、前景色: Label1.backColor =color.red 二、分支 1. 用输入对话框InputBox输入一个正整数,判断其能否同时被5和17整除,如能则用标签输出“xxx能同时被5和17整除”,否则输出“xxx不能同时被5和17整除”。其中,标签中的“xxx”应显示为实际输入的数据。 【本题要求上传窗体文件】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer n = InputBox("输入一个正整数") If n Mod 5 = 0 And n Mod 17 = 0 Then Label1.Text = n & "能同时被5和17整除" Else Label1.Text = n & "不能同时被5和17整除" End If End Sub 2. 输入一个代表购物款的实数,判断并输出其对应的实际付款金额。其中,100元以下为“没有折扣”,[100,500)元为“九五折”, [500,1000)元为“九折”,1000元及其以上为“八五折”。 【本题要求粘贴源程序】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Single x = Val(TextBox1.Text) Select Case x Case Is < 100 y = x Case Is < 500 y = 0.95 * x Case Is < 1000 y = 0.9 * x Case Else y = 0.85 * x End Select TextBox2.Text = y End Sub 知识拓展: 1.If ….then …elseif 例4.4 2.Select case 例4.5-4.6 三、循环 1.有一个数列,其前二项分别为1、2,从第三项开始,每项均为其相邻的前二项之和的1/3。判断该数列从第几项开始小于0.0001。【本题要求粘贴源程序与运行结果】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer, t1 As Single, t2 As Single, t As Single t1 = 1 : t2 = 2 n = 2 Do t = (t1 + t2) / 3 t1 = t2 : t2 = t n = n + 1 Loop Until t < 0.0001 Debug.Print(n) End Sub 或用数组实现 改为输出数列的前30项 Dim a(30) As Single a(1) = 1: a(2) = 2 For i = 3 To 30 a(i) = (a(i - 1) + a(i - 2)) * 3 Next i For i = 1 To 30 Textbox1.text= Textbox1.text & a(i)& vbcrlf Next i 知识拓展:1.求数列的部分和,当S大于1000时求和终止并输出结果:例4.19 2. 从第几项开始该项小于0.001,请输出该项的序号和数值 2. 求[200,2000]内的全部素数,统计并输出素数的个数。 【本题要求粘贴源程序与运行结果(只需填写个数)】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, i, count As Integer, flag As Boolean For n = 200 To 2000 flag = True For i = 2 To n - 1 If n Mod i = 0 Then flag = False Exit For End If Next If flag Then TextBox1.Text = TextBox1.Text & n & vbCrLf count = count + 1 End If Next Textbox2.Text = count End Sub 四、数组 一维数组 1.声明一个有15个元素组成的一维数组,利用随机函数给数组赋值,要求计算其中最大的5个元素的平均值。 要求:随机数种子Randomize (2),产生的数据为(0,10)之间的实数。 【本题要求粘贴源程序与运行结果】 ~9.092091 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(14) As Single, s, t As Single Randomize(2) For i = 0 To 14 a(i) = Rnd() * 10 Next i For i = 0 To 13 For j = i + 1 To 14 If a(i) < a(j) Then t = a(i) : a(i) = a(j) : a(j) = t Next j Next i For i = 0 To 14 TextBox1.Text = TextBox1.Text & a(i) & vbCrLf Next i For i = 0 To 4 s = s + a(i) Next i TextBox2.Text = Val(s / 5) End Sub 知识拓展:1.输出最大的5个奇数或偶数 2.输出最大的5个元素与最小的5个元素之和或差 c = 0 For i = 1 To15 If a(i) Mod 2 <> 0 Then Debug.Print( a(i)) c = c + 1 If c = 5 Then Exit For End If Next i 二维数组 声明一个5行5列的二维数组,其元素由[10,55]之间的整数组成,要求分别计算第2行和第4列的数据之和。 要求:利用随机函数(随机数种子Randomize(5))产生上述整数。 【本题要求粘贴源程序与运行结果】 ~154 139 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(4, 4) As Integer, s, s1, s2 As Integer Randomize(5) For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd() * 46) + 10 Next j Next i For i = 0 To 4 s1 = s1 + a(1, i) Next For i = 0 To 4 s2 = s2 + a(i, 3) Next TextBox1.Text = s1 & " " & s2 End Sub 知识拓展:1.计算某行、某列元素之和、某几行、几列元素之和 2.计算主次对角线元素之和 3.计算上三角、下三角元素之和 下三角 For i = 0 To 4 For j = 0 To 4 If i >= j Then s = s + a(i, j) Next j Next i 上三角 For i = 0 To 4 For j = 0 To 4 If i <= j Then s = s + a(I, j) Next j Next i 声明一个5行5列的二维数组,其元素由[10,99]之间的整数组成,要求计算主对角线及其上方三角形区域元素之和。 要求:利用随机函数(随机数种子Randomize(2) 产生上述整数。 【本题要求粘贴源程序与第一次运行结果】 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(4, 4) As Integer, s As Integer Randomize(2) For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd() * 90) + 10 Next j Next i For I = 0 To 4 For j = 0 To 4 If I <= j Then s = s + a(I, j) Next j Next I Textbox1.Text = s End Sub 五、类 1.创建一个项目,项目的名称为“Rect”,运行效果见附图(b4-2)。 要求在该项目中定义一个长方体类Rect(建议将该类定义为一个独立的.vb文件),该类包含: (1)两个公有数据成员表示长方体的长(length)和宽(width),一个私有数据成员表示长方体的高(high)。 (2)一个可读写私有数据成员high的公有属性Hight。 (3)一个公有方法ComputeVol,用来计算长方体的体积。 最后在该项目的窗体中使用Rect类来创建长方体对象r1,通过文本框设置长方体对象r1的长,宽和高,单击“创建对象”按钮,则在标签中显示长方体对象r1的长,宽,高和体积。 【本题要求粘贴源程序】 Public Class Rect Public length As Single Public width As Single Private high As Single Public Property hight() Get Return high End Get Set(ByVal value) high = value End Set End Property Public Function computevol() computevol = length * width * high End Function End Class Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim r1 As New Rect r1.length = Val(TextBox1.Text) r1.width = Val(TextBox2.Text) r1.hight = Val(TextBox3.Text) Label4.Text = "对象创建成功!"& vbCrLf & "长:"& r1.length & "宽:"& r1.width & vbCrLf & "高:"& r1.hight & "体积:" & r1.computevol End Sub End Class 2.创建一个项目,项目的名称为“Student”,该项目中定义一个学生类Student(建议将该类定义为一个独立的.vb文件),该类包含的成员如下: (1)两个公有数据成员分别表示姓名(name)和性别(sex),一个私有数据成员表示成绩(score)。 (2)一个可读写私有数据成员score的公有属性Scoret。 (3)一个公有方法Result,该方法用于返回一个字符串。当成绩大于等于80分时Result()方法返回“你很棒”字符串,否则为“继续努力!”字符串。 最后在该项目的窗体中使用Student类来创建对象s1,通过文本框设置对象s1的姓名(name),单击“确定”按钮,在标签中根据对象是s1的成绩显示相应的信息(“你很棒”或者“继续努力!”),窗体的界面如附图(b4-3)。 【本题要求粘贴源程序】 Public Class student Public name As String Public sex As String Private score As Single Public Property成绩() Get Return score End Get Set(ByVal value) score = value End Set End Property Public Sub result() If score > 80 Then MsgBox(name & ",你很棒!") Else MsgBox(name & ",继续努力!") End Sub End Class Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s1 As New student s1.name = TextBox1.Text s1.成绩= Val(TextBox2.Text) s1.result() End Sub 总复习------基础篇 1.各章后面的单选题、判断题、填空题 2.程序填空: (1)典型算法:斐波那契数列(用数组),辗转相除求最大公约,判断一个数是否为素数,找出所有水仙花数,统计2000-2100 所有闰年及个数,百马百瓦问题 (2)排序:主要是选择法和比较法排序 (3)过程及调用 (4)求最大数、最小数、求数列的和(1+1/2+1/3……和1!+3!+5!……+9!), (5)判断一个数是否为偶数,判断一个数是否为完数。 3.重要的知识点:注意在书上做标记