东华大学VB复习提纲

1、一. 选择和填空重点复习的知识点 1. 引用Form自身属性时应使用什么名称表示Form本身Me2. For循环语句循环次数的判断循环次数=int（终值-初值/步长+1）3. 窗体控制焦点定位的属性名称Location TABINDEX4. Unicode和ASCII编码方式的异同1.ASCII编码占一个字节,UNICODE占两个字节!2.ASCII只支持英文字符和一些符号,不支持中文!UNICODE支持很多语言!3.ASCll比UNICODE更早被开发出来!4.UNICODE兼容ASCll5. 文本框， 图片框， 定时器控件，P28textbox picturebox timer 复选框 P

2、73checkbox (主要属性：Text, Checked, CheckState。主要事件：Click, CheckedChanged。)列表框 P92 listbox属性名 值类型 说明 属性设置/引用 Items(Index)Object保存列表框的所有项目的数组 设计阶段、运行阶段 SelectedIndexInteger列表框中当前选中项的序号，-1表示没有选中项 运行阶段 SelectedItem Object列表框中的当前选中项，Nothing表示没有项被选中 运行阶段 Items.Count Integer列表框中所有项的总数。 运行阶段 SortedBoolean确定列表框

3、中的项在程序运行时是否排序 设计阶段 方法名 格式 说明 AddAdd(item As Object)向列表框末尾添加项。 InsertInsert(index As Integer, Item As Object)将项插入列表框的指定序号处 RemoveRemove(Item As Object)从列表框中删除指定的项 RemoveAtRemoveAt(index As Integer)删除列表框中指定序号的项 Items.Clear Clear()删除列表框的所有项 组合框的主要方法和属性及作用P93combobox（DropDownStyle）DropDown：下拉式组合框，由一个文本框

4、和一个下拉列表构成（默认样式）。 Simple: 简单组合框，与下拉式组合框类似，但直接显示多个项目。DropDownList:下拉式列表框，没有文本框，只能显示和选择textbox：copy选定；cut选定paste选定picture box; picturebox1.image=image. fromfile autosize调框 stretchimage调图timer：interval毫秒start,stopcheckbox : checkstate .checked/unchecked/undeterminedlistbox:listbox1.items.add/clear()/rem

5、ove/ removeat(指定序号)/insert(内容，指定序号)listbox.selectedindex>=0选中，序号combox：dropdown文本框和下拉列表 simple dropdownlist无文本框6. 格式化函数的使用P51Format(表达式,"格式") Format(result, "0.#")7. 结构化程序设计的几种控制结构P64顺序结构 赋值： 变量名=表达式 选择结构（if p69 , select case =>select case xxxxx/case a/./case b/./case c/./e

6、nd secect, Goto p72 => A:/./. B:/./. goto A）循环结构p75（计数For-Next，条件Do-Loop）8. Redim的使用及特点 P86 Preserve保存之前的值ReDim Preserve a(3)9. 参数传递的两种方式及特点 P110传值 byval传地址 byref Function pd(ByVal x As Integer, ByRef y As Integer) As Integer . pd = 什么 End Function10. 菜单项（menustrip在顶上的一条，contextmenustrip 右击出来的一条）

7、的主要属性及如何设置 P123菜单项名.checked=T/F分割线 菜单项名输入“-”菜单项名(&热键，如&E)11. 语法错误有哪几种语法错误、运行时错误（异常）、逻辑错误12. 常用的字符串操作函数及使用，如Mid, Left等 P54(表格)13. 多维数组元素个数的计算 P85（下标上界+1）×（下标上界+1）×=数组元素个数14. 打开通用对话框的应调用什么方法msgbox("提示文字"，vbyesno+vbquesetion+vbdefaultbutton2,"标题")15. 文件存取的方法有哪两种顺序存

8、取和随机存取16. visual studio框架和的关系后者是前者的一部分17. 合法标示符的定义规则 P43必须以字母、汉字或下划线开头，后跟字母、汉字、数字或下划线等字符不能包含小数点、空格等标点符号或类型声明字符（&、%、！、#、$）常量名、变量名的长度不能超过255个字符不能使用VB.NET保留字。如Sub、Integer、Dim、If、End等一般不用具有特定意义的名称做标示符，如属性、事件、方法等，以免混淆在中不区分标识符的大小写18. 如何产生在给定范围内的随机整数int(rnd()*(y-x+1)+x)19. 存储数字的不同数据类型所需字节数的大小 P4220. 运算

9、符的优先级关系 P50 > 负号 > */ > > Mod > +-Not > And > Or > Xor(相同输出0，不同输出1)21. vb 程序运行时系统会自动运行的窗体事件过程是什么Load22. 连接运算符 & 和 +的异同 P47"abcd"+"efg"="abcdefg""abcd"&"efg"="abcdefg""123"+123=246"abc"+123

10、=error123&"abc"="123abc"23. 分组框的作用 P73a.视觉上的区分b.阻止不同组中控件之间的相互影响24. 如何使得文本框在用户输入时都显示*号textbox1.passwordcha="*"25. 打开文件对话框的使用 OpenFileDialog1.Filter = "文本文件（*.txt）|*.txt" 0 OpenFileDialog1.FileName = "" If OpenFileDialog1.ShowDialog() = Windows.For

11、ms.DialogResult.OK Then FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) End If26. 文件打开函数Fileopen的使用fileopen(文件号，文件名，打开模式)27. keydown事件中参数e.keycode的含义Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles Me.KeyDownEnd Sube.KeyCode = Keys.A 键盘上的字符

12、的ASCII码28. 随机文件写入的基本单位是什么字节29. Inputbox函数的返回值是什么类型string30. 如何创建新字体同时赋给文本框的字体属性TextBox1.Font = newfont("宋体", TextBox1.Font.Size, TextBox1.Font.Style)31. vs 2005都支持哪些语言VB,C#,C+,J#32. 日期类型常量的写法#01/01/2013#dateadd(时间单位，增加量，日期) dateadd("d",5,#10/3/2011#)datediff(时间单位，日期1，日期2) datedif

13、f("yyyy",#3/25/1985#,#10/3/2011#)33. VB.net中结构类型的定义方法二程序填空实验 4.10， 4.5， 6.2， 6.3， 4.5， 4.8， 5.4， 6.4三. 编程题知识点：（菜单，数组，列表框，数据统计, 顺序文件读写等） 4-10：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, nn, detail As D

14、ouble '定义变量，s：累加和，detail:精度 Dim i As Integer 'i：计数器，nn：阶乘 detail = Val(TextBox1.Text) '输入精度 i = 0 '计数器赋初值 nn = 1 '阶乘 s = 1 '累加和赋初值 Do '循环开始 i = i + 1 '计数器自加 nn = nn * i '计算每次循环中的阶乘 s = s + 1 / nn '将每一项累加到累加和s中 Loop While 1 / nn >= detail '判断结束条件：每一项小于精度

15、控制值时停止循环 TextBox2.Text = s '输出结果 End SubEnd Class3-1Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim h, m, s, x As Integer '变量分别保存小时、分、秒和输入的时间 x = TextBox1.Text '输入秒数到变量x中 s = x Mod 60 '计算剩余秒数 m = (x 60

16、) Mod 60 '计算分钟数 h = x 3600 '计算小时数 Label2.Text = h & "：" & m & "：" & s '显示 End SubEnd Class3-3Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = UCase(TextBox1.T

17、ext) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = LCase(TextBox1.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Static i As Integer If i &

18、lt; Len(TextBox1.Text) Then TextBox1.Text = Mid(TextBox1.Text, 2) & Microsoft.VisualBasic.Left(TextBox1.Text, 1) i = i + 1 End If End SubEnd Class3-4Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim birth As String

19、birth = Mid(TextBox1.Text, 7, 8) TextBox2.Text = Microsoft.VisualBasic.Left(birth, 4) & "-" & Mid(birth, 5, 2) & "-" & Microsoft.VisualBasic.Right(birth, 2) TextBox3.Text = DateDiff("yyyy", TextBox2.Text, Now) End SubEnd Class3-5Public Class Form1 Privat

20、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim grade As Single '保存学生成绩 Static sum As Single '保存总分 Static i As Integer grade = InputBox("请输入第" & i + 1 & "位学生的成绩", "成绩输入") sum = sum + grade i = i +

21、 1 TextBox1.Text = i TextBox2.Text = sum TextBox3.Text = sum / i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim j As Integer j = MsgBox("确定要退出吗", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出") If j = vbYes

22、Then End End If End SubEnd Class5-4Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '添加按钮 If ListBox1.SelectedIndex >= 0 Then '判断列表框中是否选中某项，如没有项被选中，SelectedIndex值为-1，否则为选中项的下标 ListBox1.Items.Insert(ListBox1.Sele

23、ctedIndex, TextBox1.Text) '在选中项上插入新项，其内容为TextBox1.Text的内容 Else '没有项被选中 ListBox1.Items.Add(TextBox1.Text) '添加新的项，其内容为TextBox1.Text的内容 End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '向右移动按钮 If ListBox1.SelectedIndex >= 0 Then '判断列表框中是否选中某项，如没有项被选中，SelectedIndex值为-1，否则为选中项的下标 ListBox2.Items.Add(ListBo