第一篇：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
.精心收集
精心编辑
精致阅读 如需请下载！
第二篇：2012年计算机等级考试二级VB考点及习题
上学吧：http://
上学吧：http://
上学吧：http://
上学吧：http://
上学吧：http://
上学吧：http://
m = UBound(a): n = UBound(b)
上学吧：http://
上学吧：http://
上学吧为您提供计算机二级VB考试资料下载：http://
第三篇：普通话等级考试说话题目完整50篇
普通话考试说话题目
1号《我的学习生活》2号《我的业余生活》 3号《我的业余爱好》4号《我的爸爸》
5号《我的妈妈》6号《我最尊敬的老师》 7号《我最尊敬的人》8号《我的童年》
9号《我的一个愿望》10号《我最要好的朋友》 11号《我喜爱的体育运动》12
13号《一次难忘的旅行》14
15号《学习普通话的体验》16
17号《家乡新变化》18
19号《家乡的风俗》
21号《怎样与同事（同学）相处》
23号《谈谈邻里关系》
25号《给我深刻印象的一部电影》
27号《我最喜欢听的一首歌》
29号《我的拿手菜》
31号《广告评说》
33号《谦虚是美德》
35号《我心目中的教师职业》
37号《自然环境和我》
39号《我最喜爱的一种小动物》
41号《一个愉快的假日》
43号《我所在的集体》
45号《我的一个梦想》
47号《《花季、雨季》观后感》
49号《童年趣事》号《最难忘的一件事》 号《我和电视》 号《我的家乡话》 号《家乡的气候》 20号《家乡风光》 22号《谈谈社会公德》 24号《雨》 26号《我最爱读的小说》 28号《我看语言美》 30号《记忆深刻的故事》 32号《说勤俭》 34号《我的职业》 36号《我最感兴趣的一件事》 38号《商品质量和我》 40号《我的家庭》 42号《一句格言给我的启示》 44号《我的读书生活》 46号《我最得意的一件事》 48号《谈谈自己对某一社会现象的看法》50号《我最喜欢的一种花卉》
第四篇：普通话等级考试说话题目万能例文
普通话考试说话题目万能例文
话题1 我的愿望（或理想）
我最大的愿望就是，我能过上衣食无忧的宽裕生活，我挣的钱能够让我和我的家人天天吃上西红柿炒鸡蛋，这道菜的做法是……
话题2 我的学习生活
我认为，作为一个大学生，我们的学习生活不应该仅仅局限在课堂上，除了课堂知识，我们也应该学习实践能力。比如去年暑假，我就在家乡的烹调学校学习了西红柿炒鸡蛋这道菜的做法……
话题3 我尊敬的人
我最尊敬的人是我的叔叔，他是一名厨师，虽然文化不高，但是很有敬业心，连西红柿炒鸡蛋这道菜都做的十分的认真……
话题4 我喜欢的动物（植物）
我喜欢的动物是鸡，因为鸡浑身都是宝，除了肉可以吃，她还会下蛋，下的鸡蛋如果用来做西红柿炒鸡蛋就太好吃了……
我喜欢的植物是西红柿，西红柿那鲜艳的颜色实在太诱人了，尤其是做西红柿炒鸡蛋这道菜的时候……
话题5 童年的记忆 我的童年是在农村度过的，我在12岁前住在外婆家里，外婆收入不高，过年过节我们吃的最好的菜就是西红柿炒鸡蛋了，这道菜的做法是……
话题6 我喜欢的职业
我喜欢的职业是，做一个优秀的厨师，钻研出最好的饭菜，哪怕是西红柿炒鸡蛋这样的普通菜也要做出水平，这道菜的做法是……
话题7 难忘的旅行
这个暑假我去华北第一峰——小五台山旅行了，我的夙愿终于圆满了，在山脚下我度过了10天快乐的生活，因为农家院的房东大妈天天用柴鸡蛋和家种番茄给我做西红柿炒鸡蛋吃，这道菜她是这样做的……
话题8 我的朋友 :
我最好的朋友是小王，他是我的高中同学。细腻周到是他最大的优点，记得高考之后，他特意花了一个月学习做菜，他做的最好的一道菜是西红柿炒鸡蛋……
话题9 我喜欢的文学（或其他）艺术形式
我最喜欢的文学是随笔，前两天我读了一本随笔《酸甜苦辣》，这本书用很多名菜的做法来暗喻玄妙的人生，作者着重描述了西红柿炒鸡蛋这道菜……
话题10 谈谈卫生与健康
关注个人健康最关键的是注重饮食平衡，我们不能大鱼大肉，也不能不注意营养，有的菜，比如西红柿炒鸡蛋，就能够做到荤素搭配膳食平衡
话题11 我的业余生活
在家的时候，我最喜欢的做一些能够让家变得更加温馨的事情，比如帮妈妈做饭，记得小时候我学会的第一道菜就是西红柿炒鸡蛋
话题12 我喜欢的季节（或天气）
我最喜欢夏天，因为夏天产的西红柿最为美味，夏天鸡蛋也比较便宜，这个季节做西红柿炒鸡蛋是再好不过了，这道菜的做法是……
话题13 学习普通话的体会（这个难度比较大）
在学习普通话的过程中，我才真正的意识到我们的祖国是多么的辽阔，我们的同学来自天南海北，方言差别巨大，饮食习惯也差异显著。比如西红柿炒鸡蛋这道菜，在不同的地方里，方言的表述都不一样，菜的做法也不一样…
话题14 谈谈服饰（挑战……）服饰有两个功能，一个是美观，一个是实用，而实用是包含保暖用途和特殊用途的。比如厨师服，就还有防止油渍沾染衣物和防止菜品污染的作用。不过有的菜，做起来非常省事，连厨师服都不用穿也不用担心油汤四溅。这道菜的做法是
话题15 我的假日生活
这个暑假我早早就回家了，在家的时候，我最喜欢的做一些能够让家变得更加温馨的事情，比如帮妈妈做饭，记得小时候我学会的第一道菜就是西红柿炒鸡蛋…
话题16 我的成长之路
我的成长历程中，一些小事情起到了很大的作用，记得小时候，我学着跟妈妈做菜，可是开始的时候做不好，正是妈妈逼着我坚持下来，才磨炼了我的意志。当我第一次独立做好菜时，我激动万分。这道菜就是西红柿炒鸡蛋…
话题17 谈谈科技发展与社会生活
知识改变命运，科技改变生活。科技的发展正在渗入我们生活的每个角落。就拿家家户户都要做的烹调这件事来说，变化就很大。以前的时候，我们做西红柿炒鸡蛋这道菜是这样做的…
话题18 我知道的风俗 我的家乡有这样一个风俗，在小孩子过生日的时候要吃鸡蛋，生日的中午要是荷包蛋面条，还要吃煮鸡蛋，晚饭则一般吃西红柿炒鸡蛋……
话题19 我和体育
小时候我妈妈让我参加长跑训练，那时候我正在长身体，训练强度大，让我觉得总是吃不饱饭。教练为了我好，经常给我开小灶，我最常吃的就是西红柿炒鸡蛋……他是这样做的……
话题20 我的家乡
我的家乡是广西桂林，我的家乡有美丽的山水，有悠久的历史，也有诱人的小吃美食，其中最有名的就是西红柿炒鸡蛋了……它的做法是……
话题21 谈谈美食
话题22 我喜欢的节日
我最喜欢的节日不是热闹的春节，也不是浪漫的情人节，而是能够让我再父母面前尽尽孝心的父亲节母亲节，在这个日子里，我可以为爸爸妈妈做一些力所能及的小事，比如，让辛勤一年的妈妈休息一天，由我来为家庭做一顿饭，我最拿手的菜，就是西红柿炒鸡蛋了…… 话题23 谈谈我所在的集体
我所在的班集体是一个充满友爱，团结互助，温暖和睦的大家庭。不仅同学关系良好，连老师也对我们亲如一家，经常请我们到他家里吃饭，记得老师最喜欢做的一道菜便是西红柿炒鸡蛋……
话题24谈谈社会公德（职业道德）
我们一直强调工作要有职业道德，那么职业道德到底什么呢？我的理解是工作任务之内的事情，不论自己的心情，自己的想法，一定要按照规程做到最好。比如五星级宾馆的大厨，不能因为客人仅仅点了一道西红柿炒鸡蛋就敷衍了事，而是要认真的按照菜谱操作……
话题25 谈谈个人修养
个人修养最重要的一个方面就是不自私，以大局为重，比如工作时，只要是任务之内的事情，不论自己的心情、自己的想法，一定要按照规程做到最好。比如五星级宾馆的大厨，不能因为客人仅仅点了一道西红柿炒鸡蛋就敷衍了事，而是要认真的按照菜谱操作……
话题26 我喜欢的明星
我最喜欢的明星是预防艾(baidu)滋(baidu)病形象大使***，上次他探访艾(baidu)滋(baidu)病人时毫无矫揉造作，坚持和艾(baidu)滋(baidu)病人一同进餐，还亲自下厨为他们做了一道西红柿炒鸡蛋…
话题27 我喜欢的书刊
我最喜欢的书刊是《XX美食》，这本杂志不仅仅向我们介绍各地的珍馐美食，而且还常常教我们发掘生活中的点滴平常的美味，比如西红 它就多次向我们介绍不同的做法，其中一种最经典的方法是……
话题28 谈谈对环境保护的认识
环境保护不仅仅是政府部门的大规模行动，我们在日常活动中也应当从细节入手保护好环境。例如我们可以做到拒绝食用野生动物，如蛇、蛙，也要少食用对环境危害大的食物，如发菜。这些菜品不仅会伤害环境，也可能会对我们的健康不利。而一道家常的西红柿炒鸡蛋一定会对我们的身体大有裨益。它的做法也很简单……
话题29 我向往的地方
我最向往的地方是北欧，那里环境优雅民风淳朴，社会和谐文化身后，不像有的国家富便富罢，却是个追求物欲的地方。北欧的人们生活水平高，但是对对奢华要求不高，有时候一道西红柿炒鸡蛋就是待客的美味了，他们往往会这样做这道菜……
话题30 购物（消费）的感受
消费的时候人一定要有理性，明白我们需要的是什么，千万不要成为冲动的消费者。比如才就餐是，我们万万不可为了面子点过多过奢华的菜，那样是奢靡浪费的行为。有一次我在一个小山村的小馆子，饥饿之极的我曾经想点很多才，但是淳朴的老板建议我只吃一道西红柿炒鸡蛋，这才是我真正需要的，他是这样做这道菜的……
第五篇：2011年计算机等级考试二级VB考点及习题1
2011年计算机等级考试二级VB考点及习题 §
1、VB的特点、运行环境、对象、属性、方法、事件各概念，尤其是方法和事件的区分。
熟悉VB的IDE，VB开发应用程序的一般步骤。
特点：GUI(集成开发环境)、OLE(对象的连接和嵌入)、OOP(面向对象);
运行环境：Windows(VB5.0以上在32位操作系统)
方法：对象可以执行的动作或行为;(主动性)
事件：使某个对象进入活动状态的一种操作或动作。(被动性)
例题：
1、VB的使用目的是()。
A.开发Windows应用程序 B.图象处理
C.制作WAV文件 D.文字处理
2、一个对象可以执行的动作和可被对象识别的动作分别称为()。
A.方法、事件 B.事件、方法 C.方法、属性 D.事件、属性
3、一只白色的足球被踢进球门，则白色、足球、踢、进球门是()。
A.属性、对象、方法、事件 B.属性、对象、事件、方法
C.对象、属性、方法、事件 D.对象、属性、事件、方法
§
2、熟练应用窗体、控件。掌握窗体的常用方法(Hide、Show、Print、Cls、Refresh、Move)、属性和事件(Load、Activate、Click)。
Load事件、Unload事件、End语句
常用控件：CommandButton(Default、Cancel、Enabled、Style、DisabledPicture、DownPicture)、Label(AutoSize)、TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注：Multiline=True)、OptionButton(Value)、ListBox(属性：listlistcountlistindexselected、方法：AddItem、RemoveItem、Clear)、ComboBox(P27)、HscrollBar、VscrollBar(min、Max、Value)、PictureBox(print方法)、Timer(运行时不可见、只有Timer事件、Interval)方法、属性、事件的掌握。
容器控件：Form、Picture、Frame 特殊控件：菜单的使用(只响应Click事件)
1、以下窗体名中哪些是非法的窗体名()。
对象名命名规则：以字母或汉字开头，后面可以是字母、数字、下划线、汉字。(变量名类似)
A._aform B.3frm C.f_1 D.frm 5 E.f_1*
2、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为()。
A.myfrm_click B.form1_click
C.form_click D.me_click
3、执行下面语句：print ―5*20‖ 的结果是()。
A.―5*20‖ B.出现错误信息 C.5*20 D.100
4、下列语句代码哪一些可正常执行(正常执行是指系统不给出出错提示);
A、Print 32765 + 3 B、Print 5 + 7 = 14
C、Print 256 / 128 D、Print “14” + 12 E、Print “14” & 12
5、以下使用方法的代码中，正确的是()。
A、Label1.Setfocus B、Form1.Clear
C、Text1.SetFocus D、Combo1.Cls
6、在程序中可以通过复选框和单选按钮的()属性值来判断他们的当前状态。
A.Caption B.Value C.Checked D.Selected
7、将复选框的Value属性设为“2”,其效果与把它的Enabled属性设为“False”有何异同?若把一个控件的Visible属性设为“False”,意味着什么?
8、当用户单击命令按钮时，()属性可以使得命令按钮对激发事件无效。
A.Name B.Enabled C.Default D.Cancel
9、在文本框Text1和Text2中分别输入35与48，变量S与X分别为字符型与整型，以下赋值语句的执行结果是什么?
s = Text1.Text + Text2.Text x = Text1.Text + Text2.Text
s = Text1.Text & Text2.Text x = Text1.Text & Text2.Text
s = Val(Text1.Text)+ Text2.Text
x = Val(Text1.Text)+ Text2.Text
s = Val(Text1.Text)& Text2.Text
x = Val(Text1.Text)& Text2.Text
例如：
1、if 语句：
Private Sub Form_Click()
Dim x As Integer, y As Integer
Dim z As Single
x = 0.2
y = 1
If(x >= 1)Then
z = Log(x)
ElseIf x >= 0 And x < 1 And y >= 0 Then
z = 2 * x3
i = i + 1
If p >= 10 Then Exit For
Next i
Print i, p, n
End Sub
一、InputBox函数
MsgBox函数(注意参数含义及顺序)
x=InputBox(_____,______,_______)
写出显示下图信息框的MsgBox函数
§
5、数组
1、数组的上、下界：Ubound()、Lbound()
2、数组的大小的计算、数组的结构：(二维数组：以列存放)
3、Erase语句：重新初始化静态数组的元素、或释放动态数组的存储空间。
4、For Each –Next结构语句
5、用Array函数给数组赋值(只能给Variant类型的变量赋值)
6、控件数组(load/Unload Object(Index))
动态数组(Redim语句)
数组分类：
固定大小数组 Option Base语句功能
Preserve语句功能
例如：
n数组重点算法：
n一数组，求其中最大和最小;n对一数组排序(选择法、冒泡法、直接排序法)
n在一数组中查找指定的数(顺序、二分查找);n删除一数组中重复的数
2、在窗体模块的通用声明处用下面的语句声明变量、数组、正确语句有()个。
A.Public a(5)as integer B.Public n as integer
C.Public st as string*10 D.Private b()as integer
3、下列语句中的()语句可以用来正确地声明一个动态数组。
A.Private A(n)as integer B.Dim A()as integer
C.Dim A(,)as integer D.Dim a(1 to n)
4、下列关于数组的说法中正确的是()。
A.在过程中，不能用private语句定义数组
B.利用Redim语句重新定维时，不得改变已经说明过的数组的数据类型。
C.数组重新定维后，原有的数据元素内容将不予保留
5、过程的形参为数组时，以下定义语句中正确的是()。
A.private sub sort(a()as integer)
B.private sub sort(a(10)as integer)
C.private sub sort(a(,)as integer)
D.private sub sort(byval a()as integer)
6、某过程的说明语句中，正确的数组说明语句是______。
Const N As Integer=4 : Dim L As Integer
① Dim x(L)As Integer
② Dim A(K)As Integer
Const K As Integer=3
③ Dim B(N)As Integer
④ Dim Y(2000 To 2008)As Integer
A.①②④ B.①③④ C.③④ D.②③ §
7、文件管理控件
文件处理 顺序文件和随机文件的打开(open)语句，EOF函数，读写语句。
do while not eof(1)do until eof(1)
print #1, write #1，input #1,a,b,c line input #1,s input(#1,100)
get #1,a put #1,‖af‖
打开方式：
顺序文件Open “文件路径+文件名(包括文件后缀)” For Output As #1-511
Open “文件路径+文件名(包括文件后缀)” For Append As #1-511
Open “文件路径+文件名(包括文件后缀)”For Input As #1-511
随机文件：Open “文件路径+文件名(包括文件后缀)”For Random As #1-511
二进制文件：Open “文件路径+文件名(包括文件后缀)”For Binary As #1-511
Open语句打开文件的注意
1.如果以Output、Append、Random、Binary模式打开一个不存在的文件时，VB自动创建一个相应文件;
2.在Input Random Binary模式下，可以用不同的文件号打开同一文件，但Output Append方式不可以;
3.所有当前使用的文件号必须是唯一的;
4.如果以Output模式打开一个已存在的文件，即使没有进行写操作原来数据也将被覆盖。
Close语句注意：(Reset)
1.直接使用 Close语句(缺省文件号)，则所有用Open语句打开的活动文件都被关闭;
2.当程序结束时，所有打开的文件自动被关闭。
Lock和Unlock语句注意：
1.对于二进制文件，Lock和Unlock的是字节范围;
2.对于随机文件，Lock和Unlock的是记录范围;
3.对于顺序文件，Lock和Unlock的是整个文件，即使指明范围也不起作用;
4.缺省情况下Lock和Unlock的范围是整个文件;
5.Lock和Unlock总是成对使用。
特别注意：在关闭文件或结束程序之前，必须用Unlock语句对先前锁定的文件解锁，否则会产生难以预料的错误。
1.要对顺序文件进行写操作，下列打开文件语句中正确的是()。
Open “file1.txt” for output as #1
Open “file1.txt” for input as #1
Open “file1.txt” for Random as #1
Open “file1.txt” for binary as #
12.在VB中文件访问的类型有()。
A.顺序、随机、二进制 B.顺序、随机、字符
A.顺序、十六进制、随机 D.顺序、记录、字符
例如：将文件Data1中的无序数据和Data2中的有序数据插入到Data3中，要求：Data3中的数据必须也是排好序。请填写空白处以实现该题功能。
Private Sub Form_Click()
Dim a()As Integer, b()As Integer
Dim k As Integer, i As Integer
Open “e:data1.txt” For Input As #2
Open “e:data2.txt” For Input As #3
Do While Not EOF(2)
k = k + 1
ReDim Preserve a(k)
Input #2, a(k)Loop _______k=0______________________ Do While Not EOF(3)k = k + 1 ReDim Preserve b(k)Input #3, b(k)Loop Call insert(a, b)Open “e:data3.txt” For Output As #4 _k=ubound(b)____________________________ For i = 1 To k Print #4, b(i)Next i Close End Sub Private Sub insert(a()As Integer, b()As Integer)Dim m As Integer, i As Integer Dim n As Integer, j As Integer m = UBound(a): n = UBound(b)_redim preserve b(m+n)_______________________ i = 0 Do While i < m i = i + 1 j = n Do While j >= 1 And a(i)< b(j)If a(i)< b(j)Then ___b(j+1)=b(j)_______________________ j = jj))
Next j
ch = ch & Chr(dec)
dec = 0
Next i
End Sub §8.鼠标方法、文本、图形及多媒体处理
(1)常用鼠标方法(MouseDown, MouseUp,MouseMove)
(2)数据输出的格式化处理(Format函数)
(3)图形控件Line、Shape使用画点(Pset)、线(Line)、圆(Circle)
例如：在Form_Click事件中执行如下语句的正确结果是()。
Print Format(1236.54,―+##,##0.0%‖)
A.123456 B.+123,654.0% C.+123,6.54% D.+123,654 §9数据库
1.计算机数据管理的三阶段：
人工管理—>文件管理—>数据库管理
2.数据模型：
层次模型(树型结构)—>网络模型(无向图形)—>关系模型(二维关系表)
3.数据控件(Data)的重要属性：
Conncet:确定数据访问类型(Access(缺省值)dbaseFoxpro)
DatabaseName:确定数据控件使用的数据库
Access表包含―.mdb‖的文件中，该属性值就是：.mdb
dbaseFoxpro数据库时,该属性值是：包含数据库文件的路径
RecordSource:确定访问数据表的名称
4.常用的绑定控件：标签、文本框、检查框、组合框、列表框、图片框、图象控件、DBCombo、Dblist、DBGrid
常用属性： DataSource:指定一个数据控件(Data控件)
DataField:指定显示的数据表的哪一字段。
点击咨询 