vb习题总结（通用10篇）
篇1：vb习题总结
学参教育东北林业大学考研网http://
笔试复习题
笔试占总分的50％、平时占10％、上机占40％。
笔试时间为1小时。四道大题为：程序填空、程序运行结果、程序段功能、编程题
复习范围
随机整数[A,B]
公式：Int(Rnd*(B-A+1)+A)1． 循环
（1）打印三角形 方法一：用单重循环 Private Sub Form_Click()For i = 1 To 8
Print Tab(151, “*”)Next i End Sub
方法二：用多重循环 Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub
（2）求积数部分和
P88 例4.18p268习题3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=
1Do while 1/t>0.0001
s=s+1/t i=i+1 t=t+iLoop
Print “共计算”;i-1;“项”Print “s=”;s End Sub
（3）求100到200之间的所有素数。Private Sub Form_Click()Dim t As Boolean
For x = 101 To 200 Step 2 t = True
For i = 2 To xx * 100)/ 10)z = iy * 10
If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub
(6)最大值、最小值。2． 数组(1)排序
P106 例5.5 从小到大排序
Private Sub Form_Click()
学参教育东北林业大学考研网http://
Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n
a(i)= Int(Rnd * 101 + 100)Print a(i);
If i Mod 10 = 0 Then Print Next i
For i = 1 To n1
s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j
Picture1.Print Next i End Sub 3． 过程
（1）s=4!+5!+6!
Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub
Private Function fax(k As Integer)As Single t = 1
For i = 2 To k t = t * i Next i fax = t
End Function
（2）回文数P2784
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
If Not IsNumeric(Text1)Then
MsgBox “输入非数字串，重新输入”Text1.Text = “"Text1.SetFocusElse
If IsH(Text1)Then
Picture1.Print Text1;” ★ “Else
Picture1.Print Text1End IfText1 = ”"End IfEnd If End Sub
Function IsH(ss As String)As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)
For i = 1 To Ls 2
If Mid(ss, i, 1)<> Mid(ss, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function
4． 文件(要求掌握随机文件)讲稿中例题
篇2：vb习题总结
1). 数据库系统的核心是( )。
A.数据模型
B.数据库管理系统
C.数据库
D.数据库管理员
正确答案：B
2). 为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是( ).
A.按住Alt键，不要松开，然后单击每个要选中的控件
B.按住Shift键，不要松开，然后单击每个要选中的控件
C.按住Ctrl键，不要松开，然后单击每个要选中的控件
D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
正确答案：A
答案解析：按住Alt键只能选中单个控件，不能同时选中多个控件。故选A。
3). 下面的变量名合法的是( )
A.k_name
B.kame
C.name
D.k-name
正确答案：A
4). 为了使窗体左上角不显示控制框，需设置为False的属性是( ).
A.Visible
B.Enabled
C.ControlBox
D.Caption
正确答案：C
答案解析：窗体的Visible属性是设置窗体可见不可见;Enabled属性是设置可用不可用;Caption属性是用来设置窗体标题栏上显示的内容;ControlBox属性是设置窗体左上角是否显示控制框，当属性值为True时，显示控制框，否则False时，不显示。故选项C正确。
5). 以下关于控件的叙述中，正确的是( )
A.标签控件能够获得焦点
B.不能对列表框中的.列表项进行多项选择
C.命令按钮的外观可以被设置为图形
D.设置形状控件的Shape属性，可以使其呈现为直线
正确答案：C
答案解析：标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点，选项A错误;列表框用于显示可供做单一或多个选择的列表项，选项B错误;形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形，选项D错误。
wpsB022.tmp.jpg
正确答案：A
wpsB035.tmp.jpg
正确答案：C
wpsB047.tmp.jpg
正确答案D
wpsB001.tmp.jpg
正确答案：A
wpsB034.tmp.jpg
篇3：VB上机考试习题以及答案
1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub
3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub
4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出现了” & a(i);“次” Next i
End Sub
6、在文本框中输入一些英语单词，统计空格的个数。
Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出现了” & s & “个空格” End Sub
7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“请输入一个不大于10的整数”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub
10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：
Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub
12、从文本框输入一个正整数，判断该数是否为素数。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素数” Else Print a;“不是素数” End If
End Sub
13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的数是”;min Print “在数组中是第”;loc;“个数” End Sub
15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub
16、编制一个时钟程序，如下图
：Option Explicit
Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Label1.Caption = Time End Sub
17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“请输入第” & i & “个数”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i
End Sub
18、计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“请输入圆半径” & vbCrLf & “（1-9）：”, “输入”, 5))a = pi * r ^ 2 Print “半径为”;r;“的圆面积为”;a End Sub
19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。
Private Sub Form_Load()Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。
Option Explicit
Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑体” Else Text1.FontName = “宋体” End If End Sub
Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub
Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else
Text1.FontSize = 9 End If End Sub
Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub
Private Sub Command1_Click()Text1.Text = “" End Sub
Private Sub Command2_Click()End End Sub 20做出2个周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01
y = Sin(x)
Form1.PSet(x, y)Next x End Sub 21以窗体为中心,产生1000个半径颜色随机的同心圆.Private Sub Form_Click()For i = 1 To 1000
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
r = Int(Rnd * y)
c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9
For j = 1 To i
Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;
Next j Print Next i End Sub 23求最大公约数和最小公倍数 Private Sub Command2_Click()Text1.Text = ”“ End Sub
Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do
r = m Mod n
m = n
篇4：vb控件数组的习题及答案
实验准备：
请同学们删除d:ex21文件夹里面的内容
如果没有ex21文件夹，请在d: 下新建ex21文件夹
1、打开D:下的工程文件PROJECTA4.vbp和窗体文件FORMA4.frm，按以下要求完成程序：在窗体上创建2个列表框、2个标签、2个命令按钮。List1用于显示可选课程、List2用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到List2中显示,单击“清空”按钮，将删除List2中的所有课程。程序运行的参考输出格式如图A-4所示,可选课程至少包含图A-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图A-4
2、打开D:下的工程文件PROJECTB4.vbp和窗体文件FORMB4.frm，按以下要求完成程序：在窗体上创建1个列表框、1个图片框、2个标签、2个命令按钮。List1用于显示可选课程、Picture1用于显示已选课程。单击“选课”按钮，将List1中选定的课程名称加入到Picture1中显示,单击“清空”按钮，将删除Picture1中的所有课程。程序运行的参考输出格式如图B-4所示,可选课程至少包含图B-4所示的6门。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-4
3、打开D:下的工程文件PROJECTA41.vbp和窗体文件FORMA41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最大数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图A-41所示。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图A-41
4、打开D:下的工程文件PROJECTB41.vbp和窗体文件FORMB41.frm，按以下要求完成程序：单击窗体，能产生10个两位的随机整数并存放在一维数组中，并能在窗体中输出该10个随机整数、最小数及其在10个数中的位置，要求使用语句强制显式声明模块中的所有变量，程序运行的参考输出格式如图B-41所示。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-41
5、打开D:下的工程文件PROJECTA411.vbp和窗体文件FORMA411.frm，按以下要求完成程序：输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果，运行参考界面如下图所示。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。（要求用数组来实现，不用数组不能得分）
6、打开D:下的工程文件PROJECTB411.vbp和窗体文件FORMB411.frm，按以下要求完成程序：编写程序，单击窗体，实现将随机产生的两位整数的一维数组A(10)中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
7、打开D:下的工程文件PROJECTB511.vbp和窗体文件FORMB511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，其中一组(共3个)单选按钮(Option1(0)、Option1(1)和Option1(2))构成控件数组，要求当单击某个单选按钮时，能够改变文本框(Text1)中文字的大小。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
8、打开D:下的工程文件PROJECTA511.vbp和窗体文件FORMA511.frm，按以下要求完成程序：窗体FORM1界面如下图所示，文本框Text1和Text2用于接收用户输入的操作数，文本框Text3用于存放两个操作数的运行结果。标签Label1用于显示运算符，按钮数组Command1(0)~Command1(3)分别执行上述各种运算操作。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
9、打开D:下的工程文件PROJECTB51.vbp和窗体文件FORMB51.frm，按以下要求完成程序：按如图B-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。当单击某个单选按钮时，能够分别改变文本框中文本的字体及大小。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-51
10、打开D:下的工程文件PROJECTA51.vbp和窗体文件FORMA51.frm，按以下要求完成程序：按如图A-51设计窗体，其中有2组（每组 3个，共 6个）单选按钮的控件数组，分别放入2个框架中。当单击某个单选按钮时，能够分别改变标签标题的字体及大小。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
图A-51
11、打开D:下的工程文件PROJECTB5.vbp和窗体文件FORMB5.frm，按以下要求完成程序：按如图B-5设计窗体，其中有3组（每组 3个，共 9个）命令按钮的控件数组，分别放入3个框架中。当单击某个命令按钮时，能够改变文本框中文本的字符格式。最后将工程文件、窗体文件按原文件名保存在D:EX21文件夹下。
图B-5
12、打开D:下的工程文件PROJECTA5.vbp和窗体文件FORMA5.frm，按以下要求完成程序：按如图A-5设计窗体，其中有3组（每组 3个，共 9个）单选按钮的控件数组，分别放入3个框架中。当单击某个单选按钮时，能够改变标签标题的字符格式。最后将工程文件、窗体文件分别按原文件名保存在D:EX21文件夹下。
篇5：vb习题总结
A.TabStop
B.Enabled
C.Visible
D.TabIndex
13.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)
A.For i=0 To List1.ListCount-1 ...... Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
14.以下Case语句中错误的是(C)(单)
A.Case 0 To 10
B.Case Is>10
C.Case Is>10 And Is<50
D.Case 3,5,Is>10
15.以下关于图片框控件的说法中，错误的是(D)(单)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
16.执行语句s=Len(Mid(“VisualBasic”,1,6))后，s的值是(A)(单)
A.Visual
B.Basic
C.6
D.11
17.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
18.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = “12345”
Print Format$(a, “000.00”)
End Sub
程序运行后，单击命令按钮，窗体上显示的是(B)(单)
A.123.45
B.12345.00
C.12345
D.00123.45
19.以下关于函数过程的叙述中，正确的是(A)(单)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数
20.以下关于变量作用域的叙述中，正确的是(C)(单)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
21.确定一个控件在窗体上的位置的属性是(C)(单)
A.Width和Height
B.Width或Height
C.Top和Left
D.Top或Left
22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Text1.Text = “Visual”
Me.Text1 = “Basic”
Text1 = “Program”
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual
B.Basic
C.Program
D.出错
23.以下关系表达式中，其值为False的是(A)(单)
A.“ABC”>“AbC”
B.“the”“they”
C.“VISUAL”=UCase(“Visual”)
D.“Integer”>“Int”
24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)
A.0
B.1
C.2
D.3
25.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox(“请输入”)
Text1.Text = strText
End Sub
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
A.空
B.abcdef
C.abc
D.def
26.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
x = -5
If x >0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5
B.25
C.1
D.-1
27.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As
Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)
A.变量X、Y的作用域相同
B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
28.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_KeyPress
29.在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
s = 0
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
Next I
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321
B.1234
C.34
D.10
30.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii>90 Then
msgBox “请输入大写字母”
KeyAscii = 0
End If
End Sub
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
1.计算机二级vb练习题
2.计算机二级vb练习题及答案
3.全国计算机二级VB模拟题及答案
4.计算机二级VB强化试题及答案
5.全国计算机二级c语言练习题
6.计算机二级VB专项练习题
7.全国计算机二级VFP真题及答案
8.全国计算机二级VB第十章考点解析
9.全国计算机二级vb考试题库
篇6：vb习题总结
上学吧：http://
上学吧：http://
上学吧：http://
上学吧：http://
上学吧：http://
m = UBound(a): n = UBound(b)
上学吧：http://
上学吧：http://
篇7：vb习题总结
Private sub form_click
Dim i%，s! (2’)
S=0 (2’)
For i=1 to 100 (2’)
S=s+I (2’)
Next
Print “s=”;s (2’)
篇8：VB教学总结
（2013～2014学年第一学期）
信息部
VB教学工作总结
2012-2013学年第二学期，我担任13级计算机精英高考班VB课程教学。VB是一种有代表性的较流行的可视化语言，利用它使得创建具有专业外观的用户界面的编程工作简单易行。本课程的目的与任务是使学生通过本课程的学习和示例的分析，掌握使用Visual BASIC开发Windows应用程序的一般方法和特点，理解Windows应用程序的基本概念、主要功能和Windows应用程序开发的基本思想，能够根据实际需要自行开发简单的Windows应用程序，并为今后进一步使用Visual BASIC或其他面向对象的可视化开发工具开发Windows应用程序打下基础。
就vb本身的特点是概念多、实践性强、涉及面广，它既像其他的程序语言一样，有自身的语法，编程思维，也有与传统的过程驱动语言的不同，最特别的在于它是面向对象的事件驱动编程。所以在教学过程中一方面要加强学生和落实学生动手能力的培养，另一方面对于关键性概念、整体实现思想方面的问题要讲解清晰。在授课过程中，我开始采用的是计算机室运用教师程序控制学生电脑授课，针对性的进行讲解，老师操作，学生进行操作，采用试验与授课结合，在进行了一段时间的教学后，发现效果一般，首先对于动手操作，学生倒是可以在vb开发环境中放置控件，并能独立完成一定的操作任务，但是他们不能将其事件驱动的特征与控件编程联系起来。他们对语法缺乏有比较清晰的理解，对于整个vb编程的思维没有建立起一个系统的概念，为了加强学生的系统概念和编程思维，我在授课过程中一方面，多讲实例，在讲解例题的过程中加强学生对于vb编程的思维训练，另一方面，采用机房和教室授课相结合，部分理论性极强课程改为教室授课，由于在教室讲课能更生动形象的把抽象的计算机语言讲解清楚，学生对于概念理论的理解也大大提高，这样改进一下教学方法，教学质量有了明显的提高，同时也激发了学生的兴趣，大部分学生对于这种机房讲课和教室讲课相结合教学方式很能接受，让问题在实践中得到解决。实践给我的经验是一定不要对教材中每一部分都去讲解，可以选择部分最基本最常用的内容仔细讲解，其他内容一代而过，留给学生自己思考的时间。帮助学生尽快掌握实用VB开发Windows应用程序的一般方法。学习VB的最好方法是结合自己的需要利用最基本的方法开发出最简单的程序来获得Windows应用程序开发的感性认识。如果每一个细节都去讲解，一来浪费大量时间，二来学生获得大量目前用不道的知识，这样的知识是死的并且会很快忘记。关键要通过教师的讲解获得Windows应用程序开发的思想而讲解VB的实用方法仅仅是一个手段。要引导学生根据自己的兴趣和要求有选择地快速地获得全书的整体印象，至于书中大量细节内容应引导学生通过上机和自己思考来掌握。不仅要让学生学会使用VB开发应用程序，还要让学生学会如何利用这个开发工具，结合自己的需要，来思考如何实现自己的需要。这样不仅学会了VB的使用，还学会了如何开发Windows应用程序的思想。课堂的时间是非常短的，而学生课下却有很长时间，必须教会学生开发Windows应用程序的思想而不是仅仅学会使用开发工具的方法。这样学生通过学习VB获得开发Windows应用程序的一般方法，为学生日后进一步学习和使用VB开发实用程序打下基础，也为学生学习其他Windows应用程序开发工具打下基础。理论指导实践，实践加深对理论的理解，这是我在vb教学过程中最重要的体会。
篇9：VB常用算法总结
一、变量值的交换
算法思想：若交换两个变量的值，必须引入第三个新的变量进行传递。以下代码是错误的：
X=12 ：Y=34 ：X=Y ：Y=X 正确的代码是：
X=12 ：Y=23 ：T=X ：X=Y ：Y=T
二、判断一个数是否能被另一个数整除
算法思想：可以用整除的定义（余数为0）或X除以Y等于X整除Y等表达式进行判断。条件表达式可以为：X mod Y=0
或
X＼ Y=X/Y
或
Int(X/Y)=X/Y 如果以上条件表达式为True，则表示X能被Y整除。
三、累加、阶乘、计数和求平均值
算法思想：使用循环语句，并用一个变量存放累加的中间及最终结果。注： 累加求和时变量初值为0，计算阶乘时变量初值为1。
统计计个数（计数）时可用一个变量作为统计个数的累加变量，每次加1即可。求平均值算法思想是先求和，再除以个数。条件求和（或计数）：在循环语句中加入If－End If判断语句。
例题：计算1到10之间所有整数的累加和以及10！。n=10 sum=0
‘累加求和时，变量的初值一定为0 prod=1
‘累乘（连乘）时，变量的初值一定为1 For i=1 To n
sum=sum+i
prod=prod*i Next i Print sum,prod
例题：统计0—100之间能被3整除的数的个数、累加和及其平均值。
s=0
n=0
For i=0 To 100
If i mod 3 =0 Then
s=s+i
n=n+1
End If
Next i
Print n,s,s/n
四、随机数的产生 [a,b]之间的随机整数 Int((b-a+1)*rnd)+a(a,b)随机数（b-a）*rnd +a
五、求若干个数中最大值或最小值
六、常用字符处理函数
Mid函数：从字符串指定位置取指定个字符，格式为Mid(字符,p,n)，从第p个字符开始，向后截取n个字符（若n省略则取到最后）。
Left和Right函数：从字符串左边或右边取指定个字符，格式为 Left(字符,n)和Right(字符,n)。Len函数：测试字符串长度。
UCase和LCase函数：UCase将小写字母转换为大写字母；LCase将大写字母转换为小写字母。
Instr([首字符位置 , ] 字符串1, 字符串2 [ , n])：在字符串1中查找字符串2，如果找到，返回字符串2的第一个字符在字符串1中出现的位置。首字符位置是可选的，如果不指定，从字符串起始位置开始查找；如果指明，从指定的位置开始查找。
Asc函数：返回字符串中第一个字符的ASCII码。Chr函数：将一个数值转换为其所对应的字符。
字符的比较规则是按ASCII码顺序比较，规则为 空格<”A”～”Z”<”a”～”z” 小写字母的ASCII比大写字母的ASCII小32。
例题：
1．将所有文本转换为大写（小写）字母
可以直接使用UCase（LCase）函数转换。例如： Text2.Text=UCase(Text1.Text)2．对某个字符串的所有字符逐一处理
算法思想：如果对某个字符串的所有字符逐一处理，即从字符串的第1个字符开始到最后一个字母，每次处理1个字符。可以使用For循环实现。通用代码为：
For i=1 To Len(s)
s1=Mid(s,i,1)……
Next i 3．字符转换
算法思想：通过字符的ASCII码进行处理（使用Asc函数），然后再使用Chr函数将ASCII转换成字符。例题：将文本框Text1中字符按如下规律转换a－b、b－c……z－a，并显示在文本框Text2中。
s = Text1.Text n = Len(s)For i = 1 To n
s1 = Mid(s, i, 1)
If s1 >= “a” And s1 <= “y” Then
s2 = s2 + Chr(Asc(s1)+ 1)
ElseIf s1 = “z” Then
s2 = s2 + “a”
End If Next i Text2.Text = s2 例题：将文本框Text1中的小写字母转换其对应的大写字母，将大写字母转换成小写字母，并显示在文本框Text2中。
Private Sub Command1_Click()s = Text1.Text n = Len(s)m = Asc(“a”)m)
End If
If s1 >= “A” And s1 <= “Z” Then
s2 = s2 + Chr(Asc(s1)+ m)
End If Next i Text2.Text = s2 End Sub 5．统计某字符出现次数
算法思想：对字符串中字符逐一判断，如果是某字符，则统计变量加1。
例题：统计文本框Text1中字符i和j出现的次数（不区分大小写）。
Private Sub Command1_Click()
s = Text1.Text
n = Len(s)
For i = 1 To n
s1 = Mid(s, i, 1)
If UCase(s1)= “I” Then ni = ni + 1
If UCase(s1)= “J” Then nj = nj + 1
Next i
Print ni, nj
End Sub
八、素数
素数定义：只能被1和本身整除的正整数称为素数（或称质数）。例如11就是素数，它只能被1和11整除。算法思想：判别某数n是否是素数的方法有很多，最简单的是从素数的定义来求解。对于n，从i=2，3，…，n-1判别n能够被i整除，只要有一个能整除，n就不是素数，否则n是素数。此种算法比较简单，但速度慢，因此，可以将n被2到（或n/2）间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。
注：执行For循环时，循环变量等于终值仍进入循环，遇到Next语句，循环变量会自动加上步长，因此如果循环正常完成后，循环变量的值将大于终值。例如：
For i=1 To 4 If …… Then Exit For Next i Print i 如果循环正常结束，则输出结果为5（大于4）。如果循环过程中满足If条件，执行Exit For语句退出循环，则i的值一定小于5。
例题：判断n是否是素数。Private Sub Command2_Click()n = Val(Text1.Text)For j = 2 To n100 * a)/ 10)c = i-Int(i / 10)* 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i End If Next i End Sub
Private Sub Command1_Click()For n = 100 To 999 s = 0 a = n Do While a <> 0 b = a Mod 10 s = s + b * b * b a = a＼ 10 Loop If s = n Then Print n Next n End Sub
十一、斐波那切数列的输出
该数列前两项为1，1从第三项开始，an=an-1+an-2
十二、进制转换 十三、三个数排序
十四、分段函数
十五、图形输出（双重循环）
十六、百鸡百钱问题
十七、迭代法P116页
十八、输入a,b,c,的值，求方程ax2+bx+c=0的解。
注意：对象只考文本框、标签、命令按钮和窗体。
本学期计算机基础及VB程序设计复习指导如下：
1、计算机基础的50道复习题，试卷上占20分，选择15题，填空5题。
2、VB习题集第一到五章控制结构的课后习题及试题解析（其中，控件只考窗体、文本框、标签、命令按钮）试卷上占40分。
篇10：vb实训总结
为期一周的实训即将结束，通过这次的实训使我们学到了很多，同时也让我们所有同学意识到我们要学的还有更多。本次实训的项目是为了让同学们能结合本期所学的书面知识，再加上实际动手操作能力，以便可以更好的可以实际与理论相结合，使同学们能更深切的体会到不仅要有理论知识也要有实际操作能力，能灵活的学以致用。
本次有5个题目任由同学们选择，而我选择做“学生管理系统”程序的设计，主要是几个用户模块的程序设计。而我们这次课程设计主要是老师为了让我们学习完《Visual Basic程序设计》课程后，能进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，我们每个人都付出了时间和精力去做好自己的任务并努力地去完善它。
实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟学生成绩管理系统是一个比较系统、完善、功能相对较齐全的管理系统，即使是登录模块也可以完成各种操作，如对用户的查询、添加、删除以及修改等。因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们所有同学都倍感压力、不懂就互相请教，算是团结协作了，可即使这样我们还是经常出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们相互的帮助，细心的调整，终于算是可以正常的运行了，但其中还有些许的不完善，但我们在之后的几天实训中，不停的精益求精，以达到最好的状态，做出最简单方便的程序。
我做了5个模块分为学籍信息输入、学籍信息管理、学籍信息查询和统计查询以及用户登录5个模块的内容。学生数据录入管理中又包括用户的查询、添加、修改以及删除功能，它是只有具有管理员权限的情况下才能进入操作，而登入用户就只能修改自己的登录密码。在实训过程中我们也认识了一些新的老师，他们对我们亲切认真负责，很有耐心地对我们进行讲解并指导我们解决遇到的难题。老师们交会了我们很多简单实用的技巧。也让我们意识到了要想全面完整地完成一个模块，首先要进行程序的设计，全面分析会用到的东西以及考虑可能会出现的情况，理清思绪、写出大致的要点后再上机编写程序以及操作。否则像一开始的我们马上上机编写、想到什么就补什么，不仅浪费时间也乱了之前写好的一些程序。系统分析越准确，设计的系统越精确，可以大大减少后期的修改、维护工作。当然做好做对一个项目固然重要，同时美观程度也是必不可少的，无论是从参观者的角度还是自己看的角度都很重要。