第一篇：VB自主学习题目
VB自主学习题目
利用已经学过的知识，编写程序对数组排序并保存。
1.要求利用文本框或inputbox 输入要排序的数组的长度（>=100），并生成相应数据；或者通过通用对话框读取指定文件；（10分）
2.要求至少使用两种方法，比如冒泡法，选择法，插入排序法，快速排序法，请利用命令按钮控件数组或下拉框或者菜单编辑器的形式来选择排序方法；（30分）
3.要求将排序好的数据以文本框或列表框或Print方法显示在Form2窗体中；（15分）
4.要求记录两种方法为了排序而分别进行的循环次数，并显示Form3窗体中；（15分）
5.要求将排序前的数据和排序后的数据写入文本文件并保存，请尽量使用通用对话框来选择文件保存的位置；（20分）
6.界面可尽量美观。（10分）
提示：
请务必在15周提供实验报告和最终程序。
（实验报告中要求有整个程序设计的详细步骤，有每个窗体的运行界面截图，以及最终运行结果的截图）
五六机房是全天开放，请抓紧时间。
第二篇：VB等级考试题目
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
VB等级考试题目
练习中--§§ 准考证号:12X2a0101vbp §§ 姓名:练习001 §§ 班级:所有专业.杭州师范大学
计算机技术基础(VB程序设计)课程练习近平台.学号:12X2a0101vbp 姓名:练习001 班级:所有专业
注意：回答完所有试题之后，需要点击本页面最后的【交卷完成，退出系统】按钮。
题号一二三四五
题型判断题 单选题 程序填空题 程序阅读题 程序设计题
说明点击题型名称可以跳转到相应题型
一、判断题
第1题：从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：错
对
和False。
错
第2题：Boolean类型数据，可以用来保存逻辑值True参考答案：对
对
错
第3题：在VB中，对象是代码和数据的集合。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：对
对
错
第4题：在行If语句中，关键字End If必不可少。
参考答案：错
对
错
第5题：执行语句“C=Point(50,100)”，可将窗体坐标(50,100)处点的颜色值存入变量C。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：对
对
错
第6题：在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。
参考答案：对
对
错
第7题：定时器控件只能响应Timer事件。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：对
对
错
第8题：Print #语句的作用是将数据从文件中读出并显示在窗体上。
参考答案：错
对
错
第9题：如果B是一个字节型变量，那么B可以用来保存数值-1。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：错
对
错
第10题：如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能按地址方式传递。
参考答案：对
对
错
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
二、单选题
第1题：在VB中，______被称为对象。
参考答案：D
A、模块和类
B、方法和事件
C、窗、控件、属性
D、窗体和控件
第2题： 设置文本框text1，要求只能显示信息，不能接受输入的信息，______能实现该操作。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：B
A、Text1.maxlength=0
B、Text1.enabled=false
C、Text1.visible=false
D、Text1.width
第3题：窗体文件的扩展名为______。
参考答案：A
A、FRM
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
B、CLS
C、BAS
D、FRX
第4题：将通用对话框类型设置为“另存为”对话框，应修改______属性。
参考答案：C
A、Filter
B、Font
C、Action
D、FileName
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
第5题：下列______方法或函数可以调用外部的可执行文件。
参考答案：B
A、Show
B、Shell
C、Input
D、Open 第6题：表达式16/2-2^ 3*7 MOD 9的结果是 ______。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：A
A、6
B、0
C、9
D、以上都不对
第7题：Visual Basic可以用以下哪一条属性来设置画圆方法的边框类型______。
参考答案：B
A、BorderWidth
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
B、BorderStyle
C、DrawWidth
D、FillColor
第8题：下列关于Select Case的叙述中，错误的是______。
参考答案：D
A、Case 10 To 100 表示判断Is是否介于10与100之间
B、Case“abc”,“ABC”表示判断Is是否和“abc”、“ABC”两个字符串中的一个相同
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
C、Case “X” 表示判断Is是否为大写字母X
D、Case-7,0,100 表示判断Is是否等于字符串“-7，0，100”
第9题：InputBox函数用来返回用户输入的值，该值的类型是______。
参考答案：C
A、整型
B、字节型
C、字符串型
D、逻辑型
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
第10题： 因修改文本框中的数据而触发的事件是。
参考答案：A
A、change
B、Getfocus
C、SetFocus
D、LostFocus
精心收集
精心编辑
精致阅读 如需请下载！______
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
三、程序填空题
第1题：【程序说明】本程序统计3～100之间所有素数的个数；最后将素数的个数写入顺序文件
e:dataout.txt中。
Private Sub Command1_Click()
Dim i As Integer, flag As Boolean
Dim t1 As Integer, t2 As Integer
----1----
i = 0
For t1 = 3 To 100
flag = True
For t2 = 2 To Int(Sqr(t1))
If----2----then flag = False
Next t2
If flag then
i = i+1
End If
Next t1
----3----
Close #1
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
End Sub
请在左边文本框当中输入正确答案。
或open
参考答案：open “e:dataout.txt” for output as #“e:dataout.txt” for append as #1
请在左边文本框当中输入正确答案。
参考答案：t1 mod t2=0
请在左边文本框当中输入正确答案。精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：Write #1,I或print #1,I
第2题：【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）
Dim----1---As Integer
Private Sub Form_Load()
I = 1
Picture1.Picture = LoadPicture(“c:windows1.bmp”)
Picture1.AutoSize = True
End Sub
Private SubTimer1_----2----
If----3----Then
I =I+1
Else
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
I = 1
End If
Picture1.Picture = LoadPicture(“c:windows” & I & “.bmp”)
End Sub
请在左边文本框当中输入正确答案。
参考答案：I
请在左边文本框当中输入正确答案。
参考答案：Timer()
请在左边文本框当中输入正确答案。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：I <= 7或I<8
第3题：【程序说明】
该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5的矩阵。
Private Sub Form_Click()
Dim a(1 To 5, 1 To 5)As Integer
Dim I As Integer, j As Integer
For I = 1 To 5
For j = 1 To 5
If----1----Then
----2----
End If
Next j
Next I
For I = 1 To 5
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
For j = 1 To 5
Form2.Print “ ”;a(I, j);
Next j
----3----
Next I
End Sub
请在左边文本框当中输入正确答案。
参考答案：I<=j或j>=I
请在左边文本框当中输入正确答案。
参考答案：a(I,j)=1
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
请在左边文本框当中输入正确答案。
参考答案：print
第4题：【程序说明】
如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示“先选择，再删除！”。
> Private Sub Command1_Click()‘ 添加按钮
If Len(Text1.Text)<> 0 Then
----1----
Text1.Text = “"
Text1.SetFocus
End If
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
End Sub
Private Sub Command2_Click()‘删除按钮
If----2----Then
MsgBox ”先选择，再删除！“
Else
----3----
End If
End Sub
请在左边文本框当中输入正确答案。
参考答案：List1.AddItem Text1.Text
请在左边文本框当中输入正确答案。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：List1.ListIndex =-1
请在左边文本框当中输入正确答案。
参考答案：List1.RemoveItem List1.ListIndex
四、程序阅读题
第1题：请写出在Text1、Text2、Text3中依次输入3、2后，单击窗体时Label1的显示结果。
精心收集
精心编辑
精致阅读
如需请下载！、1演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
Private Sub Form_Click()
Dim a As Single, b As Single
a = Text1.Text: b = val(Text2.Text+text3.text)
Label1.Caption = Str(a * a + b * b)
End Sub
请在左边文本框当中写出正确的答案。
A、18
B、9144
C、153
D、以上答案都不对
参考答案：C
第2题：写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
Private Sub Form_Click()
Dim a(1 to 3)As Integer, k As Integer, i As Integer, j As Integer
Open ” a1.dat“ For Output As #1
J=1
For i = 1 To 3: j = i * j: Print #1, j;: Next i
Close #1
Open ” a1.dat“ For Input As #1
k = 0
Do While Not EOF(1)
k = k + 1: Input #1,a(k)
Loop
Close #1
For i = k To 1 Step-1: Form1.Print a(i);: Next i
End Sub
请在左边文本框当中写出正确的答案。
A、窗体：6 2 1
文件：6 2 1
B、精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
窗体：1 2 6
文件：6 2 1
C、窗体1 2 6
文件：1 2 6
显示结果。
D、窗体：6 2 1
文件：1 2 6
参考答案：D
第3题：请写出鼠标点击弹出菜单第一项后窗体上的Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuPopup, 10 End Sub
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名
Private Sub mnuChoice1_Click()
m = ”信息科学与工程学院“
print m
End Sub
Private Sub mnuChoice2_Click()
m = ”护理学院“
print m
End Sub
Private Sub mnuChoice3_Click()
m = ”材化学院“
print m
End Sub
请在左边文本框当中写出正确的答案。
A、信息科学与工程学院
B、护理学院
C、材化学院
D、无显示
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：A
现的结果。
第4题：写出程序运行时单击窗体后，在图片框上出Private Sub Form_Load()
Picture1.Width = Picture1.Height End Sub Private Sub Form_Click()Dim i As Single, x As Single, y As Single Picture1.Scale(-100, 100)-(100,-100)For i = 0 To 2 * 3.1415926 Step 0.1 * 3.1415926
x = 100 * Cos(i)
y = 100 * Sin(i)
Picture1.Line(0, 0)-(x, y), RGB(255, 0, 0)Next i End Sub
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
请在左边文本框当中写出正确的答案。
A、从图片框中心出发画了10条红色直线, 直线长度为100单位
B、从图片框中心出发画了20条红色直线, 直线长度为100单位，其轨迹形成一个圆。
C、转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆
D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆
参考答案：B
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
五、程序设计题
在E盘上建以自己【姓名+准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹，子文件夹名为
【设计题*】,并把每小题结果文件保存在相应的子文件夹中。
例如：考生张三的准考证号为0100101，做设计题中的第1小题，文件保存位置是：E:张三0100101设计题1
第1题：编程，求算式1+1/2！+1/3！+1/4！+……前10项的和。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：
Private Sub Command1_Click()
Dim I as integer, s as single，a as single
a = 1: s = 0
For i = 1 To 10
a = a / i
s = s + a
Next i
Print ”1+1/2!+1/3!+……=“;s
End Sub
第2题：设计一个用于输入学生信息的应用程序。界面如图所示（民族有汉族、苗族、壮族等；政治面貌有：群众、团员、党员）。要求：
（1）输入完毕后单击确定按钮，能在另一窗口显示输入的信息
（2）单击取消按钮，将取消所输入的信息。
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
参考答案：
Public info As String
Dim s As String
Private Sub Command1_Click()
info = ”学号为“ + Text1.Text + ”,姓名为 “ + Text2.Text + ”, 性别为“ + s +
”，民族为“ + Combo1.Text + ”，政治面貌为“ + Combo2.Text+”.”
Form2.Show
End Sub
Private Sub Command2_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
Text1.Text = ”“ :Text2.Text = ”“
Option1.Value = True :Option2.Value = False
Combo1.Text = ”汉族“ :Combo2.Text = ”群众“
End Sub
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
Private Sub Option1_Click()
s = ”男“
End Sub
Private Sub Option2_Click()
s = ”女“
End Sub
第3题：编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件1，单击按钮1后，调用通用对话框选择文件2；单击按钮2后，将文件2的内容添加到文件1原来内容之后，然后删除文件2。
参考答案：
Dim fn As String
Private Sub Command1_Click()
CommonDialog1.Filter = ”(*.txt)|*.txt“
CommonDialog1.ShowOpen
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
End Sub
Private Sub Command2_Click()
Dim s As String
Open fn For Append As #1
Open CommonDialog1.FileName For Input As #2
Do While Not EOF(2)
Line Input #2, s
Print #1, s
Loop
Close
Kill CommonDialog1.FileName
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1)= ”“ Then
fn = File1.Path + File1.FileName
Else
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
fn = File1.Path + ”“ + File1.FileName
End If
End Sub
Private Sub Form_Load()
File1.Pattern = ”*.txt“
End Sub
第4题：设计一程序，界面如图所示。程序运行后，单击“计时开始”命令按钮，开始计时，并在文本框1中以如图所示格式显示计时时间，单击“计时结束”命令按钮后，停止计时，并根据时间计算上网费用，计算的方法如下（不足15分钟忽略不计，超过15分钟则按1小时计算）。
参考答案：
Dim n As Integer, h As Integer, m As Integer
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
If m >= 15 Then h = h + 1
If h<10 Then
cash = 1.5 * h
ElseIf h<60 Then
cash = h
Else
cash = 0.8 * h
End If
Text2.Text = cash
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
n = n + 1
h = n 3600
精心收集
精心编辑
精致阅读 如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
m =(n Mod 3600)60
s = n Mod 60
Text1.Text = h & ”小时“ & m & ”分“ & s & ”秒"
End Sub
将你的考生文件夹打包上传:
注意：提交文件是以“姓名+准考证号”进行压缩的打包文件(查看文件打包并上传的演示动画）
<==
精心收集
精心编辑
精致阅读
如需请下载！
演讲稿 工作总结 调研报告 讲话稿 事迹材料 心得体会 策划方案
注意：
未做完所有试题之前请不要点击右边的【交卷完成，退出系统】按钮。点击【交卷完成，退出系统】按钮提交结果之后将视为结束练习，退出系统！<=＝注意左边提示
【你的IP:192.168.104.43】
.Copyright(C)2006-2009
Designed By RSIDE
.精心收集
精心编辑
精致阅读 如需请下载！
第三篇：vb程序设计课程设计题目
VB程序设计课程设计
一．题目：
1．记事本的设计与实现 2．学生成绩管理系统 3．弹球游戏
4．图书馆管理系统 5.打字练习程序 6.超市销售管理 7.小型测试系统 8.仓库管理系统 9.猜数字游戏 10.工资管理系统 二．要求和说明：
1．自己独立完成，最终提交课程设计报告和实验成果
2.对各个系统实现功能进行分析并设计好系统界面，要求界面设计美观方便
3．课程设计报告格式：封面、题目、时间地点、要求、内容、详细步骤和过程、总结 1）功能描述
对系统要实现的功能进行确切的描述。
2)概要设计
根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系
3)详细设计
详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。
4)效果及存在问题
说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法。
5)心得 ：谈谈在课程设计过程中的心得体会。4．指定时间必须在实验机房上机
5．最终成绩包括平时成绩（30％）和最终考核成绩（70％）
6．实验设计内容必须以老师指定的题目为准，老师指定的题目为最终检查的依据 三．内容：
1． 仿照windows记事本应用程序，要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能。
2． 学生成绩管理系统要求实现用户登陆管理，浏览、添加、删除和修改学生的成绩信息，提供多种成绩的查询方式。1)登陆模块
每个用户只有三次登陆机会，三次均未能输入正确的用户名和密码，系统将强行推出。参考界面如下所示
2）主控模块
进入系统主界面后，自动打开学生成绩数据库，“学号”，“姓名”，“班级”，“英语”，“VB”，“数据库”6个字段分别绑定相应文本框，“总分”和“平均分”的内容根据“英
语”，“VB”，“数据库”文本框内容的改变而改变。
单击“首记录”，“尾记录”，“上一条”，“下一条”按钮可以浏览数据库，但不能修改记录。通过选择相关菜单命令可以执行相应的操作。其中执行“输入”和“修改”命令后，“首记录”和“尾记录”按钮隐藏，“上一条”，“下一条”按钮变为“确定”和“取消”按钮，参考界面如下：
3）查询模块
可以通过选择不同的菜单命令进入查询模块后，根据用户输入不同的查询条件在查询窗体中显示查询菜单，参考图如下所示：
根据不同的查询所得查询界面参考下图：
3.弹球游戏要求理解游戏玩法，正确设计游戏规则，合理设计实现算法，参照演示程序实现功能。
4．图书馆管理系统要求实现功能有：用户登陆，图书的借阅和归回，图书信息的添加，修改，查询和删除操作。
5.打字练习程序要求自行设计程序界面，能够实现打字测试和打字练习功能，对打字正确率和速度进行测试，并给出测试结果。
6． 超市销售管理系统要求实现登陆管理，超市销售商品管理（销售商品的添加、删除和修改）查看超市的全部销售记录，可按销售记录号、销售商品名称查询相关销售记录、销售统计等功能。
7.小型测试系统的设计与实现要求能够随机生成20道数学计算题（要求有加，减，乘，除运算，规定操作数的个数），对用户结果进行判断，并能最终计算总成绩，要求用户在规定的时间内做完试题，超时自动终止并给出成绩。
8.仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。
9.猜数字游戏要求：游戏开始电脑随机产生一个数字不重复的四位数；将猜的数填在框内按回车或者确定按钮提交；电脑会将提交的数与它自动产生的数进行比较，结果显示成“*A*B”。A代表位置正确数字也正确，B代表数字正确但位置不正确，比如：“2A2B”表示有2个数字的位置正确且数值也正确，除此以外，还猜对了2个数字，但位置不对；共有10次机会，在10次内，如果结果为“4A0B”，游戏成功。如果10次里都没有猜对游戏失败。
10.工资管理系统：建立职工数据库表，能够存储每个职工当月的工资信息，包括：编号、部门、姓名、基本工资、岗位工资、职务补贴、奖金、房租、水电费、实发工资等数据。系统应具有增加人员、删除人员、查询数据、修改数据、统计实发工资、报表输出、退出系统等功能。
第四篇：VB学习心得体会
VB学习心得体会
VB学习>心得体会
VB是一门程序设计语言，也需要一定的英语基础。VB既能充实我们的生活，武装我们的头脑，锻炼我们的意志，又能在以后需要的时候成为帮助我们成功的推进动力。对于VB的学习，我个人觉得兴趣爱好占一部分，更重要的还是自身的努力程度和平时的学习习惯。下面，我也简要介绍一下我对于VB课程的看法。
VB程序设计的入门学习并不难，但需要在学习的过程中掌握一个良好的程序设计习惯，这时，做好课前预习，上课认真听讲，下课认真消化所学内容显得十分重要。上机实验课努力完成老师留的课堂作业，能加深对所学知识点的理解和运用。能做到这些，也是积极主动学习的表现。
对于VB,每一个VB老师都是一个严谨的老师，要求严格是应该的。刚学习VB,严格要求格式，这是熟练之后能随意运用的基础，也是学好VB课程的重要前提。在课上，应该注意老师所提到的每一点要求，上机课认真完成老师布置的作业，注意每一个细节，争取做到零失误。
正式踏入VB课之后你会发现，编写程序代码其实是一件很有意思的事情。每一个程序当你完成时你都会有一种成就感。遇到问题时，程序代码可能会让很多人无从下手，建议大家多看别人设计好的程序代码，包括教材上的例题程序。读懂别人的程序后，要想他为什么这么设计，学到别人优秀的东西。积极跟同学讨论程序问题，在大家一起研究出一个正确的程序时，高兴的同时也促进了彼此的友情。
细节决定成败，VB程序设计的成败正是在于细节。纸上得来终觉浅，自己调试程序的时候总会犯很多错误，比如'文件未找到''下标越界'等等，都是平时没有机会解决和一些曾经被忽视的问题，为了找到代码中错误和不符合要求的地方，标点符号都不能放过。细节决定成败，一个小小的分号也会起着扭转乾坤的作用。我个人，经常出现问题的地方在于与滚动条有关的事件。与滚动条有关的事件主要是Scroll和Change.当在滚动条内拖动滚动框时会触发Scroll事件，但注意单击滚动箭头或滚动条时不发生Scroll事件，而改变滚动框的位置后会触发Change事件。Scroll事件用于跟踪滚动条中的动态变化，Change事件则用来得到滚动条的最后的值。不注意时，容易忽略Scroll事件与Change事件的区别，出现编程的问题不容易得到解决。VB中，这样的小细节比比皆是，一定要注意细节才能学好VB这门课。
我对VB的兴趣从何而来呢？从我对电脑的喜爱说起。我参加过一个学校的计算机>培训班，之后在没事的时候自己还设计个ppt,photoshop什么的。大学加入广播站的网络技术部之后也学习了不少关于AU,AE,视频方面的制作。学习VB,我觉得能加深我对计算机已有认识的理解，能促进我对计算机的喜爱热情的提高，同时又能增长计算机知识。这么好的一门课，我为什么不好好学呢？兴趣来自于生活，来自于习惯，以来自于自身对VB这门课的看法。
通过对VB的学习，对VB语言有了初步的认知，对程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，然后想想别人为什么这么设计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，VB课程对我的计算机水平起到了推动的作用。对VB更多的是喜爱，那一点点，是宠爱。
第五篇：VB学习心得体会
篇一：vb学习的心得体会 vb学习的心得体会 ————刘师桐
这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。
vb全称为visual basic，是微软公司推出的可视化编程工具msdn之一，是目前世界上使用最广泛的程序开发工具。vb提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且vb提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以vb学起来简单，用起来方便。因此，我学了vb，并有了如下收获：
1.富业余生活。业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄vb。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在生活有了寄托，是vb给了我无穷的快乐，让我乐此不疲。
2、多了一门技术。vb是一门计算机编程语言，也算是一项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。多看多练是我独门绝技，一般人我不告诉他：多看------别人的代码，即使看不懂也没关系，可以把这些代码输入到机子里运行，然后根据运行结果去体会程 序的思路和用途。
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。通过这个学期的学习，对了vb这种高级语言有了初步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的vb课程让我收获了很多，我对下学期的计算机2级考试很有信心！！篇二：vb学习总结也心得 学习vb两个星期以来，（其实真正时间也不到两个星期吧平时有空闲就学习了下 在这里是想告诉大家 vb基本操作不难，）第一个串口调试程序通了 能够实现更改波特率，串口号，接收数据实现字符也十六进制显示，在发送文本框输入数据 电机发送将在接收框内显示 记住将rs232的2和3管脚直接接起来
下面是我测试实际过程
大家也可以和我一样练习练习
下面是我的源代码可以供大家参考下也希望高手指点下（框架就没必要给了）dim baud as string dim text2enbale, asciflag as boolean 停止显示标志 false将不能显示 private sub check2_click()end sub end select end sub case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800 baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select else case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select end if end sub dim s as string dim a()as byte msgbox 串口未打开，请打开串口, 48, 警告 end if redim a(3)a(0)= &hf a(1)= &hfe a(2)= &hdd a(3)= &hcc s = text3.text a = s end if call delay(20)end sub dim idata as variant dim arr()as byte redim arr(intinputlen)和上面一样 if asciflag = true then for i = 0 to ubound(arr)text2.text = text2.text + chr$(arr(i))next ielse for i = 0 to ubound(arr)text2.text = text2.text + & arr(i)next i end if end select end sub private sub option1_click()if option1.value = true then asciflag = true end if end sub private sub option2_click()if option2.value = true then asciflag = false end if end sub private sub timer1_timer()label11.caption = time end sub private sub uart_open_click()shape2.backcolor = &hff& uart_open.caption = 关闭串口 else shape2.backcolor = &he0e0e0 uart_open.caption = 打开串口 end if end sub private sub text2_clr_click()text2.text = end sub private sub text2_en_click()text2enable = not text2enbale end sub end end sub private sub form_load()show 没有show后面的设置焦点将失败 错误 text2enbale = true option2.value = true 默认显示是以16进制显示 text3.text = text3.setfocus end sub 至此 一个简单的小工程就完成了，因为我是电子信息工程专业对高级编程还是很菜鸟的，其实这个功能也是我一直想能够自己实现的，因为之前一直以为学习vb 会花好多时间，就像之前一直在学习arm一样半天模不着头脑。所以迟迟不敢接触。估计也好多人和我一样，其实学习开始了 也会发现并不是想象中那样。2012-7-30 青檐铃风篇三：vb学习心得体会 vb学习心得体会
这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。
通过学习vb我基本学会了编辑一些小程序，掌握了一些基本的知识，得到了以下一些收获： 1.富业余生活。曾经业余时间到处游手好闲的身影不见
了，以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在有了vb，它给了我无穷的快乐，让我乐此不疲。
2、多了一门技术。vb是一门计算机编程语言，也算是一 项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。只有这样我才呢学有所成
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人
开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。
通过这个学期的学习，对了vb这种高级语言有了初
步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的vb课程让我收了很多。
点击咨询 