VB程序设计期末复习总结[范文模版]

第一篇：VB程序设计期末复习总结[范文模版]

1.timer_Tick事件 在指定的时间里调用此事件，比如设置timer1.interval=10，则表示在一秒内执行10次timer_Tick事件。

2.Label3.Text = Format(x, “00000”)，设置x是一个五位数，不足左侧用零来补。

3.TextBox1.Text = UCase(TextBox1.Text)，将输入的字母转换成大写，用textchanged事件 4.Label1.Font = New Font(“隶书”, 12, FontStyle.Bold)设置字体名：Textbox1.Text.Font.Name = “微软雅黑”。设置字号：Textbox1.Text.Font.Size = 14。设置粗体：Textbox1.Text.Font.Bold = True。设置斜体：Textbox1.Text.Font.Italic = True。设置下划线：Textbox1.Text.Font.Underline = True。设置删除线：Textbox1.Text.Font.Strikethrough = True。Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。Button1.Location = New Point(60,40)等价于：Button1.Left = 60

Button1.Top = 40 6.例如，将Button1控件设置为宽度为80、高度为30。Button1.Size = New Size(80,30)等价于：Button1.Width = 80

Button1.Height = 30 7.Size与clientsize。前者是整个窗体的大小，后者是不含边框的窗体的大小。

8.Cursor属性决定运行时鼠标移动到对象上时，显示出的鼠标指针的图像。其属性值是枚举类型。

9.ControlBox和Icon属性决定标题栏上是否有控制菜单框、设置其图标。默认情况下，ControlBox属性值为True，若设置为False，则不显示控制菜单框，并且不显示最大化 按钮、最小化按钮和关闭按钮。

10.FormBorderStyle属性用于设置窗体边框的样式。其他的BorderStyle属性是用来设置边框格式的。

11.窗体的常用事件。Click事件，在程序运行时单击窗体的某个位置，VB将调用窗体的Form_Click事件过程，如果单击的是窗体内的控件，则只能调用相应控件的Click事件过程。Load事件，当窗体被装入时触发该事件。当应用程序启动时，自动执行该事件过程，因此通常将进行初始化的程序代码写在窗体的Load事件过程中。12.TextAlign属性用于设置文本的对齐方式。Left：正文左对齐，Right：正文右对齐，Center：正文居中。也可用于决定对象的位置。

13.Maxlength属性用于设置文本框中最多能够输入字符的个数。默认情况下，其值为32767。14.ScrollBars属性用于设置水平滚动条和垂直滚动条。当设置水平滚动条后，文本框的自动换行功能将会自动消失，只有按Enter键才能换行。竖直滚动条则正常换行。

15.ReadOnly属性用于设置文本框是否可以编辑。默认值为False，表示运行程序时能对文本框进行编辑。当其值为True时，不能编辑文本框中的内容，但可以选定文本框中的内容。

16.PassWordChar属性设置在文本框中取代用户输入而显示的字符。例如，当设置为“*”时，运行程序时文本框中输入的内容存储在Text属性中，但均以“*”显示。一般用于设置口令。

17.TextChange事件当用户输入新内容或程序将Text属性设置为新值时，文本框的Text属性值发生变化，从而触发TextChange事件。当用户输入一个字符时，就会触发一次TextChange事件。例如，在文本框中输入字符串Basic时，就会5次触发TextChange事件。出发之后开始执行设置程序。

18.KeyPress事件当用户在文本框中按下并释放键盘上的一个键时，就会触发KeyPress事件。与TextChange事件类似。所不同的是，当按下某些键（如方向键）时，文本框的值没有发生变化，此时仅触发KeyPress事件，而不触发TextChange事件。KeyPress事件会返回一个e参数，通过e.KeyChar可以获取按键对应的字符。例如，运行程序时按了字符“A”键，则e.KeyChar的值为“A”。将命令按钮的Text属性设置为“退出(&E)”。运行时，按钮上显示“退出(E)”。当用户按下Alt+E时，相当于单击了该按钮，运行其Click事件过程。

19.Picturebox属性：将图像文件c:examplerabbit.jpg显示在PictureBox1图片框中：PictureBox2.Image=Image.FromFile(“c:examplerabbit.jpg”)20.Picturebox属性：SizeMode属性用于设置图片框中图像的显示方式，属性值有：Normal：默认值，图像保持其原始尺寸、其左上角与图片框的左上角对齐。如果图像比图片框大，则超过部分被剪裁掉；StretchImage：图像被拉伸或收缩，使其与图片框的大小一致；AutoSize：图像保持其原始尺寸、自动调整图片框的大小，使其与图像大小一致；CenterImage：图像保持其原始尺寸、与图片框的中心对齐。若图像比图片框小，图像居中显示；否则，图像居中，而外边缘将被剪裁掉；Zoom：图像大小按其原有的大小比例被缩放，其宽度或高度之一与图片框一致。

21.Vb中变量命名法：必须以字母或下划线开头，由字母、数字和下划线组成，长度不超过1023个字符。如果名称以下划线开头，则必须包含至少一个字母或数字。不能使用VB中的关键字，如：Integer、If等。

22.Boolean类型是逻辑类型，表示true和false。

23.n是十进制/八进制/十六进制整数，八进制在整数前面加&O（是字母O，不是数字0），例如：&O56、&O56S、&O56L。十六进制在整数前面加&H例如：&H56、&HAB12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十进制，前者是因为定义，后两者是因为是浮点数。

24.格式：Mid(s, n[, m])、Left(s, n)、Right(s, n)功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，无m则表示所有自字符。Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。

Mid(b, 2, 1)= 0

✔ Microsoft.VisualBasic.Left(b, 3)= 0

❌ Mid可用于赋值，left与right不可用于赋值。

25.后缀

26.Char类型，用来存储单个字符或汉字，占两个字节。例如：“A”、“0”、“数”等。String类型，表示包含多个字符的字符串用一对西文双引号““”括起来表示例如：”Visual Basic“、”2016“、”G“、” “空字符串”“若表示的字符串中包含双引号“””，则用连续的两个双引号表示。

27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。例如文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为：If InStr(TextBox1.Text, “计算机”)> 0 Then 28.Date类型变量d的值是d = “[8 / 20 / 2009]6:5:4[AM]”

[月日年]时:分:秒[上下午] 29.算术运算符的优先级：指数取负，乘除整除，取余加减（^-*/+-mod）

30.串联运算符“+”运算符既可作为字符串运算符，又可作为算术运算符。当“+”运算符两边操作数都是字符串时，进行串联运算，将两个字符串连接起来，并作为结果。当“+”运算符两边操作数都是数值时，进行加法运算。当一侧是数字字符串，另一侧是数值时，若option strict为on则显示错误，off则正确转化为double运算，默认值为off；当一侧是数值，另一侧是非数字的字符串是，错误。“&”运算符不管两边操作数的数据类型，直接进行连接操作。

31.关系运算符设计比较时注意：两个操作数都是数字则直接比较；都是字符则比较ascll码值；中文最牛逼；比较运算符优先级相同；

32.Like函数的用法：Like运算符与通配符：?、*、#、[字符列表]、[!字符列表]结合使用。其中，？表示任何一个字符，* 表示任意多个字符，# 表示任何一个数字（0~9），[字符列表] 表示字符列表中任意一个字符，[!字符列表] 表示不在字符列表中的任意一个字符。

If b Like “[” & A(m)& “]” Then If Not e.KeyChar Like “[a-zA-Z]” Then 33.当多种表达式同时在一个表达式中出现时，其优先级的顺序如下：

算术运算符＞字符串运算符＞关系运算符＞逻辑运算符

具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。当表达式中包含多个运算符时，使用圆括号，可以改变计算顺序，圆括号内的表达式优先计算。34.35.36.逻辑运算符的功能是对操作数进行逻辑运算（又称布尔运算），其运算结果是逻辑值True或False。Const PI As Single = 3.1415

'声明符号常量。声明一个常量，不一定非得用dim，const也可以

数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数学运算。这些方法可以作为数学函数使用，使用时，在函数名前面加“Math.”。

四舍五入函数，格式：Round(x[,n])。功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56)的运算结果为5，Math.Round(4.56, 1)的运算结果为4.6 字符和ASCII码转换函数，格式：Asc(s)、Chr(x)。功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值，Chr则计算出以x为ASCII码的字符。示例：Asc(“A”)的运算结果为65。Chr(65)的运算结果为“A”。Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。

大小写字母转换函数，格式：UCase(s)、LCase(s)。功能：s是一个字符型量，UCase将字符串中的所有字母转换成大写字母，LCase将字符串中的所有字母转换成小写字母。ucase(“a”)也有引号

判断文本框TextBox1中输入的是否为单个字母的表达式为：

If UCase(TextBox1.Text)>= “A” And UCase(TextBox1.Text)<= “Z” Then

If TextBox1.Text Like “[a-zA-Z]” Then If UCase(TextBox1.Text)Like “[A-Z]” Then If LCase(TextBox1.Text)Like “[a-z]” Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。字符串替换，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。若缺省m，替换把第n个字符开始的所有符合条件的字符串。若缺省n，则从第一个字符串开始替换。

字符串与数组元素的转换，格式：Join(A, “d”)、Split(s, “d”)。功能：A为数组，s和d是一个字符型数据。Join以d为分隔符将数组A各元素的值连接成字符串，并作为返回值。Split的功能与Join相反，它将字符串s以d为分隔符，分隔成数组元素。缺省d时，以空格为分隔符。37.38.39.40.41.42.43.44.45.格式输出函数Format可以将数值、日期和时间按指定格式转换成字符串，其格式如下：Format(表达式, “格式字符串”)。格式名General Number、G或g保持原有数值的小数位数，格式名Fixed、F或f则四舍五入保留两位小数。

46.百分比的数字格式，格式名Percent表示将数字乘以100后、保留两位小数、并加百分号(%)。示例：Format(0.567,“Percent”)的运算结果为“56.70%”。

47.科学表示法的数字格式，使用标准的科学表示法表示数字。格式名Scientific提供两个有效位，格式名E或者e提供六个有效位。示例：Format(1234.567,“Scientific”)的运算结果为“1.23E+03” ；Format(1234.567, “e”)的运算结果为“1.234567E+003”。

48.常用的用户定义数字格式，0 和 #。符号“0”和“#”用于决定显示数值整数部分和小数部分的位数。其相同之处是：若数值整数部分的位数多于格式字符串的位数，按实际数值返回；若小数部分的位数多于格式字符串的位数，按四舍五入计算。不同之处是：当数值的位数少于格式字符串的位数时，“0”格式将不足部分补0，而“#”则不显示。49..和 ，符号“.”表示加小数点，“,”表示加千分位。示例：

Format(1234.56, “0,000.00”)的运算结果为“1,234.56”。Format(1234, “0,000.00”)的运算结果为“1,234.00”。

50.日期的格式，根据区域设置显示日期。格式名Date、Medium Date或D表示长日期格式，格式名Short Date或者d表示短长日期格式。示例：假设今天是2015年9月25日，Format(Now, “Long Date”)的运算结果为“2015年9月25日”； Format(Now, “Short Date”)的运算结果为“2015/9/25”。Label1.Text = Format(TextBox1.Text, “long date”)51.复合赋值语句常用于以下几个方面：累加sum += s

等价于

sum = sum + s 连乘 n *= i

等价于

n = n * i

显示多行信息，复合赋值语句使用得最多的是“&=”运算符。要显示多行信息，一般是利用文本框、标签，通过“&=”来实现显示。52.Inputbox（“提示信息”，“标题”，“默认内容”），“提示信息”、“标题”、“默认内容”都可以不填空着，但至少要有一个空着的省略号。

53.InputBox的返回值是一个字符串。如果需要将输入的数值参加算术运算，必须在进行运算前用Val函数把它转换为数值类型。但可以用split函数调用。每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数。这时，通常与循环语句、数组结合使用。对话框显示的信息，若要分多行显示，必须加回车换行符，即Chr(13)+Chr(10)或VB系统常量vbCrLf。

54.定义变量时，可以用简写符号表示变量类型，$ 是 String，% 是 Integer，& 是 Long，!是 Single，@ 是 Currency，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(“提示信息”, vbOKOnly, “标题”)“提示信息”, vbOKOnly, “标题”可以都是空的，但至少要有一个空的省略号。MsgBox(“确认数据是否正确？”, MsgBoxStyle.YesNo + MsgBoxStyle.Question , “ 数据验证”)条件表达式1 F T 条件表达式2 F … 条件表达式n T 语句块1 语句块2 F T 语句块n 语句块n+1 56.elseif 的用法

57.如果是数字，则没有is。

58.Do until loop(直到结束)；do while loop(当执行)59.在for语句中，执行一次next语句，循环变量增加一个步长

60.UBound函数，格式为：UBound(数组名 [, 维])。使用UBound函数可以计算出数组的任一维可用的最大下标，从而确定数组的任一维的上界。其中：参数维指定返回数组的哪一维。1（默认）代表第一维，2代表第二维，以此类推。61.选择法排序：

Public Class Form1

Dim A()As Integer = {2, 1, 3, 4}

Dim m, n, i, j, imin As Integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

m = UBound(A)

For i = 0 To m1

For j = m To i + 1 Step-1

If A(j)< A(j1)

A(j1)+ f(n-2)

End If

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Dim y As Single

y = 0

For n = 1 To Val(TextBox1.Text)

y = y + 1 / f(n)

Next

Label2.Text = y

End Sub End Class 函数的表示法2 Public Class Form1

Dim a As String

Dim n, m As Integer

Function f(ByRef n As Integer)As String

a = TextBox1.Text

m = Len(CStr(a))

For n = m To 1 Step-1

f &= Mid(a, n, 1)

Next

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Label1.Text = f(n)

End Sub End Class 65.打开保存等操作的用法：

Public Class Form1

Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 退出ToolStripMenuItem.Click

End

End Sub

Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 保存ToolStripMenuItem.Click

SaveFileDialog1.Filter = “简单文本格式|*.txt|复杂文本格式|*.rtf”

SaveFileDialog1.FilterIndex = 2

SaveFileDialog1.ShowDialog()

MsgBox(SaveFileDialog1.FileName)

If SaveFileDialog1.FileName <> “" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText)'.txt,.TXT

Else

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)'.doc,.DOC

End If

End If

End Sub

Private Sub 打开ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 打开ToolStripMenuItem.Click

OpenFileDialog1.FileName = ”“

OpenFileDialog1.Filter = ”简单文本|*.txt|复杂文本|*.rtf“

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = ”朕的打开......“

OpenFileDialog1.ShowDialog()

MsgBox(OpenFileDialog1.FileName)

If OpenFileDialog1.FileName <> ”“ Then

Me.Text = OpenFileDialog1.FileName

If OpenFileDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

Else

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

End If

End If

End Sub

Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 新建ToolStripMenuItem.Click

RichTextBox1.Text = ”“

Me.Text = ”我的记事本“

End Sub

Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem.Click

RichTextBox1.Cut()

End Sub

Private Sub 复制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem.Click

RichTextBox1.Copy()

End Sub

Private Sub 粘贴ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem.Click

RichTextBox1.Paste()

End Sub

Private Sub 删除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 删除ToolStripMenuItem.Click

RichTextBox1.SelectedText = ”"

End Sub

Private Sub 全选ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 全选ToolStripMenuItem.Click

RichTextBox1.SelectAll()

End Sub

Private Sub 日期时间ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 日期时间ToolStripMenuItem.Click

RichTextBox1.SelectedText = Now

End Sub

Private Sub 复制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem1.Click

Call 复制ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem1.Click

剪切ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 粘贴ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem1.Click

粘贴ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 显示窗体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 显示窗体ToolStripMenuItem.Click

Form2.ShowDialog()

End Sub End Class 66.控制输入可以用e.keychar来做 67.Listbox的用法

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged

Select Case ListBox1.SelectedIndex

Case 0

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

Case 1

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)

Case 2

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)

Case 3

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout)End Select End Sub

第二篇：《vb程序设计》期末复习题及答案范文

《vb程序设计》期末复习题及答案

一、填空题

1．创建一个VB应用程序三个主要的步骤是_(创建应用程序界面)、_(设置属性_)和_(_编写代码__)__。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性________窗口中，把此文本框的____text_________属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___label________控件；若允许用户输入文本，则应使用__textbox___________控件。4．窗体的常用方法有_load方法 Show方法 Hide方法_ Unload方法_。

5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是_（txtshow.text=“GOOD WORK”_）。

6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_ _click()__________ _frm1.show_ End Sub 7．Visual Basic 6种类型的表达式是_（算术表达式_）（字符串表达式）（关系表达式）（布尔表达式）（日期表达式）（对象表达式）。Visual Basic根据表达式的_．1 _运算符__来确定表达式的类型。

8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b

10．日期表达式 #2/24/02#y ^ 2)/(2 * x)___。

12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_（Dim A(1 To 5，-2 To 6)As String）_。13．事件就是在对象上所发生的事情，Visual Basic中的事件如__单击_________、_双击__________、_装载_____________等。一个对象响应的事件可以有_多____个，用户不能建立新的事件。事件过程是指_（响应某个事件后所执行的程序代码）_。假设某一事件过程如下：

Private Sub cmd1_Click()Form1.Caption=“VB示例” End Sub 则响应该过程的对象名是_cmd1_____________，事件名是_____click________。

14．对象的方法用于(_完成某种特定的功能__)。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_(对象名.方法名)_，例如，对窗体Form1使用Show方法，应写成__form1.show_______________。

15．PictureBox控件可通过设置其(autosize)__属性为True使之可自动调整大小；而Image控件可通过设置其_(stretch_)__属性为True，使其加载的图片能自动调整大小以适应Image。

16．在Visual Basic程序中实现复制文件“c:command.com”到d:盘根目录下的语句为FileCopy “c:command.com”，“d:command.com”_。

二、单项选择题

1．下列控件中没有Caption属性的是（B）

A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（C）。A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（C）。

A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（D）。A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件

5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（D）。

A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、PasswordChar属性值为* 6．表达式2*3^2+2*8/4+3^2的值为（B）。A、64 B、31 C、49 D、42 7．表达式mid(“abcdefg”,3,2)的值是（B）A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（D）。A、Sin25 B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180）

9．Sub过程与 Function过程最根本的区别是（D）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。

B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。

D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C）

A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列对象不能响应 Click事件的是（D）A、列表框 B、图片框 C、窗体 D、计时器

12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（A）

A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件

C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件

13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（C）方法。

A、ShowOpen B、ShowSave C、ShowColor D、ShowFont

三、指出下列句中的错误，修改或者说明原因。1．sum和int.sum都可以作为VB的变量名。(X)2．变量名的长度最长可达1024个字符。(255)3．下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click()Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改变定长字符串的内容和长度。

5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。

6．下列程序运行结果为True Private Sub Command1_Click()a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b < c#12/20/1999#的运算结果是#12/11/1999# 8．可以在窗体的通用部分声明静态变量。

不正确。静态变量为局部变量，只能在过程中声明。

9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串“"，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。

10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。

11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。

不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。1．Private Sub Form_Click()For I = 1 To 9 For j = 1 To 301 To 1 Step-1 Print k;Next k Print Next I End Sub 2．

Option Explicit Private Sub Command1_Click()Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．

For X = 5 To 1 Step-1 For Y = 1 To 6y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“

二、单项选择题

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。2．变量名的长度最长可达255个字符。3． 3.6，4 因为a 不是整型变量。

4．不正确。程序不可以改变字符的长度，这是VB规定。5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。

6．False。逻辑表达式计算结果。

7．不正确。两个日期型数据相减，其结果是一个数值型数据。8．不正确。静态变量为局部变量，只能在过程中声明。9．正确。10．正确。11．正确。

12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

2．程序运行后，单击按钮Command1，输出结果为： 3.* ** *** **** ***** 4.aabb-30 False aabb-30 False

30+60 90 30+60 90 5.11 13 9

五、编程题 1．

。120 Private Sub Command1_Click()Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub

Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成绩填写不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 End If End Sub

Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub

Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”输入第一个数：“))b = Val(InputBox(”输入第二个数：“))c = Val(InputBox(”输入第三个数：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b)

原文网址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html

由弘一网童保存，尚未注册。注册

第三篇：VB程序设计实践总结

VB程序设计实践总结

现代技术中心何亮

本期从事VB程序设计实践教学工作。在工作中和工作之余，思考颇多，精简总结归纳如下：

1.教学辅导方式的多样化

由于程序语言课程相对于上期的计算机文化基础课程要难很多，需要学生理解的也多，况且基础知识薄弱，因此，学生的疑难问题特别多，而上课时间有限，我采取了三中方式及时的解决学生的问题：①教务办公系统“网上答疑”；本学期共收到学生提问100多条，并及时给予答复；②在线答疑；利用空闲时间，通过QQ，与有疑难的同学进行在线答疑，不光解答学习问题，同学对学生思想生活进行教导，收效甚好；③安排定点不定时的方式答疑；每周星期二，星期三晚上有专门的老师和学生助教辅导学生完成项目，解答项目重点疑难。

2.课堂讲授的多样化

由于程序设计语言非常抽象化，许多知识点需要讲解具体的实例才能让学生易于理解；同时了，由于老师的讲解和理解方法可能和学生的理解有所出入。因此，为了便于学生更好的理解知识，我在教学过程中采取了以下一些方法：①明确任务，先讨论学习，后讲解加深；我在每堂前让学生明确该堂课的学习任务，然后以小组为单位，通过上网，翻书，讨论学习任务；然后再根据学生反馈的信息，精讲多练；②眼，手，耳并用，提高动手能力；由于VB程序设计涉及很多的对象操作，因此，我在课堂中适时的给学生播放一些“学习视频”影片，让学生边听，边看，并操作，这样的方法比老师操作和讲解效果更好；③学生助教讲课，气氛活跃，学生易接受；为了更好的推广“赏识教育”，鼓励学生努力学习，我特别把学习好的同学聘请为学生助教，适当的给予机会讲解一些知识点，以他们的语言，他们的理解方式讲解出来，学生理解快，掌握好，更易于接受。

3.知识框架的系统化和延伸

大家都知道，现在学校里学习的知识和社会上用到的知识相差很远，很多学生学习了很多知识，可到了社会上去无从下手。鉴于此，我在课堂上适当的延伸该课程的相关知识。比如，在开发一个成熟的管理信息系统时，我让学生试着写系统需求说明书，软件设计说明书等，同学明确的给学生提出软件开发的基本流程，以及一些软件工程的知识和数据库的知识。最后，还教学生使用一些安装程序制作软件，掌握些社会工作的技能。这样，扩展了学生的知识面，掌握了更多的技能，学生兴趣更高，学习积极性也非常好。

同时，在教学过程中，从学生的信息反馈发现自己有以下一些问题做的不好：

1.知识点细节把握不够，让学生思考的东西过多；

2.知识点讲解和延伸过多，不易于掌握；

以上是我本期教学工作中的创新和探索，如有不妥之处，请领导给予及时的指出，我将在以后的教学中改正。

第四篇：VB程序设计期末模拟试题及答案

0 《VB》期末复习题及答案

综合复习题

一、填空题

1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。

4．窗体的常用方法有__________、___________、___________和___________。5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是____________________________________。

6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。Visual Basic根据表达式的___________来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给 4

出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。《VB》期末复习参考答案

一、填空题

1．创建应用程序界面 设置属性 编写代码 2．属性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com”

二、单项选择题

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。2．变量名的长度最长可达255个字符。3． 3.6，4 因为a 不是整型变量。

4．不正确。程序不可以改变字符的长度，这是VB规定。

5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6．False。逻辑表达式计算结果。

7．不正确。两个日期型数据相减，其结果是一个数值型数据。8．不正确。静态变量为局部变量，只能在过程中声明。9．正确。10．正确。

11．正确。

12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。

四、读程序题，写出程序运行结果。

1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序运行后，单击按钮Command1，输出结果为：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9

五、编程题 1．

Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成绩填写不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 6

End If End Sub Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”输入第一个数：“))b = Val(InputBox(”输入第二个数：“))c = Val(InputBox(”输入第三个数：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b)

第五篇：VB程序设计期末模拟试题及答案

《VB》期末复习题及答案

综合复习题

一、填空题

1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的 属性 窗

口中，把此文本框的__text__属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信 息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是 txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以

下事件过程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是 算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c

达式c>a And Not b

10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。